1 ON ERROR GOTO 40
3 FOR X = 1 TO 15:COLOR X:PRINT X:NEXT
5 CLS
6 SCREEN 1
9 FOR X = 1 TO 500
10 CIRCLE (153,157),156,,-5.67,-(X/100),X
11 NEXT X
20 FOR X = 1 TO 500
21 FOR X = 1 TO 5
22 PRINT X,
23 NEXT X
24 PRINT
30 NEXT X
40 SCREEN 0,0,0
50 IF HEX$(546) = "", THEN 3
60 WIDTH 80
64 OPEN "NUL" FOR RANDOM AS 1
65 GET 1:COM(A) ON
70 ON ERROR GOTO 0