1000 OPEN "PR:" ASFILE 1% : F9%=1%
1001 ; "BIG TEXT 5x7 DOT MATRIX ON PR1:"
1010 ; "MAX ANTAL TECKEN PER RAD"; : INPUT T%
1020 DIM C%(T%,6%),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 1260,1270,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,1410 : GOTO 1140
1080 IF R%>32% 1100
1090 ON R%-16% RESTORE 1420,1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1550,1560,1570 : GOTO 1140
1100 IF R%>48% 1120
1110 ON R%-32% RESTORE 1580,1590,1600,1610,1620,1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730 : GOTO 1140
1120 IF R%>64% ; "?Uninplemented character" : GOTO 1030
1130 ON R%-48% RESTORE 1740,1750,1760,1770,1780,1790,1800,1810,1820,1830,1840,1850,1860,1870,1880,1890
1140 FOR R1%=0% TO 6% : READ C%(P%,R1%) : NEXT R1% : READ C$(P%)
1150 NEXT P%
1160 FOR K%=0% TO 6%
1170 FOR R2%=1% TO P%-1%
1180 B%=1%
1190 IF (C%(R2%,K%) AND B%) ; #F9%C$(R2%); ELSE ; #F9%" ";
1200 B%=B%*2% : IF B%<64% 1190
1210 NEXT R2%
1220 ; #F9% : NEXT K%
1230 ; #F9%
1240 FOR C1%=1% TO T% : FOR C2%=0% TO 6% : C%(C1%,C2%)=0% : NEXT C2% : NEXT C1%
1250 GOTO 1030
1260 DATA 0,0,0,0,0,0,0,''
1270 DATA 6,6,6,6,6,0,6,'!'
1280 DATA 10,10,10,0,0,0,0,'"'
1290 DATA 10,10,31,10,31,10,10,'#'
1300 DATA 4,30,5,14,20,15,4,'$'
1310 DATA 19,19,8,4,2,25,25,'%'
1320 DATA 6,9,6,21,9,25,22,'&'
1330 DATA 14,14,12,6,0,0,0,'''
1340 DATA 12,6,3,3,3,6,12,'('
1350 DATA 6,12,24,24,24,12,6,')'
1360 DATA 4,21,14,31,14,21,4,'*'
1370 DATA 0,4,4,31,4,4,0,'+'
1380 DATA 0,0,0,14,14,12,6,','
1390 DATA 0,0,0,31,0,0,0,'-'
1400 DATA 0,0,0,0,0,14,14,'.'
1410 DATA 16,16,8,4,2,1,1,'/'
1420 DATA 14,17,25,21,19,17,14,'0'
1430 DATA 12,14,12,12,12,12,30,'1'
1440 DATA 14,17,16,8,4,2,31,'2'
1450 DATA 14,17,16,8,16,17,14,'3'
1460 DATA 8,12,10,9,31,8,8,'4'
1470 DATA 31,1,1,14,16,17,14,'5'
1480 DATA 12,2,1,15,17,17,14,'6'
1490 DATA 31,16,16,8,4,4,4,'7'
1500 DATA 14,17,17,14,17,17,14,'8'
1510 DATA 14,17,17,30,16,8,6,'9'
1520 DATA 0,0,14,14,0,14,14,' : '
1530 DATA 14,14,0,14,14,12,6,';'
1540 DATA 8,4,2,1,2,4,8,'<'
1550 DATA 0,0,31,0,31,0,0,'='
1560 DATA 2,4,8,16,8,4,2,'>'
1570 DATA 14,17,8,4,4,0,4,'?'
1580 DATA 24,12,31,1,7,1,31,'@'
1590 DATA 4,10,17,17,31,17,17,'A'
1600 DATA 15,17,17,15,17,17,15,'B'
1610 DATA 14,17,1,1,1,17,14,'C'
1620 DATA 15,17,17,17,17,17,15,'D'
1630 DATA 31,1,1,15,1,1,31,'E'
1640 DATA 31,1,1,15,1,1,1,'F'
1650 DATA 14,17,1,1,25,17,14,'G'
1660 DATA 17,17,17,31,17,17,17,'H'
1670 DATA 14,4,4,4,4,4,14,'I'
1680 DATA 31,16,16,16,16,17,14,'J'
1690 DATA 17,9,5,3,5,9,17,'K'
1700 DATA 1,1,1,1,1,1,31,'L'
1710 DATA 17,27,21,17,17,17,17,'M'
1720 DATA 17,19,21,21,25,17,17,'N'
1730 DATA 14,17,17,17,17,17,14,'O'
1740 DATA 15,17,17,15,1,1,1,'P'
1750 DATA 14,17,17,17,21,9,22,'Q'
1760 DATA 15,17,17,15,9,17,17,'R'
1770 DATA 14,17,1,14,16,17,14,'S'
1780 DATA 31,4,4,4,4,4,4,'T'
1790 DATA 17,17,17,17,17,17,14,'U'
1800 DATA 17,17,17,17,17,10,4,'V'
1810 DATA 17,17,17,17,21,27,17,'W'
1820 DATA 17,17,10,4,10,17,17,'X'
1830 DATA 17,17,10,4,4,4,4,'Y'
1840 DATA 31,16,8,4,2,1,31,'Z'
1850 DATA 17,14,17,17,31,17,17,'['
1860 DATA 17,14,17,17,17,17,14,'\'
1870 DATA 4,4,14,17,31,17,17,']'
1880 DATA 17,0,17,17,17,17,14,'^'
1890 DATA 0,0,0,0,0,0,31,'_'