A.N.A.L.O.G. ISSUE 48 / NOVEMBER 1986 / PAGE 96

Cosmic Glob

by Rich B. Enns

In the year 2500, a giant energy cluster heads toward the Earth. Fighters are sent to intercept; only one returns. Is this the end? The surviving fighter brings little hope.

The media-christened Cosmic Glob, it seems, can only be destroyed by chunking it out and neutralizing its core. With the formation trapped in a weakening force field just short of the planet, you must destroy the horror before it destroys you—and the Earth.

Typing it in.

Listing 1 is the BASIC data used to create both cassette and disk versions of Cosmic Glob. Those readers who are interested in how the game works may obtain the assembly listing on either the magazine disk version or the ANALOG Computing Atari Users’ Group on Delphi.

Disk users should refer to the M/L Editor article on page 42 for typing instructions.

If you have a cassette system, type in Listing 1, then add the hues shown in Listing 2. Type RUN and press RETURN. The program will begin checking the data statements, printing the line numbers as it goes. It will alert you to any problems. Fix any incorrect lines and rerun the program until all errors are eliminated.

When all your data lines are correct, the computer will beep twice and prompt you to READY CASSETTE AND PRESS RETURN. Now, insert a blank cassette in your recorder, press the RECORD and PLAY buttons simultaneously and hit RETURN. The message WRITING FILE will appear, and the program will create a machine language boot tape version of Cosmic Glob, printing each data line number as it goes. When the READY prompt appears, the game is recorded and ready to play. CSAVE the BASIC program onto a separate tape before continuing.

To play the game, rewind the tape created with the BASIC program to the beginning. Turn your computer off and remove all cartridges. Press the PLAY button on your recorder and turn on your computer, while holding down the START key. If you have an XL or XE series computer. you must hold the START and OPTION keys when you turn on the power. The computer will beep once. Hit the RETURN key, and Cosmic Glob will load and run automatically.

Playing Cosmic Glob.

This is a one- or two-player game. When it boots up, the title screen will appear, with four options. Joystick changes the options; pull it down to select one. Push the joystick right to change the selected option. Press the fire button to start Cosmic Glob.

You have several options for variations in the game: (1) number of players: select 1 or 2; (2) number of ships: select from 3 to 7, or * for an endless number of ships; (3) difficulty: choose a level from 1 to 30; and (4) enable mines: select Y or N to enable mines or not.

Pressing the joystick fire button starts the game. The Glob will appear immediately, along with a small defense ship. Your ship will be seen on the bottom. Player 1, on the left, uses joystick 0. Player 2, on the right, has joystick number 1.

Notice that your ship doesn’t appear right away. It’ll remain protected for about five seconds under a force field, then will appear automatically. Pull back on your stick to appear when you want. Do so only when it’s safe.

Push forward on the joystick to move your ship. It’ll head in one of eight directions. Push right to turn clockwise, left to turn counterclockwise. Pull back to flip. You may move and turn at the same time.

Contact with the Glob, a defense ship, or one of the mines is deadly. Contact with the force field is safe. If you collide with it head on, you’ll bounce straight back. Hit on an angle, and you’ll bounce off on an angle.

In two-player mode players may pass right through each other. When the two players overlap, a third color is produced. This is done by setting bit 5 of GPRIOR (623).

To fire missiles in your efforts to destroy the Glob, press the trigger. Missiles will have no effect on the force field, or on the defense ship. Shooting at mines will cause the Glob to regenerate.

In two-player mode, shooting at the other player causes his ship to move in the direction of your missile for a short distance, during which time the other player has no control over the movement of his ship. He may still fire, however. Players can be nasty, forcing one another into one of many deadly objects.

The Cosmic Glob moves about your screen in an ominous fashion, annihilating any unsuspecting player in its path. It rebounds off the force field with some uncertainty.

When you shoot at the Glob, a small chunk of it will disappear. Keep firing at it until you reach the core, at the same time being wary of the Glob’s defense ship. It flies around the screen randomly. You can’t destroy it, but it can turn you into dust on contact.

When you reach the Glob’s core, it will explode. The scores will be added up and displayed. For each Glob chunk you hit you’ll be awarded 1 point. The player who destroys the Glob will receive 500 points.

Press either joystick’s fire button to advance to the next level. Notice that scores don’t change during play. Points are only awarded after the Glob is destroyed.

The game ends when all players have lost all of their ships. Getting hit by the Glob or a defense ship, or running into the mines are good ways to lose them. Press the fire button on either joystick to go to the title screen.

The game can be paused during play by pressing the SPACE BAR. Press any other key to resume play. The game can be restarted at any time by hitting START. If you’re playing with an endless number of ships, pressing START is the only way to end the game.

One final note: the Glob’s defense ship moves slowly at the beginning of each level, but will speed up after a few minutes.

Enjoy Cosmic Glob—save yourself and the Earth.


Rich B. Enns has had his Atari system for about two years. He started programming in machine language about a year ago. His computer interests lie in graphics and game programming, and he en;’oys two-pJayer games especially.

Listing 1.

