A.N.A.L.O.G. ISSUE 51 / FEBRUARY 1987 / PAGE 23

Slither

Survival of the fattest
is the theme of this
machine language game.

It is springtime. Things are really starting to buzz. Birds are singing, flowers are blooming, and the sun is shining. All the animals are returning, or emerging from their winter retreats, and they’re ravenous. They haven’t eaten a thing in nearly four months.

Slick is no exception. He just got back from his winter snake hole in the South of France, and there’s only one thing on his mind: food! Lucky for him, his swamp has an enormous supply of turtle eggs, so he can devour all he wants. However, he can’t just take his time chewing his food. A growing reptile needs all the energy he can get, or he just can’t keep going. So, if Slick wants to make it to adulthood, he’d better make like a snake and Slither!

Typing it in.

Listing 1 is the BASIC data used to create your copy of Slither. See the M/L Editor article on page 90 for typing instructions.

Playing the game.

Slither is a one-player game, so plug a joystick into port and boot up Slither. Take a deep breath, find a comfortable seat and push the START key to begin. The idea here is to move the snake around, through the maze, using the stick to guide him as he gorges himself on turtle eggs. To complete a level. Slick must eat all the eggs in a time limit of 90 seconds (the clock counts down 5 seconds at a time). Finishing a level changes the screen (there are three in all) and increases Slick’s speed.

Now, each time Slick wolfs down an egg, he grows a new segment—by holding his tail in place, while his head moves forward one space. So, the more eggs he eats, the longer and longer he becomes. This would be great—if it weren’t for the fact that, if he moves backward, he kills himself, or if he runs into his body, he gets stuck and dies. The scoring is 10 points per egg and 1,000 points for the completion of a level. An extra snake is awarded for each 10,000 points. You’ll soon see how quickly this game becomes difficult. We think this makes it fun—and a great test of your hand-eye coordination. Enjoy!

Steven E. Pearson learned BASIC in high school, four years ago, and took FORTRAN, Modula-2 and assembly language (which taught him nothing but binary and hex) in college. His 6502 machine language is self taught.

Paul Kohut got his first computer, an 800, six years ago, and met Steven in an assembly class. Having written software for his father’s businesses, he now uses his computer to organize his own wastewater treatment company.

Listing 1.

