10 OPTIONBASE 0
20 DIM A%(127)
30 FOR I=33TO126
40 READ A%(I)
50 NEXT I
60 DATA 736,3075,32095,27638,19609,28284,101,17856,465,11242,4548,404,4228,792,3224
70 DATA 14894,17394,19129,11953,32076,9911,30382,7971,28347,15031
80 DATA 891,437,17732,10570,4433,7841,32571
90 DATA 31038,27327,17982,31295,18111,1215,30270,31903,18417,15928,25823,16927,31967
100 DATA 32223,32319,14655,23855,22847,26290,2017,32287,16143,32159,27803,7943,20153
110 DATA 18400,24707,32288,2082,16912,5216
120 DATA 29530,29279,19036,32348,23260,6116,24280,28767,17332,30232,26783,17393,29150
130 DATA 28766,31326,14686,31054,2142,27476,19426,31246,15118,31630,26778,31382,23386
140 DATA 18276,864,4977,1122
150 CLS
160 LOCATE 19,3,0
170 A$=INPUT$(1)
180 LINE(X,Y+5)-(X+2,Y+5),PRESET
190 E=ASC(A$) MOD 128
200 IF E>=28 AND E<=31 THEN 350
210 IF E>=11 AND E<=13 THEN 460
220 C%=A%(E)
230 FOR I=X TO(X+2)
240 FOR J=Y TO(Y+4)
250 B%=C% MOD 2
260 C%=C%\2
270 PSET(I,J),B%
280 NEXT J,I
290 X=X+4
300 Y=6*(X\120)+Y
310 X=X MOD 120
320 Y=Y MOD 30
330 LINE(X,Y+5)-(X+2,Y+5),PSET
340 GOTO 170
350 E=E-27:ON E GOTO 380,400,420,440
360 LINE(X,Y+5)-(X+2,Y+5),PSET
370 GOTO 170
380 X=(X+4) MOD 120
390 GOTO 360
400 X=(X+116) MOD 120
410 GOTO 360
420 Y=(Y+24) MOD 30
430 GOTO 360
440 Y=(Y+6) MOD 30
450 GOTO 360
460 E=E-10: ON E GOTO 470,480,490
470 X=0:Y=0:GOTO 360
480 X=0:Y=0:CLS:GOTO 360
490 X=0:Y=(Y+6) MOD 30
500 GOTO 360
