QB64-PE/tests/qbasic_testcases/pete/beatdown/clickme.bas

mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-07 17:40:16 +00:00
CLS
PRINT "1.  English                             2.  Italian"
INPUT "#", n
IF n = 1 THEN CHAIN "beatdown.bas"
IF n = 2 THEN CHAIN "bdt.bas"
STOP
Add QBasic tests These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully. 2022-04-28 23:30:07 +00:00			`CLS`
			`PRINT "1. English 2. Italian"`
			`INPUT "#", n`
			`IF n = 1 THEN CHAIN "beatdown.bas"`
			`IF n = 2 THEN CHAIN "bdt.bas"`
			`STOP`