10 REM *** SCREDIT ***›20 DATA 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15›30 DIM DAT$(91),HEX(22):FOR X=0 TO 22:READ N:HEX(X)=N:NEXT X:LINE=990:RESTORE 1000:TRAP 110:? "CHECKING DATA"›40 LINE=LINE+10:? "LINE:";LINE:READ DAT$:IF LEN(DAT$)<>90 THEN 160›50 DATLIN=PEEK(183)+PEEK(184)*256:IF DATLIN<>LINE THEN ? "LINE ";LINE;" MISSING!":END ›60 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)›70 IF PASS=2 THEN PUT #1,BYTE:NEXT X:READ CHKSUM:GOTO 40›80 TOTAL=TOTAL+BYTE:IF TOTAL>999 THEN TOTAL=TOTAL-1000›90 NEXT X:READ CHKSUM:IF TOTAL=CHKSUM THEN 40›100 GOTO 160›110 IF PEEK(195)<>6 THEN 160›120 IF PASS=2 THEN PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,0:PUT #1,64:CLOSE #1:END ›130 ? "INSERT DISK WITH DOS, PRESS RETURN";:DIM IN$(1):INPUT IN$:OPEN #1,8,0,"D:AUTORUN.SYS"›140 PUT #1,255:PUT #1,255:PUT #1,0:PUT #1,64:PUT #1,80:PUT #1,73›150 ? :? "WRITING FILE":PASS=2:LINE=990:RESTORE 1000:TRAP 110:GOTO 40›160 ? "BAD DATA: LINE ";LINE:END ›1000 DATA 202843202F40207940201C4320A34020DC40207D41A580C93590EED0062028434CF144202843203C432040434C,627›1010 DATA 0040A220A9039D4203A94D9D4403A9439D4503A9089D4A03A9009D4B032056E4A210A9039D4203A94A9D4403A9,599›1020 DATA 439D4503A90C9D4A03A9009D4B032056E4A9008DC502A99A8DC6028DC80260A230A9039D4203A9509D4403A943,993›1030 DATA 9D4503A9049D4A03A9009D4B032056E478A510297F85108D0ED25860A9008DA302A9408DA402A20FBCB444BDB3,542›1040 DATA 44868220C140A682CACA10EF60A2009D4403989D4503A9099D4203A9289D48038A9D49032056E46020F542A907,162›1050 DATA A230A001206341A99B8DCA44A9C9A04420C140201443ADC944C920F0DEC9319005C937B00160A9FD8DC944A9C9,737›1060 DATA A04420C14020F542A9208DC9444CE840A240A9039D4203A9069D4A03A9539D4403A9439D45032056E4A905A240,304›1070 DATA A0282063419810078481A2404CEC42A220A9C49D4403A9449D4503A9099D4203A9282071414C37419D4203A9C9,608›1080 DATA 9D4403A9449D4503989D4803A9009D49032056E460ADC9448580C9349009D006201E414C024360C932D00AA9FD,112›1090 DATA A04320C1404CA441A916A04420C140201443A9098555202243A905A210A00F206341201C43981007C088F0034C,961›1100 DATA 5442ADC944C944F005A0A54C5442A580C933D033A24020EC42A0042075429810034C5442A907A2409D4203A900,555›1110 DATA 9D4403A9549D4503A9009D4803A9029D490320AE42A4814C3442A24020EC42A580C931D004A004D002A0082075,835›1120 DATA 429810034C5442A580C931D004A907D002A90B20954284819810034C5442A580C932D00AA940A04420C1404C02,114›1130 DATA 43A92FA04420C1404C0243A202A9209D7544CA10FA20B742A99BA00C996A44201443A96AA04420C1404C0243A2,556›1140 DATA 40A9039D4203A9C99D4403A9449D4503989D4A03A9009D4B032056E4848160A2409D4203A9009D4403A9609D45,915›1150 DATA 03A9009D4803A9149D49032056E4848120EC4260848198A009A200C9649006E964E84CBE4220E242A200C90A90,711›1160 DATA 06E90AE84CCD4220E242186930996A44C860488A6930996A44C86860A90C9D42032056E460A9188555A9008556,401›1170 DATA A90C855460201443A951A04420C140A906CD1FD0D0FB60A991A04420C14060A2018EF00260A2008EF00260A210,345›1180 DATA 20EC42A22020EC42A23020EC42A2404CEC426C0A0060A97AA04420C1404C0243453A9B533A9B4B3A9B443A2A2E,602›1190 DATA 2A007D1D1D7F1E1E1E1E5343524544495420284329203139383420524F4E20484F4447459B1D1D7F312D204C4F,309›1200 DATA 41442053435245454E9B7F322D20534156452053435245454E9B7F332D204C4F41442043484152205345549B7F,680›1210 DATA 342D2044313A204449524543544F52599B7F352D204558495420544F20454449544F529B7F362D204558495420,876›1220 DATA 544F20444F539B1D7F5748494348204F5054494F4E203F202020202020209B1D7F4E414D45204F462046494C45,908›1230 DATA 20544F20D3C1D6C5203F9B1D7F4E414D45204F462046494C4520544F20CCCFC1C4203F9B1D7F4C4F414420434F,45›1240 DATA 4D504C455445449B1D7F5341564520434F4D504C455445449B7F505245535320D3D4C1D2D420544F20434F4E54,167›1250 DATA 494E55459B7FC5D2D2CFD23A20202020202020209B7FC5D2D2CFD23A204E4F20444F53204F4E204449534B9B20,634›1260 DATA 2020202020202020202020202020202020202020202020202020202020202020209BE543D543C243B0439E438E,292›1270 DATA 437C43594320202020200000000000000000000000000000000000000000000000000000000000000000000000,866›1280 DATA 0000000000A00FB9AE4899F0008810F7A004B9A94899C4028810F7A9548DF402A900A0FF99003488D0FA85F08D,141›1290 DATA 04D48583A95A8DC002A9308D00D085FDA9008D01D08D02D08D03D0A9018D6F02A9008D08D0A9FF207F47A9308D,351›1300 DATA 07D4A9038D1DD0A0A1A90099FF7388D0FA78A9008D2F02A02FB979489900068810F7A9008D3002A9068D3102A9,245›1310 DATA 3E8D2F02A9478D0002A9488D010258A096A245A907205CE4A9C08D0ED42079404CB545A583D018A6FEF00CA514,78›1320 DATA 2901D00E20B6474C62E4AD8402F0032058474C62E4A514C514F0FCA5FED0F6AD8402D02BAD7802C907D0062087,381›1330 DATA 464C4746C90BD00620BD464C4746C90ED00620ED464C4746C90DD006201E474C4746AD1FD0C903D0062018484C,399›1340 DATA 1046C905D009206C482029484C1046C906D00B20BE48A9048D1FD04C4746ADFC02C9FFF01DC91CD0034C0C4920,702›1350 DATA CF48B01120E848B00F205A46206D46207E464C47464CB545A9FF8DFC024C1046A9FF8DFC02A204A514C514F0FC,735›1360 DATA CAD0F74CB545A230A9009D48039D4903A9079D42032056E460A82A2A2A2A2903AA98299F1D284985F160205748,111›1370 DATA A000A5F191FAA4F8C013F015B013E6F8E6F2D002E6F3A5FD18690885FD8D00D060A90085F8A93085FD8D00D0A5,837›1380 DATA F238E91385F2B006A5F3E90085F360A4F8F015C6F8A5F2D002C6F3C6F2A5FD38E90885FD8D00D060A91385F818,813›1390 DATA 65F285F2A5F3690085F3A9C885FD8D00D060A4F9F013C6F9C6F3C6F3A900207F4784FCA9FF207F4760A90985F9,714›1400 DATA A5F318691285F3A900207F47A0BF84FCA9FF207F4760A4F9C009F01AB018E6F9E6F3E6F3A900207F47A5FC1869,979›1410 DATA 1085FCA9FF207F4760A90085F9A5F338E91285F3A900207F47A02F84FCA9FF207F4760AD7802C907D00E208A47,478›1420 DATA B01AA90885F0A98085FE60C90BD00D209E47B008A90085F0A91485FE60A4FCA21091F688CAD0FA60A4F4C0E190,948›1430 DATA 04A5F5D008E6F4D002E6F518603860A4F4C0069004C6F41860A6F5F008C6F41002C6F5186038608A102BC6F0F0,34›1440 DATA 06A5F08D04D460A21CFE0306D003FE0406CACACA10F3A90085FEE6F2D002E6F3A90885F08D04D460E6F0A4F0C0,471›1450 DATA 08B006A5F08D04D460A21CBD0306D003DE0406DE0306CACACA10F0A90085FEA5F2D002C6F3C6F2A90085F08D04,184›1460 DATA D460A901CD6F02D006A9048D6F02608D6F0260A000B1FA484A4A4A4A20384868290F186910C91A900318690799,150›1470 DATA 3C74C86048A9E08D0AD48D09D4A5FF8DC6026840A5F285FAA5F385FBA5F0F008A5FAD002C6FBC6FA60205748A0,945›1480 DATA 00B1FA293F8D2D746070707057006057006257006457006657006857006A57006C57006E570070D70072420074,440›1490 DATA 42287442507442787441000628CA94460008FF026005000034000000002F300094A954CDF402F0048DF40260A9,18›1500 DATA E08DF4026048293FA005D9E248F0068810F86818606838600C1C2C343736C98FD005201E473860C98ED00520ED,619›1510 DATA 463860C986D00520BD463860C987D0042087463860A9FF8583A23020EC42A9008D1DD08D00D0A9228D2F028D00,431›1520 DATA D44C00404000206000000000000000000000000000000000000000000000000000000000000000000000000000,975›