Random demo
Random demo
  • Entry name:
    Bacterion! Object Code Maker
  • Category:
    Object code makers
  • Publisher/Developer:
    Analog Computing Magazine
  • Year:
    1984
  • Code:
    Kyle Peacock,Tom Hudson
  • Media format:
    Diskette, Tape
  • Controllers:
    Joystick
  • Programming language:
    Atari BASIC
Bacterion! Object Code Maker Bacterion! Object Code Maker Bacterion! Object Code Maker
Listing 1
10 REM *** BACTERION ***
20 TRAP 20:? "MAKE CASSETTE (0), OR DISK (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:RESTORE 1000:TRAP 120:? "CHECKING DATA"
50 LINE=LINE+10:? "LINE:";LINE:READ DAT$:IF LEN(DAT$)<>90 THEN 220
60 DATLIN=PEEK(183)+PEEK(184)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING!":END 
70 FOR X=1 TO 89 STEP 2:D1=ASC(DAT$(X,X))-48:D2=ASC(DAT$(X+1,X+1))-48:BYTE=HEX(D1)*16+HEX(D2)
80 IF PASS=2 THEN PUT #1,BYTE:NEXT X:READ 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 RETURN";: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=990: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,133,11,24,96
1000 DATA 2065E4A9228D2F02A9288581A9008580A9088583A9008582A000B1809182C8D0F9E681E683A581C940D0EFA90B,831
1010 DATA 850D8503850BA912850C8502850A4C120BA200A90E9D001FCAD0FAA9708D001F8D011FA9F08D021FA94E8D031F,796
1020 DATA 8D6B1FA9208D051FA9108D041FA9308D6D1FA9008D6C1FA9418DC81FA98E8DC71FA91F8DCA1FA9008DC91FA93E,396
1030 DATA 8D2F02A9008D07D4A9038D1DD0A9108D6F02A900AA9D00049D0005CAD0F7A202A90095A995AC95AFCA10F7A910,369
1040 DATA 8580A9208581A200A5809D351BA5819DF51BA900A02791808810FBE8E0C0F010A5801869288580A58169008581,840
1050 DATA 4CBC08A6A4BC7D09A20986B7B9800995E895D4B99E099DC91C9DB51CA90095C0C8CA10E8A20086A88E7D1D8E7E,608
1060 DATA 1D204209A5A5F004E8204209A9018D451E8D1F1E8D201E8D211EA205BD71099DAB13BD6B099DA413BD77099DD9,837
1070 DATA 0ACA10EB4CBC09A9009D691D9D1D1EA9019D461E9D5A1EBD69099D311E9D2D1DBD67099D7D1DA9809D911D602C,103
1080 DATA C30C04342C241C140C0D0B0907050346413C37322D000A1444505C3E4A566244505C4F4F4F4F4955435B3D614F,598
1090 DATA 47574F4F4F4F47574F5D5D5D606060606363634C52585E626266666A6A565A5A5E5E5E5E626266A201869ECA8A,956
1100 DATA 8D05D28D07D28D08D29D00039D00069D00078D1ED0CAD0F1A204AD451E9D1D1E20EB0A9D7D1DAD0AD21004A915,391
1110 DATA D002A9E49D911D20F40AA9008D0F0B85B69D691D9DDD1C9DCD1D9DF11C9D551DADFD0AC9D8B057A90A20FD0AA8,809
1120 DATA 8E100BBD551DF00698DDDD1CF03BE8E005D0F0AE100BB9B51CC9C2B02CA90220FD0A8C110BA8B9E10A9D551DB9,245
1130 DATA DF0AAC110B1879B51C9DB91DB9D40018692C9DA51D989DDD1C4C810AAE100BCE0F0BD0A9A4A5C89820FD0AA8B9,236
1140 DATA 7D1D9DA51DB9911D9DB91DCAE001F0034CDC09A92885B5AE451EBDD80A85B9C905900638E9039DD80AA20CA9FF,604
1150 DATA 9D6E1E95D99DBA1C95C5CAE004D0F1A203AD0AD229F0090A9DC002AD0AD229F01DE70A9DC402CA10E8A90085BC,311
1160 DATA 85BE85BD85BF859E6000000000000015240AF50C0C0A0A0C08080AA96420FD0A18694B60A91020FD0A9D2D1D60,732
1170 DATA 8D0E0BAD0AD2CD0E0B90054A4A4C030B6000000000A9008D01D28D03D220E30E20430FA90185A8859EA906A20C,377
1180 DATA A0F8205CE4A907A20DA056205CE4A9C08D0ED420BA0FA5A3C901D0F7E6A3203E08A5A3C902D0C1ADFC02C921D0,328
1190 DATA 37AD0FD22904F03020430FA5B748A90A85B7A90185A8859E8DFC0220BA0FADFC02C921D0F9AD0FD22904F0F968,687
1200 DATA 85B7A90085A8859E8DFC02C6B31004A90985B3A6B3B5C0D012B5E88588BDC91C8589A901858AA90020401AA909,270
1210 DATA 85B2A6B2B5C0F00320101AC6B210F3A9048DB70DAEB70DBDCD1DF053302E09809DCD1DA902858ABD7D1D38E92C,616
1220 DATA 9DF51D8588BD911D38E91CC9C0B02E9D091E8589BDCD1D297F20401A4C200CDEE11D101EBDF51D8588BD091E85,525
1230 DATA 89A900858ABDCD1D297F20401AAEB70DA9009DCD1DCEB70DADB70DC901D09BA211B5C0F033B5E88588BDC91C85,157
1240 DATA 89A90095C0858A8E6E10204219AE6E10B5D495E88588BDB51C9DC91C8589A903858A8E6E10204219AE6E10CAE0,423
1250 DATA 09D0C4A5B7101320BA0FA901859E8514A613E8E413D0FC4C120BA5B6C903F0034C4B0B20430FEE451EAD451EC9,175
1260 DATA 079051AD0AD229F08DC802A901859E85A820BA0FA5B748A90A85B78514A613E8E413D0FC6885B7A90085A8859E,792
1270 DATA 8DFC0285A085A1859FA205BDAB13C9029003DEAB13BDA413C908900638E9049DA413CA10E6A9018D451E8D1F1E,798
1280 DATA 8D201E8D211E20BC094C4B0BD8A5A80AAABD72108D3002BD73108D3102BD76108D0002BD77108D0102A9008D00,591
1290 DATA D08D01D08D02D08D03D08D04D08D05D08D06D08D07D0A59ED020854DADC4021869108DC402A90485B4202011C6,663
1300 DATA B4A5B4C901D0F52020122076124C5FE4D820BB0E207F0DA59ED01B201417205E18208510209C1720961220CE0D,739
1310 DATA 20FE0D20220E20B2134C62E4A6B73019BDB80D85A2BDC30D85A7A6A28E00D2E88E02D2A5A6F003C6A660A5A785,314
1320 DATA A6EEB60DADB60D2901AABDB40D8D01D28D03D26000A40000A0AAB4BEC8D2DCE6F0FA8C020406080A0C0E101214,141
1330 DATA 01A69FF00FCAC69FBDE20D8D04D2BDF00D8D05D26000ECD8C5B19D8A76634F3B28140100A2A2A2A2A4A4A4A4A4,963
1340 DATA A4A6A6A6A6A1F00FCAC6A1BD120E8D06D2BD1A0E8D07D26000FED4AA7F552B0100A8A8A8A8A8A8A8A6A0F00FCA,880
1350 DATA C6A0BD360E8D04D2BD790E8D05D26000FDF9F5F1EDEAE6E2DEDAD6D3CFCBC7C3BFBCB8B4B0ACA8A5A19D999591,399
1360 DATA 8E8A86827E7B77736F6B6764605C5854504D4945413D3936322E2A26221F1B17130F0B0804008A8A8A8A8A8A8A,57
1370 DATA 8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A,267
1380 DATA 8A8A8A8A8A8A8A8A8A8A8A8A8AAD1FD0C907F0048D180F60AD180FC906F009C905F00AC903F03360A2014C120F,188
1390 DATA E6A5A5A5290185A5A213A9009D88169D9C16CA10F7A6A5BD190FAABD1B0F9D8816BD2F0F9D9C16CA10F14C120F,148
1400 DATA E6A4A5A4C903B0F8A20086A38E180F60000A13B0ACA1B9A5B200D100000000B0ACA1B9A5B200D2005050505050,157
1410 DATA 5000000000000050505050505000F8A6A5B4BEF01BAD451E0A0A0A0A1875AD95ADA90075AB95ABA90075A995A9,431
1420 DATA 88D0E5CA10DEA205A4A58A398310AAB5A948290F0950BC7A10999D16684A4A4A4A0950999C16CA10DF18A204A0,288
1430 DATA 02B5A975AA99AF00CACA8810F4A202BC8010B5AF48290F0950997516684A4A4A4A0950997416CA10E6D860A900,125
1440 DATA 8D05D28D07D2859F85A085A160D848AD7D1D8D00D0AD7E1D8D01D0AD7F1D8D02D0AD801D8D03D0AD811D8D07D0,505
1450 DATA 1869028D06D01869028D05D01869028D04D0A9078D0002A9108D0102684048A9008D00D08D01D08D02D08D03D0,419
1460 DATA 8D04D08D05D08D06D08D07D06840488A48A207AD70108D6F10AD6F108D0AD48D17D0AD6F101869028D6F10CA10,977
1470 DATA EBA9658D0002A9108D0102CE7110100EA5A48D7110EE71100E7110EE701068AA684048ADC5028D17D068400000,220
1480 DATA 0000001FEB10C90F2410010D030F051107090B0E0FA204E002B01CBD911DCDC810B00FBC2D1DB9CB109D2D1D20,380
1490 DATA F7124CA710CDCA10B0ECBD7D1DCDC710B00FBC2D1DB9DB109D2D1D20F7124CC310CDC910B0ECCA10C1602C20C8,807
1500 DATA D70807060504030201000F0E0D0C0B0A09000F0E0D0C0B0A09080706050403020170707070468816469C167070,410
1510 DATA 70F0463816B0464C165046B0162046C4162046D8162046EC167070460017707046601646741641EB10A6B4BD69,515
1520 DATA 1DF00160BDDD1C3039A4A5B9691DD02FBD7D1D38F97D1D20E112C5B5B021BD911D38F9911D20E112C5B5B013B9,866
1530 DATA 7D1D8D7F13B9911D8D8013204013A901D0118810C9BDA51D8D7F13BDB91D8D8013A9009D411DAD7F13DD7D1DF0,532
1540 DATA 12B022AD8013DD911DD004A904D074B04A9035AD8013DD911DF066B004A900F062A908D05EAD8013DD911DD004,781
1550 DATA A90CD052B03B9000200512F0069008A90DD043A90ED03FA90FD03B200512F0069008A903D030A902D02CA901D0,128
1560 DATA 28200512F0069008A905D01DA906D019A907D015200512F0069008A90BD00AA90AD006A909D002A9FF9D191D60,208
1570 DATA AD801338FD911D20E1128D8313AD7F1338FD7D1D20E112CD831360C6B81047AE451EBDA31385B8A204BD691DD0,212
1580 DATA 33A90320FD0AA8C8BD191DDD2D1DF024B00E206C12C908B0109849FFA8C83009206C12C908F002B0F098187D2D,937
1590 DATA 1D20E9129D2D1DCAE001D0C360BD191D38FD2D1D4CE112A204DE051D1013AC451EB9AA13BCDD1C10020A0A9D05,90
1600 DATA 1D20F712CAE001D0E360A204BD691DD03EBDDD1C1016BD911DC90F9004C9EB900BE6B6C6B7A9019D691DD023BD,613
1610 DATA 411DD01EBD191D1019BD551DF0149DB91D20EB0A9DA51D20F40ABDDD1C09809DDD1CCAE001D0B860100549FF18,346
1620 DATA 690160100418691060C910900338E91060BD691DD043BD191D303EBC2D1DB984138D8113187D7D1D9D7D1DB994,359
1630 DATA 138D8213187D911D9D911DBDDD1C101C297FA8AD81131879D40099D400AD82131879B51C99B51CA90199C00060,832
1640 DATA DEF11C1029A5B99DF11CBDCD1DD01FBD191D48207711A8689D191DC0FFF00FB96F139DCD1DA90A9DE11DA90E85,98
1650 DATA 9F6001080808040606060207070703050505000000000000FFFEFEFEFEFEFF0001020202020201FEFEFEFF0001,251
1660 DATA 02020202020100FFFEFE0000000000000000000000000000A9048D5814AE5814BC1D1EBD311ED966149006B965,19
1670 DATA 149D311ED9651490F50AA8B978148584B979148585AD58140AA8B96E148586B96F148587A9078D5A14187D911D,737
1680 DATA 8D5B14AC5A14B184AC5B149186CE5B14CE5A1410EEA9078D5914AE5814BD911DAE5914187D5D14A8A9009186CE,467
1690 DATA 591410E9CE5814108DCE5C141028A9048D5C14AAE002B007BD1D1EC907D014BD311EC92FF00DFE311EC92ED006,922
1700 DATA E0029002E6B6CA10DE600000000003FCFDFEFF08090A0B001014181C1F23273000040005000600070003D814E0,23
1710 DATA 14E814F014F8140015081510151815201528153015381540154815501558156015681560157015781580157815,526
1720 DATA 8815901598159015A015A815B015B815C015C815C015D015D815E015E815F015F8150016081610161816201628,329
1730 DATA 16301610101038548244442020101E192120108040201F191010180000C6391810100C040B10F0100B04000C10,80
1740 DATA 101839C60000181010191F204080102021191E1020204444824438101010080484987808040418080898F80402,243
1750 DATA 01300808189C63000020D0080F08D020000000631C18080830010204F898080818040408789884040818002481,381
1760 DATA 812400181842248181244218994224818124429900003C24243C00000066421818426600C3810018180081C33C,180
1770 DATA 42A58181A5423C00182442422418000000183C3C18000000001824241800000018005A5A001800180018A5A518,130
1780 DATA 00182020E4181827040400246618186624000404271818E420200C4090252588400C180099A104184224300219,301
1790 DATA 84A019023024420824A59100180000001818000000000008381C100000000808781E10100008082CE007341010,877
1800 DATA 084A24C00324521089422480012442918142000000004281810000000000008100000000000000000000000000,587
1810 DATA 626163746572696F6E41000000000000B4A8A500B0ACA1A7B5A500AFA600D2D3D6D9000000000000B4A5A1AD00,10
1820 DATA B3A3AFB2A500000000000000000000000000000000000000000000000000000000000000000000000000000000,870
1830 DATA 000000000000000000000000000000000000000000000000000000000000000000002239000000000000000000,961
1840 DATA 00000000EBF9ECE500F0E5E1E3EFE3EB0000000000000000000000003729342800000000000000000000000000,720
1850 DATA F4EFED00E8F5E4F3EFEE00000000000000A1AEA1ACAFA700A3AFADB0B5B4A9AEA70000A6A5BD691DF00BDE691D,694
1860 DATA D0262042094C4617204A17DE7F171018A9039D7F17BC7802BD2D1D18798C1720E9129D2D1D9D311ECA10CD60DE,608
1870 DATA 461E102FBD7802C90EF008C90AF004C906D006DE5A1E4C6717FE5A1EBC5A1EB981179D5A1E9D461EBD461ECD8B,151
1880 DATA 17F00320F71260000002020203040506070808080000000000FFFFFF0001010100000000A6A5BD691DD077A901,784
1890 DATA 8D5B18BD0CD02902F003202118EE5B18BD0CD02904F003202118EE5B18BD0CD02908F003202118EE5B18A0038A,760
1900 DATA 1869013908D0F0032021188810F1CE5D181028A9038D5D18BD04D02901F01CA90220FD0AAC0AD2100549FF1869,744
1910 DATA 01187D2D1D20E9129D2D1D9D311EBD04D02902F0068E5B18202118CA10818D1ED0608C5C18AC5B18B9691DD00D,659
1920 DATA 8AA8203D18AC5B18203D18F6BEAC5C1860B9691DD013A907991D1EA97899691DA900859FA94285A0606868AC5C,373
1930 DATA 18600000002064184CCA18A6A5BD691DD05BB5BAF005D6BA4CC618B5BCC904B04CBD10D0D047F6BCA90785A1A9,805
1940 DATA 0395BAA00CB96E1E300388D0F88C40198A996E1EBC2D1D9848B984130A187D7D1D38E92CAC4019997D1D68992D,281
1950 DATA 1DA8B994130A187D911D38E91CAC401999911DCA109D60A20CBD6E1E306920F712BD7D1DC9A2B03E95D9BD911D,165
1960 DATA C9C0B0359DBA1CA004B9691DD043BD7D1D18693038F97D1DC909B035BD911D18692038F9911DC909B027203D18,879
1970 DATA 8E4119BD6E1EAAF6BEAE41198E4119BD6E1EAAD6BCAE4119A9FF9D6E1E95D99DBA1CD00588C001D0B3A90195C5,610
1980 DATA CAE004D08D600000A689E0C1B02EBD351B8580BDF51B8581A588C9A0B01E2903AAA5884A4A8598A48ABD2D1B39,116
1990 DATA 251B8595BD291BA49831800595918060A58CC589900B38E5898590A9018592D00BA58938E58C8590A9FF8592A5,768
2000 DATA 8BC588900B38E588858FA9018591D00BA58838E58B858FA9FF8591A900858E858DA58FC590900A859385944A85,751
2010 DATA 8E4CCE19A590859385944A858DA593F03DA58E186590B009858EC594900EA58E38E594858EA5891865928589A5,593
2020 DATA 8D18658FB009858DC594900EA58D38E594858DA5881865918588204219C693D0C360A6B2A90095C0858AB5E885,455
2030 DATA 88BDC91C8589A90020401AA6B2B5D4858895E8BDB51C85899DC91CA901858AA90020401A600A0A0A8599A90885,465
2040 DATA 9AA699BCDD1A3034B9851A859BB98D1A859CBD951A859DA58818659B8588A58918659C8589A59AC908F0032042,972
2050 DATA 19A59DF004C69DD0E1E699C69AD0C560000001FF01FF01FFFF010000FF0101FF03020202020202000028000000,178
2060 DATA 000000002800000000000000280000000000000028000000000000002800000000000000280000000000000028,418
2070 DATA 000000000000002800000000000002050307040206FF0000FF00000000000001FF00000000000002FF00000000,510
2080 DATA 000003FF00000000000004FF00000000000005FF00000000000006FF00000000000007FF00000000000055AAFF,320
2090 DATA 3FCFF3FCC0300C0340100401000000000000000000000000000000000000000000000000000000000000000000,425  

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!