3 FOR B = 1 TO 10:A = FN P(A): NEXT : HOME :NP = A: ON A > = EN GOTO 9: INPUT "ENTER SMALLEST LINE # OR <CR>: ";A$:S = VAL(A$): FOR I = 1 TO 2000: IF FN P(A +2) > = S THEN I = 2000: GOTO 5
4 A = FN P(A): IF A = 0 OR A > = EN THEN PRINT "NO LINES TO DECODE": END
5 NEXT : PRINT : HTAB 10: PRINT "DECODING"
6 PRINT ".";:Q = 0:NP = FN P(A): FOR X = A +3 TO NP -2:K = PEEK(X +1): IF K = 34 THEN Q = 1 -Q: NEXT
7 ON K = 178 GOTO 9: ON K < >46 OR Q = 1 GOTO 8:Y = PEEK(X): ON Y <64 OR Y >90 GOTO 8:J = Y -63: POKE X,QQ(J): POKE X +1,32
8 NEXT
9 A = NP: ON PEEK(A) < >0 OR PEEK(A +1) < >0 GOTO 6: PRINT CHR$(7)"ALL DONE": END