test.r.non.num

10 X=1
20 Y=2
30 IF NOT (X = Y) THEN GOTO 60
40 PRINT "WRONG, X != Y"
50 GOTO 130
60 REM L23000
70 IF NOT (X > Y) THEN GOTO 100
80 PRINT "ALSO WRONG, X < Y"
90 GOTO 120
100 REM L23002
110 PRINT "OK!"
120 REM L23003
130 REM L23001
140 X=1
150 REM L23004
160 IF NOT (X < 10) THEN GOTO 270
170 IF NOT (Y <> 2) THEN GOTO 190
180 GOTO 270
190 REM L23006
200 IF NOT (Y <> 2) THEN GOTO 220
210 GOTO 150
220 REM L23008
230 PRINT "X = ";X
240 X=X+1
250 REM A BASIC COMMENT
260 GOTO 150
270 REM L23005
280 REM L23010
290 X=X-1
300 REM L23011
310 IF NOT (X = 0) THEN GOTO 280
320 REM L23012
330 X=0
340 REM L23013
350 IF NOT (X < 10) THEN GOTO 400
360 PRINT "X = ";X
370 REM L23014
380 X=X+1
390 GOTO 340
400 REM L23015
410 END