Atari 8-bit Source code

10 REM *** KRAZY KATERPILLARS ***
20 REM CASSETTE MAKER PROGRAM
40 DIM DAT(16):LINE=990:RESTORE 10000:TRAP 120:? "CHECKING DATA"
50 LINE=LINE+10:? "LINE :"; LINE : FOR X=1 TO 16:READ DAT:IF DAT<0 OR DAT>255 THEN 220
60 DAT(X)=DAT:NEKT X:DATLIN=PEEK(183)+PEEK(843)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING !":END
70 TOTAL=LINE:FOR X=1 TO 16
80 IF PASS=0 THEN PUT #1,DAT(X):NEXT X:READ CHKSUM:GOTO 50
90 TOTAL=TOTAL+DAT(X)*X:IF TOTAL>9999 THEN TOTAL=TOTAL-10000
100 NEXT X:READ CHKSUM:IF TOTAL=CHKSUM THEN 50
110 GOTO 220
120 IF PEEK(195)<>6 THEN 220
130 IF PASS=0 THEN 200
160 FOR X=1 TO 128:PUT #1,0:NEXT X:CLOSE #1:END
200 ? "READY CASSETTE AND PRESS RETURN";:OPEN #1,8,128,"C:":RESTORE 230:FOR X=1 TO 40:READ N:PUT #1,N:NEXT X
210 ? :? "WRITING FILE":PASS=2:LINE=990:RESTORE 1000:TRAP 120:GOTO 50
220 ? "BAD DATA: LINE ";LINE:END
230 DATA 0,16,210,31,249,31,169,0,234,234,234,169,60,141,2,211,169,0,141,231,2,133,14,169,86,141,232,2
240 DATA 133,15,169,0,133,10,169,32,13
1000 DATA 255,255,0,32,181,39,76,181,32,112,112,112,112,112,71,33,3613
1010 DATA 32,112,7,112,112,112,6,112,112,6,112,112,112,112,112,112,4045
1020 DATA 112,6,48,6,65,3,32,0,0,0,0,0,0,0,43,114,4348
1030 DATA 161,58,121,0,0,0,0,0,0,0,0,0,0,0,0,43,2358
1040 DATA 97,180,37,114,176,41,108,172,33,114,179,0,0,0,0,0,8728
1050 DATA 0,0,0,0,0,0,0,0,226,249,0,0,0,0,0,0,5574
1060 DATA 0,0,0,0,0,0,0,0,228,225,246,233,228,0,232,245,1228
1070 DATA 230,230,0,0,0,0,0,0,0,0,0,243,229,236,229,227,8024
1080 DATA 244,0,236,229,246,229,236,0,0,0,0,0,0,0,0,240,1044
1090 DATA 242,229,243,243,0,243,244,225,242,244,0,0,0,0,0,0,3075
1100 DATA 0,0,0,0,112,112,112,70,0,48,134,197,40,48,133,133,3309
1110 DATA 133,133,133,133,133,133,133,133,65,158,32,216,169,72,141,196,9463
1120 DATA 2,169,40,141,197,2,169,120,141,198,2,169,104,141,199,2,6926
1130 DATA 169,0,141,200,2,169,3,141,48,2,169,32,141,49,2,162,2531
1140 DATA 31,169,0,149,176,202,16,251,162,0,138,157,0,6,202,208,7619
1150 DATA 250,169,40,133,194,169,48,133,195,32,230,37,162,8,169,0,5576
1160 DATA 157,0,210,202,16,250,32,101,228,160,115,162,38,169,7,32,5705
1170 DATA 92,228,162,1,142,11,6,173,198,2,72,162,1,189,196,2,4579
1180 DATA 157,197,2,202,16,247,104,141,196,2,169,15,141,24,6,173,4813
1190 DATA 31,208,41,1,240,52,173,24,6,208,244,173,31,208,41,2,5535
1200 DATA 208,18,238,11,6,169,170,141,7,210,169,121,141,6,210,169,8809
1210 DATA 10,141,8,6,173,11,6,201,10,144,5,169,1,141,11,6,9992
1220 DATA 9,208,162,97,157,33,32,76,17,33,206,11,6,174,11,6,9990
1230 DATA 142,10,6,142,12,6,169,224,133,198,169,40,133,200,169,0,7629
1240 DATA 133,197,133,199,162,1,160,0,177,197,145,199,136,208,249,230,4539
1250 DATA 198,230,200,202,16,240,162,39,189,101,39,157,0,40,202,16,5152
1260 DATA 247,169,28,141,196,2,169,136,141,197,2,169,204,141,198,2,8673
1270 DATA 169,42,141,199,2,169,0,141,200,2,169,158,141,48,2,169,5708
1280 DATA 32,141,49,2,169,103,141,0,2,169,37,141,1,2,169,192,3654
1290 DATA 141,14,212,169,40,141,244,2,169,3,141,29,208,169,62,141,7247
1300 DATA 47,2,169,40,141,7,212,169,16,141,111,2,162,0,142,8,2764
1310 DATA 208,142,12,208,169,44,133,177,169,43,133,191,32,163,37,162,7677
1320 DATA 39,189,141,39,157,0,48,202,16,247,162,0,142,16,6,142,3881
1330 DATA 17,6,142,18,6,32,217,36,162,4,142,23,6,32,0,36,8324
1340 DATA 162,1,142,0,6,142,30,208,32,117,36,32,225,34,32,217,4277
1350 DATA 36,32,105,36,32,225,34,32,82,38,173,9,6,240,3,32,1037
1360 DATA 0,36,173,13,6,240,3,76,71,34,76,34,34,169,0,141,1389
1370 DATA 0,6,141,13,6,160,17,185,46,39,145,176,136,16,248,169,7373
1380 DATA 32,141,4,210,169,34,141,7,6,173,7,6,208,251,32,163,5877
1390 DATA 37,206,23,6,173,23,6,240,23,32,37,37,32,230,37,32,978
1400 DATA 250,37,32,203,37,169,1,141,30,208,141,0,6,76,34,34,1063
1410 DATA 162,8,189,92,39,157,25,48,202,16,247,32,230,37,169,10,5501
1420 DATA 141,15,6,32,44,38,169,10,141,15,6,230,195,32,44,38,1944
1430 DATA 198,195,173,31,208,41,1,208,10,173,31,208,41,1,240,249,8406
1440 DATA 76,181,32,173,132,2,240,16,173,24,6,208,229,32,117,36,5261
1450 DATA 169,10,141,24,6,76,172,34,174,12,6,142,10,6,142,11,96
1460 DATA 6,32,230,37,76,249,33,162,3,189,8,208,240,6,238,13,7252
1470 DATA 6,76,251,35,202,16,242,162,3,189,0,208,240,3,32,208,8000
1480 DATA 35,202,16,245,162,1,142,30,208,162,3,173,27,6,61,252,5980
1490 DATA 35,240,3,32,110,35,202,16,242,173,4,6,240,6,206,4,4826
1500 DATA 6,76,251,35,169,4,141,4,6,173,132,2,240,3,76,251,6017
1510 DATA 35,162,3,173,27,6,61,252,35,208,15,189,252,35,13,27,4405
1520 DATA 6,141,27,6,32,74,35,76,251,35,202,16,230,76,251,35,6772
1530 DATA 169,166,141,1,210,169,15,141,5,6,165,178,24,105,3,157,4150
1540 DATA 4,208,149,181,56,165,176,233,5,149,185,169,65,157,28,6,6654
1550 DATA 32,110,35,96,181,185,133,190,222,28,6,240,53,189,32,6,5892
1560 DATA 208,14,160,2,189,252,35,73,255,49,190,145,190,136,16,244,703
1570 DATA 56,165,190,233,3,133,190,149,185,201,50,144,13,160,2,177,8017
1580 DATA 190,29,252,35,145,190,136,16,246,96,169,255,149,185,157,32,1156
1590 DATA 6,96,160,0,169,0,133,190,189,252,35,73,255,49,190,145,217
1600 DATA 190,136,208,244,169,0,157,28,6,157,32,6,189,252,35,77,5620
1610 DATA 27,6,141,27,6,96,32,172,35,181,185,133,190,181,181,133,9989
1620 DATA 189,142,3,6,32,159,36,169,0,145,192,200,145,192,169,32,8426
1630 DATA 141,21,6,169,168,141,3,210,169,11,141,6,6,174,3,6,1803
1640 DATA 96,96,3,12,48,192,248,24,173,10,6,105,1,141,10,6,521
1650 DATA 216,169,0,141,0,6,141,9,6,238,11,6,173,11,6,201,2199
1660 DATA 16,144,5,169,14,141,11,6,174,11,6,189,89,36,141,14,1706
1670 DATA 6,169,168,141,7,210,169,200,141,6,210,169,80,141,8,6,6057
1680 DATA 32,163,37,32,37,37,32,217,36,32,250,37,32,203,37,169,4999
1690 DATA 150,141,24,6,173,24,6,208,251,169,1,141,0,6,96,0,2109
1700 DATA 30,25,20,25,17,10,15,12,10,10,7,6,5,5,4,174,5604
1710 DATA 14,6,160,255,136,208,253,202,208,248,96,162,2,142,25,6,8388
1720 DATA 160,255,230,195,177,194,170,198,195,160,0,142,26,6,177,194,9923
1730 DATA 170,173,26,6,145,194,200,208,242,230,195,206,25,6,208,233,3653
1740 DATA 198,195,198,195,96,56,165,189,233,48,74,74,170,169,0,141,8296
1750 DATA 1,6,56,165,190,233,48,41,240,74,141,2,6,10,10,46,1182
1760 DATA 1,6,24,109,2,6,133,192,173,1,6,105,0,133,193,24,2828
1770 DATA 169,40,101,192,133,192,169,48,101,193,133,193,138,168,96,248,2646
1780 DATA 24,162,2,189,16,6,125,19,6,157,16,6,202,16,244,216,5871
1790 DATA 162,2,169,0,157,19,6,202,16,250,162,6,160,0,185,16,4629
1800 DATA 6,32,14,37,232,232,200,192,3,208,243,162,17,173,10,6,7161
1810 DATA 32,14,37,96,141,22,6,41,15,9,16,157,1,48,173,22,9489
1820 DATA 6,74,74,74,74,9,16,157,0,48,96,169,45,133,180,169,5699
1830 DATA 38,133,179,162,3,169,0,157,0,208,202,208,250,169,26,141,664
1840 DATA 193,2,141,194,2,141,195,2,162,2,160,13,185,32,39,145,4625
1850 DATA 179,136,16,248,230,180,202,16,241,174,23,6,202,240,9,189,492
1860 DATA 99,37,157,0,208,202,208,247,96,0,176,183,190,72,138,72,9884
1870 DATA 152,72,166,196,189,141,37,188,152,37,141,10,212,141,22,208,8799
1880 DATA 140,23,208,230,196,224,11,208,4,162,0,134,196,104,168,104,9127
1890 DATA 170,104,64,134,198,24,86,126,182,70,42,6,102,14,14,26,760
1900 DATA 60,28,136,202,122,70,28,60,168,169,0,133,190,162,5,169,7253
1910 DATA 0,168,145,190,136,208,251,230,191,202,208,246,169,43,133,191,5795
1920 DATA 162,3,169,0,157,32,6,157,28,6,141,27,6,202,16,244,4107
1930 DATA 96,169,128,133,176,169,100,141,0,208,133,178,169,14,141,192,261
1940 DATA 2,160,13,185,32,39,145,176,136,16,248,96,162,1,169,0,5777
1950 DATA 168,145,194,136,208,251,230,195,202,16,246,169,48,133,195,96,2909
1960 DATA 32,35,38,230,195,32,35,38,198,195,24,165,194,105,160,133,9308
1970 DATA 194,165,195,105,0,133,195,160,160,169,0,145,194,136,208,251,3374
1980 DATA 169,40,133,194,169,48,133,195,96,174,11,6,189,66,38,141,6032
1990 DATA 15,6,172,10,210,32,56,38,206,15,6,16,245,96,162,4,3796
2000 DATA 138,145,194,136,202,208,249,96,0,6,10,15,25,16,10,20,9692
2010 DATA 22,25,25,27,30,30,35,35,162,1,160,0,177,194,208,15,4725
2020 DATA 136,208,249,230,195,202,16,244,162,1,142,9,6,208,5,162,7285
2030 DATA 0,142,9,6,169,48,133,195,96,216,174,24,6,240,3,206,7994
2040 DATA 24,6,174,5,6,240,11,189,64,39,141,0,210,206,5,6,3979
2050 DATA 208,5,169,0,141,1,210,174,6,6,240,11,189,80,39,141,5652
2060 DATA 2,210,206,6,6,208,5,169,0,141,3,210,173,7,6,240,6029
2070 DATA 9,74,141,5,210,206,7,6,208,5,169,0,141,5,210,174,6671
2080 DATA 8,6,240,5,206,8,6,208,5,169,0,141,7,210,173,0,4677
2090 DATA 6,208,3,76,98,228,173,4,208,240,6,238,13,6,76,205,7793
2100 DATA 38,166,178,164,176,173,120,2,74,176,2,136,136,74,176,2,5990
2110 DATA 200,200,74,176,2,202,202,74,176,2,232,232,224,50,144,11,9752
2120 DATA 224,208,144,2,162,50,134,178,142,0,208,192,90,144,6,192,8890
2130 DATA 185,176,2,132,176,160,13,185,32,39,145,176,136,16,248,169,9413
2140 DATA 0,133,77,76,205,38,0,0,8,8,8,28,28,62,62,62,7924
2150 DATA 62,62,0,0,8,16,74,34,72,68,16,133,16,4,162,20,9376
2160 DATA 69,18,72,18,8,16,230,240,250,255,230,200,180,170,150,130,4999
2170 DATA 100,75,65,50,45,40,120,100,90,80,75,70,50,40,30,20,175
2180 DATA 10,5,167,161,173,165,0,175,182,165,178,0,0,0,0,0,1846
2190 DATA 0,0,0,0,12,51,86,90,86,51,12,0,204,51,149,165,3535
2200 DATA 149,51,204,0,204,51,86,90,86,51,204,0,192,48,148,165,7267
2210 DATA 148,48,192,115,99,111,114,101,0,0,0,0,0,0,0,0,6257
2220 DATA 108,118,108,0,0,0,0,0,0,0,0,0,0,0,0,0,2888
2230 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,255,9880
2240 DATA 37,224,2,225,2,0,32,0,0,0,0,0,0,0,0,0,3865