1 SCREEN 0,0,0
3 CLS
444 TIMER ON
454 ON ERROR GOTO
464 PRINT 14,1,2,3,4,VAL("3")
467 READ FFDO0GF0$
468 DATA &o8
469 PRINT VAL(F$)
777 ON ERROR GOTO 817
781 CLS
785 FOR C = 1 TO 255
789 PRINT CHR$(C);
793 NEXT
797 SCREEN 2
801 FOR X = 1 TO 500
805 CIRCLE(X,X),X,X MOD 15,-X/62,0,ATN(X)
809 NEXT
810 STOP
813 SCREEN 0,0,0
817 RESUME NEXT