10
20
30 :
40 base%=&FC80
50 PRINT
60 IF INKEY(-1) THEN END
70 IF INKEY-2 THEN base%=base% EOR 2:PRINT"Base at &";~base%
80 base%?1=32:PROCc(7)
90 ON ERROR GOTO 150
100 REPEAT
110 INPUT"Command: "D%
120 PROCc(D%)
130 UNTIL 0
140 :
150 PRINT
160 IF INKEY(-1) THEN END
170 IF INKEY-2 THEN base%=base% EOR 2:PRINT"Base at &";~base%
180 PRINT"Enter text: ";
190 ON ERROR GOTO 50
200 REPEAT
210 base%?1=0:PROCc(7):D%=GET
220 base%?1=32:PROCc(7)
230 IF D%=127 PROCc(7) ELSE IF D%>31 base%?1=D%
240 IF D%>31 VDUD%
250 IF D%=13 PRINT
260 UNTIL0
270 :
280 DEFPROCc(A%)
290 REPEATUNTIL?base%<128
300 ?base%=A%:REPEATUNTIL?base%<128
310 ?base%=13:ENDPROC
320 DEFPROCpr(A$):FOR a%=1 TO LEN A$:base%?1=ASCMID$(A$,a%,1):NEXT:ENDPROC