1000 DATA 255,255,0,53,251,53,169,1,141,255,52,32,229,57,162,0,5721
1010 DATA 134,143,134,156,142,0,210,162,88,142,244,2,32,1,58,32,2664
1020 DATA 74,58,162,32,134,82,162,36,134,83,162,21,134,84,162,32,4338
1030 DATA 134,85,162,0,134,86,169,170,141,68,3,169,58,141,69,3,3370
1040 DATA 169,10,141,72,3,169,0,141,73,3,32,86,228,173,31,208,5347
1050 DATA 201,6,208,249,162,21,134,84,162,32,134,85,169,180,141,68,7621
1060 DATA 3,169,58,141,69,3,169,10,141,72,3,169,0,141,73,3,932
1070 DATA 32,86,228,173,255,52,201,1,240,23,162,0,134,143,134,156,8074
1080 DATA 142,0,210,32,229,57,169,88,141,244,2,32,1,58,32,74,1958
1090 DATA 58,169,88,141,244,2,169,0,141,255,52,24,169,85,101,88,5718
1100 DATA 133,152,169,2,101,89,133,153,24,169,44,101,88,133,154,169,6868
1110 DATA 2,101,89,133,155,24,169,136,101,88,133,134,169,1,101,89,5313
1120 DATA 133,135,24,165,88,105,220,133,161,165,89,105,1,133,162,162,8164
1130 DATA 65,134,158,162,64,134,159,160,0,132,19,132,20,169,25,145,4536
1140 DATA 161,200,169,16,145,161,24,165,88,105,43,133,128,165,89,105,6351
1150 DATA 0,133,129,24,165,88,105,45,133,130,165,89,105,0,133,131,5183
1160 DATA 162,0,252,53,247,54,134,141,162,7,134,138,162,239,142,1,8171
1170 DATA 210,169,31,133,160,160,0,145,128,169,12,200,145,128,200,169,18
1180 DATA 13,145,128,160,1,169,18,56,229,19,141,0,6,41,1,201,1785
1190 DATA 1,240,7,169,16,145,161,76,52,54,169,21,145,161,173,0,4906
1200 DATA 6,74,24,105,16,160,0,145,161,173,0,6,201,0,208,3,3078
1210 DATA 76,184,56,162,0,134,77,166,158,32,216,57,169,0,141,0,4255
1220 DATA 210,173,120,2,133,140,162,0,221,130,58,240,8,232,224,4,8366
1230 DATA 208,246,76,114,54,165,138,133,140,76,132,54,197,138,240,4,8181
1240 DATA 165,138,133,139,165,140,201,15,240,4,165,140,133,138,165,140,9899
1250 DATA 201,15,208,4,165,138,133,140,165,130,133,146,165,131,133,147,151
1260 DATA 165,140,201,14,240,15,201,13,240,27,201,11,240,39,201,7,6731
1270 DATA 240,51,76,25,54,56,165,130,233,40,133,130,165,131,233,0,7735
1280 DATA 133,131,76,232,54,24,165,130,105,40,133,130,165,131,105,0,5362
1290 DATA 133,131,76,232,54,56,165,130,233,1,133,130,165,131,233,0,8246
1300 DATA 133,131,76,232,54,24,165,130,105,1,133,130,165,131,105,0,4992
1310 DATA 133,131,162,0,161,130,201,10,208,3,76,40,56,201,11,208,5516
1320 DATA 3,76,248,54,243,55,8,55,201,12,208,3,76,184,56,197,6285
1330 DATA 160,208,35,76,184,56,32,54,55,169,80,141,0,210,32,27,2836
1340 DATA 57,165,143,41,3,168,230,156,165,156,217,134,58,208,3,76,8168
1350 DATA 107,57,162,1,134,141,32,54,55,166,141,224,0,240,16,198,7395
1360 DATA 141,76,25,54,160,0,169,12,145,146,169,13,145,130,96,56,4844
1370 DATA 165,128,233,40,133,132,165,129,233,0,133,133,160,0,177,132,8297
1380 DATA 201,12,208,8,162,0,142,1,6,76,139,55,160,80,177,132,5043
1390 DATA 201,12,208,8,162,2,142,1,6,76,139,55,160,39,177,132,4491
1400 DATA 201,12,208,8,162,4,142,1,6,76,139,55,160,41,177,132,4541
1410 DATA 201,12,208,5,162,6,142,1,6,169,0,170,129,128,174,1,4006
1420 DATA 6,189,122,58,133,150,232,189,122,58,133,151,108,150,0,56,6456
1430 DATA 165,128,233,40,133,128,165,129,233,0,133,129,76,225,55,24,6785
1440 DATA 165,128,105,40,133,128,165,129,105,0,133,129,76,225,55,56,5771
1450 DATA 165,128,233,1,133,128,165,129,233,0,133,129,76,225,55,24,6649
1460 DATA 165,128,105,1,133,128,165,129,105,0,133,129,76,225,55,56,5635
1470 DATA 165,128,233,40,133,148,165,129,233,0,133,149,160,0,177,148,8941
1480 DATA 201,12,244,55,239,56,208,7,160,30,132,160,76,31,56,160,5634
1490 DATA 39,177,148,201,12,208,7,160,31,132,160,76,31,56,160,41,4282
1500 DATA 177,148,201,12,208,7,160,31,132,160,76,31,56,160,30,132,4600
1510 DATA 160,160,0,165,160,145,128,76,25,54,56,165,146,233,40,133,7073
1520 DATA 132,165,147,233,0,133,133,24,165,146,105,40,133,148,165,147,8484
1530 DATA 105,0,133,149,162,0,161,132,201,10,240,7,201,12,240,12,6829
1540 DATA 76,99,56,161,148,201,12,208,12,76,158,56,161,148,201,10,6938
1550 DATA 208,3,76,158,56,56,165,146,233,1,133,132,165,147,233,0,8415
1560 DATA 133,133,24,165,146,105,1,133,148,165,147,105,0,133,149,162,7670
1570 DATA 0,161,132,201,10,240,7,201,12,240,12,76,169,56,161,148,7555
1580 DATA 201,12,240,12,76,169,56,161,148,201,10,240,3,76,169,56,6513
1590 DATA 166,146,134,130,166,147,134,131,76,25,54,166,139,134,140,166,8627
1600 DATA 146,134,130,166,147,134,131,76,114,54,160,0,162,128,185,155,8611
1610 DATA 58,141,0,210,152,72,32,216,57,104,168,200,192,15,208,236,1337
1620 DATA 160,0,177,152,201,16,208,3,76,213,57,56,233,1,145,152,7263
1630 DATA 165,88,133,148,165,89,133,149,160,0,177,148,201,12,240,15,8228
1640 DATA 201,13,240,56,235,57,240,11,201,30,240,7,201,31,240,3,7624
1650 DATA 76,1,57,169,0,145,148,200,192,40,208,226,24,169,40,101,8103
1660 DATA 148,133,148,169,0,101,149,133,149,232,224,24,208,206,76,209,2392
1670 DATA 53,160,3,177,134,201,25,240,6,24,105,1,145,134,96,169,6097
1680 DATA 16,145,134,160,2,177,134,201,25,240,6,24,105,1,145,134,5323
1690 DATA 96,169,16,145,134,160,1,177,134,201,25,240,6,24,105,1,4181
1700 DATA 145,134,96,169,16,145,134,160,0,177,152,24,105,1,145,152,5961
1710 DATA 177,134,201,25,240,6,24,105,1,145,134,96,169,16,145,134,5927
1720 DATA 96,160,0,56,165,158,233,4,201,13,240,2,133,158,162,128,8818
1730 DATA 185,138,58,141,0,210,152,72,32,216,57,104,168,200,192,17,8288
1740 DATA 208,236,230,143,162,0,134,156,160,2,177,154,201,25,240,8,8624
1750 DATA 24,105,1,145,154,76,204,57,169,16,145,154,160,1,177,154,8014
1760 DATA 201,25,240,8,24,105,1,145,154,76,204,57,169,16,145,154,6814
1770 DATA 160,0,177,154,201,25,240,6,24,145,154,76,204,57,169,16,6473
1780 DATA 145,154,32,63,57,32,74,58,76,209,53,76,28,53,160,255,5895
1790 DATA 136,192,255,208,251,202,224,0,208,244,96,173,48,2,133,136,209
1800 DATA 173,49,236,57,121,58,2,133,137,169,68,160,3,145,136,160,7298
1810 DATA 6,169,4,145,136,200,192,29,208,249,96,169,3,141,66,3,6699
1820 DATA 169,8,141,74,3,169,0,141,75,3,169,71,141,68,3,169,3831
1830 DATA 58,141,69,3,32,86,228,169,11,141,3,6,141,66,3,162,3021
1840 DATA 29,134,82,162,39,134,83,162,0,169,217,141,68,3,169,71,6273
1850 DATA 141,69,3,169,232,141,72,3,169,0,141,73,3,32,86,228,4721
1860 DATA 96,69,58,155,162,0,134,82,162,28,134,83,162,0,134,84,4960
1870 DATA 134,85,134,86,165,143,41,3,10,168,185,209,71,141,68,3,5192
1880 DATA 185,210,71,141,69,3,169,155,141,72,3,169,2,141,73,3,3241
1890 DATA 32,86,228,96,122,58,189,58,161,55,177,55,193,55,209,55,7807
1900 DATA 5,6,9,10,106,104,106,105,0,60,53,50,47,60,53,47,9501
1910 DATA 47,64,53,53,60,60,60,60,0,0,200,200,0,220,220,0,4996
1920 DATA 240,240,0,255,255,255,255,0,80,82,69,83,83,83,84,65,6086
1930 DATA 82,84,32,32,32,32,32,32,32,32,32,32,0,88,251,88,985
1940 DATA 0,0,0,0,0,0,0,0,0,12,12,12,12,0,12,0,2672
1950 DATA 0,51,51,51,0,0,0,0,0,51,63,51,51,63,51,0,6534
1960 DATA 12,63,48,63,3,63,12,0,0,51,3,12,12,48,51,0,5251
1970 DATA 12,51,51,51,204,204,204,51,0,12,12,12,0,0,0,0,6917
1980 DATA 0,15,12,48,48,12,15,0,0,60,12,3,3,12,60,0,4530
1990 DATA 17,68,17,68,17,68,17,68,0,0,0,40,40,40,0,0,5182
2000 DATA 60,255,255,255,255,255,255,60,60,255,215,215,215,215,255,60,8050
2010 DATA 0,0,0,0,0,12,12,0,0,3,3,12,12,48,48,0,3921
2020 DATA 0,63,51,51,51,51,63,0,0,12,60,12,12,12,63,0,5698
2030 DATA 0,63,51,3,63,48,63,0,0,63,3,63,3,3,63,0,5810
2040 DATA 0,51,51,63,3,3,3,0,0,63,48,60,3,3,60,0,5460
2050 DATA 0,63,48,63,51,51,63,0,0,63,3,3,12,48,48,0,5821
2060 DATA 0,63,51,63,51,51,63,0,0,63,51,63,3,3,3,0,5666
2070 DATA 0,0,12,12,0,12,12,0,0,0,12,12,0,12,12,48,3702
2080 DATA 0,3,12,48,12,3,0,0,0,0,63,0,0,63,0,0,3967
2090 DATA 60,60,60,60,60,60,60,60,0,0,255,255,252,88,207,89,9152
2100 DATA 255,255,0,0,85,85,85,85,85,85,85,85,0,63,51,51,1108
2110 DATA 63,51,51,0,0,63,51,63,51,51,63,0,0,63,51,48,7744
2120 DATA 48,51,63,0,0,60,51,51,51,51,60,0,0,63,48,60,7775
2130 DATA 48,48,63,0,0,63,48,60,48,48,48,0,0,63,51,48,7512
2140 DATA 48,63,63,3,0,51,51,63,51,51,51,0,0,63,12,12,6466
2150 DATA 12,12,63,0,0,3,3,3,3,51,63,0,0,51,51,60,6107
2160 DATA 60,51,51,0,0,48,48,48,48,48,63,0,0,51,63,63,7755
2170 DATA 51,51,51,0,0,63,51,51,51,51,51,0,0,12,51,51,6898
2180 DATA 51,51,12,0,0,63,51,63,48,48,48,0,0,12,51,51,6797
2190 DATA 51,51,12,3,0,63,51,63,60,51,51,0,0,63,48,63,7851
2200 DATA 3,3,63,0,0,63,12,12,12,12,12,0,0,51,51,51,5611
2210 DATA 51,51,63,0,0,51,51,51,51,63,12,0,0,51,51,51,7139
2220 DATA 63,63,51,0,0,51,51,12,12,51,51,0,0,51,51,63,6987
2230 DATA 12,12,12,0,0,64,251,64,42,42,42,42,42,42,42,42,9155
2240 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,7952
2250 DATA 42,42,42,42,42,42,32,32,32,32,32,32,43,32,32,32,6955
2260 DATA 43,32,32,32,43,32,32,32,43,32,32,32,43,32,32,32,6920
2270 DATA 43,42,42,32,42,32,42,32,42,32,42,32,42,32,42,32,7283
2280 DATA 42,32,42,32,42,32,42,32,42,32,42,32,42,32,42,42,7432
2290 DATA 32,43,32,32,32,32,43,32,32,32,32,43,32,32,32,43,7049
2300 DATA 32,32,32,32,43,32,32,43,32,32,32,42,42,32,42,32,7195
2310 DATA 42,32,42,32,42,43,42,32,42,32,42,32,42,32,42,32,7368
2320 DATA 42,32,42,32,42,32,42,32,42,42,32,43,32,32,32,43,7330
2330 DATA 32,32,32,43,32,32,32,43,32,32,32,43,32,32,32,43,7122
2340 DATA 32,32,32,43,32,42,42,32,42,32,42,43,42,32,42,32,7478
2350 DATA 42,32,42,43,42,32,42,32,42,32,42,43,42,32,42,32,7518
2360 DATA 42,32,42,42,43,32,32,43,32,32,43,32,32,43,32,32,7210
2370 DATA 43,32,32,43,32,32,43,32,32,43,32,32,43,32,32,42,7267
2380 DATA 42,32,42,43,42,32,42,43,42,32,42,43,42,43,42,43,7966
2390 DATA 42,32,42,43,252,64,247,65,42,43,42,32,42,32,42,32,477
2400 DATA 42,42,32,32,32,32,43,32,32,32,43,32,32,32,43,32,7145
2410 DATA 32,32,43,32,32,32,43,32,32,32,43,32,32,42,42,43,7459
2420 DATA 42,32,42,43,42,32,42,43,42,32,42,43,42,32,42,43,7852
2430 DATA 42,32,42,43,42,32,42,43,42,32,42,42,32,32,43,32,7559
2440 DATA 43,32,32,32,43,32,43,32,32,32,43,32,43,32,32,32,7199
2450 DATA 43,32,32,32,32,32,32,42,42,32,42,32,42,32,42,32,7373
2460 DATA 42,32,42,32,42,32,42,32,42,32,42,32,42,32,42,43,7628
2470 DATA 42,32,42,32,42,42,43,32,32,32,32,43,32,32,43,32,7346
2480 DATA 32,32,32,32,43,32,32,43,32,32,43,32,32,43,32,32,7250
2490 DATA 32,42,42,32,42,32,42,32,42,43,42,32,42,32,42,32,7602
2500 DATA 42,32,42,43,42,32,42,32,42,32,42,32,42,32,42,42,7696
2510 DATA 32,43,32,32,32,43,32,32,32,43,32,32,32,43,32,32,7214
2520 DATA 32,43,32,32,32,43,32,32,32,43,32,42,42,32,42,32,7470
2530 DATA 42,32,42,32,42,32,42,32,42,43,42,32,42,32,42,32,7632
2540 DATA 42,32,42,32,42,32,42,32,42,42,43,32,32,43,32,32,7517
2550 DATA 32,43,32,32,248,65,243,66,32,32,43,32,32,32,32,32,72
2560 DATA 32,43,32,32,43,32,32,32,43,42,42,32,42,43,42,32,7732
2570 DATA 42,43,42,32,42,43,42,32,42,43,42,43,42,32,42,43,8068
2580 DATA 42,32,42,43,42,32,42,42,32,32,32,43,32,32,32,43,7524
2590 DATA 32,32,32,43,32,32,32,43,32,32,43,32,32,32,32,43,7371
2600 DATA 32,32,32,42,42,32,42,32,42,32,42,32,42,43,42,32,7746
2610 DATA 42,32,42,32,42,32,42,32,42,43,42,32,42,32,42,32,7712
2620 DATA 42,42,43,32,43,32,32,32,32,32,32,32,43,32,32,32,7233
2630 DATA 32,43,32,32,32,43,32,32,43,32,32,32,43,42,42,42,7762
2640 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8352
2650 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8362
2660 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8372
2670 DATA 42,42,42,42,42,42,42,42,42,32,32,32,32,32,42,32,7622
2680 DATA 43,32,32,32,43,32,42,32,43,32,32,32,43,32,42,32,7560
2690 DATA 43,32,32,32,42,42,32,42,32,42,32,43,32,42,32,42,7775
2700 DATA 32,42,32,43,32,42,32,42,32,42,32,43,32,42,32,42,7788
2710 DATA 32,42,42,43,244,66,239,67,42,32,42,32,42,32,42,43,805
2720 DATA 42,43,42,42,32,42,42,43,42,43,42,32,42,32,42,32,7982
2730 DATA 42,43,42,42,32,32,43,32,43,42,32,43,32,42,32,32,7732
2740 DATA 43,32,43,32,32,42,32,43,32,42,43,32,43,32,32,42,7808
2750 DATA 42,32,42,42,42,42,42,32,42,42,42,42,42,32,42,32,8062
2760 DATA 42,42,42,42,42,32,42,42,42,42,42,32,42,42,32,43,8158
2770 DATA 32,32,32,32,43,32,43,42,43,32,32,43,32,32,43,42,7890
2780 DATA 43,32,43,32,32,32,32,43,32,42,42,42,42,42,42,42,8174
2790 DATA 42,32,42,32,42,32,42,32,42,32,42,32,42,32,42,32,7782
2800 DATA 42,42,42,42,42,42,42,42,32,43,32,32,32,32,32,43,7798
2810 DATA 32,32,32,42,32,43,32,42,32,32,32,43,32,32,32,32,7480
2820 DATA 32,43,32,42,42,43,42,42,42,32,42,42,42,42,42,42,8400
2830 DATA 42,32,42,32,42,42,42,42,42,42,42,32,42,42,42,43,8378
2840 DATA 42,42,32,42,32,32,32,43,32,32,43,32,43,42,32,43,7930
2850 DATA 32,42,43,32,43,32,32,43,32,32,32,42,32,42,42,43,7984
2860 DATA 42,43,42,43,42,32,42,43,42,32,43,32,42,32,43,32,8032
2870 DATA 42,43,42,32,240,67,235,68,42,43,42,43,42,43,42,42,1279
2880 DATA 32,42,32,42,32,42,32,42,32,42,42,42,42,42,42,42,8342
2890 DATA 42,42,32,42,32,42,32,42,32,42,32,42,42,43,42,43,8282
2900 DATA 42,32,42,43,42,32,43,32,43,32,32,32,43,32,43,32,7870
2910 DATA 42,43,42,32,42,43,42,43,42,42,32,42,32,42,32,42,8208
2920 DATA 32,42,42,32,42,32,42,42,42,32,42,32,42,42,32,42,8152
2930 DATA 32,42,32,42,32,42,42,43,32,32,32,43,42,43,32,32,7976
2940 DATA 43,42,32,32,43,32,32,42,43,32,32,43,42,43,32,32,7973
2950 DATA 32,43,42,42,32,42,42,42,32,42,32,42,42,32,42,32,8104
2960 DATA 42,42,42,32,42,32,42,42,32,42,32,42,42,42,32,42,8222
2970 DATA 42,43,32,32,42,32,42,32,42,32,43,42,43,32,43,32,8113
2980 DATA 43,42,43,32,42,32,42,32,42,32,32,43,42,42,32,42,8168
2990 DATA 43,42,32,42,43,42,32,42,42,32,42,42,42,32,42,42,8368
3000 DATA 32,42,43,42,32,42,43,42,32,42,42,43,42,32,42,43,8460
3010 DATA 32,32,42,43,42,32,43,32,42,32,43,32,42,43,42,32,8208
3020 DATA 32,43,42,32,42,43,42,42,32,42,32,42,42,42,42,42,8490
3030 DATA 32,42,32,42,236,68,231,69,43,42,43,42,32,42,32,42,1107
3040 DATA 42,42,42,42,32,42,32,42,42,32,43,32,43,32,32,32,7986
3050 DATA 43,32,43,32,42,32,43,32,42,32,43,32,43,32,32,32,7927
3060 DATA 43,32,43,32,42,42,42,42,42,42,42,42,42,42,42,42,8716
3070 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8782
3080 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8792
3090 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,8802
3100 DATA 32,32,32,32,32,43,32,32,32,43,32,43,32,32,32,43,7936
3110 DATA 32,43,32,32,32,43,32,43,32,32,32,42,42,32,42,42,8198
3120 DATA 42,42,42,32,42,32,42,32,42,32,42,32,42,32,42,32,8132
3130 DATA 42,32,42,42,42,42,42,32,42,42,32,43,32,43,32,42,8378
3140 DATA 43,42,43,42,43,42,43,42,43,42,32,42,43,42,32,42,8630
3150 DATA 32,43,32,43,32,42,42,43,42,32,42,32,43,32,42,32,8279
3160 DATA 42,32,43,32,43,32,43,32,42,32,42,43,32,32,42,32,8169
3170 DATA 42,43,42,42,32,42,43,42,32,42,42,42,43,42,32,42,8614
3180 DATA 42,42,42,42,32,42,43,42,42,42,32,42,43,42,32,42,8602
3190 DATA 42,43,32,32,232,69,227,70,42,32,32,43,32,32,42,43,1013
3200 DATA 32,32,43,32,32,43,42,32,32,43,32,32,42,32,32,43,8137
3210 DATA 42,42,32,42,42,42,43,42,43,42,42,42,42,42,43,42,8923
3220 DATA 43,42,42,42,42,42,43,42,43,42,42,42,32,42,42,32,8659
3230 DATA 43,32,32,32,42,32,43,32,43,42,43,32,32,32,43,42,8365
3240 DATA 43,32,43,32,42,32,32,32,43,32,42,42,43,42,42,42,8608
3250 DATA 42,42,32,42,42,32,42,32,42,42,42,32,42,32,42,42,8532
3260 DATA 32,42,42,42,42,42,43,42,42,32,43,32,32,32,32,43,8356
3270 DATA 32,42,43,32,32,32,43,32,32,32,43,42,32,43,32,32,8147
3280 DATA 32,32,43,32,42,42,42,42,42,42,42,42,42,32,42,32,8625
3290 DATA 42,42,42,42,42,42,42,32,42,32,42,42,42,42,42,42,8822
3300 DATA 42,42,42,32,43,32,32,32,43,32,32,42,32,43,32,43,8316
3310 DATA 32,43,32,43,32,42,32,43,32,32,32,43,32,32,42,42,8318
3320 DATA 32,42,42,42,42,42,42,32,42,32,42,32,42,32,42,32,8422
3330 DATA 42,32,42,32,42,42,42,42,42,42,32,42,42,43,42,32,8726
3340 DATA 32,32,32,42,43,42,32,42,32,42,43,42,32,42,32,42,8568
3350 DATA 43,42,32,32,228,70,208,71,32,32,42,43,42,42,32,32,997
3360 DATA 43,42,42,43,32,32,32,32,42,43,32,32,32,43,42,32,8321
3370 DATA 32,32,32,43,42,42,43,32,32,42,42,32,42,42,42,32,8583
3380 DATA 32,42,42,42,43,42,32,42,42,42,32,42,43,42,42,42,8920
3390 DATA 32,32,42,42,42,32,42,42,32,32,43,42,32,42,42,43,8719
3400 DATA 32,32,32,43,32,43,32,43,32,32,32,43,42,42,32,42,8512
3410 DATA 43,32,32,42,42,43,42,32,42,43,32,32,32,42,32,42,8499
3420 DATA 42,42,32,42,42,42,32,42,32,32,32,43,42,32,42,43,8620
3430 DATA 42,42,32,42,32,43,32,42,32,42,42,43,42,32,43,32,8635
3440 DATA 43,32,42,43,42,42,32,42,32,43,32,42,32,42,42,32,8587
3450 DATA 42,42,42,42,42,43,42,32,32,32,43,42,42,42,43,32,8764
3460 DATA 32,32,42,43,42,42,42,42,42,32,42,42,43,32,32,32,8609
3470 DATA 32,32,32,32,43,42,42,32,32,43,32,32,42,42,43,32,8552
3480 DATA 32,32,32,32,32,32,43,42,42,42,42,42,42,42,42,42,8989
3490 DATA 42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,42,9202
3500 DATA 42,42,42,42,42,209,71,192,72,0,64,155,66,0,64,54,3311
3510 DATA 69,125,32,32,32,32,32,32,32,32,32,32,32,32,32,211,949
3520 DATA 204,201,212,200,197,210,32,32,32,32,32,32,32,32,32,32,1487
3530 DATA 32,32,32,32,83,32,80,69,65,82,83,79,78,32,32,32,1289
3540 DATA 32,32,32,38,32,32,32,32,32,32,32,80,32,75,79,72,439
3550 DATA 85,84,32,32,32,32,32,32,32,32,32,32,32,32,32,32,8059
3560 DATA 32,32,211,195,207,210,197,32,32,32,32,32,32,32,32,32,2199
3570 DATA 32,32,32,32,32,32,32,32,48,48,48,48,48,32,32,32,8802
3580 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,84,73,77,9995
3590 DATA 69,32,48,48,32,32,32,32,32,32,32,32,32,32,32,32,8091
3600 DATA 32,32,76,69,86,69,76,32,48,48,48,32,32,32,76,73,828
3610 DATA 86,69,83,32,52,32,32,32,32,32,32,32,32,32,32,32,8343
3620 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,67,8652
3630 DATA 41,32,49,57,56,53,32,32,32,32,65,78,65,76,79,71,1677
3640 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,7992
3650 DATA 32,32,32,32,32,32,32,32,32,224,2,225,2,0,53,0,873

