Random game
Random demo
Random game
  • Entry name:
     Elevator Repairman Object Code Maker 
  • Category:
    Object code makers
  • Publisher/Developer:
    ANALOG Computing
  • Year:
    1985
  • Code:
    Fred Caprilli
  • Media format:
    Diskette, Tape
  • Controllers:
    Joystick
  • Programming language:
    Atari BASIC
Elevator Repairman Object Code Maker Elevator Repairman Object Code Maker Elevator Repairman Object Code Maker
Listing 1
10 REM *** ELEVATOR REPAIRMAN ***
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,32:CLOSE #1:END 
160 FOR X=1 TO 21: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,32:PUT #1,66:PUT #1,40: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,17,216,31,255,31,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,32,133,11,24,96
1000 DATA A93C8D02D3A9008D4402A9018509A919850CA920850D20EF20D820242520C12020072420512020EB23A5A1F01A,956
1010 DATA A9088D1FD0AD1FD04906D0F985A1A907A062A2E4205CE44C1920A59DF0DE2007244C2920A2008E2F02A9408D0E,813
1020 DATA D4A92D8D3002A9278D3102A9688D0002A9218D0102A0C9A221A907205CE4A93D8D2F02A9C08D0ED4A90A8DC402,342
1030 DATA A9008DC5028DC80285BCA9CC8DC602A9508D08D2A9038D0FD2A9AA8D03D28D05D28D07D2A9FF85BF85BEA90E85,169
1040 DATA BDA237BDE4279D0006CA10F760A900A2109591CA10FBA90285B3A990A2059DAE26CA10FA8DC926A9FF85B2A999,102
1050 DATA 8DB926A96B8D3027A9268D312760A205A9909DBE26CA10FA60A9388D07D4A9038D1DD0A900A899003B99003C99,981
1060 DATA 003D99003E99003F88D0EEA007B9BC259900D08810F7A94085B0201423A97A8DC002A9F88DC102A9488DC202A9,147
1070 DATA 908DC302A93F8D08D08D09D08D0CD0A9008D0AD08D0BD0A9218D6F02A93E858C85848588A93F858E8586858A60,460
1080 DATA 488A48A206A9C28D0AD48E09D4454F254E8D0AD48D1AD0A9218D0102A98D8D000268AA6840488A48A9008D0AD4,55
1090 DATA 8D1AD0A691BDC425454F254E8D0AD48D1AD0E691A591C90BD016A9E08D09D4A90085918D16D0A9688D0002A921,482
1100 DATA 8D010268AA6840A5A1F0034CDC22A59CD06DA206B5A2C9201008C9441004A901D00AC99F3008C9C13004A90095,230
1110 DATA A9CA10E3A206E4B5D00CA5B6F008C6B6A5B62903F032BDD6258581B5A28580BDCF2549FF8582B5A9F00FB592F0,799
1120 DATA 04F6A2E680F6A2E6804C3422B592F004D6A2C680D6A2C68020F222CA10BBA514D00320E222A59BF00620C2234C,776
1130 DATA D622A59CF006208D244CDC22A49AB9E825C5B0D010C00A3006201A254CD62220B3234CD622200125F006A97885,482
1140 DATA 9CD05DE6B4A5B4C5B33055A90085B4A6B220A023E4B2F003206124A5B23041A49AB9DD25C5B0F01818B9202669,308
1150 DATA 0FA8A5142907C9043004A918D002A92499003EA5B26A900BA5B0C940F015C6B04CCE22A5B0C9B8F00AE6B0A5B0,688
1160 DATA 8D02D08D03D02024232075258D1ED04C62E4AD0AD22907C907F0F785B5A98085B660A00F20062388B18025821D,504
1170 DATA CF25918088C001D0F2B1802582918088B1802582918060A206AD0AD2293F0A692895A2CA10F360A59BD042A5BA,155
1180 DATA D006A5B9290FF038F838A5BBE91185BBA5BAE90085BAA5B9E90085B9D8A5BA290F09908D7326A5BA4A4A4A4A09,827
1190 DATA 908D7226A5B9290F85B909908D7126A90085B860A203F818CAB59E75B8959E8AD0F6D885B885B985BA85BBA202,847
1200 DATA A005B59E48290F099099AE26684A4A4A4A09908899AE2688CA10E760AD00D32908F009AD00D32904D004A90185,358
1210 DATA B260206B23A910859BA49AB9202685B160A000A5B185838585C6B1A5B185878589B1839187B1859189C8C01030,181
1220 DATA F3A90091879189C69BD002E69AA90085B8A90285B9A95085BAA9928D7126A9958D7226A9908D732660A499C007,82
1230 DATA 3004A90185B3C0043002A004980AA8B91626858FC8B916268590A006B18F9992008810F820FA20A900859A2048,658
1240 DATA 2420EB23A59909908DC926A900859D60A49AB9DD258D02D08D03D085B0206124A900854DA9FF85B260A49AB920,85
1250 DATA 26858B858DA00FA5B26AB00EB94B26918BB95B26918D8810F360B92B26918BB93B26918D8810F360A9008D00D2,285
1260 DATA 8D02D28D04D2C69CA59CF02AC93C1006A9008D06D2602903D054A5B2F00B206124A90085B2A920D009206124A9,182
1270 DATA 0185B2A9408D06D260204824CEB926ADB926290FD02BA9CA8D3027A9268D3127A90185A1A200BDAE26DDBE2630,11
1280 DATA 13D006E8E00630F160A205BDAE269DBE26CA10F760AD0ED00D0FD02903D00BAD08D00D09D00D0AD0290C8D1ED0,781
1290 DATA 60206B23E699A901859D60A9008D2F028DC402A95B8D3002A9278D3102A93D8D2F02A90E8DC502A9048D04D4AD,185
1300 DATA 0BD4D0FBA8A6B78D0AD48D1AD0E88A29F00908C8C0F0D0EFE6B7A9088D1FD0AD1FD04906F0088D0AD48D1AD0D0,524
1310 DATA D160A5BD1006A90E85BDE6BCA5BC2907A8B9DA268D00D2B9E2268D02D2A6BDBDEA268D03D2C6BDA5BF1013E6BE,659
1320 DATA A4BEC01A3006A9FF85BED00FB9132785BFA4BEB9F9268D04D2C6BF6048A040406C7C8C008222B2421252723262,990
1330 DATA E406C00C030C30C00C3C3C3B3B3B3D3D40B840B840B840B840B840B840B840B840B840B840B800000000000000,842
1340 DATA 00010000010000010100010001000001010101000101010101010101F325FA25012608260F26C0B0A090807060,573
1350 DATA 50403020000F3F1C347D7D6F06021E3F3F3F1E0C000F3F030B020210180E1E3D39391E0000787E1C165F5F7B30,627
1360 DATA 203C7E7E7E3C1800787E60682020040C383C5E4E4E3C0000000000000090909000000000000000014600460000,706
1370 DATA 410041004100460046050346004600004100410041004600460201460046000041004100410046004604332300,92
1380 DATA 909090909090002D252E009000282900909090909090002C2536009000000027212D25002F362532000000006B,901
1390 DATA 6B966BEA6B036435352F352C35282AA2A6AAA8A8A8A8A8A8A8A7A5A3A0A04451004428390051443C3900390039,277
1400 DATA 00393C44515B516C600000722259721313630E0E0E1300120012001213131313130E0E7F507070C66B26C77B26,779
1410 DATA C78B26C79B26C78B26C79B26C78B26C79B26C78B26C79B26C78B26C79B261046AB2606412D2770707070707047,812
1420 DATA 7C277017707046A027707046B0277006707056D0277070415B2700000000252C253621342F3200000000000000,560
1430 DATA 00003225302129322D212E000000000000223900263225240023213032292C2C29000000000823090011191815,670
1440 DATA 00000000212E212C2F2700232F2D303534292E2700000000707265737300737461727400000000000000000000,433
1450 DATA 0000008080808080808080010101010101010180FF80FF80FF80FF01FF01FF01FF01FF3C7E7EE7E7FFFFFF0808,576
1460 DATA 080808080808000000000000000000000000000000000000000000000000000000000000000000000000000000,624  

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!