5 SCREEN 0,0,0
6 WIDTH 80
10 A=A+1
20 PRINT A
43 IF A = 268 THEN 60AL)
50 GOTO 10
60 SCREEN 7
65 :CLS
68 FOR X = 1 TO 500
70 CIRCLE (X,X),X,X MOD 15,-.8,-5.5+X/100
71 NEXT
80 FOR X = 500 TO 1 STEP -1
81 CIRCLE (X,X),X,0,-.8,-5.5+X/100
82 NEXT
83 SCREEN 0,0,0
84 FOR G = 1 TO 9
85 PRINT VAL("&o"+STR$(G))
86 NEXT G
98 PRINT INP(-7)
99 ERROR 78
100 PRINT (VAL)