5 ; "12x12 DOT MATRIX ON PR:"
6 ; "MAX 6 TECKEN/RAD"
7 ; "TILL]NTNA TECKEN [R 0-9.A-\<Mellanslag>"
8 T$=" .0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]"
10 OPEN "PR:" ASFILE 1
20 DIM C$(80%)=12%,I$=8%
30 E%=0% : C%=0%
40 ; "12x12>"; : INPUTLINE I$ : ; 
50 L%=(LEN(I$)-2%)*12%+2%
60 FOR I%=1% TO LEN(I$)-2%
61 IF INSTR(1%,T$,MID$(I$,I%,1%))=0% THEN 62 ELSE 70
62 ; MID$(I$,I%,1%)" FINNS EJ." : GOTO 30
70 R%=ASC(MID$(I$,I%,1%))-32%
80 IF R%=0% RESTORE 280 : GOTO 160
90 IF R%=14% RESTORE 310 : GOTO 160
100 IF NOT (R%>=16% AND R%<=25%) 120
110 ON R%-15% RESTORE 430,550,670,790,910,1030,1150,1270,1390,1510 : GOTO 160
120 IF NOT (R%>32% AND R%<=47%) 140
130 ON R%-32% RESTORE 1630,1750,1870,1990,2110,2230,2350,2470,2590,2710,2830,2950,3070,3190,3310 : GOTO 160
140 IF NOT (R%>=48% AND R%<=61%) RESTORE 280 : GOTO 160
150 ON R%-47% RESTORE 3430,3550,3670,3790,3910,4030,4150,4270,4390,4510,4630,4750,4870,4990
160 FOR P%=E% TO E%+11% : READ C$(P%) : NEXT P%
170 E%=E%+12%
180 NEXT I%
190 E1%=0%
200 FOR P1%=E1% TO P% STEP 12%
210 L%=L%-1% : IF L%=0% ; #1 : GOTO 270
220 ; #1C$(P1%);" ";
230 NEXT P1%
240 ; #1
250 E1%=E1%+1%
260 GOTO 200
270 FOR C1%=0% TO 80% : C$(C1%)="" : NEXT C1% : GOTO 30
280 DATA '            '
290 DATA '            '
300 DATA '            '
310 DATA '            '
320 DATA '            '
330 DATA '            '
340 DATA '            '
350 DATA '            '
360 DATA '            '
370 DATA '            '
380 DATA '            '
390 DATA '            '
400 DATA '   ......   '
410 DATA '   ......   '
420 DATA '   ......   '
430 DATA '  00000000  '
440 DATA ' 0000000000 '
450 DATA '000     0000'
460 DATA '000    00000'
470 DATA '000   00 000'
480 DATA '000  00  000'
490 DATA '000  00  000'
500 DATA '000 00   000'
510 DATA '00000    000'
520 DATA '0000     000'
530 DATA ' 0000000000 '
540 DATA '  00000000  '
550 DATA '    1111    '
560 DATA '   11111    '
570 DATA ' 1111111    '
580 DATA ' 1111111    '
590 DATA '    1111    '
600 DATA '    1111    '
610 DATA '    1111    '
620 DATA '    1111    '
630 DATA '    1111    '
640 DATA '    1111    '
650 DATA '  11111111  '
660 DATA '  11111111  '
670 DATA '  22222222  '
680 DATA ' 2222222222 '
690 DATA '222      222'
700 DATA '         222'
710 DATA '         222'
720 DATA '        222 '
730 DATA '     2222   '
740 DATA '   2222     '
750 DATA ' 2222       '
760 DATA '2222        '
770 DATA '222222222222'
780 DATA '222222222222'
790 DATA '  33333333  '
800 DATA ' 3333333333 '
810 DATA '333      333'
820 DATA '         333'
830 DATA '         333'
840 DATA '       3333 '
850 DATA '       3333 '
860 DATA '         333'
870 DATA '         333'
880 DATA '333      333'
890 DATA ' 3333333333 '
900 DATA '  33333333  '
910 DATA '      4444  '
920 DATA '     44444  '
930 DATA '    444444  '
940 DATA '   444 444  '
950 DATA '  444  444  '
960 DATA ' 444   444  '
970 DATA '444444444444'
980 DATA '444444444444'
990 DATA '       444  '
1000 DATA '       444  '
1010 DATA '      44444 '
1020 DATA '      44444 '
1030 DATA '555555555555'
1040 DATA '555555555555'
1050 DATA '555         '
1060 DATA '555         '
1070 DATA ' 555555555  '
1080 DATA '   55555555 '
1090 DATA '         555'
1100 DATA '         555'
1110 DATA '         555'
1120 DATA '555      555'
1130 DATA ' 5555555555 '
1140 DATA '  55555555  '
1150 DATA '     666    '
1160 DATA '    666     '
1170 DATA '   666      '
1180 DATA '  666       '
1190 DATA ' 666        '
1200 DATA '666666666   '
1210 DATA '6666666666  '
1220 DATA '666     666 '
1230 DATA '666     666 '
1240 DATA '666     666 '
1250 DATA ' 666666666  '
1260 DATA '  6666666   '
1270 DATA '777777777777'
1280 DATA '777777777777'
1290 DATA '         777'
1300 DATA '        777 '
1310 DATA '       777  '
1320 DATA '      777   '
1330 DATA '     777    '
1340 DATA '    777     '
1350 DATA '    777     '
1360 DATA '    777     '
1370 DATA '    777     '
1380 DATA '    777     '
1390 DATA '  88888888  '
1400 DATA ' 8888888888 '
1410 DATA '888      888'
1420 DATA '888      888'
1430 DATA '888      888'
1440 DATA ' 8888888888 '
1450 DATA ' 8888888888 '
1460 DATA '888      888'
1470 DATA '888      888'
1480 DATA '888      888'
1490 DATA ' 8888888888 '
1500 DATA '  88888888  '
1510 DATA '   9999999  '
1520 DATA '  999999999 '
1530 DATA ' 999     999'
1540 DATA ' 999     999'
1550 DATA ' 999     999'
1560 DATA '  9999999999'
1570 DATA '   999999999'
1580 DATA '        999 '
1590 DATA '       999  '
1600 DATA '      999   '
1610 DATA '     999    '
1620 DATA '    999     '
1630 DATA '  AAAAAAAA  '
1640 DATA ' AAAAAAAAAA '
1650 DATA 'AAA      AAA'
1660 DATA 'AAA      AAA'
1670 DATA 'AAA      AAA'
1680 DATA 'AAA      AAA'
1690 DATA 'AAAAAAAAAAAA'
1700 DATA 'AAAAAAAAAAAA'
1710 DATA 'AAA      AAA'
1720 DATA 'AAA      AAA'
1730 DATA 'AAA      AAA'
1740 DATA 'AAA      AAA'
1750 DATA 'BBBBBBBBBB  '
1760 DATA 'BBBBBBBBBBB '
1770 DATA ' BBB     BBB'
1780 DATA ' BBB     BBB'
1790 DATA ' BBB     BBB'
1800 DATA ' BBBBBBBBBB '
1810 DATA ' BBBBBBBBBB '
1820 DATA ' BBB     BBB'
1830 DATA ' BBB     BBB'
1840 DATA ' BBB     BBB'
1850 DATA 'BBBBBBBBBBBB'
1860 DATA 'BBBBBBBBBBB '
1870 DATA '  CCCCCCCC  '
1880 DATA ' CCCCCCCCCC '
1890 DATA 'CCC      CCC'
1900 DATA 'CCC         '
1910 DATA 'CCC         '
1920 DATA 'CCC         '
1930 DATA 'CCC         '
1940 DATA 'CCC         '
1950 DATA 'CCC         '
1960 DATA 'CCC      CCC'
1970 DATA ' CCCCCCCCCC '
1980 DATA '  CCCCCCCC  '
1990 DATA 'DDDDDDDDD   '
2000 DATA 'DDDDDDDDDD  '
2010 DATA ' DDD    DDD '
2020 DATA ' DDD     DDD'
2030 DATA ' DDD     DDD'
2040 DATA ' DDD     DDD'
2050 DATA ' DDD     DDD'
2060 DATA ' DDD     DDD'
2070 DATA ' DDD     DDD'
2080 DATA ' DDD    DDD '
2090 DATA 'DDDDDDDDDD  '
2100 DATA 'DDDDDDDDD   '
2110 DATA 'EEEEEEEEEEEE'
2120 DATA 'EEEEEEEEEEEE'
2130 DATA ' EEE        '
2140 DATA ' EEE        '
2150 DATA ' EEE        '
2160 DATA ' EEEEEEEEE  '
2170 DATA ' EEEEEEEEE  '
2180 DATA ' EEE        '
2190 DATA ' EEE        '
2200 DATA ' EEE        '
2210 DATA 'EEEEEEEEEEEE'
2220 DATA 'EEEEEEEEEEEE'
2230 DATA 'FFFFFFFFFFFF'
2240 DATA 'FFFFFFFFFFFF'
2250 DATA ' FFF        '
2260 DATA ' FFF        '
2270 DATA ' FFF        '
2280 DATA ' FFFFFFFFF  '
2290 DATA ' FFFFFFFFF  '
2300 DATA ' FFF        '
2310 DATA ' FFF        '
2320 DATA ' FFF        '
2330 DATA 'FFFFF       '
2340 DATA 'FFFFF       '
2350 DATA '  GGGGGGGG  '
2360 DATA ' GGGGGGGGGG '
2370 DATA 'GGG      GGG'
2380 DATA 'GGG         '
2390 DATA 'GGG         '
2400 DATA 'GGG         '
2410 DATA 'GGG   GGGGGG'
2420 DATA 'GGG   GGGGGG'
2430 DATA 'GGG      GGG'
2440 DATA 'GGG      GGG'
2450 DATA ' GGGGGGGGGG '
2460 DATA '  GGGGGGGG  '
2470 DATA 'HHHHH  HHHHH'
2480 DATA 'HHHHH  HHHHH'
2490 DATA ' HHH    HHH '
2500 DATA ' HHH    HHH '
2510 DATA ' HHH    HHH '
2520 DATA ' HHHHHHHHHH '
2530 DATA ' HHHHHHHHHH '
2540 DATA ' HHH    HHH '
2550 DATA ' HHH    HHH '
2560 DATA ' HHH    HHH '
2570 DATA 'HHHHH  HHHHH'
2580 DATA 'HHHHH  HHHHH
2590 DATA '  IIIIIIII  '
2600 DATA '  IIIIIIII  '
2610 DATA '    IIII    '
2620 DATA '    IIII    '
2630 DATA '    IIII    '
2640 DATA '    IIII    '
2650 DATA '    IIII    '
2660 DATA '    IIII    '
2670 DATA '    IIII    '
2680 DATA '    IIII    '
2690 DATA '  IIIIIIII  '
2700 DATA '  IIIIIIII  '
2710 DATA ' JJJJJJJJJJJ'
2720 DATA ' JJJJJJJJJJJ'
2730 DATA '        JJJ '
2740 DATA '        JJJ '
2750 DATA '        JJJ '
2760 DATA '        JJJ '
2770 DATA ' JJJJJ  JJJ '
2780 DATA '  JJJ   JJJ '
2790 DATA '  JJJ   JJJ '
2800 DATA '  JJJ   JJJ '
2810 DATA '  JJJJJJJJJ '
2820 DATA '   JJJJJJJ  '
2830 DATA 'KKKKK  KKKKK'
2840 DATA 'KKKKK  KKKKK'
2850 DATA ' KKK   KKK  '
2860 DATA ' KKK  KKK   '
2870 DATA ' KKK KKK    '
2880 DATA ' KKKKKK     '
2890 DATA ' KKKKKK     '
2900 DATA ' KKK KKK    '
2910 DATA ' KKK  KKK   '
2920 DATA ' KKK   KKK  '
2930 DATA 'KKKKK  KKKKK'
2940 DATA 'KKKKK  KKKKK'
2950 DATA 'LLLLL       '
2960 DATA 'LLLLL       '
2970 DATA ' LLL        '
2980 DATA ' LLL        '
2990 DATA ' LLL        '
3000 DATA ' LLL        '
3010 DATA ' LLL        '
3020 DATA ' LLL        '
3030 DATA ' LLL        '
3040 DATA ' LLL     LL '
3050 DATA 'LLLLLLLLLLL '
3060 DATA 'LLLLLLLLLLL '
3070 DATA 'MMM      MMM'
3080 DATA 'MMMM    MMMM'
3090 DATA 'MMMMM  MMMMM'
3100 DATA 'MMM MMMM MMM'
3110 DATA 'MMM  MM  MMM'
3120 DATA 'MMM      MMM'
3130 DATA 'MMM      MMM'
3140 DATA 'MMM      MMM'
3150 DATA 'MMM      MMM'
3160 DATA 'MMM      MMM'
3170 DATA 'MMM      MMM'
3180 DATA 'MMM      MMM'
3190 DATA 'NNN      NNN'
3200 DATA 'NNN      NNN'
3210 DATA 'NNNN     NNN'
3220 DATA 'NNNNN    NNN'
3230 DATA 'NNN NN   NNN'
3240 DATA 'NNN  NN  NNN'
3250 DATA 'NNN  NN  NNN'
3260 DATA 'NNN   NN NNN'
3270 DATA 'NNN    NNNNN'
3280 DATA 'NNN     NNNN'
3290 DATA 'NNN      NNN'
3300 DATA 'NNN      NNN'
3310 DATA '  OOOOOOOO  '
3320 DATA ' OOOOOOOOOO '
3330 DATA 'OOO      OOO'
3340 DATA 'OOO      OOO'
3350 DATA 'OOO      OOO'
3360 DATA 'OOO      OOO'
3370 DATA 'OOO      OOO'
3380 DATA 'OOO      OOO'
3390 DATA 'OOO      OOO'
3400 DATA 'OOO      OOO'
3410 DATA ' OOOOOOOOOO '
3420 DATA '  OOOOOOOO  '
3430 DATA 'PPPPPPPPPP  '
3440 DATA 'PPPPPPPPPPP '
3450 DATA ' PPP     PPP'
3460 DATA ' PPP     PPP'
3470 DATA ' PPP     PPP'
3480 DATA ' PPPPPPPPPP '
3490 DATA ' PPPPPPPPP  '
3500 DATA ' PPP        '
3510 DATA ' PPP        '
3520 DATA ' PPP        '
3530 DATA 'PPPPP       '
3540 DATA 'PPPPP       '
3550 DATA '  QQQQQQQQ  '
3560 DATA ' QQQQQQQQQQ '
3570 DATA 'QQQ      QQQ'
3580 DATA 'QQQ      QQQ'
3590 DATA 'QQQ      QQQ'
3600 DATA 'QQQ      QQQ'
3610 DATA 'QQQ      QQQ'
3620 DATA 'QQQ      QQQ'
3630 DATA 'QQQ   QQ QQQ'
3640 DATA 'QQQ    QQQQQ'
3650 DATA ' QQQQQQQQQQ '
3660 DATA '  QQQQQQQ QQ'
3670 DATA 'RRRRRRRRRR  '
3680 DATA 'RRRRRRRRRRR '
3690 DATA ' RRR     RRR'
3700 DATA ' RRR     RRR'
3710 DATA ' RRR     RRR'
3720 DATA ' RRRRRRRRRR '
3730 DATA ' RRRRRRRRR  '
3740 DATA ' RRR RRR    '
3750 DATA ' RRR  RRR   '
3760 DATA ' RRR   RRR  '
3770 DATA 'RRRRR  RRRRR'
3780 DATA 'RRRRR  RRRRR'
3790 DATA '  SSSSSSSS  '
3800 DATA ' SSSSSSSSSS '
3810 DATA 'SSS      SSS'
3820 DATA 'SSS         '
3830 DATA 'SSS         '
3840 DATA ' SSSSSSSSS  '
3850 DATA '  SSSSSSSSS '
3860 DATA '         SSS'
3870 DATA '         SSS'
3880 DATA 'SSS      SSS'
3890 DATA ' SSSSSSSSSS '
3900 DATA '  SSSSSSSS  '
3910 DATA 'TTTTTTTTTTTT'
3920 DATA 'TTTTTTTTTTTT'
3930 DATA 'TT  TTTT  TT'
3940 DATA '    TTTT    '
3950 DATA '    TTTT    '
3960 DATA '    TTTT    '
3970 DATA '    TTTT    '
3980 DATA '    TTTT    '
3990 DATA '    TTTT    '
4000 DATA '    TTTT    '
4010 DATA '   TTTTTT   '
4020 DATA '   TTTTTT   '
4030 DATA 'UUUUU  UUUUU'
4040 DATA 'UUUUU  UUUUU'
4050 DATA ' UUU    UUU '
4060 DATA ' UUU    UUU '
4070 DATA ' UUU    UUU '
4080 DATA ' UUU    UUU '
4090 DATA ' UUU    UUU '
4100 DATA ' UUU    UUU '
4110 DATA ' UUU    UUU '
4120 DATA ' UUU    UUU '
4130 DATA '  UUUUUUUU  '
4140 DATA '   UUUUUU   '
4150 DATA 'VVVVV  VVVVV'
4160 DATA 'VVVVV  VVVVV'
4170 DATA ' VVV    VVV '
4180 DATA ' VVV    VVV '
4190 DATA ' VVV    VVV '
4200 DATA ' VVV    VVV '
4210 DATA ' VVV    VVV '
4220 DATA ' VVV    VVV '
4230 DATA '  VVV  VVV  '
4240 DATA '   VVVVVV   '
4250 DATA '    VVVV    '
4260 DATA '     VV     '
4270 DATA 'WWW      WWW'
4280 DATA 'WWW      WWW'
4290 DATA 'WWW      WWW'
4300 DATA 'WWW      WWW'
4310 DATA 'WWW      WWW'
4320 DATA 'WWW      WWW'
4330 DATA 'WWW  WW  WWW'
4340 DATA 'WWW  WW  WWW'
4350 DATA 'WWW  WW  WWW'
4360 DATA 'WWW WWWW WWW'
4370 DATA ' WWWW  WWWW '
4380 DATA '  WW    WW  '
4390 DATA 'XXXXX  XXXXX'
4400 DATA 'XXXXX  XXXXX'
4410 DATA ' XXX    XXX '
4420 DATA '  XXX  XXX  '
4430 DATA '   XXXXXX   '
4440 DATA '    XXXX    '
4450 DATA '    XXXX    '
4460 DATA '   XXXXXX   '
4470 DATA '  XXX  XXX  '
4480 DATA ' XXX    XXX '
4490 DATA 'XXXXX  XXXXX'
4500 DATA 'XXXXX  XXXXX'
4510 DATA 'YYYYY  YYYYY'
4520 DATA 'YYYYY  YYYYY'
4530 DATA ' YYY    YYY '
4540 DATA '  YYY  YYY  '
4550 DATA '   YYYYYY   '
4560 DATA '    YYYY    '
4570 DATA '    YYYY    '
4580 DATA '    YYYY    '
4590 DATA '    YYYY    '
4600 DATA '    YYYY    '
4610 DATA '   YYYYYY   '
4620 DATA '   YYYYYY   '
4630 DATA 'ZZZZZZZZZZZZ'
4640 DATA 'ZZZZZZZZZZZZ'
4650 DATA 'ZZ       ZZZ'
4660 DATA '        ZZZ '
4670 DATA '       ZZZ  '
4680 DATA '   ZZZZZZ   '
4690 DATA '   ZZZZZZ   '
4700 DATA '  ZZZ       '
4710 DATA ' ZZZ        '
4720 DATA 'ZZZ       ZZ'
4730 DATA 'ZZZZZZZZZZZZ'
4740 DATA 'ZZZZZZZZZZZZ'
4750 DATA '[[        [['
4760 DATA '[[        [['
4770 DATA '  [[[[[[[[  '
4780 DATA ' [[[[[[[[[[ '
4790 DATA '[[[      [[['
4800 DATA '[[[      [[['
4810 DATA '[[[      [[['
4820 DATA '[[[[[[[[[[[['
4830 DATA '[[[[[[[[[[[['
4840 DATA '[[[      [[['
4850 DATA '[[[      [[['
4860 DATA '[[[      [[['
4870 DATA '\\        \\'
4880 DATA '\\        \\'
4890 DATA '  \\\\\\\\  '
4900 DATA ' \\\\\\\\\\ '
4910 DATA '\\\      \\\'
4920 DATA '\\\      \\\'
4930 DATA '\\\      \\\'
4940 DATA '\\\      \\\'
4950 DATA '\\\      \\\'
4960 DATA '\\\      \\\'
4970 DATA ' \\\\\\\\\\ '
4980 DATA '  \\\\\\\\  '
4990 DATA '    ]]]]    '
5000 DATA '    ]  ]    '
5010 DATA '  ]]]]]]]]  '
5020 DATA ' ]]]]]]]]]] '
5030 DATA ']]]      ]]]'
5040 DATA ']]]      ]]]'
5050 DATA ']]]      ]]]'
5060 DATA ']]]]]]]]]]]]'
5070 DATA ']]]]]]]]]]]]'
5080 DATA ']]]      ]]]'
5090 DATA ']]]      ]]]'
5100 DATA ']]]      ]]]'