1000 DATA 255,255,0,60,169,85,76,6,17,169,0,133,128,133,130,169,5559
1010 DATA 7,133,129,169,60,133,131,160,0,177,130,145,128,24,165,128,7104
1020 DATA 105,1,133,128,165,129,105,0,133,129,24,165,130,105,1,133,4406
1030 DATA 130,165,131,105,0,133,131,165,129,201,33,208,220,76,6,17,5654
1040 DATA 72,138,72,152,72,164,233,185,234,0,141,10,212,141,20,208,8802
1050 DATA 185,240,0,141,21,208,165,222,141,22,208,165,223,141,23,208,866
1060 DATA 165,224,141,25,208,230,233,165,233,201,6,208,4,169,0,133,8782
1070 DATA 233,104,168,104,170,104,64,72,138,72,152,72,169,0,141,200,6939
1080 DATA 2,169,15,205,120,2,208,5,205,121,2,240,4,169,0,133,4896
1090 DATA 77,173,4,6,201,8,208,6,169,200,133,209,133,210,165,194,1846
1100 DATA 201,1,240,3,76,24,14,165,175,141,2,208,165,176,141,3,6252
1110 DATA 208,160,0,185,188,29,145,142,185,210,29,145,144,200,192,22,9371
1120 DATA 208,241,169,0,145,142,145,144,200,145,142,145,144,56,165,142,16
1130 DATA 233,2,133,146,56,165,144,233,2,133,148,160,0,169,0,145,6074
1140 DATA 146,145,148,200,145,146,145,148,165,232,201,1,240,11,230,192,2444
1150 DATA 165,192,201,2,240,3,76,111,8,169,0,133,192,230,193,165,9557
1160 DATA 193,201,60,208,24,169,0,133,193,165,189,133,161,173,10,210,52
1170 DATA 41,1,10,10,24,101,161,168,185,84,15,133,189,164,189,24,6718
1180 DATA 165,190,121,40,15,133,190,141,6,208,24,165,191,121,40,15,4974
1190 DATA 133,191,141,7,208,201,55,240,46,201,197,240,42,24,165,136,9711
1200 DATA 121,44,15,133,136,165,189,10,10,10,170,160,0,177,136,41,4213
1210 DATA 15,24,125,52,15,145,136,232,200,192,6,208,240,165,136,201,2577
1220 DATA 150,240,4,201,232,208,14,164,189,185,48,15,133,189,169,1,7669
1230 DATA 133,203,76,23,8,230,184,165,184,201,12,208,34,169,0,133,7347
1240 DATA 184,162,0,164,234,181,235,149,234,232,224,5,208,247,132,239,6413
1250 DATA 162,4,164,245,181,240,149,241,202,224,255,208,247,132,240,169,8930
1260 DATA 0,197,211,208,45,197,212,208,41,169,1,197,171,240,4,197,903
1270 DATA 172,208,23,169,3,141,15,210,169,129,141,8,210,169,130,141,9009
1280 DATA 7,210,169,9,141,6,210,76,204,8,169,0,141,7,210,141,6181
1290 DATA 6,210,162,0,181,209,201,0,240,96,181,195,201,1,240,90,886
1300 DATA 181,225,201,0,240,5,214,225,76,52,9,189,120,2,201,15,5476
1310 DATA 208,11,246,211,32,121,14,181,211,201,255,208,61,169,0,149,307
1320 DATA 211,149,158,149,207,32,121,14,138,10,168,189,216,14,153,138,8050
1330 DATA 0,133,150,185,139,0,133,151,134,161,162,0,160,0,140,7,4510
1340 DATA 210,189,16,29,145,150,232,200,192,10,208,245,166,161,189,214,4668
1350 DATA 14,149,173,157,0,208,169,1,149,195,232,236,2,6,240,3,7681
1360 DATA 76,206,8,162,0,160,0,181,195,201,1,240,3,76,214,9,6041
1370 DATA 181,185,201,0,240,5,214,185,76,214,9,189,6,6,201,0,5100
1380 DATA 208,31,189,120,2,201,15,208,7,169,0,149,171,76,214,9,5864
1390 DATA 132,161,168,185,100,15,149,158,169,1,149,171,164,161,76,214,157
1400 DATA 9,246,169,181,169,201,5,208,32,169,0,149,169,189,120,2,7323
1410 DATA 41,8,208,7,169,1,133,156,32,32,14,189,120,2,41,4,446
1420 DATA 208,7,169,255,133,156,32,32,14,181,187,201,0,240,5,214,8514
1430 DATA 187,76,199,9,189,120,2,201,13,208,18,181,158,168,185,16,7693
1440 DATA 15,149,158,138,10,168,32,55,14,169,40,149,187,169,0,149,5726
1450 DATA 171,189,120,2,41,1,208,4,169,1,149,171,232,200,200,224,1688
1460 DATA 2,240,3,76,65,9,162,0,189,132,2,201,1,208,2,149,4562
1470 DATA 207,181,171,201,1,240,3,76,128,10,180,158,132,163,24,181,7812
1480 DATA 173,121,190,14,149,173,157,0,208,201,55,240,4,201,193,208,1859
1490 DATA 25,180,158,185,218,14,149,158,169,1,133,203,189,6,6,201,7847
1500 DATA 0,208,4,169,3,149,185,76,244,9,138,10,170,164,163,24,6675
1510 DATA 181,138,121,198,14,149,138,133,150,181,139,133,151,138,74,170,126
1520 DATA 181,158,10,10,10,10,134,161,170,160,0,189,16,29,145,150,5010
1530 DATA 232,200,192,10,208,245,166,161,138,10,170,181,138,221,206,14,1324
1540 DATA 240,5,221,210,14,208,28,138,74,170,180,158,185,226,14,149,316
1550 DATA 158,169,1,133,203,189,6,6,201,0,208,4,169,3,149,185,6399
1560 DATA 76,244,9,138,74,170,232,224,2,240,3,76,226,9,160,0,6336
1570 DATA 162,1,185,12,208,41,12,208,28,185,4,208,41,4,208,21,4058
1580 DATA 132,161,230,161,173,10,208,37,161,208,10,173,11,208,37,161,7946
1590 DATA 208,3,76,21,11,169,0,153,195,0,153,211,0,153,171,0,5086
1600 DATA 153,187,0,185,185,0,201,0,240,25,181,230,201,0,240,19,8877
1610 DATA 248,24,181,218,105,2,149,218,181,220,105,0,149,220,216,169,2590
1620 DATA 0,149,230,169,150,153,225,0,165,223,141,200,2,56,185,209,1122
1630 DATA 0,233,1,153,209,0,169,1,133,197,132,162,152,10,168,185,9106
1640 DATA 138,0,133,150,185,139,0,133,151,160,0,169,0,145,150,200,8067
1650 DATA 192,10,208,247,169,0,141,30,208,164,162,200,202,192,2,240,2424
1660 DATA 3,76,140,10,162,0,181,195,201,1,208,69,181,179,201,0,8721
1670 DATA 208,63,173,5,6,201,0,208,6,181,207,201,1,208,50,189,8695
1680 DATA 132,2,201,0,208,43,149,207,181,158,149,181,168,24,181,173,1439
1690 DATA 121,234,14,149,177,138,10,170,24,181,138,125,254,14,149,132,8949
1700 DATA 24,181,132,121,242,14,149,132,138,74,170,169,1,149,179,133,9151
1710 DATA 200,232,224,2,208,176,162,0,134,162,162,0,181,179,201,1,8782
1720 DATA 240,3,76,197,12,180,181,132,163,24,181,177,121,190,14,149,9094
1730 DATA 177,157,4,208,138,168,10,170,185,177,0,201,56,240,59,201,229
1740 DATA 199,240,55,164,163,24,181,132,121,198,14,149,132,133,150,181,257
1750 DATA 133,133,151,160,0,177,150,61,2,15,145,150,200,177,150,61,7709
1760 DATA 2,15,24,125,250,14,145,150,200,177,150,61,2,15,145,150,6676
1770 DATA 181,132,201,151,240,4,201,234,208,13,32,98,14,138,74,170,7399
1780 DATA 169,0,149,179,76,197,12,138,74,170,181,177,197,175,144,18,9802
1790 DATA 24,165,175,105,31,213,177,144,9,181,177,197,176,144,6,76,8725
1800 DATA 19,12,76,197,12,56,181,177,229,175,74,168,138,10,170,56,7959
1810 DATA 181,132,233,127,133,150,76,36,12,56,181,177,229,176,74,168,9869
1820 DATA 138,10,170,24,181,132,105,1,133,150,165,145,133,151,134,163,9737
1830 DATA 162,0,161,150,57,24,15,208,8,166,163,138,74,170,76,197,8088
1840 DATA 12,161,150,57,32,15,129,150,166,163,56,181,132,229,144,24,8583
1850 DATA 105,1,168,177,142,153,188,29,177,144,153,210,29,32,98,14,6100
1860 DATA 138,74,170,169,0,149,179,248,24,181,216,105,1,149,216,181,1360
1870 DATA 218,105,0,149,218,181,220,105,0,149,220,216,160,0,185,197,1959
1880 DATA 29,57,92,15,240,8,185,219,29,57,96,15,208,56,169,0,4744
1890 DATA 133,194,133,195,133,196,133,171,133,172,133,179,133,180,141,7,734
1900 DATA 210,141,5,210,141,3,210,141,1,210,248,24,181,218,105,5,8753
1910 DATA 149,218,181,220,105,0,149,220,216,162,0,32,98,14,162,2,5126
1920 DATA 32,98,14,76,14,14,200,192,4,208,179,232,224,2,240,3,9041
1930 DATA 76,118,11,162,0,160,1,189,0,208,41,5,240,30,134,164,6167
1940 DATA 162,0,189,144,29,157,188,29,189,166,29,157,210,29,232,224,1644
1950 DATA 22,208,239,166,164,169,1,133,197,76,15,13,189,8,208,61,6193
1960 DATA 6,15,240,43,169,1,153,171,0,133,203,169,20,153,185,0,6946
1970 DATA 181,181,153,158,0,169,0,149,179,169,1,149,230,132,161,138,371
1980 DATA 10,170,32,98,14,169,0,141,30,208,138,74,170,164,161,136,8883
1990 DATA 232,224,2,208,162,166,162,232,224,2,240,3,76,114,11,165,8405
2000 DATA 197,201,1,240,9,165,198,201,1,240,30,76,120,13,169,0,5519
2010 DATA 133,197,169,1,133,198,169,3,141,15,210,169,129,141,8,210,8996
2020 DATA 169,47,141,1,210,169,4,133,199,230,199,165,199,141,0,210,2047
2030 DATA 201,52,208,10,169,0,141,0,210,141,1,210,133,198,165,200,838
2040 DATA 201,1,240,9,165,201,201,1,240,30,76,185,13,169,0,133,6624
2050 DATA 200,169,1,133,201,169,3,141,15,210,169,129,141,8,210,169,9732
2060 DATA 135,141,3,210,169,255,133,202,230,202,165,202,133,202,141,2,3281
2070 DATA 210,201,15,208,10,169,0,141,3,210,141,2,210,133,201,165,9700
2080 DATA 203,201,1,240,9,165,204,201,1,240,35,76,14,14,169,0,4338
2090 DATA 133,203,169,1,133,204,169,3,141,15,210,169,129,141,8,210,9124
2100 DATA 173,10,210,41,15,24,105,10,133,205,169,17,133,206,198,206,310
2110 DATA 198,206,24,165,206,105,160,141,5,210,165,206,10,10,24,101,6038
2120 DATA 205,141,4,210,165,206,201,255,208,10,169,0,141,5,210,141,107
2130 DATA 4,210,133,204,162,0,32,116,24,162,1,32,116,24,104,168,4054
2140 DATA 104,170,104,76,98,228,24,181,158,101,156,149,158,201,8,208,926
2150 DATA 4,169,0,149,158,201,255,208,4,169,7,149,158,181,158,10,9242
2160 DATA 10,10,10,133,160,134,161,185,138,0,133,150,185,139,0,133,7947
2170 DATA 151,132,162,165,160,170,160,0,189,16,29,145,150,232,200,192,1861
2180 DATA 10,208,245,166,161,164,162,96,181,132,133,150,181,133,133,151,2534
2190 DATA 160,0,177,150,61,2,15,145,150,200,192,3,208,244,96,138,329
2200 DATA 10,168,185,152,0,133,150,185,153,0,133,151,169,134,141,7,7989
2210 DATA 210,181,211,41,170,133,162,181,211,73,255,74,74,141,6,210,517
2220 DATA 134,161,162,0,160,0,165,162,145,150,200,192,3,208,247,24,762
2230 DATA 165,150,105,80,133,150,165,151,105,0,133,151,232,224,6,208,1048
2240 DATA 227,166,161,96,0,1,1,1,0,255,255,255,255,255,0,1,9003
2250 DATA 1,1,0,255,22,0,150,0,100,0,228,0,58,190,97,225,6310
2260 DATA 4,7,6,5,0,3,2,1,4,3,6,1,0,7,2,5,2708
2270 DATA 4,2,2,2,3,5,5,5,5,5,4,2,2,2,3,5,2754
2280 DATA 2,0,8,0,128,0,0,0,252,0,243,0,2,1,4,5,8067
2290 DATA 6,7,0,1,2,3,4,5,6,7,0,1,2,3,128,64,5558
2300 DATA 32,16,8,4,2,1,127,191,223,239,247,251,253,254,0,1,1824
2310 DATA 0,255,255,0,1,0,2,3,0,1,0,144,144,240,96,0,2038
2320 DATA 0,0,0,112,192,192,112,0,0,0,0,96,240,144,144,0,4112
2330 DATA 0,0,0,224,48,48,224,0,0,0,3,0,1,2,1,2,5443
2340 DATA 3,0,1,2,2,1,128,64,64,128,0,0,0,0,0,3,5682
2350 DATA 1,2,0,5,7,6,0,4,0,0,0,0,0,0,0,99,4062
2360 DATA 111,115,109,105,99,0,103,108,111,98,0,0,0,0,0,0,7507
2370 DATA 0,0,0,0,0,0,187,163,189,0,162,185,0,0,0,0,686
2380 DATA 0,0,0,0,0,0,0,50,41,35,40,0,34,14,0,37,5169
2390 DATA 46,46,51,0,0,0,0,0,0,195,0,239,230,0,240,236,7865
2400 DATA 225,249,229,242,243,154,17,0,92,0,0,0,0,0,0,0,7864
2410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2410
2420 DATA 0,0,0,195,0,239,230,0,243,232,233,240,243,154,21,0,1824
2430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2430
2440 DATA 0,0,0,0,0,0,0,0,0,0,0,228,233,230,230,233,8603
2450 DATA 227,245,236,244,249,154,16,17,0,0,0,0,0,0,0,0,7268
2460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2460
2470 DATA 0,229,238,225,226,236,229,128,237,233,238,229,243,154,57,0,5714
2480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2480
2490 DATA 0,0,0,0,0,0,0,0,0,0,242,229,240,229,225,244,1505
2500 DATA 128,230,233,242,229,154,57,0,0,0,0,0,0,0,0,0,7223
2510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2510
2520 DATA 0,227,239,238,244,242,239,236,128,244,249,240,229,154,40,40,6460
2530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2530
2540 DATA 0,0,71,0,0,0,0,0,0,0,0,169,168,141,1,210,2314
2550 DATA 134,167,162,4,134,168,142,0,210,162,0,232,224,100,208,251,3934
2560 DATA 166,168,232,224,200,208,237,169,0,141,0,210,141,1,210,166,1496
2570 DATA 167,96,160,2,169,0,145,130,24,165,130,105,40,133,130,165,7845
2580 DATA 131,105,0,133,131,169,92,145,130,160,0,32,165,16,96,160,6449
2590 DATA 2,169,0,145,130,56,165,130,233,40,133,130,165,131,233,0,9685
2600 DATA 133,131,169,92,145,130,160,0,32,165,16,96,169,1,141,2,4119
2610 DATA 6,141,3,6,169,5,141,4,6,169,0,141,1,6,169,1,909
2620 DATA 141,0,6,141,5,6,141,6,6,141,7,6,56,165,106,233,4408
2630 DATA 26,133,131,141,8,6,169,0,133,130,169,40,133,128,169,30,6510
2640 DATA 133,129,160,0,177,128,145,130,24,165,128,105,1,133,128,165,8188
2650 DATA 129,105,0,133,129,24,165,130,105,1,133,130,165,131,105,0,6037
2660 DATA 133,131,56,233,2,205,8,6,208,218,169,0,205,132,2,240,9793
2670 DATA 249,205,133,2,240,244,32,81,28,169,0,141,29,208,162,0,6625
2680 DATA 157,0,210,232,224,9,208,248,32,100,25,173,8,6,141,244,8855
2690 DATA 2,169,170,141,196,2,169,12,141,197,2,169,180,141,198,2,8980
2700 DATA 162,0,160,20,189,117,15,145,88,232,200,224,60,208,245,24,2085
2710 DATA 165,88,105,120,133,130,133,128,165,89,105,0,133,131,133,129,8398
2720 DATA 160,0,185,177,15,145,130,200,192,240,208,246,169,3,141,15,1560
2730 DATA 210,169,0,141,8,210,32,165,16,32,165,16,165,128,133,130,7169
2740 DATA 165,129,133,131,24,165,130,105,15,133,130,165,131,105,0,133,7122
2750 DATA 131,160,2,169,92,145,130,160,0,32,165,16,173,120,2,201,6905
2760 DATA 7,208,31,238,2,6,173,2,6,201,3,208,5,169,1,141,4796
2770 DATA 2,6,24,173,2,6,105,16,145,130,162,15,157,177,15,32,4280
2780 DATA 165,16,173,132,2,201,0,208,3,76,129,20,173,120,2,201,6525
2790 DATA 14,208,31,160,2,169,0,145,130,24,165,128,105,215,133,130,9348
2800 DATA 165,129,105,0,133,131,169,92,145,130,160,0,32,165,16,76,5455
2810 DATA 241,19,201,13,208,166,32,204,16,173,120,2,201,7,208,18,6973
2820 DATA 238,4,6,173,4,6,201,9,208,27,169,3,141,4,6,76,2543
2830 DATA 127,18,201,11,208,45,206,4,6,173,4,6,201,2,208,5,4165
2840 DATA 169,8,141,4,6,173,4,6,201,8,208,7,169,10,145,130,5461
2850 DATA 76,149,18,173,4,6,24,105,16,145,130,162,55,157,177,15,5810
2860 DATA 32,165,16,173,132,2,201,0,208,3,76,129,20,173,120,2,4841
2870 DATA 201,14,208,6,32,233,16,76,246,17,201,13,208,155,32,204,9394
2880 DATA 16,173,120,2,201,7,208,34,238,1,6,248,24,173,0,6,4409
2890 DATA 105,1,141,0,6,216,173,1,6,201,30,208,48,169,0,141,6101
2900 DATA 1,6,169,1,141,0,6,76,7,19,201,11,208,70,206,1,4165
2910 DATA 6,248,56,173,0,6,233,1,141,0,6,216,173,1,6,201,5443
2920 DATA 255,208,10,169,29,141,1,6,169,48,141,0,6,160,0,173,3981
2930 DATA 0,6,74,74,74,74,24,105,16,145,130,162,95,157,177,15,6578
2940 DATA 160,1,173,0,6,41,15,24,105,16,145,130,162,96,157,177,7091
2950 DATA 15,32,165,16,173,132,2,201,0,208,3,76,129,20,173,120,6364
2960 DATA 2,201,14,208,6,32,233,16,76,83,18,201,13,240,3,76,5133
2970 DATA 187,18,32,204,16,173,120,2,201,7,208,44,238,3,6,173,6768
2980 DATA 3,6,201,2,208,5,169,0,141,3,6,162,135,173,3,6,3486
2990 DATA 201,1,208,10,169,57,145,130,157,177,15,76,127,19,169,46,6547
3000 DATA 145,130,157,177,15,32,165,16,173,132,2,201,0,208,3,76,5618
3010 DATA 129,20,173,120,2,201,14,208,6,32,233,16,76,187,18,201,7377
3020 DATA 13,208,178,32,204,16,173,120,2,201,7,208,44,238,5,6,6074
3030 DATA 173,5,6,201,2,208,5,169,0,141,5,6,162,175,173,5,5448
3040 DATA 6,201,0,208,10,169,46,145,130,157,177,15,76,208,19,169,8582
3050 DATA 57,145,130,157,177,15,32,165,16,173,132,2,201,0,208,3,6065
3060 DATA 76,129,20,173,120,2,201,14,208,6,32,233,16,76,79,19,4118
3070 DATA 201,13,208,178,32,204,16,24,165,130,105,20,133,165,165,131,9111
3080 DATA 105,0,133,166,162,215,173,120,2,201,11,240,98,201,7,208,1069
3090 DATA 42,24,185,6,6,105,1,153,6,6,201,2,208,5,169,0,3308
3100 DATA 153,6,6,201,0,208,10,169,37,145,130,157,177,15,76,50,6305
3110 DATA 20,169,40,145,130,157,177,15,32,165,16,173,132,2,201,0,6068
3120 DATA 240,69,173,120,2,201,14,208,17,160,0,169,71,145,165,200,9884
3130 DATA 169,0,145,165,32,233,16,76,160,19,201,13,208,168,160,0,8125
3140 DATA 169,71,145,165,200,169,0,145,165,200,145,130,76,214,17,169,1303
3150 DATA 0,145,165,232,200,192,2,208,4,160,0,162,215,169,71,145,819
3160 DATA 165,32,165,16,76,0,20,32,181,25,173,8,6,141,244,2,4346
3170 DATA 32,193,24,32,96,28,173,1,6,133,227,10,10,10,10,133,2204
3180 DATA 165,32,209,28,173,4,6,133,209,133,210,162,0,32,116,24,6180
3190 DATA 162,1,32,116,24,24,169,166,101,165,141,196,2,24,169,218,9536
3200 DATA 101,165,141,197,2,24,169,104,101,165,141,198,2,24,169,10,6554
3210 DATA 101,165,141,199,2,24,169,98,101,165,133,222,24,169,106,101,9551
3220 DATA 165,133,223,24,169,190,101,165,133,224,24,169,166,101,165,141,2460
3230 DATA 192,2,24,169,218,101,165,141,193,2,173,3,6,201,1,208,8084
3240 DATA 3,32,144,27,32,181,26,165,227,170,189,40,25,141,17,22,5803
3250 DATA 189,70,25,141,13,22,165,232,201,1,240,10,165,19,201,8,7559
3260 DATA 208,4,169,1,133,232,173,31,208,201,6,208,10,169,0,133,8571
3270 DATA 194,32,167,28,76,100,17,162,0,181,209,201,0,208,9,232,9816
3280 DATA 236,2,6,208,244,76,23,22,173,252,2,201,33,208,35,169,9464
3290 DATA 0,133,194,141,1,210,141,3,210,141,5,210,141,7,210,166,590
3300 DATA 20,164,19,173,252,2,201,33,240,249,169,1,133,194,132,19,590
3310 DATA 134,20,162,0,164,183,24,165,175,121,232,24,133,175,24,165,180
3320 DATA 176,121,232,24,133,176,32,251,21,165,175,201,50,240,4,201,1945
3330 DATA 174,208,28,173,10,210,41,1,10,10,10,133,165,165,183,24,5781
3340 DATA 101,165,168,185,8,25,133,183,169,1,133,203,76,16,21,232,8269
3350 DATA 164,183,138,217,248,24,208,188,162,0,164,183,24,165,142,121,1652
3360 DATA 240,24,133,142,24,165,144,121,240,24,133,144,32,251,21,165,177
3370 DATA 142,201,18,240,4,201,92,208,28,173,10,210,41,1,10,10,3931
3380 DATA 10,133,165,165,183,24,101,165,168,185,24,25,133,183,169,1,8665
3390 DATA 133,203,76,16,21,232,164,183,138,217,0,25,208,188,76,16,8774
3400 DATA 21,134,166,162,0,232,160,0,200,165,194,201,0,208,3,76,9516
3410 DATA 77,23,192,0,208,242,224,0,208,235,166,166,96,165,198,201,5953
3420 DATA 0,208,250,169,0,133,194,162,0,169,0,157,0,210,232,224,2292
3430 DATA 9,208,246,32,106,26,32,167,28,169,96,141,2,208,169,128,9178
3440 DATA 141,3,208,169,52,133,142,169,180,133,144,169,3,141,10,208,344
3450 DATA 141,11,208,162,0,160,0,189,146,29,145,142,189,168,29,145,9824
3460 DATA 144,200,189,146,29,145,142,189,168,29,145,144,232,200,192,36,3073
3470 DATA 208,229,24,165,88,105,80,133,130,165,89,105,3,133,131,162,9079
3480 DATA 0,160,0,189,213,22,145,130,232,200,192,24,208,245,24,165,3430
3490 DATA 130,105,40,133,130,165,131,105,0,133,131,224,120,208,226,169,3904
3500 DATA 3,141,15,210,169,5,141,8,210,169,166,141,1,210,169,162,1774
3510 DATA 141,5,210,169,216,141,0,210,169,217,141,4,210,169,0,205,2239
3520 DATA 132,2,240,5,205,133,2,208,244,141,1,210,141,5,210,141,1343
3530 DATA 0,210,141,4,210,32,167,28,76,100,17,170,170,170,0,170,8245
3540 DATA 0,170,0,170,170,170,0,0,170,170,170,0,170,170,170,0,8670
3550 DATA 170,170,160,0,170,0,0,170,0,170,0,170,0,0,0,0,490
3560 DATA 170,0,0,0,170,0,170,0,170,0,170,0,170,0,0,170,4100
3570 DATA 170,170,0,170,170,0,0,0,170,170,0,0,170,0,170,0,3600
3580 DATA 170,0,170,0,170,0,0,170,0,170,0,170,0,0,0,0,210
3590 DATA 170,0,0,0,170,0,170,0,170,0,170,0,170,0,0,170,4130
3600 DATA 0,170,0,170,170,170,0,0,170,170,170,0,170,0,170,0,6350
3610 DATA 170,170,160,32,167,28,169,3,141,15,210,169,4,141,8,210,8201
3620 DATA 169,15,141,1,210,169,9,141,3,210,169,3,141,5,210,169,9280
3630 DATA 5,141,7,210,169,10,133,199,24,165,142,105,10,133,180,105,9266
3640 DATA 2,133,179,105,127,133,182,105,2,133,181,162,0,169,255,141,2142
3650 DATA 207,23,134,165,165,179,133,142,165,180,133,146,165,181,133,144,4409
3660 DATA 165,182,133,148,162,0,160,0,24,165,199,141,0,210,105,8,7500
3670 DATA 141,2,210,105,8,141,4,210,105,8,141,6,210,230,199,198,2210
3680 DATA 142,230,146,198,144,230,148,169,0,32,93,24,198,142,230,146,1979
3690 DATA 198,144,230,148,169,0,32,93,24,134,166,162,20,202,160,160,645
3700 DATA 136,192,0,208,251,224,0,208,244,166,166,232,224,24,208,184,7093
3710 DATA 169,0,141,207,23,166,165,232,224,2,208,150,162,0,169,0,17
3720 DATA 157,0,210,232,224,9,208,246,133,179,133,180,169,0,205,132,4027
3730 DATA 2,240,22,205,133,2,240,17,173,31,208,201,6,208,237,169,3407
3740 DATA 0,133,194,32,167,28,76,100,17,32,167,28,165,227,201,29,8499
3750 DATA 240,2,230,227,162,0,24,189,192,2,105,16,157,192,2,232,9648
3760 DATA 224,8,208,242,162,0,24,181,234,105,16,149,234,232,224,12,2980
3770 DATA 208,244,162,0,24,181,222,105,16,149,222,232,224,3,208,244,5390
3780 DATA 76,254,20,145,142,145,146,145,144,145,148,230,175,198,176,165,6227
3790 DATA 175,141,2,208,165,176,141,3,208,96,138,201,1,208,7,173,537
3800 DATA 2,6,201,2,208,64,188,228,24,24,181,209,105,16,201,24,8932
3810 DATA 144,2,169,10,24,125,230,24,145,88,181,216,133,213,181,218,4859
3820 DATA 133,214,181,220,133,215,188,206,24,162,2,181,213,74,74,74,852
3830 DATA 74,24,105,208,145,88,200,181,213,41,15,24,105,208,145,88,9840
3840 DATA 200,202,224,255,208,229,96,160,0,185,208,24,145,88,200,192,4117
3850 DATA 20,208,246,96,3,13,0,16,30,208,208,208,208,208,208,0,1499
3860 DATA 0,80,94,208,208,208,208,208,208,0,1,11,0,64,1,1,3484
3870 DATA 1,1,255,255,255,255,255,255,1,1,1,1,255,255,1,2,9262
3880 DATA 2,1,1,2,2,1,2,1,1,2,2,1,1,2,7,6,4238
3890 DATA 5,4,3,2,1,0,6,7,4,5,2,3,0,1,3,2,4258
3900 DATA 1,0,7,6,5,4,2,3,0,1,6,7,4,5,30,29,5229
3910 DATA 27,25,24,22,21,20,19,18,17,14,13,12,10,10,10,10,5809
3920 DATA 8,8,8,8,8,8,8,8,8,8,8,8,32,30,28,27,6232
3930 DATA 24,23,22,21,20,19,18,20,20,20,23,22,21,20,24,23,6828
3940 DATA 22,21,20,19,18,17,16,15,14,13,169,17,32,36,28,173,991
3950 DATA 48,2,133,128,173,49,2,133,129,160,0,185,150,25,145,128,8654
3960 DATA 200,192,28,208,246,160,4,165,88,145,128,200,165,89,145,128,2662
3970 DATA 160,25,165,128,145,128,200,165,129,145,128,96,112,112,112,71,411
3980 DATA 200,200,7,7,7,7,6,6,6,6,6,6,6,6,6,6,5396
3990 DATA 6,6,6,6,65,100,100,0,0,0,0,56,165,106,233,16,3727
4000 DATA 133,89,233,2,141,49,2,133,129,169,0,133,88,141,48,2,5412
4010 DATA 133,128,160,0,169,112,145,128,200,145,128,200,145,128,160,3,1618
4020 DATA 169,198,145,128,200,165,88,145,128,200,165,89,145,128,160,6,1506
4030 DATA 169,205,145,128,165,88,133,130,165,89,133,131,165,130,24,105,295
4040 DATA 40,133,130,165,131,105,0,133,131,160,7,165,130,145,128,200,1421
4050 DATA 165,131,145,128,160,9,169,141,145,128,200,192,97,208,247,169,6260
4060 DATA 13,145,128,200,145,128,200,145,128,200,169,65,145,128,200,165,4708
4070 DATA 128,145,128,200,165,129,145,128,24,165,88,105,40,133,130,165,376
4080 DATA 89,105,0,133,131,162,0,134,165,162,0,160,0,189,177,26,8352
4090 DATA 145,130,200,192,40,208,246,24,165,130,105,40,133,130,165,131,1765
4100 DATA 105,0,133,131,232,224,4,208,226,166,165,232,224,23,208,215,7411
4110 DATA 24,165,88,105,202,133,130,165,89,105,0,133,131,162,0,160,9164
4120 DATA 0,169,0,145,130,200,192,36,208,247,24,165,130,105,40,133,994
4130 DATA 130,165,131,105,0,133,131,232,224,84,208,227,24,165,88,105,2464
4140 DATA 10,133,152,165,89,105,12,133,153,24,165,88,105,43,133,154,8669
4150 DATA 165,89,105,12,133,155,96,150,165,105,90,173,10,210,41,7,7721
4160 DATA 133,183,169,0,133,175,141,2,208,169,240,133,176,141,3,208,3317
4170 DATA 169,30,133,142,169,158,133,144,169,1,141,10,208,141,11,208,615
4180 DATA 162,0,189,144,29,157,188,29,232,224,44,208,245,160,0,185,3813
4190 DATA 144,29,145,142,185,166,29,145,144,200,192,22,208,241,169,3,3012
4200 DATA 141,15,210,169,5,141,8,210,169,172,141,1,210,169,164,141,2900
4210 DATA 5,210,169,50,133,199,169,54,133,205,230,175,198,176,165,175,7006
4220 DATA 141,2,208,165,176,141,3,208,201,128,240,31,162,0,232,160,3307
4230 DATA 0,200,192,255,208,251,224,3,208,244,230,199,230,205,165,199,1113
4240 DATA 141,0,210,165,205,141,4,210,76,20,27,169,0,141,1,210,7808
4250 DATA 141,5,210,141,0,210,141,4,210,173,10,210,41,3,133,189,9718
4260 DATA 169,0,133,193,133,192,133,225,133,226,133,211,133,212,133,187,7284
4270 DATA 133,188,141,252,2,133,20,133,19,133,232,169,128,133,190,169,3383
4280 DATA 126,133,191,169,166,133,136,169,1,133,194,169,3,141,15,210,952
4290 DATA 169,129,141,8,210,96,162,0,24,165,88,125,32,28,133,130,7149
4300 DATA 232,165,89,125,32,28,133,131,232,134,165,162,0,160,0,189,387
4310 DATA 232,29,145,130,232,200,192,4,208,245,24,165,130,105,40,133,1745
4320 DATA 130,165,131,105,0,133,131,224,56,208,226,169,3,141,15,210,1796
4330 DATA 169,5,141,8,210,169,156,141,0,210,169,157,141,4,210,162,2722
4340 DATA 0,134,167,24,169,160,101,167,141,1,210,74,141,5,210,169,1287
4350 DATA 253,133,20,169,0,133,19,165,19,201,1,208,250,232,224,16,2658
4360 DATA 208,223,169,0,141,1,210,141,5,210,141,0,210,141,4,210,650
4370 DATA 133,19,169,230,133,20,165,19,201,1,208,250,166,165,224,4,3059
4380 DATA 240,3,76,146,27,96,75,6,89,6,72,162,96,169,12,157,6625
4390 DATA 66,3,32,86,228,162,96,169,3,157,66,3,169,93,157,68,8339
4400 DATA 3,169,28,157,69,3,104,157,75,3,41,240,73,16,9,12,3336
4410 DATA 157,74,3,32,86,228,96,162,0,169,0,149,128,232,224,128,2416
4420 DATA 208,247,96,83,58,155,56,165,106,233,24,141,7,212,133,157,1480
4430 DATA 169,46,141,47,2,169,56,141,111,2,169,0,141,8,208,141,8045
4440 DATA 9,208,141,12,208,169,1,141,10,208,141,11,208,24,165,157,405
4450 DATA 105,1,133,133,133,135,133,137,105,1,133,139,133,141,105,1,8370
4460 DATA 133,143,133,145,133,147,133,149,169,3,141,29,208,160,0,169,626
4470 DATA 0,133,130,165,157,133,131,169,0,145,130,24,165,130,105,1,8362
4480 DATA 133,130,165,131,105,0,133,131,56,165,131,229,157,201,4,208,2982
4490 DATA 230,169,0,141,30,208,96,169,58,141,0,2,169,7,141,1,5426
4500 DATA 2,169,192,141,14,212,162,0,160,4,152,24,101,165,149,234,1498
4510 DATA 200,200,232,224,6,208,243,162,0,160,14,152,24,101,165,149,1140
4520 DATA 240,136,136,232,224,6,208,243,169,0,133,233,160,113,162,7,2908
4530 DATA 169,7,32,92,228,96,0,8,8,28,28,62,62,107,65,0,1640
4540 DATA 0,0,0,0,0,0,0,3,15,62,254,124,28,24,8,0,421
4550 DATA 0,0,0,0,0,0,0,0,192,112,60,127,60,112,192,0,4810
4560 DATA 0,0,0,0,0,0,0,8,24,28,124,254,62,15,3,0,593
4570 DATA 0,0,0,0,0,0,0,130,214,124,124,56,56,16,16,0,2004
4580 DATA 0,0,0,0,0,0,0,16,24,56,62,127,124,240,192,0,5542
4590 DATA 0,0,0,0,0,0,0,3,14,60,254,60,14,3,0,0,9078
4600 DATA 0,0,0,0,0,0,0,192,240,124,127,62,56,24,16,0,2981
4610 DATA 0,0,0,0,0,0,0,0,7,15,31,63,127,255,255,255,9046
4620 DATA 254,254,255,255,255,127,63,31,15,7,0,0,0,0,224,240,7298
4630 DATA 248,252,254,255,255,255,127,127,255,255,255,254,252,248,240,224,6504
4640 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4640
4650 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4650
4660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,252,8692
4670 DATA 63,0,3,255,255,192,15,223,247,240,63,87,213,252,61,95,5170
4680 DATA 245,124,63,125,125,252,15,245,95,240,15,245,95,240,63,125,3964
4690 DATA 125,252,61,95,245,124,63,87,213,252,15,223,247,240,3,255,6962
4700 DATA 255,192,0,252,63,0,0,0,0,0,0,0,0,0,0,0,6662
4710 DATA 0,0,0,0,0,0,56,56,56,56,56,0,56,0,102,102,1120
4720 DATA 102,0,0,0,0,0,108,254,108,108,108,254,108,0,56,254,206
4730 DATA 224,254,6,254,56,0,230,238,28,56,112,238,206,0,124,108,1456
4740 DATA 104,248,222,204,246,0,56,56,56,0,0,0,0,0,28,56,712
4750 DATA 48,48,48,56,28,0,56,28,12,12,12,28,56,0,108,56,9958
4760 DATA 254,124,254,56,108,0,24,24,24,255,24,24,24,0,0,0,778
4770 DATA 0,0,56,56,120,0,0,0,0,254,0,0,0,0,0,0,8302
4780 DATA 0,0,0,56,56,0,4,14,28,56,112,224,64,0,254,230,8478
4790 DATA 230,230,246,246,254,0,248,24,24,24,24,248,254,0,254,198,4376
4800 DATA 6,254,224,224,254,0,254,14,14,126,14,14,254,0,230,230,2182
4810 DATA 230,254,6,6,6,0,254,224,224,254,6,198,254,0,254,230,6980
4820 DATA 224,254,230,230,254,0,254,206,14,14,14,14,14,0,254,230,118
4830 DATA 230,254,230,230,254,0,254,206,206,254,14,206,254,0,0,56,3092
4840 DATA 56,0,56,56,0,0,0,56,56,0,56,56,120,0,14,28,9746
4850 DATA 56,252,56,28,14,0,0,0,254,0,0,254,0,0,224,112,6246
4860 DATA 56,126,56,112,224,0,254,198,6,62,56,0,56,0,254,230,9774
4870 DATA 230,238,238,224,254,0,254,230,230,254,230,230,230,0,254,230,2454
4880 DATA 230,252,230,230,254,0,254,230,224,224,224,230,254,0,252,230,2354
4890 DATA 230,230,230,230,252,0,254,224,224,252,224,224,254,0,254,224,2404
4900 DATA 224,252,224,224,224,0,254,224,224,238,230,230,254,0,230,230,2004
4910 DATA 230,254,230,230,230,0,254,56,56,56,56,56,254,0,0,14,6512
4920 DATA 14,14,14,206,254,0,230,230,230,252,230,230,230,0,224,224,362
4930 DATA 224,224,224,224,254,0,254,214,214,198,198,198,198,0,254,230,454
4940 DATA 230,230,230,230,230,0,254,230,230,230,230,230,254,0,254,230,2460
4950 DATA 230,254,224,224,224,0,254,230,230,230,230,238,252,0,254,230,2516
4960 DATA 230,252,230,230,230,0,254,230,224,254,6,198,254,0,254,56,7078
4970 DATA 56,56,56,56,56,0,230,230,230,230,230,230,254,0,230,230,9352
4980 DATA 230,230,230,124,56,0,198,198,198,198,214,214,254,0,198,198,8230
4990 DATA 124,124,124,198,198,0,230,230,230,254,24,24,24,0,254,14,474
5000 DATA 28,56,112,224,254,0,124,112,112,112,112,112,124,0,64,224,266
5010 DATA 112,56,28,14,4,0,62,14,14,14,14,14,62,0,16,56,8470
5020 DATA 124,238,198,0,0,0,0,0,0,0,0,0,255,0,0,0,9529
5030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5030
5040 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5040
5050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5050
5060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5060
5070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5070
5080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5080
5090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5090
5100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5100
5110 DATA 224,2,225,2,3,60,0,0,0,0,0,0,0,0,0,0,6396

Listing 2.
BASIC listing.

10 REM *** COSMIC GLOB ***
20 REM CASSETTE MAKER PROGRAM
40 DIM DAT(16):LINE=990:RESTDRE 1000: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:NEXT X:DATLIH=PEEK(183)+PEEK(184)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING!":END
70 TOTAL=LINE:FOR X=1 TO 16
80 IF PASS=2 THEN PUT #1,DAT(X):NEXT X:READ CHKSUM:GOTD 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 208
160 FOR X=1 TO 128:PUT #1,0:NEXT X:CLOSE #1:END
200 ? "READY CASSETTE AND PRESS RETURN";:0PEN #1,8,128,"C:":RESTORE 230:FOR X=1 TO 40:READ N:PUT #1,N:NEXT X
210 ? :? "WRITING FILE":PAS5=2:LINE=990:RESTORE 1000:TRAP 120:GOTO 50
220 ? "BAD DATA: LINE ";LINE:END
230 DATA 0,52,210,59,249,59,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,3,133,10,169,60,133,11,24,96

Assembly listing.

Missing