1 REM ›10 DATA 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15›20 DIM PROG$(3240),DAT$(91),HEX(22):FOR X=0 TO 22:READ N:HEX(X)=N:NEXT X:LINE=990:PNTR=1:TRAP 60›25 LINE=LINE+10:? "LINE:";LINE:READ DAT$:IF LEN(DAT$)<>90 THEN 110›28 DATLIN=PEEK(183)+PEEK(184)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING!":END ›30 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)›40 PROG$(PNTR)=CHR$(BYTE):PNTR=PNTR+1:TOTAL=TOTAL+BYTE:NEXT X:READ CHKSUM:IF TOTAL=CHKSUM THEN 25›50 GOTO 110›60 IF PEEK(195)<>6 THEN 110›70 ? "ýWARNING: MAKE SURE PROGRAM IS ÓÁÖÅÄ!":? :? "READY TO RUN ÆÉÌÌ §ÅÒ ÕÐ";:DIM YN$(3):INPUT YN$›80 IF YN$="YES" THEN A=USR(ADR(PROG$),ADR(PROG$)):END ›90 END ›110 ? "BAD DATA: LINE ";LINE:END ›1000 DATA 68688581688580A9008582A9148583A000B1809182A5801869018580A58169008581A5821869018582A5836900,4894›1010 DATA 8583C920D0DEA582C989D0D82065E4A9118D6F02A9018D2C208D442020E614A9408DE71FA9808DE81FA9D0A204,10469›1020 DATA 9D241F9D2F1FCA10F7A2059D401FCA10FAA9008D442085D48D46208D1ED08D2F028D0ED48DA81F8D08D2A2059D,15237›1030 DATA 9D1FCA10FA8DA61FA9038DAC1F09908D471FA90A8DC402A9248DC502A9948DC602A9C48DC702A9008DC802A976,20370›1040 DATA 8DC302A9348DC002A9BB8D3002A91E8D3102A0BEA21DA906205CE4A9108D07D4A92E8D2F02A9038D1DD0A9408D,25144›1050 DATA 0ED44C4D15A900A27F9D80119D00129D80129D00139D8013CAD0EE60A5CE0A85CBA90085CC06CB26CC06CBA5CB,30257›1060 DATA 85CF26CCA5CC85D006CB26CC06CB26CCA5CB1865CF85CBA5CC65D085CCA9001865CB85CBA93065CC85CCA5CD29,36605›1070 DATA 03AAA5CD4A4A1865CB85CBA5CC690085CC60A20086CDA20086CE20FD14A6CEA900A02791CB8810FBE8E056D0EB,42651›1080 DATA A9038D2620AE2620BD122085CDBD162085CEBD1A208D2720BD1E208D2820BD22208D292020FD14BDFE1FA00011,46785›1090 DATA CB91CBA5CD186D272085CDA5CE186D282085CECE2920D0DFCE262010BBA95085D5A95485D6ADA61F1869018DA9,52357›1100 DATA 1FA9008DA41F8DA51F8DAA1FA9FF8DA31F20E719AD7A2009908D371FAD792009908D381FAEA61FBD5C1F8DA91F,57057›1110 DATA BD6C1F8DAA1FBD7C1F8DFD1FA9048DA31F20E719A9008D2C20AA9D89209D8921CAD0F78D50208D4F20ADA71FD0,62242›1120 DATA FBA9FD8D00D2A9FE8D02D2A9FF8D04D2A9A38D01D28D03D28D05D2A900854DA5D4F022AEA61FBD8C1FD017A5D5,68585›1130 DATA 85CDA5D685CE20FD14A000BD0A2031CBDDFE1FF0034C7118A5D2F0064C3A1A4C1816A90485D2AD78028D4820AA,73680›1140 DATA BD5120187D512085D7BD6120187D612085D805D7F0DCA5D51865D78D2D20C99FB0D085CD38FD51208D2A20A5D6,79251›1150 DATA 1865D88D2E20C955B0BB85CE38FD61208D2B2020FD14A000BD0A2031CB8D4D208E4E20AD2A2085CDAD2B2085CE,84075›1160 DATA 20FD14A000BD0A2031CB48AD8402D00668D01E4C041768DDFE1FD015AD4D20AE4E20DDFE1FD00AAD2D2085D5AD,88959›1170 DATA 2E2085D64C1816AD4F20D0278D5020AD48208D8920A9018D4F208DA81FA5D58D2F208D31208D3320A5D68D3020,93283›1180 DATA 8D32208D3420AD4D20AE4E20DD0220D0034C7118AE5020AD4820DD8920F00CEE5020E89D8920A9009D8921FE89,97976›1190 DATA 21A9038D2920A5D585CDA5D685CE20FD14A000B1CB3D0E201D022091CBCE2920F019AC5020BE8920BD51201865,102806›1200 DATA CD85CDBD61201865CE85CE4C6517A5CD85D5CD332090068D33204CA917CD3120B0038D3120A5CE85D6CD342090,108021›1210 DATA 068D34204CC017CD3220B0038D3220AE4E20AD4D20DDFE1FF0034C1816A9008D4F2020AC1AADA41F8DA91FADA5,112367›1220 DATA 1F8DAA1FA90F8DA31F20E719A9018D4920205019AEA61FADA41F38FD5C1F8DA91FADA51FFD6C1F8DAA1F10034C,116810›1230 DATA 0316ADA61FC90FF003EEA61F0EA91F2EAA1FA9FF8DA31F20E719A205A000B97920187D9D1FC90A300C38E90A9D,121336›1240 DATA 9D1FFE9C1F4C43189D9D1FC8CA10E2A205BD9D1F09109D401FCA10F5A9018D44208D2C2020E614A9408DE71FA9,126120›1250 DATA 808DE81FA9008D44204C4D15A9008D01D28D03D28D05D2A9018D4620A90F8D4720A90585D3AD47208D01D2AD0A,130637›1260 DATA D2291F8D00D2AD0AD229F00D47208DC5028DC302A5D3D0E0CE472010D7CEAC1FADAC1F09908D471FC990D025A9,136026›1270 DATA 488D181FA91F8D191FAD1FD02901D0F9AD1FD02901F0F9A9208D181FA91F8D191F4C3914A9018D2C20AD0AD229,140313›1280 DATA FEC99FB0F785CDAD0AD2297EC955B0F785CE20FD14A000BD0A2031CBDDFE1FD0DB20E614A5CD85D5A5CE85D6A9,147062›1290 DATA 008D4920ADA81FF01C205019AD2F2085CDAD302085CE20FD14A000BD0E2031CB1DFE1F91CBA9248DC502A9008D,151736›1300 DATA 46208D1ED085D44C0316AD2F208D3520AD30208D3620A9008D3720AE3720BD89208D4A20BD89218D4B20A9018D,155802›1310 DATA 3820A9038D4C20AD352085CDAD362085CE20FD14A000AD4920D010BD0E2031CB91CB4CA819A9008D4F2060BD0E,160296›1320 DATA 2031CB1DFE1F91CBCE4C20F01AAE4A20AD3520187D51208D3520AD3620187D61208D36204C7A19EE3820AD3820,164422›1330 DATA CD4B20F002B0034C7519EE3720AD3720CD5020F002B0B44C6119A204A9009D7920CA10FAA204ADAA1FDD7F20F0,169344›1340 DATA 04B0109008ADA91FDD8420B006CA10E94C261AADA91F38FD84208DA91FADAA1FFD7F208DAA1FFE79204CF319A2,174451›1350 DATA 04ACA31F300CBD792009D099201FC8CA10F460A5D1F0034C1816ADFD1F85D1ADE71F38E90D8DEA1FADE81F38E9,179820›1360 DATA 2C8DE91FAD0AD2C9F09008AD0AD229074C6A1AADEC1FAA8DEB1FADE91F187DED1F85CDADEA1F187DF51F85CE20,185347›1370 DATA FD14A000BD0A2031CBF007A90F8D4120D0CCA5CD18692C8DE81FA5CE18690D8DE71FADEB1F8DEC1F4C1816A901,190346›1380 DATA 8D4420A9008D4020ADE81F38E92C8D3920ADE71F38E90D8D3A20AE4020AD3920187D71208D392085CDAD3A2018,194641›1390 DATA 7D75208D3A2085CE20FD14A000B1CB3D0A20DDFE1FF00DDD0220D0D1A9008D3F204C271BAD40208D3F2020061C,198982›1400 DATA 20B01BDDFE1FD00620E71B4CFF1ADD0220D00620E71B4C6D1B20FA1B4C081BA9008D432020061C20B01BDD0220,202940›1410 DATA D00620E71B4C271BAD43201869018D4320C903F00620FA1B4C2F1BAD40208D3F2020061C20B01BDDFE1FD00620,206695›1420 DATA E71B4CFF1A20FA1B4C591B20121CA9008D432020B01BDDFE1FD00620E71B4C6D1BAD43201869018D4320C904F0,210842›1430 DATA 0620FA1B4C751B20CB1BDD0220D00920521CA9008D44206020FA1B20B01B4C991BAE3F20AD3920187D71208D3B,214584›1440 DATA 2085CDAD3A20187D75208D3C2085CEA5CDC99FB011A5CEC955B00B20FD14A000B1CB3D0A2060A900A20060AD3F,219561›1450 DATA 208D4020AD3B208D3920AD3C208D3A2060AD3F2018690129038D3F2060AD3F2038E90129038D3F2060AD392085,223019›1460 DATA CDCD332090068D33204C2A1CCD3120B0038D3120AD3A2085CECD342090068D34204C421CCD3220B0038D322020,226876›1470 DATA FD14A000BD0E2031CB1D022091CB60A9008D03D28D05D2AD342038ED32208D4220AD312038E9018D31208D3D20,231053›1480 DATA AD32208D3E2038E9018D3220AD33201869018D3320AD34201869018D3420A9008DAB1FA9008D452020081DC902,234473›1490 DATA D0F9EE452020081DC902F0F62901D0E6AD4520C901F005209C1DF0DAAD3D2085CDAD3E2085CE20FD14A000B1CB,239958›1500 DATA 1D062091CBEEAB1F20081DC900F0E02901D0B6A9018D452020081DC900F00A2901D0A6EE45204CE21CAD4520C9,244471›1510 DATA 01D0034C931C209C1DDD0A20F0B44C931CAD3D201869018D3D20CD3320D050ADA41F186DAB1F8DA41FADA51F69,248804›1520 DATA 008DA51FA9008DAB1FAD31208D3D20A9008D4520A9868D01D2AD42208D00D2F003CE4220AD3E201869018D3E20,253008›1530 DATA CD3420F00DAD3D20CD3120D00868684C931C686860AD3D2085CDAD3E2085CE20FD14A000BD0A2031CBDD0220D0,257702›1540 DATA 0DBD0A2011CB91CBEEAB1FA90260DDFE1FD003A90160C900D00160A90360AD3D2085CDAD3E2038E901CD3220F0,262666›1550 DATA 0D85CE20FD14A000BD0A2031CB60A900A20060ADFC02C921D00DA9FF8DFC02ADA71F49FF8DA71FADA71FF0034C,267918›1560 DATA 5FE4AD4120300D09A08D07D2A9808D06D2CE4120A5D3F002C6D3AD4420F0034C5FE4A90085D4AD0CD02908F002,273196›1570 DATA E6D4AD04D02902F002E6D48D1ED0A5D2F002C6D2A5D1F002C6D1ADE51FF006CEE51F4C3E1EA9018DE51FADE61F,279495›1580 DATA 186901C907D002A9008DE61FACE61FAEE71FA9009DFF119D0812B9AD1F9D0012B9B41F9D0112B9BB1F9D0212B9,284165›1590 DATA C21F9D0312B9C91F9D0412B9D01F9D0512B9D71F9D0612B9DE1F9D0712ADE81F8D00D0AD2C20D031A5D518692F,288845›1600 DATA 8D03D0A5D6186910AAA9009D7D139D7E139D82139D8313A9409D7F139D8113A9A09D8013AD4620D003EEC3024C,293747›1610 DATA 5FE47070704D00300D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D,295012›1620 DATA 0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D,295597›1630 DATA 0D0D0D2046201F46341F41BB1E3427341A000000000000002335321A00000000002C361A00000033232F32251A,296939›1640 DATA 0000000000000000000000000027212D2500002F36253200000000004010E028F8D41004F8E0D4E044A870D41F,299604›1650 DATA 272E232A3027292A2E302E2F2F3030040404030303020202020201010101010000010001010001010101000001,300310›1660 DATA 0101000000000000000000000000000000000081402010080402424320100804C22424131008C82418181C1FF8,301660›1670 DATA 3818181838F81F1C182424C80810132442C20408102043810204081020400000000000000000010100FFFFFF00,303935›1680 DATA 010001010001FFFFFF044010040180200802C0300C03C0300C033FCFF3FC009E9E00000054540100FF00000100,306979›1690 DATA FF9F559F5500000000000000000000000000000000000000000000000000000000000000000000000000000000,307722›1700 DATA 0000000000000000000001000000FF000000000000000000000000000000000001FF00000100FFFF0001000000,308746›1710 DATA 000000000000000327010A64E81000000000000000000000000000000000000000000000000000000000000000,309147›