10 GOTO 500
500 DIM A$(100),B$(100),C$(100),UP$(1)
510 GR.0:UP$=CHR$(28)
520 RESTORE RNXT:READ RNXT,A$:IF A$="" THEN PRINT "Pass":END
530 READ B$
540 PRINT CHR$(125):PRINT:PRINT A$:PRINT:PRINT "CONT":PRINT UP$;UP$;UP$;UP$;UP$;
550 POKE 764,12:POKE 842,13:STOP
560 POKE 764,12:POKE 842,12:PRINT UP$;UP$;:INPUT #16,C$
570 IF LEN(C$)<5 THEN 600
571 FOR I=1 TO LEN(C$)-4
572 IF C$(I,I+4)="ERROR" OR C$(I,I+4)="Error" THEN 580
573 NEXT I
574 GOTO 600
580 IF B$<>"E" THEN STOP
590 GOTO 520
600 PRINT:PRINT:LIST VAL(A$):PRINT UP$;:POKE 764,12:INPUT #16,C$
610 IF C$=B$ THEN 520
620 PRINT "Mismatch!":PRINT "Expected:":PRINT B$:PRINT "Found:":PRINT C$:STOP
1000 DATA 1010,20 PRINTI,20 PRINT I
1010 DATA 1020,30 PRINT SIN(10),30 PRINT SIN(10)
1020 DATA 1030,40 PRINT SIN0(10),40 PRINT SIN0(10)
1030 DATA 1040,50 PRINT SINE(10),50 PRINT SINE(10)
1040 DATA 1050,60 PRINT SIN$(10),E
1050 DATA 1060,70 DIM SIN(10),E
1060 DATA 1070,80 PRINT STR(10),80 PRINT STR(10)
1070 DATA 1080,90 DIM A$ (10):PRINT A$ (10),90 DIM A$(10):PRINT A$(10)
1080 DATA 0,