Assembly listing.

	.OPT	NOLIST
SCREEN	=	$58
TAIL	=	$80
HEAD	=	$82
DUMTAIL	=	$84
SCORE	=	$86
SDLIST	=	$88
LSTICK	=	$8A
NSTICK	=	$8B
SSTICK	=	$8C
COUNT	=	$8D
LEVEL	=	$8F
DUMHEAD	=	$92
DUMMY	=	$94
JUMP	=	$96
LIVES	=	$98
SHOWLEVL	=	$9A
LEVLPNTS	=	$9C
DLAYSIZE	=	$9E
DLAYDIFF	=	$9F
TEMP	=	$0600
GOFLAG	=	$34FF
DUMX	=	$0601
PUTGET	=	$0603
CONSOL	=	$D01F
AUDF1	=	$D200
AUDC1	=	$D201
ATTRACT	=	$4D
STICK0	=	$0278
CHBASE	=	$02F4
STAIL	=	$A0
TIME	=	$A1
TIMER	=	19
SBODY	=	12
SHEAD	=	13
TAIL1	=	30
TAIL2	=	31
WALLS	=	10
DOTS	=	11
PUTCHR	=	11
IOCB0	=	$00
WRITE	=	8
ICCOM	=	$0342
ICBADR	=	$0344
ICBLEN	=	$0348
ICAUX1	=	$034A
ICAUX2	=	$034B
CIOV	=	$E456
;
; SET-UP VARIABLES
;
	*=	$3500
