10 GOTO 500
20 PRINTI
30 PRINT SIN(10)
40 PRINT SIN0(10)
50 PRINT SINE(10)
60 PRINT SIN$(10)
70 DIM SIN(10)
80 PRINT STR(10)
500 DIM A$(100),B$(100),CR$(1)
510 CR$=CHR$(125):GR.0
520 READ LN:IF LN=0 THEN END
530 READ A$
540 PRINT CR$;
550 LIST LN
560 POKE 764,12
570 INPUT A$
580 IF A$=B$ THEN 520
590 IF A$<>"E" THEN STOP
600 IF B$="" THEN 520
610 FOR I=1 TO 10
620 IF A$(I,I+4)="ERROR" THEN POP:GOTO 520
630 NEXT I
640 STOP
1000 DATA 20,20 PRINT I
1010 DATA 30,30 PRINT SIN(10)
1020 DATA 40,40 PRINT SIN0(10)
1030 DATA 50,50 PRINT SINE(10)
1040 DATA 60,E
1050 DATA 70,E
1060 DATA 80,80 PRINT STR(10)
1070 DATA 0,0
