16K Cassette or 24K Disk
by Kyle Peacock with Tom Hudson
The year is 2284. The "Robotron Incident" of 2084 has long been forgotten, and the field of genetic engineering has led to the fabrication of synthetic humans. Each fabricated unit is genetically engineered to perform a specific task to perfection.
Fifty years later, through a unanimous vote of the United Nations, these "Syntrons" have been installed into every top political position in the world. Each represents the opinion of the particular government they were assigned. The fate of continents rests in the hands of the Syntrons.
Now the year is 2369. Long-term studies of the Syntrons' behavioral patterns yield strange results. A genetically invulnerable bacteria has infected the species. The bacteria preys on the cerebral nerves responsible for all higher order brain processes, making the individual deranged and quite unstable.
This bacteria has begun to trickle down to infect the Syntrons'counterpart: man. Soon, mankind will teeter on the very brink of insanity and demise, unless a means can be found to halt the plague of 2369: Bacterion!
Before typing anything, look at the listings accompanying this article.
Follow the instructions below to make either a cassette or disk version of Bacterion!
MAKE CASSETTE (0) OR DISK (1)?
Type 0 and press RETURN. The program will begin checking the DATA statements, printing the line number of each as it goes. It will alert you if it finds any problems. Fix any incorrect lines and re-RUN the program, if necessary, until all errors are eliminated.
MAKE CASSETTE (0) OR DISK (1)?
Type 1 and press RETURN. The program will begin checking the DATA lines, printing the line number of each statement as it goes. It will alert you if it finds any problems. Fix incorrect lines and re-RUN the program, if necessary, until all errors are eliminated.
Bacterion! is a game for one or two players. In the two-player mode, both play simultaneously. In this mode, the game is more cooperative than competitive. You must prevent the six (count 'em, six!) different strains of Bacterion from removing the ten cerebral cells from the host Syntron. A cell is inoperative when it is completely removed from the screen.
As a member of BARF (Biological Armament Restriction Force), you are equipped with a miniaturized GEV (Genetic Extermination Vehicle) to aid you in your mission. The vehicle emits highfrequency photons from its nose, capable of vaporizing the Bacterion, while leaving brain tissue and other GEV's undamaged.
Control over your GEV is accomplished through the joystick. A two-player game will require as many joysticks. Pushing up will cause your GEV to move forward. Moving the stick left or right will cause the vehicle to rotate in the respective direction. Pushing the trigger fires the photonic bursts. Any one player can have up to four high-energy photons on the screen at once. Holding down the trigger fires all available photons in rapid succession. Should your GEV be destroyed by either running into your opponent or being skragged by a Bacterion, you must wait several seconds for another GEV to be injected into the host. Parking or driving your GEV over a brain cell gives it unsure traction, which may cause the vehicle to rotate randomly. Each GEV is internally powered, so there is an unlimited supply of ammunition.
Initially, each Syntron has a unique brain pattern. You may select which of the three top political figures you wish to put "under the knife." Each individual has a total of ten cerebral cells. Some cells may be harder to visualize, since there may be two or more on top of one another.
The SELECT button will choose between a one- or two-player game. The OPTION button will choose which political leader you will operate on. Examination of the speed at which the colors change in the word "BACTERION!" on the title screen dictate the brain pattern. The Prime Minister of England, President of the U.S.S.R. and the President of the U.S. are your three available candidates. The START button will begin the game. Pausing or examination of scores is accomplished by pressing the space bar. Pressing the space bar a second time will resume the life-or-death struggle. Each of the six attacking strains are worth from 10 to 60 points, respectively.
My special thanks goes to Tom Hudson for his assistance in Bacterion! Through the use of his Graphics 7+ handler presented in issue # 11, and some custom-made shape-drawing routines, we've put together the best (as in #1) two-player public domain assembly language game ever! If you agree or disagree, I'd like to hear it. Drop me a line, care of Kyle Peacock here at the editorial offices of ANALOG.
[Archiver's Note: The programming trick necessary to fit Bacterion! into 16K of memory makes it vulnerable to crashes on XL and XE systems. A separate page describes a patch for XL/XE systems with more than 16K of memory. 600XL owners are, unfortunately, out of luck on this one.]
BACTRION.LST is available in ATASCII format.
10 REM *** BACTERION ***
20 TRAP 20:? "MAKE CASSETTE (0), OR DI
SK (1)";:INPUT DSK:IF DSK>1 THEN 20
30 TRAP 40000:DATA 0,1,2,3,4,5,6,7,8,9
,0,0,0,0,0,0,0,10,11,12,13,14,15
40 DIM DAT$(91),HEX(22):FOR X=0 TO 22:
READ N:HEX(X)=N:NEXT X:LINE=990:RESTOR
E 1000:TRAP 120:? "CHECKING DATA"
50 LINE=LINE+10:? "LINE:";LINE:READ DA
T$:IF LEN(DAT$)<>90 THEN 220
60 DATLIN=PEEK(183)+PEEK(184)*256:IF D
ATLIN<>LINE THEN ? "LINE ";LINE;" MISS
ING!":END
70 FOR X=1 TO 89 STEP 2:D1=ASC(DAT$(X,
X))-48:D2=ASC(DAT$(X+1,X+1))-48:BYTE=H
EX(D1)*16+HEX(D2)
80 IF PASS=2 THEN PUT #1,BYTE:NEXT X:R
EAD CHKSUM:GOTO 50
90 TOTAL=TOTAL+BYTE:IF TOTAL>999 THEN
TOTAL=TOTAL-1000
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 170
140 IF NOT DSK THEN 160
150 PUT #1,224:PUT #1,2:PUT #1,225:PUT
#1,2:PUT #1,0:PUT #1,40:CLOSE #1:END
160 FOR X=1 TO 2:PUT #1,0:NEXT X:CLOSE
#1:END
170 IF NOT DSK THEN 200
180 ? "INSERT DISK WITH DOS, PRESS RET
URN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0
,"D:AUTORUN.SYS"
190 PUT #1,255:PUT #1,255:PUT #1,0:PUT
#1,40:PUT #1,85:PUT #1,59:GOTO 210
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=99
0:RESTORE 1000:TRAP 120:GOTO 50
220 ? "BAD DATA: LINE ";LINE:END
230 DATA 0,39,216,39,255,39,169,0,141,
47,2,169,60,141,2,211,169,0,141,231,2,
133,14,169,56,141,232,2
240 DATA 133,15,169,0,133,10,169,40,13
3,11,24,96
1000 DATA 2065E4A9228D2F02A9288581A900
8580A9088583A9008582A000B1809182C8D0F9
E681E683A581C940D0EFA90B,831
1010 DATA 850D8503850BA912850C8502850A
4C120BA200A90E9D001FCAD0FAA9708D001F8D
011FA9F08D021FA94E8D031F,796
1020 DATA 8D6B1FA9208D051FA9108D041FA9
308D6D1FA9008D6C1FA9418DC81FA98E8DC71F
A91F8DCA1FA9008DC91FA93E,396
1030 DATA 8D2F02A9008D07D4A9038D1DD0A9
108D6F02A900AA9D00049D0005CAD0F7A202A9
0095A995AC95AFCA10F7A910,369
1040 DATA 8580A9208581A200A5809D351BA5
819DF51BA900A02791808810FBE8E0C0F010A5
801869288580A58169008581,840
1050 DATA 4CBC08A6A4BC7D09A20986B7B980
0995E895D4B99E099DC91C9DB51CA90095C0C8
CA10E8A20086A88E7D1D8E7E,608
1060 DATA 1D204209A5A5F004E8204209A901
8D451E8D1F1E8D201E8D211EA205BD71099DAB
13BD6B099DA413BD77099DD9,837
1070 DATA 0ACA10EB4CBC09A9009D691D9D1D
1EA9019D461E9D5A1EBD69099D311E9D2D1DBD
67099D7D1DA9809D911D602C,103
1080 DATA C30C04342C241C140C0D0B090705
0346413C37322D000A1444505C3E4A56624450
5C4F4F4F4F4955435B3D614F,598
1090 DATA 47574F4F4F4F47574F5D5D5D6060
60606363634C52585E626266666A6A565A5A5E
5E5E5E626266A201869ECA8A,956
1100 DATA 8D05D28D07D28D08D29D00039D00
069D00078D1ED0CAD0F1A204AD451E9D1D1E20
EB0A9D7D1DAD0AD21004A915,391
1110 DATA D002A9E49D911D20F40AA9008D0F
0B85B69D691D9DDD1C9DCD1D9DF11C9D551DAD
FD0AC9D8B057A90A20FD0AA8,809
1120 DATA 8E100BBD551DF00698DDDD1CF03B
E8E005D0F0AE100BB9B51CC9C2B02CA90220FD
0A8C110BA8B9E10A9D551DB9,245
1130 DATA DF0AAC110B1879B51C9DB91DB9D4
0018692C9DA51D989DDD1C4C810AAE100BCE0F
0BD0A9A4A5C89820FD0AA8B9,236
1140 DATA 7D1D9DA51DB9911D9DB91DCAE001
F0034CDC09A92885B5AE451EBDD80A85B9C905
900638E9039DD80AA20CA9FF,604
1150 DATA 9D6E1E95D99DBA1C95C5CAE004D0
F1A203AD0AD229F0090A9DC002AD0AD229F01D
E70A9DC402CA10E8A90085BC,311
1160 DATA 85BE85BD85BF859E600000000000
0015240AF50C0C0A0A0C08080AA96420FD0A18
694B60A91020FD0A9D2D1D60,732
1170 DATA 8D0E0BAD0AD2CD0E0B90054A4A4C
030B6000000000A9008D01D28D03D220E30E20
430FA90185A8859EA906A20C,377
1180 DATA A0F8205CE4A907A20DA056205CE4
A9C08D0ED420BA0FA5A3C901D0F7E6A3203E08
A5A3C902D0C1ADFC02C921D0,328
1190 DATA 37AD0FD22904F03020430FA5B748
A90A85B7A90185A8859E8DFC0220BA0FADFC02
C921D0F9AD0FD22904F0F968,687
1200 DATA 85B7A90085A8859E8DFC02C6B310
04A90985B3A6B3B5C0D012B5E88588BDC91C85
89A901858AA90020401AA909,270
1210 DATA 85B2A6B2B5C0F00320101AC6B210
F3A9048DB70DAEB70DBDCD1DF053302E09809D
CD1DA902858ABD7D1D38E92C,616
1220 DATA 9DF51D8588BD911D38E91CC9C0B0
2E9D091E8589BDCD1D297F20401A4C200CDEE1
1D101EBDF51D8588BD091E85,525
1230 DATA 89A900858ABDCD1D297F20401AAE
B70DA9009DCD1DCEB70DADB70DC901D09BA211
B5C0F033B5E88588BDC91C85,157
1240 DATA 89A90095C0858A8E6E10204219AE
6E10B5D495E88588BDB51C9DC91C8589A90385
8A8E6E10204219AE6E10CAE0,423
1250 DATA 09D0C4A5B7101320BA0FA901859E
8514A613E8E413D0FC4C120BA5B6C903F0034C
4B0B20430FEE451EAD451EC9,175
1260 DATA 079051AD0AD229F08DC802A90185
9E85A820BA0FA5B748A90A85B78514A613E8E4
13D0FC6885B7A90085A8859E,792
1270 DATA 8DFC0285A085A1859FA205BDAB13
C9029003DEAB13BDA413C908900638E9049DA4
13CA10E6A9018D451E8D1F1E,798
1280 DATA 8D201E8D211E20BC094C4B0BD8A5
A80AAABD72108D3002BD73108D3102BD76108D
0002BD77108D0102A9008D00,591
1290 DATA D08D01D08D02D08D03D08D04D08D
05D08D06D08D07D0A59ED020854DADC4021869
108DC402A90485B4202011C6,663
1300 DATA B4A5B4C901D0F52020122076124C
5FE4D820BB0E207F0DA59ED01B201417205E18
208510209C1720961220CE0D,739
1310 DATA 20FE0D20220E20B2134C62E4A6B7
3019BDB80D85A2BDC30D85A7A6A28E00D2E88E
02D2A5A6F003C6A660A5A785,314
1320 DATA A6EEB60DADB60D2901AABDB40D8D
01D28D03D26000A40000A0AAB4BEC8D2DCE6F0
FA8C020406080A0C0E101214,141
1330 DATA 01A69FF00FCAC69FBDE20D8D04D2
BDF00D8D05D26000ECD8C5B19D8A76634F3B28
140100A2A2A2A2A4A4A4A4A4,963
1340 DATA A4A6A6A6A6A1F00FCAC6A1BD120E
8D06D2BD1A0E8D07D26000FED4AA7F552B0100
A8A8A8A8A8A8A8A6A0F00FCA,880
1350 DATA C6A0BD360E8D04D2BD790E8D05D2
6000FDF9F5F1EDEAE6E2DEDAD6D3CFCBC7C3BF
BCB8B4B0ACA8A5A19D999591,399
1360 DATA 8E8A86827E7B77736F6B6764605C
5854504D4945413D3936322E2A26221F1B1713
0F0B0804008A8A8A8A8A8A8A,57
1370 DATA 8A8A8A8A8A8A8A8A8A8A8A8A8A8A
8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A
8A8A8A8A8A8A8A8A8A8A8A8A,267
1380 DATA 8A8A8A8A8A8A8A8A8A8A8A8A8AAD
1FD0C907F0048D180F60AD180FC906F009C905
F00AC903F03360A2014C120F,188
1390 DATA E6A5A5A5290185A5A213A9009D88
169D9C16CA10F7A6A5BD190FAABD1B0F9D8816
BD2F0F9D9C16CA10F14C120F,148
1400 DATA E6A4A5A4C903B0F8A20086A38E18
0F60000A13B0ACA1B9A5B200D100000000B0AC
A1B9A5B200D2005050505050,157
1410 DATA 5000000000000050505050505000
F8A6A5B4BEF01BAD451E0A0A0A0A1875AD95AD
A90075AB95ABA90075A995A9,431
1420 DATA 88D0E5CA10DEA205A4A58A398310
AAB5A948290F0950BC7A10999D16684A4A4A4A
0950999C16CA10DF18A204A0,288
1430 DATA 02B5A975AA99AF00CACA8810F4A2
02BC8010B5AF48290F0950997516684A4A4A4A
0950997416CA10E6D860A900,125
1440 DATA 8D05D28D07D2859F85A085A160D8
48AD7D1D8D00D0AD7E1D8D01D0AD7F1D8D02D0
AD801D8D03D0AD811D8D07D0,505
1450 DATA 1869028D06D01869028D05D01869
028D04D0A9078D0002A9108D0102684048A900
8D00D08D01D08D02D08D03D0,419
1460 DATA 8D04D08D05D08D06D08D07D06840
488A48A207AD70108D6F10AD6F108D0AD48D17
D0AD6F101869028D6F10CA10,977
1470 DATA EBA9658D0002A9108D0102CE7110
100EA5A48D7110EE71100E7110EE701068AA68
4048ADC5028D17D068400000,220
1480 DATA 0000001FEB10C90F2410010D030F
051107090B0E0FA204E002B01CBD911DCDC810
B00FBC2D1DB9CB109D2D1D20,380
1490 DATA F7124CA710CDCA10B0ECBD7D1DCD
C710B00FBC2D1DB9DB109D2D1D20F7124CC310
CDC910B0ECCA10C1602C20C8,807
1500 DATA D70807060504030201000F0E0D0C
0B0A09000F0E0D0C0B0A090807060504030201
70707070468816469C167070,410
1510 DATA 70F0463816B0464C165046B01620
46C4162046D8162046EC167070460017707046
601646741641EB10A6B4BD69,515
1520 DATA 1DF00160BDDD1C3039A4A5B9691D
D02FBD7D1D38F97D1D20E112C5B5B021BD911D
38F9911D20E112C5B5B013B9,866
1530 DATA 7D1D8D7F13B9911D8D8013204013
A901D0118810C9BDA51D8D7F13BDB91D8D8013
A9009D411DAD7F13DD7D1DF0,532
1540 DATA 12B022AD8013DD911DD004A904D0
74B04A9035AD8013DD911DF066B004A900F062
A908D05EAD8013DD911DD004,781
1550 DATA A90CD052B03B9000200512F00690
08A90DD043A90ED03FA90FD03B200512F00690
08A903D030A902D02CA901D0,128
1560 DATA 28200512F0069008A905D01DA906
D019A907D015200512F0069008A90BD00AA90A
D006A909D002A9FF9D191D60,208
1570 DATA AD801338FD911D20E1128D8313AD
7F1338FD7D1D20E112CD831360C6B81047AE45
1EBDA31385B8A204BD691DD0,212
1580 DATA 33A90320FD0AA8C8BD191DDD2D1D
F024B00E206C12C908B0109849FFA8C8300920
6C12C908F002B0F098187D2D,937
1590 DATA 1D20E9129D2D1DCAE001D0C360BD
191D38FD2D1D4CE112A204DE051D1013AC451E
B9AA13BCDD1C10020A0A9D05,90
1600 DATA 1D20F712CAE001D0E360A204BD69
1DD03EBDDD1C1016BD911DC90F9004C9EB900B
E6B6C6B7A9019D691DD023BD,613
1610 DATA 411DD01EBD191D1019BD551DF014
9DB91D20EB0A9DA51D20F40ABDDD1C09809DDD
1CCAE001D0B860100549FF18,346
1620 DATA 690160100418691060C910900338
E91060BD691DD043BD191D303EBC2D1DB98413
8D8113187D7D1D9D7D1DB994,359
1630 DATA 138D8213187D911D9D911DBDDD1C
101C297FA8AD81131879D40099D400AD821318
79B51C99B51CA90199C00060,832
1640 DATA DEF11C1029A5B99DF11CBDCD1DD0
1FBD191D48207711A8689D191DC0FFF00FB96F
139DCD1DA90A9DE11DA90E85,98
1650 DATA 9F60010808080406060602070707
03050505000000000000FFFEFEFEFEFEFF0001
020202020201FEFEFEFF0001,251
1660 DATA 02020202020100FFFEFE00000000
00000000000000000000A9048D5814AE5814BC
1D1EBD311ED966149006B965,19
1670 DATA 149D311ED9651490F50AA8B97814
8584B979148585AD58140AA8B96E148586B96F
148587A9078D5A14187D911D,737
1680 DATA 8D5B14AC5A14B184AC5B149186CE
5B14CE5A1410EEA9078D5914AE5814BD911DAE
5914187D5D14A8A9009186CE,467
1690 DATA 591410E9CE5814108DCE5C141028
A9048D5C14AAE002B007BD1D1EC907D014BD31
1EC92FF00DFE311EC92ED006,922
1700 DATA E0029002E6B6CA10DE6000000000
03FCFDFEFF08090A0B001014181C1F23273000
040005000600070003D814E0,23
1710 DATA 14E814F014F81400150815101518
15201528153015381540154815501558156015
681560157015781580157815,526
1720 DATA 8815901598159015A015A815B015
B815C015C815C015D015D815E015E815F015F8
150016081610161816201628,329
1730 DATA 1630161010103854824444202010
1E192120108040201F191010180000C6391810
100C040B10F0100B04000C10,80
1740 DATA 101839C60000181010191F204080
102021191E1020204444824438101010080484
987808040418080898F80402,243
1750 DATA 01300808189C63000020D0080F08
D020000000631C18080830010204F898080818
040408789884040818002481,381
1760 DATA 8124001818422481812442189942
24818124429900003C24243C00000066421818
426600C3810018180081C33C,180
1770 DATA 42A58181A5423C00182442422418
000000183C3C18000000001824241800000018
005A5A001800180018A5A518,130
1780 DATA 00182020E4181827040400246618
186624000404271818E420200C409025258840
0C180099A104184224300219,301
1790 DATA 84A019023024420824A591001800
00001818000000000008381C10000000080878
1E10100008082CE007341010,877
1800 DATA 084A24C003245210894224800124
42918142000000004281810000000000008100
000000000000000000000000,587
1810 DATA 626163746572696F6E4100000000
0000B4A8A500B0ACA1A7B5A500AFA600D2D3D6
D9000000000000B4A5A1AD00,10
1820 DATA B3A3AFB2A5000000000000000000
00000000000000000000000000000000000000
000000000000000000000000,870
1830 DATA 0000000000000000000000000000
00000000000000000000000000000000000000
002239000000000000000000,961
1840 DATA 00000000EBF9ECE500F0E5E1E3EF
E3EB0000000000000000000000003729342800
000000000000000000000000,720
1850 DATA F4EFED00E8F5E4F3EFEE00000000
000000A1AEA1ACAFA700A3AFADB0B5B4A9AEA7
0000A6A5BD691DF00BDE691D,694
1860 DATA D0262042094C4617204A17DE7F17
1018A9039D7F17BC7802BD2D1D18798C1720E9
129D2D1D9D311ECA10CD60DE,608
1870 DATA 461E102FBD7802C90EF008C90AF0
04C906D006DE5A1E4C6717FE5A1EBC5A1EB981
179D5A1E9D461EBD461ECD8B,151
1880 DATA 17F00320F7126000000202020304
0506070808080000000000FFFFFF0001010100
000000A6A5BD691DD077A901,784
1890 DATA 8D5B18BD0CD02902F003202118EE
5B18BD0CD02904F003202118EE5B18BD0CD029
08F003202118EE5B18A0038A,760
1900 DATA 1869013908D0F0032021188810F1
CE5D181028A9038D5D18BD04D02901F01CA902
20FD0AAC0AD2100549FF1869,744
1910 DATA 01187D2D1D20E9129D2D1D9D311E
BD04D02902F0068E5B18202118CA10818D1ED0
608C5C18AC5B18B9691DD00D,659
1920 DATA 8AA8203D18AC5B18203D18F6BEAC
5C1860B9691DD013A907991D1EA97899691DA9
00859FA94285A0606868AC5C,373
1930 DATA 18600000002064184CCA18A6A5BD
691DD05BB5BAF005D6BA4CC618B5BCC904B04C
BD10D0D047F6BCA90785A1A9,805
1940 DATA 0395BAA00CB96E1E300388D0F88C
40198A996E1EBC2D1D9848B984130A187D7D1D
38E92CAC4019997D1D68992D,281
1950 DATA 1DA8B994130A187D911D38E91CAC
401999911DCA109D60A20CBD6E1E306920F712
BD7D1DC9A2B03E95D9BD911D,165
1960 DATA C9C0B0359DBA1CA004B9691DD043
BD7D1D18693038F97D1DC909B035BD911D1869
2038F9911DC909B027203D18,879
1970 DATA 8E4119BD6E1EAAF6BEAE41198E41
19BD6E1EAAD6BCAE4119A9FF9D6E1E95D99DBA
1CD00588C001D0B3A90195C5,610
1980 DATA CAE004D08D600000A689E0C1B02E
BD351B8580BDF51B8581A588C9A0B01E2903AA
A5884A4A8598A48ABD2D1B39,116
1990 DATA 251B8595BD291BA4983180059591
8060A58CC589900B38E5898590A9018592D00B
A58938E58C8590A9FF8592A5,768
2000 DATA 8BC588900B38E588858FA9018591
D00BA58838E58B858FA9FF8591A900858E858D
A58FC590900A859385944A85,751
2010 DATA 8E4CCE19A590859385944A858DA5
93F03DA58E186590B009858EC594900EA58E38
E594858EA5891865928589A5,593
2020 DATA 8D18658FB009858DC594900EA58D
38E594858DA5881865918588204219C693D0C3
60A6B2A90095C0858AB5E885,455
2030 DATA 88BDC91C8589A90020401AA6B2B5
D4858895E8BDB51C85899DC91CA901858AA900
20401A600A0A0A8599A90885,465
2040 DATA 9AA699BCDD1A3034B9851A859BB9
8D1A859CBD951A859DA58818659B8588A58918
659C8589A59AC908F0032042,972
2050 DATA 19A59DF004C69DD0E1E699C69AD0
C560000001FF01FF01FFFF010000FF0101FF03
020202020202000028000000,178
2060 DATA 0000000028000000000000002800
00000000000028000000000000002800000000
000000280000000000000028,418
2070 DATA 0000000000000028000000000000
02050307040206FF0000FF00000000000001FF
00000000000002FF00000000,510
2080 DATA 000003FF00000000000004FF0000
0000000005FF00000000000006FF0000000000
0007FF00000000000055AAFF,320
2090 DATA 3FCFF3FCC0300C03401004010000
00000000000000000000000000000000000000
000000000000000000000000,425
10 DATA 58,351,496,811,423,729,200,603
,555,573,694,613,29,205,210,6550
160 DATA 126,198,962,783,491,30,155,14
9,165,664,922,282,984,546,128,6585
1060 DATA 935,150,610,902,831,393,206,
176,260,139,808,794,46,226,882,7358
1210 DATA 131,146,200,935,5,841,50,688
,71,755,994,67,182,274,571,5910
1360 DATA 914,577,146,147,630,600,957,
868,3,373,938,541,827,230,251,8002
1510 DATA 412,913,920,795,644,634,908,
931,136,99,182,703,906,416,526,9125
1660 DATA 468,727,71,30,556,46,366,116
,32,46,153,69,19,939,726,4364
1810 DATA 703,590,358,106,257,888,174,
243,783,663,881,961,979,76,938,8600
1960 DATA 986,316,44,853,937,937,837,8
72,993,559,434,731,938,648,10085
Listing 2 appears on a separate page.