RUN	LDA	#1
	STA	GOFLAG
	JSR	DDLIST
	LDX	#0
	STX	LEVEL
	STX	LEVLPNTS
	STX	AUDF1
	LDX	#$58
	STX	756
	JSR	OPEN
	JSR	PRINTSCR
START	LDX	#32
	STX	82
	LDX	#36
	STX	83
	LDX	#21
	STX	84
	LDX	#32
	STX	85
	LDX	#0
	STX	86
	LDA	#<STARTMSG
	STA	ICBADR
	LDA	#>STARTMSG
	STA	ICBADR+1
	LDA	#10
	STA	ICBLEN
	LDA	#0
	STA	ICBLEN+1
	JSR	CIOV
STARTKEY	LDA	CONSOL
	CMP	#6
	BNE	STARTKEY
	LDX	#21
	STX	84
	LDX	#32
	STX	85
	LDA	#<CLEARMSG
	STA	ICBADR
	LDA	#>CLEARMSG
	STA	ICBADR+1
	LDA	#10
	STA	ICBLEN
	LDA	#0
	STA	ICBLEN+1
	JSR	CIOV
	LDA	GOFLAG
	CMP	#1
	BEQ	START1
	LDX	#0
	STX	LEVEL
	STX	LEVLPNTS
	STX	AUDF1
	JSR	DDLIST
	LDA	#$58
	STA	CHBASE
	JSR	OPEN
	JSR	PRINTSCR
