10 REM Simple BASIC Test Program
20 DIM A(2):LET X=0:Y=1
30 DATA 5,10
40 READ A(0),A(1)
50 PRINT "START":X=X+A(0)*2-A(1)/2
60 FOR I=1 TO 3
70     PRINT I; SIN(I); COS(I); TAN(I); SQR(I); RND(1); INT(ABS(-I))
80 NEXT I
90 INPUT "ENTER 1 TO PRINT OR 2 TO QUIT";Z
100 IF Z=1 AND NOT Z>2 THEN GOTO 130
110 IF Z=2 OR Z<=1 THEN GOSUB 150
120 STOP
130 IF X>=5 THEN PRINT X;"IS > OR = 5"
140 IF X<>Y THEN END
150 PRINT "SUB: ";ABS(X-Y)
160 RETURN
