Run Magazine ReRun 1987 November & December/rerun-1987-11-12.d64/psgc.a.gen

Commodore BASIC | 2022-09-20 | 8KB | 234 lines

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