START1	LDA	#$58
	STA	756
	LDA	#0
	STA	GOFLAG
	CLC
	LDA	#$55
	ADC	88
	STA	LIVES
	LDA	#$02
	ADC	89
	STA	LIVES+1
	CLC
	LDA	#$2C
	ADC	88
	STA	SHOWLEVL
	LDA	#$02
	ADC	89
	STA	SHOWLEVL+1
	CLC
	LDA	#$88
	ADC	88
	STA	SCORE
	LDA	#$01
	ADC	89
	STA	SCORE+1
	CLC
	LDA	88
	ADC	#$DC
	STA	TIME
	LDA	89
	ADC	#$01
	STA	TIME+1
	LDX	#65
	STX	DLAYSIZE
	LDX	#64
	STX	DLAYDIFF
MAKESNAK	LDY	#0
	STY	TIMER
	STY	TIMER+1
	LDA	#25
	STA	(TIME),Y
	INY
	LDA	#16
	STA	(TIME),Y
	CLC
	LDA	SCREEN
	ADC	#43
	STA	TAIL
	LDA	SCREEN+1
	ADC	#0
	STA	TAIL+1
	CLC
	LDA	SCREEN
	ADC	#45
	STA	HEAD
	LDA	SCREEN+1
	ADC	#0
	STA	HEAD+1
	LDX	#0
	STX	COUNT
	LDX	#7
	STX	LSTICK
	LDX	#239
	STX	AUDC1
	LDA	#TAIL2
	STA	STAIL
	LDY	#0
	STA	(TAIL),Y
	LDA	#SBODY
	INY
	STA	(TAIL),Y
	INY
	LDA	#SHEAD
	STA	(TAIL),Y
JOY	LDY	#1
	LDA	#18
	SEC
	SBC	TIMER
	STA	TEMP
	AND	#1
	CMP	#1
	BEQ	ODD
EVEN	LDA	#16
	STA	(TIME),Y
	JMP	TDIGIT
ODD	LDA	#21
	STA	(TIME),Y
TDIGIT	LDA	TEMP
	LSR	A
	CLC
	ADC	#16
	LDY	#0
	STA	(TIME),Y
	LDA	TEMP
	CMP	#0
	BNE	MAIN
	JMP	GUYDEAD
MAIN	LDX	#0
	STX	ATTRACT
	LDX	DLAYSIZE
	JSR	DELAY
	LDA	#0
	STA	AUDF1
	LDA	STICK0
	STA	SSTICK
	LDX	#0
BADJOY	CMP	BADSTICK,X
	BEQ	JOYBAD
	INX
	CPX	#4
	BNE	BADJOY
	JMP	DIRCHECK
JOYBAD	LDA	LSTICK
	STA	SSTICK
	JMP	CURSTICK
DIRCHECK	CMP	LSTICK
	BEQ	LASTICK
	LDA	LSTICK
	STA	NSTICK
LASTICK	LDA	SSTICK
	CMP	#15
	BEQ	CURSTICK
	LDA	SSTICK
	STA	LSTICK
CURSTICK	LDA	SSTICK
	CMP	#15
	BNE	SAVEHEAD
	LDA	LSTICK
	STA	SSTICK
SAVEHEAD	LDA	HEAD
	STA	DUMHEAD
	LDA	HEAD+1
	STA	DUMHEAD+1
JOY14	LDA	SSTICK
	CMP	#14
	BEQ	SNAUP
	CMP	#13
	BEQ	SNADOW
	CMP	#11
	BEQ	SNALEF
	CMP	#7
	BEQ	SNARIG
	JMP	JOY
SNAUP	SEC
	LDA	HEAD
	SBC	#40
	STA	HEAD
	LDA	HEAD+1
	SBC	#0
	STA	HEAD+1
	JMP	CHWALL
SNADOW	CLC
	LDA	HEAD
	ADC	#40
	STA	HEAD
	LDA	HEAD+1
	ADC	#0
	STA	HEAD+1
	JMP	CHWALL
SNALEF	SEC
	LDA	HEAD
	SBC	#1
	STA	HEAD
	LDA	HEAD+1
	SBC	#0
	STA	HEAD+1
	JMP	CHWALL
