Category : BASIC Source Code
Archive   : CONTRL30.ZIP
Filename : TESTME.BAS

START: 'This is a test me file for Quickbasic Conter Center 3.0
FOR X=1 to 10 ' Note: This program is just for a formatting demo.
PRINT
PRINT
FOR F=1 TO 10
PRINT
PRINT F
PRINT
NEXT F
NEXT X
WHILE X-1=S
PRINT X
WEND
HERE:
SUB PAUSE
any$=INPUT$(1)
PRINT
PRINT
END SUB
THERE:
DO UNTIL X=9
PRINT x-1
PRINT x+1
x=x+1
LOOP
INPUT G$
SELECT CASE G$
CASE "Hello"
FOR x=1 to 10
PRINT x
PRINT "Hello to you to..."
NEXT X
CASE "BYE"
WHILE X<9
X=X+1
FOR d=1 to 10
PRINT D
NEXT d
WEND
CASE "EXIT"
PRINT "PLEASE REGISTER THIS SHAREWARE..."
END SELECT
EXIT:
END