Atari 8-bit Source code

100 REM HARVEY WALLBANGER
110 REM CASSETTE MAKER PROGRAM
120 REM 
130 DIM PROG$(1600):PNTR=1
140 LINE=990:TRAP 220
150 LINE=LINE+10:FOR COUNT=1 TO 15
160 READ BYTE:PROG$(PNTR)=CHR$(BYTE)
170 PNTR=PNTR+1:TOTAL=TOTAL+BYTE
180 NEXT COUNT:? "LINE:";LINE
190 READ CHECKSUM
200 IF CHECKSUM=TOTAL THEN 150
210 ? "BAD CHECKSUM: LINE ";LINE:STOP 
220 IF PEEK(195)=6 THEN 240
230 ? "BAD DATA: LINE ";LINE:STOP 
240 OPEN #1,8,128,"C:"
241 PROG$(1,1)=CHR$(0)
242 PROG$(2,2)=CHR$(12)
243 PROG$(3,3)=CHR$(250)
244 PROG$(4,4)=CHR$(51)
250 PRINT #1;PROG$;:END 
999 REM 
1000 DATA 255,255,0,52,216,57,76,71,52,112,112,112,112,71,7,1560
1010 DATA 58,7,7,7,7,7,7,7,7,7,112,112,70,27,52,2054
1020 DATA 65,3,52,242,225,226,226,233,244,243,218,211,192,243,227,4904
1030 DATA 239,242,229,218,208,208,208,208,103,97,109,101,0,0,111,7185
1040 DATA 118,101,114,128,112,114,101,115,115,0,0,115,116,97,114,8645
1050 DATA 116,128,216,32,101,228,169,211,141,35,52,169,3,141,245,10632
1060 DATA 57,169,208,141,43,52,141,44,52,141,45,52,141,46,52,12016
1070 DATA 169,60,141,228,57,141,26,2,32,220,56,160,2,32,231,13573
1080 DATA 56,136,16,250,169,3,141,48,2,169,52,141,49,2,169,14976
1090 DATA 4,141,111,2,169,40,141,219,57,169,196,141,220,57,169,16812
1100 DATA 60,141,221,57,141,2,208,169,184,141,222,57,141,3,208,18767
1110 DATA 169,122,141,217,57,169,55,141,218,57,169,46,141,47,2,20518
1120 DATA 169,3,141,29,208,169,48,141,7,212,169,150,141,198,2,22305
1130 DATA 169,72,141,199,2,169,24,141,192,2,169,152,141,193,2,24073
1140 DATA 169,52,141,194,2,169,196,141,195,2,169,1,141,233,57,25935
1150 DATA 162,53,160,204,169,7,32,92,228,169,137,141,38,2,169,27698
1160 DATA 53,141,39,2,169,153,141,40,2,169,53,141,41,2,169,29013
1170 DATA 1,141,25,2,169,0,141,30,208,141,246,57,141,227,57,30599
1180 DATA 141,223,57,141,224,57,141,14,210,162,3,157,229,57,157,32572
1190 DATA 247,57,157,251,57,157,255,57,157,3,58,202,16,238,170,34654
1200 DATA 157,128,49,157,0,50,232,208,247,169,255,157,0,51,232,36746
1210 DATA 208,250,232,138,41,1,170,189,219,57,74,8,205,11,212,38761
1220 DATA 208,251,141,10,212,40,144,3,141,10,212,173,10,210,41,40567
1230 DATA 246,141,26,208,160,10,169,0,157,15,208,141,10,212,173,42443
1240 DATA 10,210,41,246,141,26,208,136,208,237,173,200,2,141,26,44448
1250 DATA 208,173,245,57,240,8,173,246,57,16,3,76,99,52,173,46274
1260 DATA 31,208,41,1,208,177,76,71,52,173,228,57,201,2,240,48040
1270 DATA 3,206,228,57,169,1,141,25,2,96,173,228,57,141,26,49593
1280 DATA 2,238,219,57,206,220,57,238,221,57,173,221,57,141,2,51702
1290 DATA 208,206,222,57,173,222,57,141,3,208,238,227,57,173,227,54121
1300 DATA 57,41,1,170,189,207,57,141,0,210,169,8,141,223,57,55792
1310 DATA 96,173,246,57,208,60,173,245,57,208,55,32,220,56,162,57840
1320 DATA 0,142,1,210,142,3,210,142,5,210,142,7,210,142,24,59430
1330 DATA 2,142,25,2,142,26,2,189,47,52,48,7,157,92,58,60421
1340 DATA 232,76,240,53,162,0,189,58,52,48,7,157,151,58,232,62136
1350 DATA 76,254,53,76,189,56,173,12,208,141,236,57,173,4,208,64052
1360 DATA 141,237,57,173,226,57,48,9,206,226,57,74,9,160,141,65873
1370 DATA 7,210,173,223,57,48,8,206,223,57,9,192,141,1,210,67638
1380 DATA 173,224,57,48,8,206,224,57,9,128,141,3,210,173,225,69524
1390 DATA 57,238,225,57,238,225,57,238,225,57,141,4,210,173,246,71915
1400 DATA 57,240,26,238,246,57,238,192,2,238,192,2,173,192,2,74010
1410 DATA 10,10,10,141,2,210,169,136,141,3,210,76,189,56,173,75546
1420 DATA 229,57,240,13,206,229,57,173,219,57,201,28,240,3,206,77704
1430 DATA 219,57,173,230,57,240,13,206,230,57,173,220,57,201,204,80041
1440 DATA 240,3,238,220,57,173,231,57,240,16,206,231,57,173,221,82404
1450 DATA 57,141,2,208,201,39,240,3,206,221,57,173,232,57,240,84481
1460 DATA 16,206,232,57,173,222,57,141,3,208,201,208,240,3,238,86686
1470 DATA 222,57,169,0,133,77,141,234,57,141,235,57,173,120,2,88504
1480 DATA 201,15,240,16,165,20,41,7,208,10,169,16,141,2,210,89965
1490 DATA 169,4,141,224,57,173,120,2,56,233,5,10,170,165,20,91514
1500 DATA 106,106,106,106,189,160,57,144,3,189,182,57,133,128,189,93369
1510 DATA 161,57,144,3,189,183,57,133,129,162,3,78,120,2,176,94966
1520 DATA 16,189,209,57,240,3,141,234,57,189,213,57,240,3,141,96955
1530 DATA 235,57,202,16,232,173,236,57,201,12,208,9,206,35,52,98886
1540 DATA 206,245,57,238,246,57,41,4,240,8,238,217,57,169,0,100909
1550 DATA 141,234,57,173,236,57,41,8,240,8,206,217,57,169,0,102753
1560 DATA 141,234,57,24,173,219,57,105,4,74,205,218,57,144,9,104474
1570 DATA 206,35,52,206,245,57,238,246,57,173,218,57,105,10,10,106389
1580 DATA 205,220,57,144,9,206,35,52,206,245,57,238,246,57,24,108390
1590 DATA 173,217,57,109,234,57,141,217,57,141,0,208,24,173,218,110416
1600 DATA 57,109,235,57,141,218,57,170,160,0,177,128,157,0,50,112132
1610 DATA 232,200,192,14,208,245,173,132,2,205,233,57,141,233,57,114456
1620 DATA 176,63,173,234,57,13,235,57,208,5,238,233,57,208,50,116463
1630 DATA 169,64,141,225,57,169,4,141,5,210,238,244,57,173,244,118604
1640 DATA 57,41,3,170,173,234,57,10,157,255,57,173,235,57,10,120293
1650 DATA 157,3,58,24,173,217,57,105,3,157,247,57,173,218,57,121999
1660 DATA 105,8,157,251,57,169,0,170,157,128,49,232,16,250,162,123910
1670 DATA 3,189,255,57,29,3,58,240,127,189,251,57,24,125,3,125520
1680 DATA 58,157,251,57,168,10,105,2,205,220,57,144,12,32,208,127206
1690 DATA 56,109,230,57,141,230,57,76,31,56,233,12,205,219,57,128975
1700 DATA 176,9,32,208,56,109,229,57,141,229,57,185,128,49,29,130669
1710 DATA 34,57,153,128,49,185,129,49,29,34,57,153,129,49,189,132093
1720 DATA 0,208,160,0,106,144,3,76,195,56,200,192,4,208,245,133890
1730 DATA 24,189,247,57,125,255,57,157,247,57,157,4,208,205,222,136101
1740 DATA 57,144,12,32,208,56,109,232,57,141,232,57,76,111,56,137681
1750 DATA 233,6,205,221,57,176,9,32,208,56,109,231,57,141,231,139653
1760 DATA 57,202,48,3,76,232,55,162,3,169,0,29,255,57,29,141030
1770 DATA 3,58,202,16,247,201,0,208,3,141,5,210,160,0,78,142562
1780 DATA 237,57,144,40,32,10,57,185,238,57,72,32,231,56,104,144114
1790 DATA 168,240,23,162,3,254,43,52,189,43,52,201,218,208,8,145978
1800 DATA 169,208,157,43,52,202,16,238,136,208,233,76,189,56,200,148161
1810 DATA 192,3,208,206,141,30,208,76,98,228,138,72,32,10,57,149860
1820 DATA 32,231,56,104,170,76,111,56,169,0,157,255,57,157,3,151494
1830 DATA 58,24,169,8,96,162,200,169,0,157,6,58,202,208,250,153261
1840 DATA 96,174,10,210,224,200,176,249,189,7,58,208,244,173,10,155489
1850 DATA 210,41,15,201,10,176,247,153,238,57,25,204,57,157,7,157287
1860 DATA 58,138,153,241,57,96,169,0,190,241,57,157,7,58,173,159082
1870 DATA 10,210,41,31,9,16,141,6,210,169,30,141,226,57,96,160475
1880 DATA 3,12,48,192,0,0,18,10,60,116,60,28,30,62,63,161177
1890 DATA 126,0,0,11,10,60,116,60,28,30,62,62,247,0,0,161989
1900 DATA 72,80,60,46,60,56,120,124,252,126,0,0,208,80,60,163333
1910 DATA 46,60,56,120,124,124,239,0,0,66,36,60,20,60,24,164368
1920 DATA 60,126,126,231,0,0,66,36,60,40,60,24,60,126,126,165509
1930 DATA 231,0,0,68,36,60,20,60,24,60,126,254,7,0,0,166455
1940 DATA 34,36,60,40,60,24,60,126,127,224,0,0,68,36,60,167410
1950 DATA 60,60,24,60,102,254,7,0,0,34,36,60,60,60,24,168251
1960 DATA 60,102,127,224,0,0,62,57,62,57,62,57,0,0,38,169159
1970 DATA 57,38,57,38,57,0,0,110,57,134,57,86,57,74,57,170038
1980 DATA 74,57,74,57,0,0,50,57,50,57,50,57,0,0,122,170743
1990 DATA 57,146,57,98,57,16,80,144,38,41,1,255,0,0,0,171733
2000 DATA 0,1,255,226,2,227,2,0,52,0,0,0,0,0,0,172498