SNARIG	CLC
	LDA	HEAD
	ADC	#1
	STA	HEAD
	LDA	HEAD+1
	ADC	#0
	STA	HEAD+1
CHWALL	LDX	#0
	LDA	(HEAD,X)
	CMP	#WALLS
	BNE	CHDOT
	JMP	CHKHIT
CHDOT	CMP	#DOTS
	BNE	CHBODY
	JMP	EATDOT
CHBODY	CMP	#SBODY
	BNE	CHTAIL
	JMP	GUYDEAD
CHTAIL	CMP	STAIL
	BNE	NOHIT
	JMP	GUYDEAD
EATDOT	JSR	DOHEAD
	LDA	#80
	STA	AUDF1
	JSR	UPSCORE
	LDA	LEVEL
	AND	#3
	TAY
	INC	LEVLPNTS
	LDA	LEVLPNTS
	CMP	LEVLSCOR,Y
	BNE	ADDONE
	JMP	UPLEVEL
ADDONE	LDX	#1
	STX	COUNT
NOHIT	JSR	DOHEAD
	LDX	COUNT
	CPX	#0
	BEQ	CTUP
	DEC	COUNT
	JMP	JOY
DOHEAD	LDY	#0
	LDA	#SBODY
	STA	(DUMHEAD),Y
	LDA	#SHEAD
	STA	(HEAD),Y
	RTS
CTUP	SEC
	LDA	TAIL
	SBC	#40
	STA	DUMTAIL
	LDA	TAIL+1
	SBC	#0
	STA	DUMTAIL+1
	LDY	#0
	LDA	(DUMTAIL),Y
	CMP	#SBODY
	BNE	CTDOWN
	LDX	#0
	STX	DUMX
	JMP	CLRTAIL
CTDOWN	LDY	#80
	LDA	(DUMTAIL),Y
	CMP	#SBODY
	BNE	CTLEFT
	LDX	#2
	STX	DUMX
	JMP	CLRTAIL
CTLEFT	LDY	#39
	LDA	(DUMTAIL),Y
	CMP	#SBODY
	BNE	CTRIGHT
	LDX	#4
	STX	DUMX
	JMP	CLRTAIL
CTRIGHT	LDY	#41
	LDA	(DUMTAIL),Y
	CMP	#SBODY
	BNE	CLRTAIL
	LDX	#6
	STX	DUMX
CLRTAIL	LDA	#0
	TAX
	STA	(TAIL,X)
	LDX	DUMX
	LDA	JMPTAB,X
	STA	JUMP
	INX
	LDA	JMPTAB,X
	STA	JUMP+1
	JMP	(JUMP)
TUP	SEC
	LDA	TAIL
	SBC	#40
	STA	TAIL
	LDA	TAIL+1
	SBC	#0
	STA	TAIL+1
	JMP	FIXTAIL
TDOWN	CLC
	LDA	TAIL
	ADC	#40
	STA	TAIL
	LDA	TAIL+1
	ADC	#0
	STA	TAIL+1
	JMP	FIXTAIL
TLEFT	SEC
	LDA	TAIL
	SBC	#1
	STA	TAIL
	LDA	TAIL+1
	SBC	#0
	STA	TAIL+1
	JMP	FIXTAIL
TRIGHT	CLC
	LDA	TAIL
	ADC	#1
	STA	TAIL
	LDA	TAIL+1
	ADC	#0
	STA	TAIL+1
	JMP	FIXTAIL
FIXTAIL	SEC
	LDA	TAIL
	SBC	#40
	STA	DUMMY
	LDA	TAIL+1
	SBC	#0
	STA	DUMMY+1
CUP	LDY	#0
	LDA	(DUMMY),Y
	CMP	#SBODY
	BNE	CLEFT
	LDY	#TAIL1
	STY	STAIL
	JMP	PUTTAIL
CLEFT	LDY	#39
	LDA	(DUMMY),Y
	CMP	#SBODY
	BNE	CRIGHT
	LDY	#TAIL2
	STY	STAIL
	JMP	PUTTAIL
CRIGHT	LDY	#41
	LDA	(DUMMY),Y
	CMP	#SBODY
	BNE	CDOWN
	LDY	#TAIL2
	STY	STAIL
	JMP	PUTTAIL
CDOWN	LDY	#TAIL1
	STY	STAIL
PUTTAIL	LDY	#0
	LDA	STAIL
	STA	(TAIL),Y
	JMP	JOY
CHKHIT	SEC
	LDA	DUMHEAD
	SBC	#40
	STA	DUMTAIL
	LDA	DUMHEAD+1
	SBC	#0
	STA	DUMTAIL+1
	CLC
	LDA	DUMHEAD
	ADC	#40
	STA	DUMMY
	LDA	DUMHEAD+1
	ADC	#0
	STA	DUMMY+1
	LDX	#0
	LDA	(DUMTAIL,X)
	CMP	#WALLS
	BEQ	ISWALL0
	CMP	#SBODY
	BEQ	ISBODY0
	JMP	HPERP
ISWALL0	LDA	(DUMMY,X)
	CMP	#SBODY
	BNE	HPERP
	JMP	ISPERP
ISBODY0	LDA	(DUMMY,X)
	CMP	#WALLS
	BNE	HPERP
	JMP	ISPERP
HPERP	SEC
	LDA	DUMHEAD
	SBC	#1
	STA	DUMTAIL
	LDA	DUMHEAD+1
	SBC	#0
	STA	DUMTAIL+1
	CLC
	LDA	DUMHEAD
	ADC	#1
	STA	DUMMY
	LDA	DUMHEAD+1
	ADC	#0
	STA	DUMMY+1
	LDX	#0
	LDA	(DUMTAIL,X)
	CMP	#WALLS
	BEQ	ISWALL1
	CMP	#SBODY
	BEQ	ISBODY1
	JMP	NOPERP
ISWALL1	LDA	(DUMMY,X)
	CMP	#SBODY
	BEQ	ISPERP
	JMP	NOPERP
ISBODY1	LDA	(DUMMY,X)
	CMP	#WALLS
	BEQ	ISPERP
	JMP	NOPERP
ISPERP	LDX	DUMHEAD
	STX	HEAD
	LDX	DUMHEAD+1
	STX	HEAD+1
	JMP	JOY
NOPERP	LDX	NSTICK
	STX	SSTICK
	LDX	DUMHEAD
	STX	HEAD
	LDX	DUMHEAD+1
	STX	HEAD+1
	JMP	DIRCHECK
GUYDEAD	LDY	#0
CRY	LDX	#128
	LDA	DIEMUSIC,Y
	STA	AUDF1
	TYA
	PHA
	JSR	DELAY
	PLA
	TAY
	INY
	CPY	#15
	BNE	CRY
	LDY	#0
	LDA	(LIVES),Y
	CMP	#16
	BNE	NEXTGUY
	JMP	ENDGAME
NEXTGUY	SEC
	SBC	#1
	STA	(LIVES),Y
	LDA	88
	STA	DUMMY
	LDA	89
	STA	DUMMY+1
