Source Code
10 PRINT ,," INPUT MESSAGE"
20 INPUT M$
30 LET LEN=LEN M$
50 FOR L=1 TO LEN
55 LET CH=CODE M$(L)
60 LET R=7680+(CH*8)
63 LET A=1
67 LET B=1
70 FOR R=R+7 TO R STEP (-0.25)
80 LET RC=PEEK R
90 FOR H=1 TO 7
100 LET D=RC
110 FOR G=1 TO 3
120 IF G=2 OR 3 THEN LET RC=D
130 LET CNTR=0
140 IF RC<128 THEN GOTO 170
150 LET CNTR=128
160 LET RC=RC-128
170 LET RC=RC*2
180 PRINT AT A,B;CHR$ CNTR;
190 LET A=A+1
200 NEXT G
210 NEXT H
220 LET A=1
230 LET B=B+1
240 NEXT R
260 NEXT L
270 STOP
280 CLEAR
290 SAVE "1033%4"
300 RUN
