5 ; "12x12 DOT MATRIX ON PR:" 6 ; "MAX 6 TECKEN/RAD" 7 ; "TILL]NTNA TECKEN [R 0-9.A-\" 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 ']]] ]]]'