XCHECK	LDY	#0
YCHECK	LDA	(DUMMY),Y
	CMP	#SBODY
	BEQ	ISBODY
	CMP	#SHEAD
	BEQ	ISBODY
	CMP	#TAIL1
	BEQ	ISBODY
	CMP	#TAIL2
	BEQ	ISBODY
	JMP	NOTSBODY
ISBODY	LDA	#0
	STA	(DUMMY),Y
NOTSBODY	INY
	CPY	#40
	BNE	YCHECK
	CLC
	LDA	#40
	ADC	DUMMY
	STA	DUMMY
	LDA	#0
	ADC	DUMMY+1
	STA	DUMMY+1
	INX
	CPX	#24
	BNE	XCHECK
	JMP	MAKESNAK
UPSCORE	LDY	#3
	LDA	(SCORE),Y
INC0	CMP	#25
	BEQ	ZERO0
	CLC
	ADC	#1
	STA	(SCORE),Y
	RTS
ZERO0	LDA	#16
	STA	(SCORE),Y
INC1	LDY	#2
	LDA	(SCORE),Y
	CMP	#25
	BEQ	ZERO1
	CLC
	ADC	#1
	STA	(SCORE),Y
	RTS
ZERO1	LDA	#16
	STA	(SCORE),Y
INC2	LDY	#1
	LDA	(SCORE),Y
	CMP	#25
	BEQ	ZERO2
	CLC
	ADC	#1
	STA	(SCORE),Y
	RTS
ZERO2	LDA	#16
	STA	(SCORE),Y
INC3	LDY	#0
	LDA	(LIVES),Y
	CLC
	ADC	#1
	STA	(LIVES),Y
	LDA	(SCORE),Y
	CMP	#25
	BEQ	ZERO3
	CLC
	ADC	#1
	STA	(SCORE),Y
	RTS
ZERO3	LDA	#16
	STA	(SCORE),Y
	RTS
UPLEVEL	LDY	#0
	SEC
	LDA	DLAYSIZE
	SBC	#4
	CMP	#13
	BEQ	SING
	STA	DLAYSIZE
SING	LDX	#128
	LDA	LVLMUSIC,Y
	STA	AUDF1
	TYA
	PHA
	JSR	DELAY
	PLA
	TAY
	INY
	CPY	#17
	BNE	SING
	INC	LEVEL
	LDX	#0
	STX	LEVLPNTS
	LDY	#2
	LDA	(SHOWLEVL),Y
INCL0	CMP	#25
	BEQ	ZEROL0
	CLC
	ADC	#1
	STA	(SHOWLEVL),Y
	JMP	LEVLDONE
ZEROL0	LDA	#16
	STA	(SHOWLEVL),Y
INCL1	LDY	#1
	LDA	(SHOWLEVL),Y
	CMP	#25
	BEQ	ZEROL1
	CLC
	ADC	#1
	STA	(SHOWLEVL),Y
	JMP	LEVLDONE
ZEROL1	LDA	#16
	STA	(SHOWLEVL),Y
INCL2	LDY	#0
	LDA	(SHOWLEVL),Y
	CMP	#25
	BEQ	ZEROL2
	CLC		ADC #1
	STA	(SHOWLEVL),Y
	JMP	LEVLDONE
ZEROL2	LDA	#16
	STA	(SHOWLEVL),Y
LEVLDONE	JSR	INC2
	JSR	PRINTSCR
	JMP	MAKESNAK
ENDGAME	JMP	START
DELAY
XLOOP	LDY	#255
YLOOP	DEY
	CPY	#255
	BNE	YLOOP
	DEX
	CPX	#0
	BNE	XLOOP
	RTS
DDLIST	LDA	560
	STA	SDLIST
	LDA	561
	STA	SDLIST+1
	LDA	#68
	LDY	#3
	STA	(SDLIST),Y
	LDY	#6
	LDA	#4
DDLOOP	STA	(SDLIST),Y
	INY
	CPY	#29
	BNE	DDLOOP
	RTS
OPEN	LDA	#3
	STA	ICCOM
	LDA	#8
	STA	ICAUX1
	LDA	#0
	STA	ICAUX2
	LDA	#<EDITOR
	STA	ICBADR
	LDA	#>EDITOR
	STA	ICBADR+1
	JSR	CIOV
	LDA	#PUTCHR
	STA	PUTGET
	STA	ICCOM
	LDX	#29
	STX	82
	LDX	#39
	STX	83
	LDX	#0
	LDA	#<CREDITS
	STA	ICBADR
	LDA	#>CREDITS
	STA	ICBADR+1
	LDA	#232
	STA	ICBLEN
	LDA	#0
	STA	ICBLEN+1
	JSR	CIOV
	RTS
EDITOR	.BYTE	"E:",$9B
PRINTSCR	LDX	#0
	STX	82
	LDX	#28
	STX	83
	LDX	#0
	STX	84
	STX	85
	STX	86
	LDA	LEVEL
	AND	#3
	ASL	A
	TAY
	LDA	SCRTAB,Y
	STA	ICBADR
	LDA	SCRTAB+1,Y
	STA	ICBADR+1
	LDA	#$9B
	STA	ICBLEN
	LDA	#2
	STA	ICBLEN+1
	JSR	CIOV
	RTS
JMPTAB	.WORD	TUP,TDOWN,TLEFT,TRIGHT
BADSTICK	.BYTE	5,6,9,10
LEVLSCOR	.BYTE	106,104,106,105
LVLMUSIC	.BYTE	0,60,53,50,47,60
	.BYTE	53,47,47,64,53,53,60
	.BYTE	60,60,60,0
DIEMUSIC	.BYTE	0,200,200,0,220
	.BYTE	220,0,240,240,0,255,255,255,255,0
STARTMSG	.BYTE	"PRESSSTART"
CLEARMSG	.BYTE	"          "
	*=	$5800
