20 lines
467 B
Plaintext
20 lines
467 B
Plaintext
10 DEFINT A-Z: DIM M(8192)
|
|
20 INPUT "Filename";F$
|
|
30 OPEN "I",1,F$
|
|
40 GOTO 70
|
|
50 INPUT #1,M(I)
|
|
60 I=I+1
|
|
70 IF EOF(1) THEN CLOSE(1) ELSE GOTO 50
|
|
80 I=0
|
|
90 A=M(I): B=M(I+1): C=M(I+2): I=I+3
|
|
100 IF A=-1 GOTO 150 ELSE IF B=-1 GOTO 190
|
|
120 M(B) = M(B) - M(A)
|
|
130 IF M(B)<=0 THEN I=C
|
|
140 IF I>=0 GOTO 90 ELSE END
|
|
150 A$ = INPUT$(1): PRINT A$;
|
|
160 C = ASC(A$): IF C=13 THEN C=10
|
|
170 M(B) = C
|
|
180 GOTO 90
|
|
190 IF M(A)=10 THEN PRINT ELSE PRINT(CHR$(M(A) AND 255));
|
|
200 GOTO 90
|