19 lines
494 B
Plaintext
19 lines
494 B
Plaintext
1000 PRINT AT 0,0;T$
|
|
1010 LET P=1
|
|
1020 IF P>LEN T$ THEN LET T$=T$+B$
|
|
1030 PRINT AT INT (P/32),P-(32*INT (P/32)+1);CHR$ (CODE T$(P)+128)
|
|
1040 LET R=1
|
|
1050 IF R$(R,1)=S$ AND R$(R,2)=T$(P) THEN GOTO 1080
|
|
1060 LET R=R+1
|
|
1070 GOTO 1050
|
|
1080 LET T$(P)=R$(R,3)
|
|
1090 PRINT AT INT (P/32),P-(32*INT (P/32)+1);T$(P)
|
|
1100 IF R$(R,4)="L" THEN LET P=P-1
|
|
1110 IF R$(R,4)="R" THEN LET P=P+1
|
|
1120 LET S$=R$(R,5)
|
|
1130 IF S$=H$ THEN STOP
|
|
1140 IF P=0 THEN GOTO 1160
|
|
1150 GOTO 1020
|
|
1160 LET T$=B$+T$
|
|
1170 GOTO 1000
|