32 lines
658 B
Plaintext
32 lines
658 B
Plaintext
10 DIM m(512)
|
|
20 INPUT p$
|
|
30 LET word=1
|
|
40 LET char=1
|
|
50 IF char<LEN p$ THEN GO TO 80
|
|
60 LET m(word)=VAL p$
|
|
70 GO TO 150
|
|
80 IF p$(char)=" " THEN GO TO 110
|
|
90 LET char=char+1
|
|
100 GO TO 50
|
|
110 LET m(word)=VAL p$( TO char-1)
|
|
120 LET p$=p$(char+1 TO )
|
|
130 LET word=word+1
|
|
140 GO TO 40
|
|
150 LET ptr=0
|
|
160 LET a=m(ptr+1)
|
|
170 LET b=m(ptr+2)
|
|
180 LET c=m(ptr+3)
|
|
190 LET ptr=ptr+3
|
|
200 IF a=-1 THEN GO TO 260
|
|
210 IF b=-1 THEN GO TO 290
|
|
220 LET m(b+1)=m(b+1)-m(a+1)
|
|
230 IF m(b+1)<=0 THEN LET ptr=c
|
|
240 IF ptr<0 THEN STOP
|
|
250 GO TO 160
|
|
260 INPUT c$
|
|
270 LET m(b+1)=CODE c$
|
|
280 GO TO 160
|
|
290 IF m(a+1)=10 THEN PRINT : GO TO 160
|
|
300 PRINT CHR$ m(a+1);
|
|
310 GO TO 160
|