100 REM ÃÈÅÃË DEBUGGING AID               BY  ISTVAN MOHOS›110 REM VERSION 2 MODS AND CASSETTE›120 REM VERSION BY TOM HUDSON›130 GRAPHICS 0:? :? "This run will LIST data statements    to the screen or printer."›140 ? :? "This DATA is created by evaluating    each character of a user program,     LISTed to tape.":? ›150 DIM OUT$(1),I$(128),CR$(1)›160 ? "OUTPUT TO ÓCREEN OR ÐRINTER";:INPUT OUT$:IF OUT$<>"S" AND OUT$<>"P" THEN 160›170 IF OUT$="S" THEN OPEN #2,8,0,"E:":GOTO 200›180 CLOSE #2:? "ýREADY PRINTER AND PRESS ÒÅÔÕÒÎ";:INPUT CR$›190 TRAP 180:OPEN #2,8,0,"P:"›200 ? :? "ENTER ISSUE NUMBER";:TRAP 200:INPUT ISSUE›210 ? :? "READY TAPE AND PRESS ÒÅÔÕÒÎ";:OPEN #1,4,0,"C:":? :? ›220 Z=0:LINECOUNT=Z:PLIN=Z:X=2›230 TRAP 340:INPUT #1,I$:LINECOUNT=LINECOUNT+1:LINUM=VAL(I$(1,5))›240 NLCK=NLCK+1:IF NLCK>1 AND NLCK<16 THEN 290›250 IF LINECOUNT=1 THEN 280›260 ? #2;TOTAL:NLCK=1›270 IF OUT$="S" THEN PLIN=PLIN+1:IF PLIN=10 THEN ? "PRESS ÒÅÔÕÒÎ TO CONTINUE";:INPUT CR$:PLIN=0›280 TOTAL=Z:? #2;LINUM;" DATA ";›290 CHKSUM=Z:IF ISSUE>9 THEN X=2›300 FOR I=1 TO LEN(I$):PRODUCT=X*ASC(I$(I,I)):CHKSUM=CHKSUM+PRODUCT:X=X+1:IF X=4 THEN X=1›310 NEXT I:CHKSUM=CHKSUM+X*155:X=X+1:IF X=4 THEN X=1›320 CHKSUM=CHKSUM-1000*INT(CHKSUM/1000)›330 ? #2;CHKSUM;",";:TOTAL=TOTAL+CHKSUM:GOTO 230›340 CLOSE #1:IF LINECOUNT=Z THEN 370›350 ? #2;TOTAL›360 CLOSE #2:END ›370 ? "}ý":? "Your typed-in program was not properlyLISTed to tape."›380 ? :? "Please LIST your program to tape, thenRUN ";CHR$(34);"CHECK";CHR$(34);" again.":CLOSE #2:CLR :END ›