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