25 lines
612 B
Plaintext
25 lines
612 B
Plaintext
100 READ N:REM SIZE OF PROGRAM
|
|
110 DIM M%(N-1)
|
|
120 FOR I=1 TO N
|
|
130 : READ M%(I-1)
|
|
140 NEXT I
|
|
150 IP=0
|
|
160 FOR D=0 TO 1 STEP 0
|
|
170 : IF IP < 0 OR IP > N-3 THEN D=1:GOTO 290
|
|
180 : A=M%(IP):B=M%(IP+1):C=M%(IP+2)
|
|
190 : IP=IP+3
|
|
200 : IF A >= 0 THEN 240
|
|
210 : GET K$: IF K$="" THEN 210
|
|
220 : M%(B) = ASC(K$)
|
|
230 : GOTO 290
|
|
240 : IF B >= 0 THEN 270
|
|
250 : PRINT CHR$(M%(A));
|
|
260 : GOTO 290
|
|
270 : M%(B)=M%(B)-M%(A)
|
|
280 : IF M%(B) <= 0 THEN IP=C
|
|
290 NEXT D
|
|
300 END
|
|
310 DATA 33
|
|
320 DATA 15, 17, -1, 17, -1, -1, 16, 1, -1, 16, 3, -1, 15, 15, 0, 0, -1
|
|
330 DATA 14, 200, 69, 76, 76, 79, 44, 32, 87, 79, 82, 76, 68, 33, 13, 0
|