Run Magazine ReRun 1988 March & April/rerun-1988-03-04.d64/mr.poster.gen

Commodore BASIC | 1988-01-01 | 7.2 KB | 209 lines

1000 rem 'mr.poster.gen' / vsn 87293
1010 rem frank colaricci
1020 p$="mr.poster.run"
1030 print"one minute and 25 seconds to write"
1040 print"program ";p$
1050 dim hx(75):for i=0to9:hx(48+i)=i:hx(65+i)=i+10:next
1060 open8,8,8,"0:"+p$+",p,w"
1070 print#8,chr$(1);chr$(8);
1080 read hx$:if hx$="*" goto1110
1090 d=16*hx(asc(left$(hx$,1)))+hx(asc(right$(hx$,1)))
1100 print#8,chr$(d);:s=s+d:goto1080
1110 close8:if s<>180648 then print"data error";s:stop
1120 data 25,08,00,00,9e,32,30,39,33,3a
1130 data 8f,20,4d,49,53,54,45,52,20,50
1140 data 4f,53,54,45,52,20,56,53,4e,20
1150 data 38,37,32,39,33,00,00,00,04,04
1160 data 08,42,20,2a,ba,8e,af,02,4c,4e
1170 data 0e,68,85,03,68,85,04,a0,01,18
1180 data b5,00,71,03,95,00,c8,b5,01,71
1190 data 03,95,01,4c,77,08,85,62,84,64
1200 data a0,00,84,61,84,63,b1,61,91,63
1210 data c8,d0,f9,e6,62,e6,64,ca,d0,f2
1220 data 60,84,62,a0,00,84,61,91,61,c8
1230 data d0,fb,e6,62,ca,d0,f6,60,18,98
1240 data 65,03,85,03,a5,04,69,00,48,a5
1250 data 03,48,60,68,85,03,68,85,04,a0
1260 data 01,38,b5,00,f1,03,95,00,c8,b5
1270 data 01,f1,03,95,01,4c,77,08,20,32
1280 data 0d,93,11,20,4c,4f,41,44,49,4e
1290 data 47,20,44,49,52,45,43,54,4f,52
1300 data 59,00,a9,a0,a2,02,a0,ce,20,66
1310 data 08,a9,01,ae,29,08,a0,00,20,ba
1320 data ff,a9,02,a2,78,a0,0b,20,bd,ff
1330 data 20,c0,ff,a2,01,20,c6,ff,a0,08
1340 data 20,cf,ff,88,d0,fa,a0,00,20,cf
1350 data ff,99,fb,09,c8,c0,10,d0,f5,20
1360 data cf,ff,20,cf,ff,20,cf,ff,8d,13
1370 data 0a,20,cf,ff,8d,14,0a,20,cf,ff
1380 data c9,00,d0,f9,a9,00,85,bb,a9,ce
1390 data 85,bc,20,cf,ff,20,cf,ff,c9,00
1400 data f0,48,20,cf,ff,8d,00,cd,20,cf
1410 data ff,8d,01,cd,a0,02,20,cf,ff,99
1420 data 00,cd,c8,c9,00,d0,f5,ad,00,cd
1430 data c9,20,30,d6,c9,2a,10,d2,ad,01
1440 data cd,d0,cd,ad,17,cd,c9,50,d0,c6
1450 data a0,00,b9,05,cd,c9,22,f0,05,91
1460 data bb,c8,d0,f4,a2,bb,20,34,08,10
1470 data 00,4c,11,09,20,cc,ff,a9,01,20
1480 data c3,ff,ad,00,ce,c9,a0,d0,4f,20
1490 data 32,0d,93,11,20,33,31,20,3c,20
1500 data 50,52,47,20,46,49,4c,45,53,20
1510 data 3c,20,34,32,20,20,4e,4f,54,20
1520 data 4f,4e,20,44,49,53,4b,0d,11,20
1530 data 50,52,45,53,53,20,41,4e,59,20
1540 data 4b,45,59,20,54,4f,20,43,4f,4e
1550 data 54,49,4e,55,45,00,20,e4,ff,c9
1560 data 00,f0,f9,68,68,4c,4e,0e,20,32
1570 data 0d,93,12,20,4d,49,53,54,45,52
1580 data 20,50,4f,53,54,45,52,20,46,49
1590 data 4c,45,20,4c,49,53,54,20,20,20
1600 data 20,20,20,20,20,20,20,20,20,20
1610 data 20,20,20,20,44,49,53,4b,20,4e
1620 data 41,4d,45,20,3d,20,31,32,33,34
1630 data 35,36,37,38,39,30,31,32,33,34
1640 data 35,36,20,20,20,49,44,20,3d,20
1650 data 31,32,20,20,50,52,45,53,53,20
1660 data 4c,45,54,54,45,52,20,43,4f,44
1670 data 45,20,54,4f,20,53,45,4c,45,43
1680 data 54,20,46,49,4c,45,20,20,20,20
1690 data 20,20,20,0d,91,00,a9,00,85,bb
1700 data a9,ce,85,bc,a9,41,8d,53,0a,20
1710 data 32,0d,20,12,41,92,20,00,a0,00
1720 data ad,86,02,48,b1,bb,20,d2,ff,68
1730 data 8d,86,02,c8,c0,10,d0,ee,a9,0d
1740 data 20,d2,ff,a2,bb,20,34,08,10,00
1750 data ee,53,0a,a0,00,b1,bb,c9,a0,d0
1760 data cc,20,ac,0d,ae,b0,02,f0,03,4c
1770 data c1,09,c9,41,30,f1,cd,53,0a,10
1780 data ec,38,e9,41,85,bb,a9,00,85,bc
1790 data a2,04,06,bb,26,bc,ca,d0,f9,a2
1800 data bb,20,34,08,00,ce,20,32,0d,93
1810 data 11,20,4c,4f,41,44,49,4e,47,20
1820 data 00,a0,00,ad,86,02,48,b1,bb,20
1830 data d2,ff,68,8d,86,02,c8,c0,10,d0
1840 data ee,20,64,0b,20,c0,ff,a2,08,20
1850 data c6,ff,20,cf,ff,8d,a9,02,20,cf
1860 data ff,8d,aa,02,20,cc,ff,a9,08,20
1870 data c3,ff,a2,00,bd,8b,0f,f0,19,cd
1880 data aa,02,f0,06,e8,e8,e8,e8,d0,f0
1890 data e8,bd,8b,0f,cd,a9,02,f0,41,e8
1900 data e8,e8,d0,e2,20,32,0d,0d,11,20
1910 data 46,49,4c,45,20,4e,4f,54,20,52
1920 data 45,43,4f,47,4e,49,5a,45,44,0d
1930 data 11,20,50,52,45,53,53,20,41,4e
1940 data 59,20,4b,45,59,20,54,4f,20,43
1950 data 4f,4e,54,49,4e,55,45,00,20,d2
1960 data 0d,4c,c1,09,e8,bd,8b,0f,48,e8
1970 data bd,8b,0f,48,20,64,0b,68,aa,68
1980 data a8,a9,00,20,d5,ff,60,a9,08,ae
1990 data 29,08,a0,00,20,ba,ff,a9,10,a6
2000 data bb,a4,bc,20,bd,ff,60,24,30,20
2010 data 88,0d,20,51,0d,20,12,0d,a9,00
2020 data 85,05,a9,60,85,06,a9,04,8d,ae
2030 data 02,20,18,0c,20,0d,0c,20,2f,0c
2040 data a9,19,8d,ad,02,a9,08,8d,ab,02
2050 data a9,0a,8d,a8,02,a9,80,8d,ac,02
2060 data a0,00,b1,05,2d,ac,02,f0,02,a9
2070 data 01,aa,bd,2b,08,20,d2,ff,4e,ac
2080 data 02,90,e9,b1,05,49,ff,91,05,a2
2090 data 05,20,34,08,08,00,ce,a8,02,d0
2100 data d2,20,0d,0c,20,47,0c,a2,05,20
2110 data 86,08,4f,00,ce,ab,02,d0,bb,a2
2120 data 05,20,34,08,38,01,ce,ad,02,d0
2130 data aa,a2,05,20,86,08,f0,1e,20,2f
2140 data 0c,20,1f,0c,ce,ae,02,d0,8a,20
2150 data 2a,0d,20,8e,0d,60,a9,0d,20,d2
2160 data ff,ce,a7,02,f0,01,60,ad,2a,08
2170 data 8d,a7,02,60,ad,a7,02,f0,0a,a9
2180 data 0d,20,d2,ff,ce,a7,02,d0,f6,60
2190 data a9,3c,20,d2,ff,a2,4e,a9,20,20
2200 data d2,ff,ca,d0,f8,a9,3e,20,d2,ff
2210 data 20,0d,0c,60,a5,cb,c9,3f,f0,01
2220 data 60,20,97,0d,20,32,0d,93,11,11
2230 data 20,59,4f,55,20,50,52,45,53,53
2240 data 45,44,20,54,48,45,20,91,12,a9
2250 data 20,20,df,11,9d,9d,9d,9d,53,54
2260 data 4f,50,11,9d,9d,9d,9d,92,df,12
2270 data 20,20,92,a9,91,20,4b,45,59,0d
2280 data 11,11,20,46,31,20,2d,20,43,4f
2290 data 4e,54,49,4e,55,45,20,50,52,49
2300 data 4e,54,49,4e,47,0d,11,20,46,33
2310 data 20,2d,20,47,4f,20,42,41,43,4b
2320 data 20,54,4f,20,50,52,45,56,49,4f
2330 data 55,53,20,4d,45,4e,55,0d,11,20
2340 data 46,37,20,2d,20,51,55,49,54,20
2350 data 28,20,54,48,49,53,20,44,45,43
2360 data 49,53,49,4f,4e,20,49,53,20,46
2370 data 49,4e,41,4c,20,29,00,20,e4,ff
2380 data c9,00,f0,f9,c9,85,d0,04,20,51
2390 data 0d,60,c9,86,d0,05,68,68,4c,06
2400 data 0c,c9,88,d0,09,20,1f,0c,20,2a
2410 data 0d,4c,41,0e,4c,4e,0c,a9,04,ae
2420 data 27,08,ac,28,08,20,ba,ff,a9,00
2430 data 20,bd,ff,20,c0,ff,a2,04,4c,c9
2440 data ff,20,cc,ff,a9,04,4c,c3,ff,68
2450 data 85,03,68,85,04,e6,03,d0,02,e6
2460 data 04,a0,00,b1,03,f0,06,20,16,e7
2470 data 4c,38,0d,a5,04,48,a5,03,48,60
2480 data a9,01,a2,04,a0,5c,20,66,08,ad
2490 data 00,dd,29,fc,09,02,8d,00,dd,a9
2500 data 78,8d,18,d0,a9,3b,8d,11,d0,60
2510 data a9,60,85,62,a2,20,a0,00,84,61
2520 data b1,61,49,ff,91,61,c8,d0,f7,e6
2530 data 62,ca,d0,f2,60,a9,60,a0,20,d0
2540 data 04,a9,20,a0,60,a2,20,4c,4d,08
2550 data ad,00,dd,09,03,8d,00,dd,a9,15
2560 data 8d,18,d0,a9,1b,8d,11,d0,a9,00
2570 data 60,18,a2,18,a0,07,20,f0,ff,20
2580 data 32,0d,12,20,50,52,45,53,53,20
2590 data 53,54,4f,50,20,4b,45,59,20,54
2600 data 4f,20,51,55,49,54,20,92,00,a9
2610 data 00,8d,b0,02,20,e4,ff,c9,00,f0
2620 data f9,c9,03,f0,01,60,ee,b0,02,20
2630 data 32,0d,93,11,11,20,41,52,45,20
2640 data 59,4f,55,20,53,55,52,45,20,59
2650 data 4f,55,20,57,41,4e,54,20,54,4f
2660 data 20,91,12,a9,20,20,df,11,9d,9d
2670 data 9d,9d,51,55,49,54,11,9d,9d,9d
2680 data 9d,92,df,12,20,20,92,a9,91,20
2690 data 3f,0d,11,11,20,28,20,59,20,2f
2700 data 20,4e,20,29,00,20,e4,ff,c9,00
2710 data f0,f9,c9,03,f0,f5,c9,59,d0,0c
2720 data 20,97,0d,a9,93,20,d2,ff,ae,af
2730 data 02,9a,60,20,32,0d,93,11,20,57
2740 data 45,4c,43,4f,4d,45,20,54,4f,20
2750 data 4d,49,53,54,45,52,20,50,4f,53
2760 data 54,45,52,0d,11,20,56,45,52,53
2770 data 49,4f,4e,20,38,37,32,39,33,0d
2780 data 11,20,42,59,20,46,52,41,4e,4b
2790 data 20,43,4f,4c,41,52,49,43,43,49
2800 data 2e,0d,11,20,50,4c,45,41,53,45
2810 data 20,49,4e,53,45,52,54,20,57,52
2820 data 49,54,45,20,50,52,4f,54,45,43
2830 data 54,45,44,20,44,49,53,4b,20,41
2840 data 4e,44,0d,11,20,50,52,45,53,53
2850 data 20,52,45,54,55,52,4e,2e,0d,00
2860 data 20,ac,0d,ae,b0,02,f0,03,4c,4e
2870 data 0e,c9,0d,d0,f1,20,9f,08,20,97
2880 data 0d,20,32,0d,93,11,20,46,31,20
2890 data 2d,20,56,49,45,57,20,42,49,54
2900 data 4d,41,50,0d,11,20,46,33,20,2d
2910 data 20,4e,45,47,41,54,49,56,45,20
2920 data 42,49,54,4d,41,50,0d,11,20,46
2930 data 35,20,2d,20,50,52,49,4e,54,20
2940 data 41,4c,49,47,4e,4d,45,4e,54,20
2950 data 4d,41,52,4b,45,52,53,20,3c,20
2960 data 3e,0d,11,20,46,37,20,2d,20,50
2970 data 52,49,4e,54,20,50,4f,53,54,45
2980 data 52,0d,00,20,ac,0d,c9,85,d0,0c
2990 data 20,51,0d,a5,cb,c9,04,f0,fa,4c
3000 data df,0e,c9,86,d0,0f,20,51,0d,20
3010 data 6f,0d,a5,cb,c9,05,f0,fa,4c,df
3020 data 0e,c9,87,d0,0c,20,12,0d,20,18
3030 data 0c,20,2f,0c,20,2a,0d,c9,88,d0
3040 data 06,20,7a,0b,4c,df,0e,4c,df,0e
3050 data 20,00,60,00,40,00,60,00,5c,00
3060 data 5c,00,60,00,60,00,a0,00,60,00
3070 data e0,00,60,00,00,*