Back to Main page. Back to Main tapes page. 10 DIM A$[80],D$[80] 20 FILES TCH 30 IF ERROR THEN 70 40 GOTO (TYP(1)=3)+((TYP(1)=3) AND ITM(1)) OF 400,70 50 READ #1;D$ 60 GOTO 40 70 READ #1,REC(1)+1 80 GOTO 40 90 IF ITM(1) THEN 210 100 PRINT "D$= "; 110 LINPUT D$ 130 GOSUB NOT LEN(D$) OF 560 140 IF D$="LEVEL" THEN 360 150 IF D$="STOP" THEN 590 160 PRINT #1;D$[1,LEN(D$)] 170 IF D$[LEN(D$)]#'27 THEN 100 180 RESTORE 190 X=0 200 DATA "R","Q","A","W" 210 FOR X=X*(X<4 AND X#0)+(X>3 OR X=0) TO 4 220 READ B$ 230 PRINT B$"$= "; 240 LINPUT A$ 250 IF X=1 OR X=4 THEN 270 260 A$=UPS$(A$) 270 GOSUB NOT LEN(A$) OF 560 280 IF A$="LEVEL" THEN 360 290 IF A$="STOP" THEN 590 300 PRINT #1;A$[1,LEN(A$)] 310 IF X=2 OR X=3 THEN 330 320 IF A$[LEN(A$)]#'27 THEN 230 330 NEXT X 340 RESTORE 350 GOTO 210 360 PRINT #1; END 370 READ #1,REC(1)+1 380 PRINT '10"Entering Record #"REC(1)'10 390 GOTO 100 400 IF ERROR THEN 590 410 PRINT "Is the level ending in record #"REC(1)-1"finished yet"; 420 INPUT D$ 430 IF POS("Yy",D$[1,1]) THEN 380 440 READ #1,REC(1)-1 450 PRINT "Continuing record #"REC(1) 460 IF TYP(-1)>2 THEN 490 470 READ #1;D$ 480 GOTO 460 490 PRINT "Which string is next"; 500 INPUT D$ 510 IF POS("Dd",D$[1,1]) THEN 100 520 FOR X=1 TO POS(" RrQqAaWw",D$[1,1])/2-1 530 READ B$ 540 NEXT X 550 GOTO 210 560 A$='13'10 570 D$=A$ 580 RETURN 590 END