1000 OPEN "PR:" ASFILE 1
1001 ; "6x9 DOT MATRIX ON PR1:"
1002 ; "MAX 11 TECKEN/RAD F\R PR1:"
1010 ; "MAX ANTAL TECKEN PER RAD"; : INPUT T%
1020 DIM C%(T%,8%),C$(T%)
1030 ; SPACE$(T%+1%);"*";CHR$(13%);"*"; : INPUTLINE I$ : ; : I$=LEFT$(I$,LEN(I$)-2%)
1040 FOR P%=1% TO LEN(I$)
1050 R%=ASC(MID$(I$,P%,1%))-32%+1%
1060 IF R%>16% 1080
1070 ON R% RESTORE 1270,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,1410,1420 : GOTO 1140
1080 IF R%>32% 1100
1090 ON R%-16% RESTORE 1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1550,1560,1570,1580 : GOTO 1140
1100 IF R%>48% 1120
1110 ON R%-32% RESTORE 1590,1600,1610,1620,1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740 : GOTO 1140
1120 IF R%>64% ; "?Uninplemented character" : GOTO 1030
1130 ON R%-48% RESTORE 1750,1760,1770,1780,1790,1800,1810,1820,1830,1840,1850,1860,1870,1880,1890,1900
1140 FOR R1%=0% TO 8% : READ C%(P%,R1%) : NEXT R1% : READ C$(P%)
1150 NEXT P%
1160 FOR K%=0% TO 8%
1170 FOR R2%=1% TO P%-1%
1180 B%=1%
1190 IF (C%(R2%,K%) AND B%) ; #1C$(R2%); ELSE ; #1" ";
1200 B%=B%*2% : IF B%<64% 1190
1210 ; #1" ";
1220 NEXT R2%
1230 ; #1 : NEXT K%
1240 ; #1
1250 FOR C1%=1% TO T% : FOR C2%=0% TO 8% : C%(C1%,C2%)=0% : NEXT C2% : NEXT C1%
1260 GOTO 1030
1270 DATA 0,0,0,0,0,0,0,0,0,' '
1280 DATA 12,12,12,12,12,12,0,12,12,'!'
1290 DATA 51,51,51,0,0,0,0,0,0,'"'
1300 DATA 0,0,18,18,63,18,63,18,18,'#'
1310 DATA 12,30,45,13,30,44,45,30,12,'$'
1320 DATA 39,21,23,8,4,4,58,42,57,'%'
1330 DATA 6,9,9,6,5,41,49,17,46,'&'
1340 DATA 28,28,24,12,0,0,0,0,0,''''
1350 DATA 24,12,6,6,6,6,6,12,24,'('
1360 DATA 6,12,24,24,24,24,24,12,6,')'
1370 DATA 0,0,18,12,63,12,18,0,0,'*'
1380 DATA 0,0,4,4,31,4,4,0,0,'+'
1390 DATA 0,0,0,0,0,28,28,24,12,','
1400 DATA 0,0,0,0,63,0,0,0,0,'-'
1410 DATA 0,0,0,0,0,0,0,28,28,'.'
1420 DATA 0,32,48,24,12,6,3,1,0,'/'
1430 DATA 30,51,59,59,59,55,55,51,30,'0'
1440 DATA 24,28,30,28,28,28,28,62,62,'1'
1450 DATA 30,51,48,48,24,12,6,3,63,'2'
1460 DATA 30,51,48,48,28,48,48,51,30,'3'
1470 DATA 16,24,20,18,17,63,16,16,16,'4'
1480 DATA 63,3,3,3,30,48,48,51,30,'5'
1490 DATA 24,12,6,3,31,51,51,51,30,'6'
1500 DATA 63,48,48,24,12,6,6,6,6,'7'
1510 DATA 30,51,51,51,30,51,51,51,30,'8'
1520 DATA 30,51,51,51,62,48,24,12,6,'9'
1530 DATA 0,0,28,28,0,28,28,0,0,' : '
1540 DATA 0,0,28,28,0,28,28,24,12,';'
1550 DATA 48,24,12,6,3,6,12,24,48,'<'
1560 DATA 0,0,0,63,0,63,0,0,0,'='
1570 DATA 3,6,12,24,48,24,12,6,3,'>'
1580 DATA 30,51,48,24,12,12,0,12,12,'?'
1590 DATA 48,12,63,3,3,31,3,3,63,'@'
1600 DATA 12,30,51,51,51,63,51,51,51,'A'
1610 DATA 31,51,51,51,31,51,51,51,31,'B'
1620 DATA 30,51,3,3,3,3,3,51,30,'C'
1630 DATA 31,51,51,51,51,51,51,51,31,'D'
1640 DATA 63,63,3,3,31,3,3,63,63,'E'
1650 DATA 63,63,3,3,31,3,3,3,3,'F'
1660 DATA 30,51,3,3,3,59,51,51,30,'G'
1670 DATA 51,51,51,51,63,51,51,51,51,'H'
1680 DATA 30,12,12,12,12,12,12,12,30,'I'
1690 DATA 63,48,48,48,48,48,51,51,30,'J'
1700 DATA 51,51,51,27,15,27,51,51,51,'K'
1710 DATA 3,3,3,3,3,3,3,63,63,'L'
1720 DATA 33,33,51,45,33,33,33,33,33,'M'
1730 DATA 33,35,37,37,41,41,49,33,33,'N'
1740 DATA 63,51,51,51,51,51,51,51,63,'O'
1750 DATA 31,51,51,51,31,3,3,3,3,'P'
1760 DATA 63,51,51,51,51,51,47,27,55,'Q'
1770 DATA 31,51,51,51,31,27,51,51,51,'R'
1780 DATA 30,51,3,3,30,48,48,51,30,'S'
1790 DATA 63,63,12,12,12,12,12,12,12,'T'
1800 DATA 51,51,51,51,51,51,51,51,30,'U'
1810 DATA 33,33,33,33,33,33,33,18,12,'V'
1820 DATA 33,33,33,33,33,45,45,51,18,'W'
1830 DATA 33,33,33,18,12,18,33,33,33,'X'
1840 DATA 33,33,33,18,12,12,12,12,12,'Y'
1850 DATA 63,48,48,24,30,6,3,3,63,'Z'
1860 DATA 33,33,30,51,51,63,51,51,51,'['
1870 DATA 33,33,30,51,51,51,51,51,30,'\'
1880 DATA 12,12,30,51,51,63,51,51,51,']'
1890 DATA 51,51,0,51,51,51,51,51,30,'^'
1900 DATA 0,0,0,0,0,0,0,0,63,'_'