CHRFNT	.BYTE	0,0,0,0,0,0,0,0
	.BYTE	0,12,12,12,12,0,12,0
	.BYTE	0,51,51,51,0,0,0,0
	.BYTE	0,51,63,51,51,63,51,0
	.BYTE	12,63,48,63,3,63,12,0
	.BYTE	0,51,3,12,12,48,51,0
	.BYTE	12,51,51,51,204,204,204,51
	.BYTE	0,12,12,12,0,0,0,0
	.BYTE	0,15,12,48,48,12,15,0
	.BYTE	0,60,12,3,3,12,60,0
	.BYTE	17,68,17,68,17,68,17,68
	.BYTE	0,0,0,40,40,40,0,0
	.BYTE	60,255,255,255,255,255,255,60
	.BYTE	60,255,215,215,215,215,255,60
	.BYTE	0,0,0,0,0,12,12,0
	.BYTE	0,3,3,12,12,48,48,0
	.BYTE	0,63,51,51,51,51,63,0
	.BYTE	0,12,60,12,12,12,63,0
	.BYTE	0,63,51,3,63,48,63,0
	.BYTE	0,63,3,63,3,3,63,0
	.BYTE	0,51,51,63,3,3,3,0
	.BYTE	0,63,48,60,3,3,60,0
	.BYTE	0,63,48,63,51,51,63,0
	.BYTE	0,63,3,3,12,48,48,0
	.BYTE	0,63,51,63,51,51,63,0
	.BYTE	0,63,51,63,3,3,3,0
	.BYTE	0,0,12,12,0,12,12,0
	.BYTE	0,0,12,12,0,12,12,48
	.BYTE	0,3,12,48,12,3,0,0
	.BYTE	0,0,63,0,0,63,0,0
	.BYTE	60,60,60,60,60,60,60,60
	.BYTE	0,0,255,255,255,255,0,0
	.BYTE	85,85,85,85,85,85,85,85
	.BYTE	0,63,51,51,63,51,51,0
	.BYTE	0,63,51,63,51,51,63,0
	.BYTE	0,63,51,48,48,51,63,0
	.BYTE	0,60,51,51,51,51,60,0
	.BYTE	0,63,48,60,48,48,63,0
	.BYTE	0,63,48,60,48,48,48,0
	.BYTE	0,63,51,48,48,63,63,3
	.BYTE	0,51,51,63,51,51,51,0
	.BYTE	0,63,12,12,12,12,63,0
	.BYTE	0,3,3,3,3,51,63,0
	.BYTE	0,51,51,60,60,51,51,0
	.BYTE	0,48,48,48,48,48,63,0
	.BYTE	0,51,63,63,51,51,51,0
	.BYTE	0,63,51,51,51,51,51,0
	.BYTE	0,12,51,51,51,51,12,0
	.BYTE	0,63,51,63,48,48,48,0
	.BYTE	0,12,51,51,51,51,12,3
	.BYTE	0,63,51,63,60,51,51,0
	.BYTE	0,63,48,63,3,3,63,0
	.BYTE	0,63,12,12,12,12,12,0
	.BYTE	0,51,51,51,51,51,63,0
	.BYTE	0,51,51,51,51,63,12,0
	.BYTE	0,51,51,51,63,63,51,0
	.BYTE	0,51,51,12,12,51,51,0
	.BYTE	0,51,51,63,12,12,12,0
	*=	$4000
SCREEN0
	.BYTE	"*****************************"
	.BYTE	"*      +   +   +   +   +   +*"
	.BYTE	"* * * * * * * * * * * * * * *"
	.BYTE	"* +    +    +   +    +  +   *"
	.BYTE	"* * * * *+* * * * * * * * * *"
	.BYTE	"* +   +   +   +   +   +   + *"
	.BYTE	"* * *+* * * *+* * * *+* * * *"
	.BYTE	"*+  +  +  +  +  +  +  +  +  *"
	.BYTE	"* *+* *+* *+*+*+* *+*+* * * *"
	.BYTE	"*    +   +   +   +   +   +  *"
	.BYTE	"*+* *+* *+* *+* *+* *+* *+* *"
	.BYTE	"*  + +   + +   + +   +      *"
	.BYTE	"* * * * * * * * * * * *+* * *"
	.BYTE	"*+    +  +     +  +  +  +   *"
	.BYTE	"* * * *+* * * * *+* * * * * *"
	.BYTE	"* +   +   +   +   +   +   + *"
	.BYTE	"* * * * * * *+* * * * * * * *"
	.BYTE	"*+  +   +    +      +  +   +*"
	.BYTE	"* *+* *+* *+* *+*+* *+* *+* *"
	.BYTE	"*   +   +   +   +  +    +   *"
	.BYTE	"* * * * *+* * * * * *+* * * *"
	.BYTE	"*+ +       +    +   +  +   +*"
	.BYTE	"*****************************"
SCREEN1
	.BYTE	"*****************************"
	.BYTE	"*     * +   + * +   + * +   *"
	.BYTE	"* * * + * * * + * * * + * * *"
	.BYTE	"*+* * * *+*+** **+*+* * * *+*"
	.BYTE	"*  + +* + *  + +  * + *+ +  *"
	.BYTE	"* ***** ***** * ***** ***** *"
	.BYTE	"* +    + +*+  +  +*+ +    + *"
	.BYTE	"******* * * * * * * * *******"
	.BYTE	"* +     +   * + *   +     + *"
	.BYTE	"*+*** ******* * ******* ***+*"
	.BYTE	"* *   +  + +* + *+ +  +   * *"
	.BYTE	"*+*+*+* *+* + * + *+* *+*+*+*"
	.BYTE	"* * * * * ********* * * * * *"
	.BYTE	"*+*+* *+* + +   + + *+* *+*+*"
	.BYTE	"* * * * ** * *** * ** * * * *"
	.BYTE	"*+   +*+  +*  +  *+  +*+   +*"
	.BYTE	"* *** * ** * *** * ** * *** *"
	.BYTE	"*+  * * * +*+ + +*+ * * *  +*"
	.BYTE	"* *+* *+* ** *** ** *+* *+* *"
	.BYTE	"*+* *+  *+* + * + *+*  +* *+*"
	.BYTE	"* * ***** * *+*+* * ***** * *"
	.BYTE	"* + +   + + * + * + +   + + *"
	.BYTE	"*****************************"
SCREEN2	.BYTE	"*****************************"
	.BYTE	"*     +   + +   + +   + +   *"
	.BYTE	"* ***** * * * * * * * ***** *"
	.BYTE	"* + + *+*+*+*+*+* *+* * + + *"
	.BYTE	"*+* * + * * + + + * *+  * *+*"
	.BYTE	"* *+* ***+* ***** *+*** *+* *"
	.BYTE	"*+  *  +  *+  +  +*  +  *  +*"
	.BYTE	"* ***+*+*****+*+*****+*+*** *"
	.BYTE	"* +   * + +*+   +*+ + *   + *"
	.BYTE	"*+***** ** * *** * ** *****+*"
	.BYTE	"* +    + *+   +   +* +    + *"
	.BYTE	"******** * ******* * ********"
	.BYTE	"* +   +  * + + + + * +   +  *"
	.BYTE	"* ****** * * * * * * ****** *"
	.BYTE	"*+*    *+* * *+* * *+*    *+*"
	.BYTE	"*  +**+    *+   +*    +**+  *"
	.BYTE	"* ***  ***+* *** *+***  *** *"
	.BYTE	"*  +* **+   + + +   +** *+  *"
	.BYTE	"*+* *+   * *** *** *   +* *+*"
	.BYTE	"* * + * **+* + + *+** * + * *"
	.BYTE	"* *****+*   +***+   *+***** *"
	.BYTE	"*+       +**  +  **+       +*"
	.BYTE	"*****************************"
SCRTAB	.WORD	SCREEN0,SCREEN1,SCREEN0,SCREEN2
CREDITS	.BYTE	125,"           "
	.BYTE	"  SLITHER  "
	.BYTE	"           "
	.BYTE	" S PEARSON "
	.BYTE	"     &     "
	.BYTE	"  P KOHUT  "
	.BYTE	"           "
	.BYTE	"   SCORE   "
	.BYTE	"           "
	.BYTE	"   00000   "
	.BYTE	"           "
	.BYTE	"  TIME 00  "
	.BYTE	"           "
	.BYTE	" LEVEL 000 "
	.BYTE	"  LIVES 4  "
	.BYTE	"           "
	.BYTE	"           "
	.BYTE	" (C) 1985  "
	.BYTE	"  ANALOG   "
	.BYTE	"           "
	.BYTE	"           "
	*=	$02E0
	.WORD	RUN
	.END