10 CLEAR50 20 POKE150,87 30 CLS:PRINT 40 PRINT"<<<*** information prompt ***>>>" 50 INPUT" enter name:";N$ 60 PRINT 70 INPUT" address:";A$ 80 PRINT 90 INPUT" city:";C$ 100 PRINT 110 INPUT" state:";S$ 120 PRINT 130 INPUT" zip code:";Z 140 PRINT 160 PRINT 180 CLS:L=198 190 PRINT@L,N$ 200 PRINT@L+32,A$ 210 PRINT@L+64,C$;",";S$;" ";Z 220 PRINT@L+96,"(";AC;")";PN$ 230 PRINT:PRINT:PRINT 240 PRINT" information correct ? (Y OR N)" 250 Z$=INKEY$:IFZ$=""THEN250 260 IFZ$="Y"THENGOTO280 270 IFZ$="N"THENGOTO10ELSE250 280 CLS:PRINT@230,"printing label..." 290 PRINT#-2,N$ 300 PRINT#-2,A$ 310 PRINT#-2,C$;",";S$;" ";Z 321 PRINT#-2,"":PRINT#-2,"" 330 CLS:PRINT@230,"another label ?" 340 Z$=INKEY$:IFZ$=""THEN340 350 IFZ$="Y"THEN10 360 IFZ$="N"THENCLSELSE340 370 POKE65494,0 380 FORX=1TO1000:NEXT 390 NEW abel..." 290 PRINT#-2,N$ 300 PRINT#-2,A$ 310 PRINT#-2,C$;",";S$;" ";Z 321 PRINT#-2,"":PRINT#-2,"" 330 CLS:PRINT@230,"another label ?" 340 Z$=INKEY$:IFZ$=""THEN340 350 IFZ$="Y"THEN10 360 IFZ$="N"THENCLSELSE340 370 POKE65494,0 3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ф&0 •999:ŒN$(99),A(255),B(255):U$ГџЁ(11,32):Я0&]ž:‡"ARC - VERSION 1.10":‡"BY JOHN LAURO"&އ:‡"1. ARC":‡"2. UNARC":‡:‡:‡"PRESS A 1 OR 2&А(ˆџž("*12",џ’)Ѕ40,50,270:Ѕ40&Ы2ž:‡"ARC":‰"HOW MANY";N'<€AГ1ЅN:‡"ENTER FILENAME: "A:Л‰N$(A):‹:‡:Л‰"ENTER OUTPUT FILE:";O$'sFž:‡"WORKING...":™"R",1,O$,1:а#1,1џЇOB$:…џЅ(1)Ї‡"DESTINATION FILE ALREADY EXIST. STOPPING":Š:Ž'ЂP€AГ1ЅN:Z$ГN$(A):І420:‡"WORKING ON: "N$(A)'ШZІ450:…ERГ1Ї‡"MISSING FILE":š:‘:Ž(d™"R",2,N$(A),1:а#2,1џЇIB$:€ZГ0Ѕ255:A(Z)Г0:B(Z)Г0:‹:BГ1:Ф#2,B:L$ГIB$:RГ0:TГ1(\nФ#2,B:BГBЋ1:A(џŠ(IB$))ГA(џŠ(IB$))Ћ1:…IB$ГL$ЇRГRЋ1:…BДГџЅ(2)Ї110(Єx…RВ3ЇB(џŠ(L$))ГB(џŠ(L$))ЋR:…RД256ЇTГTЋ3:„…RД512ЇTГTЋ4:„TГTЋ5:„TГTЋR(г‚…IB$ДВL$Ї…BДГџЅ(2)ЇRГ1:L$ГIB$:Ѕ110:„TГTЋ1)ŒдOB$Гџ‹(A):Х#1:€BГ1Ѕ13:дOB$Гџ(Z$,B,1):Х#1:‹:дOB$Гџ‹(1):Х#1)–…TГВџЅ(2)Ї‡"NO SAVINGS FOR THIS FILE...":Ѕ250:„‡"APPROX. SAVINGS OF"џˆ(џ((џЅ(2)ЌT)ЎџЅ(2)­10000)Ў100)"%"*< €BГ0Ѕ255:…A(B)ГB(B)АA(B)Ї170:„‹:€BГ0Ѕ255:…A(B)Г0Ї170:„‹:‡"DARN! UNLIKELY FILE THAT USES EVERY KEY. PLEASE WAIT FOR NEXT PROGRAM TO COMPRESS THIS, OR REPORT FILE TO JOHN LAURO":Š*ЉЊZГT:І480:дOB$Гџ‹(0):Х#1:дOB$ГX$:Х#1:дOB$ГY$:Х#1:дOB$Гџ‹(1):Х#1:дOB$Гџ‹(B):Х#1:TTГ1:CГ1:Ф#2,C:L$ГIB$:RГ0*еДФ#2,C:CГCЋ1:…IB$ГL$ЇRГRЋ1:…CДГџЅ(2)Ї180+€О…RД4Ї240:„дOB$Гџ‹(B):Х#1:…RД256ЇдOB$Гџ‹(R):Х#1:TTГTTЋ3:„…RД512ЇдOB$Гџ‹(1):Х#1:дOB$Гџ‹(RЌ256):Х#1:TTГTTЋ4:„ZГRЌ512:І480:дOB$Гџ‹(2):Х#1:дOB$ГX$:Х#1:дOB$ГY$:Х#1:TTГTTЋ5+ШдOB$ГL$:Х#1+Юв…IB$ДВL$Ї…CДГџЅ(2)ЇRГ1:L$ГIB$:Ѕ180:„TTГTTЋ1:дOB$ГIB$:Х#1,/м…TДВTT Ї‡"I WENT WRONG SOMEWHERE. LENGTH ERROR. PLEASE REPORT PROBLEM TOJOHN LAURO...":Š:Ž,9цЅ260,`№€DГ1ЅR:дOB$ГL$:TTГTTЋ1:Х#1:‹:Ѕ210,ШњZГџЅ(2):І480:дOB$Гџ‹(0):Х#1:дOB$ГX$:Х#1:дOB$ГY$:Х#1:дOB$Гџ‹(0):Х#1:€BГ1ЅџЅ(2):Ф#2,B:дOB$ГIB$:Х#1:‹,ѓš2:‹A:дOB$Гџ‹(0):Х#1:š:‡"FINISHED":Š:Ž-ž:‡"UNARC-)Л‰"FILENAME:";N$:‰"OUTPUT DRIVE";DV-X"ž:‡"WORKING...":™"R",1,N$,1:а#1,1џЇIB$:AГ1-Ÿ,Ф#1:…IB$Гџ‹(0)Ї‡"FINISHED.":š:Š:Ž:„…IB$ДВџ‹(A)Ї‡"ORDER ERROR!":‘:Ž.86Z$Г"":€BГ1Ѕ13:Ф#1:Z$ГZ$ЋIB$:‹:™"R",2,џŽ(Z$,8)Ћ"/"Ћџ(Z$,9,3)Ћ":"Ћџ(џˆ(DV),1),1:а#2,1џЇOB$:‡"UNSQUASHING "џŽ(Z$,11):…џЅ(2)Ї‡"FILE ALREADY EXISTS!":‘.П@Ф#1:…IB$ДВџ‹(1)Ї400:„Ф#1:…IB$ДВџ‹(0)Ї400:„Ф#1:X$ГIB$:Ф#1:Y$ГIB$:І490:TTГZ:Ф#1:…IB$Гџ‹(0)Ї370:„…IB$Гџ‹(1)ЇФ#1:L$ГIB$:TTГTTЌ1::„400/J…TTД0Ї‡"ERROR! INPUT PAST END!":‘:Ž:„…TTГ0Ї380:„Ф#1:…IB$ДВL$ЇдOB$ГIB$:Х#2:TTГTTЌ1:Ѕ330/ЌTФ#1:…IB$Гџ‹(0)ЇдOB$ГL$:Х#2:TTГTTЌ2:Ѕ330:„…IB$Гџ‹(1)Ї350:„…IB$Гџ‹(2)Ї360:„…IB$Гџ‹(3)Ї400:„ZГџŠ(IB$):Ф#1:дOB$ГIB$:€CГ1ЅZ:Х#2:‹:TTГTTЌ3:Ѕ330/ъ^Ф#1:ZГџŠ(IB$):Ф#1:дOB$ГIB$:€CГ1ЅZЋ256:Х#2:‹:TTГTTЌ4:Ѕ33006hФ#1:X$ГIB$:Ф#1:Y$ГIB$:І490:Ф#1:дOB$ГIB$:€CГ1ЅZЋ512:Х#2:‹:TTГTTЌ5:Ѕ3300Ur€BГ1ЅTT:Ф#1:дOB$ГIB$:Х#2:‹0Ф|š2:ZT$ГZ$:Z$ГџŽ(Z$,11):І450:…ERГ1Ї‡"UNEXECTED LOGIC ERROR!":‘:Ž :„…A$ГC$Їџ(A$,Z,13)ГZT$:„џ(B$,Z,13)ГZT$0у†рDV,17,S,A$,B$:AГAЋ1:Ѕ3001@‡"FORMAT NOT SUPPORTED BY THIS PROGRAM. (PROBBABLY ARCED WITH A LATER VERSION).":Š:Ž1Fš‘1ŠЄ…џ(Z$,џ‡(Z$)Ќ1,1)Г":"ЇDVГџ‰(џ(Z$,1)):Z$ГџŽ(Z$,џ‡(Z$)Ќ2):„DVГ01ыЎZГџž(Z$,"/")Ћџž(Z$,"."):…Z ЇZ$ГџŽ(џŽ(Z$,ZЌ1)ЋU$,8)ЋџŽ(џ(Z$,џ‡(Z$)ЌZ)ЋU$,3):„Z$ГџŽ(Z$ЋU$,11)1ёИ1ўТERГ0:SГ32PЬпDV,17,S,A$,B$:C$ГA$:І470:…ER Ї:„C$ГB$:І470:…ER Ї:„SГSЋ1:…SГ1ЇERГ1::„4602~жZГџž(C$,Z$):…Z ЇERГЌ1:Z$Гџ(C$,Z,13)::„2ЉрX$Гџ‹(џ(ZЎ256)):Y$Гџ‹(ZЌ256­џŠ(X$)):2УъZГ256­џŠ(X$)ЋџŠ(Y$): PЬпDV,17,S,A$,B$:C$ГA$:І470:…ER Ї:„C$ГB$:І470:…ER Ї:„SГSЋ1:…SГ1ЇERГ1::„4602~жZГџž(C$,Z$):…Z ЇERГЌ1:Z$Гџ(C$,Z,13)::„2ЉрX$Гџ‹(џ(ZЎ256)):Y$Гџ‹(ZЌ256­џŠ(X$)):2УъZГ256­џŠ(X$)ЋџŠ(Y$):џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ }& :ƒ PUTLDR V1.0 & • 1000&>ž:‡" AUTOEXEC ML PROGRAM"&RP‡" (C) 1984"&cZ… YCВ0 Ї 140&{Œ‡:‡" SELECT OPTION"&–‡" 1 DISPLAY FILE ADDRESSES"&Е ‡" 2 ADD AUTOEXEC"&аЊ‡" 3 DELETE AUTOEXEC"&рД‡" 4 QUIT"'О‰" SELECTION, PLEASE.....";YC'Ш… YCД4 Ї І270:… FEГ0Ї30'7в… YCД1 Б YC В4 Ї 30'Wм… YCГ3 Ї UN$Г"Y" :„ UN$Г"N"'sцˆ YC І 360,620,380,260'Ž№… YCГ2 Б YCГ3 Ї І 360'˜њЅ 30'žŠ'мž:‡"ENTER FILENAME":‡" FILENAME":Л ‰"? ";A$'№C0Гџž(1,A$,":")("… C0Д3 Ї 320(,DR$Гџ(A$,C0Ћ1,1)(26A$ГDR$Ћ":"ЋџŽ(A$,C0Ќ1)(i@… (џž(1,A$,"/")Г0 А џž(1,A$,".")Г0) Ї A$ГA$Ћ"/BIN"(tJІ 810(ŠT… FEГ0 Ї І 960:(^(›hІ 380(Жr‰" PRESS A KEY ";ZZ$:(б|EAГ0:LГ0:SГ0:OSГ1:UAГ0(у†™ "D",#1,A$,1(єа #1,1 џЇ B$) šФ #1,OS:TIГџŠ(B$))"ЄФ #1,1ЋOS:LHГџŠ(B$))FЎФ #1,2ЋOS:LLГџŠ(B$):LГLH­256ЋLL)^ИФ #1,3ЋOS:AHГџŠ(B$))‚ТФ #1,4ЋOS:ALГџŠ(B$):AГAH­256ЋAL)ЉЬ… TIГ255 Ї TГ A:THГAH:TLГAL:Ѕ 520)бж… UN$Г"Y" А TIГ00 Ї … AГ159 Ї UAГOS)њр… EAГ0 Б EAГA Ї 490 :„ І 590:І 580*ъEAГAЋL*є… SГ0Ї І 560:І 580*Cў… TIГ00 Ї SГSЋL:OSГLЋ5ЋOS:Ѕ 410*a… UN$Г"Y" А UAВ0 Ї І 730*jš #1*|І 590:І 600*&‡ џЁ(30,"*"):*Ћ0І 550:‡A$," HEX / DEC"*О:‡ џЁ(30,"*"):*зD‡"START",џœ(A)"/"A:*ђN‡"END ",џœ(EA)"/"EA:+ X‡"EXEC ",џœ(T)"/"T"+#b‡"SIZE ",џœ(S)"/"S:+3lІ380:FLГOS+Ev™ "D",#1,A$,1+V€а #1,1 џЇ B$+\Š+k”€ IГ0 Ѕ 23+sž B+‚Јд B$Гџ‹(B)+ŽВХ #1,FL+šМFLГFLЋ1+ЂЦ‹ I+­аЅ 760+ЗкFLГUA+ЭфBB$Гџ‹(255):І800+чюBB$Гџ‹(0):І800:І800+ќјBB$Гџ‹(TH):І800,BB$Гџ‹(TL):І800, š #1, ,? д B$ГBB$:Х #1,FL:FLГFLЋ1:,J*AA$ГA$,_4COГџž(1,AA$,":"),Ÿ>… COВ0 Ї DR$ГџŽ(AA$,COЌ1):DRГџ‰(DR$):AA$Гџ(AA$,џ‡(AA$)ЌCO),ИH… COГ0 Ї DRГџ†(&HEB),ЭRSLГџž(2,AA$,"/"),о\… SLВ0 Ї 880-fSLГџž(2,AA$,"."):… SLГ0 Ї 890-9pLГџ‡(AA$):AA$ГџŽ(AA$,SLЌ1)ЋџЁ(9ЌSL," ")Ћџ(AA$,LЌSL)-Fz€ IГ3Ѕ11-\„п DR,17,I,Z1$,Z2$-|ŽZ1$ГџŽ(Z1$,128)ЋџŽ(Z2$,127)-Ё˜… џž(1,Z1$,AA$)ДВ0 Ї FEГ1:Ѕ 950-ЉЂ‹ I-ВЌFEГ0-ИЖ-зРž:‡:‡"FILE "A$" NOT FOUND"-эЪ‡:‡"PRESS A KEY";-ўд… џ’Г""Ї 980.о.ш† 00,00,16,00,159.1ђ† 15,112,15,113,18.Iќ† 32,02,173,174,127.e† 255,64,110,159,00,157.|† 255,00,00,00,159.‚Š'ŠпХџqЧFBзšB^NщхОБпК­­А­пЗОЌпАММЊ­КЛпАБпЋЗКпЛЖЌДЏГКОЌКп­КЙА­ВОЋпА­пЙЖЇбџAёПIёН9е{rф@ёПHёНAёЛIёЙ9е{rі@ёЛHёЙщџР~џиђ~ўиы~§иу~ќимЦЯўsћриўЦyўЦЯwпsњиўЦy§ЦЯрsњиўЦyќЦЯwsћџиўЦyџЦAёПy•X{AёЛX{ЦпГЛОпмЮЫЯпиџnЪ§элпЌЋОплЬЦШЯпеНОЊЛп­ОЋКпЙА­пНЖЋпНОБИК­§уіпГЛОпмлЯЮ§йіпЌЋОплКЮЭ§ЯѕпГЛЇпмлЫЯЯ§ХѕпГЛІпмлЩЯЯ§ЛіпГЛОпмЮЧЯ§БѓЌЖЯЮпЌЋОпгЇд§ЇїпЌЋОпгвІ§іпЕЌ­пЋВК­§“є000000000000000000000000000000000 00 PPP PPPPP 00 P PPP P 00 PP P P PP 00 P PP PPP P P PP 00 P P P P P P P P 00 PPP P P P P PP P P 00 PP PP 00 00 00 ЏŸ­ŸКŸЌŸКŸБŸЋŸЌ 00 00 00 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPzЋЗКŸЙОЌЋКЌЋŸЈОІŸЋАŸЌКБЛŸuzpppŸŸŸІАЊ­ŸЛЖЌДЌžpppppppuЏОпмлЬШћ;ьпГНКЎплЬЩЛЯпеВКБЊБЭћ1ѕпМВЏОпмлЬЪћ'ѕпГНКЎпЗЕЯЮћѕпМВЏОпмлЬЩћѕпГНКЎпЖБЙАћ ѕпГКОІпвЮгІњџјпНБКпВЭњѕєпЕЌ­пМАГА­ЮњыіпГН­ОпВЯЭњсєМЗОЋпЕЌ­пБНњзіпГЛОпмЮЧЫњЭѕпЌЋОплЬЦШЯњУѕпЕЌ­плОЦЭЧњЙєпГЛЇпмМЗОЋЮњЏіпЕЌ­пЋКЇЋњЅѓМЗОЯпЕЌ­пИ­Ќњ›ѕпМВЏОпмлЯЯњ‘іпНКЎпМЗОЮњ‡ѕпЕЌ­пŽ&І„CЇ€Œ?&і~&џ? џџ?џџ?џџ?џџ?џџџ?УѕпЕЌ­плОЦЭЧњЙєпГЛЇпмМЗОЋЮњЏіпЕЌ­пЋКЇЋњЅѓМЗОЯпЕЌ­пИ­Ќњ›ѕпМВЏОпмлЯЯњ‘іпНКЎпМЗОЮњ‡ѕпЕЌ­пŽ&І„CЇ€Œ?&і~&џ? џџ?џџ?џџ?џџ?џџџ? 10 ' COLOR BASIC VERSION 20 ' TRANSFERED TO DISK BY BRAD KILLEBREW 9/12/86 30 ' COCO 2 64K &HC000 40 FORX=41287 TO 41328 50 PRINTCHR$(PEEK(X));:NEXTX 60 SOUND 100,3:PRINT:PRINT"YOUR COLOR BASIC VERSION IS ";:FORT= 41299 TO 41302:PRINTCHR$(PEEK(T));: NEXT:END $(PEEK(T));: NEXT:END џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0 '"CONPACT" COMPACTS PROGRAMS 1 'DONATED TO PUBLIC DOMAIN MAY 27, 1984 BY J. CONRAD KIRKSEY 134 PINEVIEW DR. HOUSTON, TX 77012 (713) 926-9851 2 'THIS PROGRAM DELETES SPACES (EXCEPT IN STRINGS) AND THE TEXT OF REMARKS. IT LEAVES THE REM TOKEN IN CASE THE LINE WAS REFERENCED BY A GOTO OR GOSUB. 3 'AFTER YOU RUN THIS PROGRAM, LIST IT AND SEE WHAT COMPACT DOES. 4 'CONPACT WILL BE IN MEMORY IN M/L FORM. TO CSAVEM: CSAVEM"COMPACT",&H7D00, &H7D50,&H7D00. 5 'THE PROGRAM IS IN POSITION INDEPENDENT CODE SO YOU MAY PUT IT ANYWHERE. EDIT LINES 1000 AND 1020 TO CHANGE ITS LOAD ADDRESS. 6 'NOTICE HOW LINE 1010 LOSES ITS SPACES AND HOW ALL THIS TEXT IS DELETED. 7 'AFTER YOU RUN COMPACT, YOU MAY CLOAD ANY BASIC PROGRAM, TYPE EXEC, AND IT WILL BE COMPACTED. 1000 ADRS = &H7D00 1010 READ BY$ :IF BY$<>"END" THEN POKE ADRS,VAL("&H"+BY$) :ADRS=ADRS+1 :GOTO 1010 1020 EXEC &H7D00 1130 DATA 9E,19,1F,12,1F 1140 DATA 23,30,2,31,22 1150 DATA EC,81,ED,A1,A6 1160 DATA 80,27,20,81,20 1170 DATA 27,F8,81,82,27 1180 DATA C,81,83,27,8 1190 DATA 81,22,27,1B,A7 1200 DATA A0,20,E8,E6,1E 1210 DATA C1,FF,27,F6,A7 1220 DATA A0,A6,80,26,FC 1230 DATA A7,A0,10,AF,C4 1240 DATA A6,84,27,E,20 1250 DATA C7,A7,A0,A6,80 1260 DATA 27,EF,81,22,26 1270 DATA F6,20,D9,A7,A0 1280 DATA A7,A4,7E,80,C0 1290 DATA 12,"END" џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 200 CLS 210 CLEAR2000 220 DIMA$(68) 230 PRINT 240 FORK=3TO11 250 DSKI$0,17,K,AD$,BD$ 260 AD$=AD$+LEFT$(BD$,120) 270 FORL=0TO7 280 SB$=MID$(AD$,L*32+1,8) 290 EXT$=MID$(AD$,L*32+9,3) 300 AC=ASC(SB$) 310 IFAC=255THENL=7:K=11:GOTO350 320 IFAC=0THEN350 330 FILE$=SB$+"/"+EXT$ 340 PRINT" "FI$, 350 NEXTL,K N350 330 FILE$=SB$+"/"+EXT$ 340 PRINT" "FI$, 350 NEXTL,K џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ&\ XГџ†(39)­256Ћџ†(40)Ќ50:• 200,X:XГџ†(39)­256Ћџ†(40)Ћ1:€IГX Ѕ XЋ34: A$:’I,џ‰("&H"ЋA$):‹&ЄAГџ(XЎ256):BГXЌ(A­256):’ XЋ5,џ†(360):’ XЋ6,џ†(361):’ 360,A:’ 361,B'† 0D,6F,27,03,7E,00,00,34,56,0D,76,27,12,9E,88,8C,05,E0,25,0B,BD,A1,B1,BD,A9,28,8E,04,00,9F,88,35,56,20,E1:’ &H76,1 0,9F,88,35,56,20,E1:’ &H76,1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 100 PCLEAR1:PMODE0 110 CLEAR 2000 120 DIM P$(2,6),Q$(68,3) 130 U$="% % % % % % %% % % % %" 140 CLS 150 INPUT"NAME OF DISKETTE";X$ 160 PRINT#-2,X$ 170 PRINT#-2:PRINT#-2 180 PRINT#-2,TAB(27)"GRANULE";TAB(66)"GRANULE" 190 PRINT#-2,"NAME EXT TYPE ASC ST NUM";TAB(39)"NAME EXT TYPE ASC ST NUM" 200 PRINT#-2,STRING$(34,45);TAB(39)STRING$(34,45) 210 PRINT#-2 220 DSKI$0,17,2,F$,X$ 300 FOR Z=3 TO 11 310 DSKI$0,17,Z,A$,B$ 320 X$=A$:GOSUB 400 330 X$=B$:GOSUB 400 340 NEXT Z 350 GOTO 700 400 FOR J=1 TO 128 STEP 64 410 FOR R=1 TO 2 420 Y=(R-1)*32 430 P$(R,1)=MID$(X$,J+Y,8) 440 IF LEFT$(P$(R,1),1)=CHR$(255) THEN 700 450 IF LEFT$(P$(R,1),1) = CHR$(0) THEN P$(R,1) = CHR$(35) + RIGHT$(P$(R,1),7) 460 P$(R,2) = MID$(X$,J+Y+8,3) 470 P$(R,3) = STR$(ASC(MID$(X$,J+Y+11))) 480 X = ASC(MID$(X$,J+Y+12,1)) 490 IF X<>0 THEN P$(R,4)="A" ELSE P$(R,4)="B" 500 X = ASC(MID$(X$,J+Y+13,1)) 510 P$(R,5)=STR$(X) 520 GOSUB 600 530 PRINT#-2,USINGU$; P$(R,1); P$(R,2); P$(R,3); P$(R,4); P$(R,5); P$(R,6); 540 IF R=1 THEN PRINT#-2,TAB(39); ELSE PRINT#-2 550 NEXT R 560 NEXT J 570 RETURN 600 G=0 610 G=G+1 620 B=ASC(MID$(F$,X+1,1)) 630 IF B<70 THEN X=B:GOTO 610 640 P$(R,6)=STR$(G) 650 RETURN 700 PRINT#-2:PRINT#-2 710 PRINT#-2,FREE(0)"FREE GRANULES" 720 PRINT#-2:PRINT#-2 730 PRINT#-2,"FILE ALLOCATION TABLE" 740 PRINT#-2 750 FOR I=1 TO 6 760 PRINT#-2,TAB(10*I)CHR$(48+I); 770 NEXT I 780 PRINT#-2 790 FOR J=1 TO 6 800 PRINT#-2,"0123456789"; 810 NEXT J 820 PRINT#-2,"01234567" 830 PRINT#-2 840 PRINT"WAIT A MOMENT" 900 FOR I=1 TO 68 910 Y$=MID$(F$,I,1) 920 Y=ASC(Y$) 930 Y1$=STR$(Y) 940 ON LEN(Y1$) GOTO 950,960,990,1010 950 PRINT"SHOULD NEVER GET HERE":STOP 960 Y1$="0"+Y1$ 970 MID$(Y1$,2,1)="0" 980 GOTO 1020 990 MID$(Y1$,1,1)="0" 1000 GOTO 1020 1010 Y1$=RIGHT$(Y1$,3) 1020 FOR J=1 TO 3 1030 Q$(I,J)=MID$(Y1$,J,1) 1040 NEXT J 1050 NEXT I 1100 FOR J=1 TO 3 1110 FOR I=1 TO 68 1120 PRINT#-2,Q$(I,J); 1130 NEXT I 1140 PRINT#-2 1150 NEXT J 2000 PRINT#-2:PRINT#-2 2010 PRINT#-2,STRING$(80,61) 2020 PRINT#-2 2030 END 0 Q$(I,J)=MID$(Y1$,J,1) 1040 NEXT J 1050 NEXT I 1100 FOR J=1 TO 3 1110 FOR I=1 TO 68 1120 PRINT#-2,Q$(I,J); 1130 NEXT I 1140 PRINT#-2 1150 NEXT J 2000 PRINT#-2:PRINT#-2 2010 PRINT#-2,STRING$(80,61) 2020 PRINT#-2 2030 END џхШ 0,1:Р 1:•9000)Œ A$(18),B$(18)0кˆ6 žQ‡Є8);"DIRECTORY SAVER"p‡Є6);"BY JOHN J. SCHUSTER"і‡:‡"THIS UTILITY WILL SAVE THE DIRECTORY OF A NUMBERED DISKETTEON THE CORRESPONDING NUMBERED TRACK ON A SPECIAL DISKETTE."]‡"EXAMPLE: THE DIRECTORY FOR DISK NUMBER 3 WOULD BE SAVED ON TRACKNUMBER 3 OF THE SAVER DISKETTE."~‡"PRESS TO PROCEED."‰ І 460"žЉ$‡Є5);"ENTER CHOICE":‡Щ&‡Є5);"1) SAVE A DIRECTORY."ь(‡Є5);"2) RECOVER A DIRECTORY."*‡Є5);"E) END JOB" ,M$Гџ’$.ˆ џ‰(M$) Ѕ 300,100E0… M$Г"E" Ї • 200:Р 4:Š :„ 44Kdžgn‰ "ENTER DISK NUMBER";Nrs 220,1xž:‡"INSERT DIRSAVE DISK "Б‚‡"PRESS WHEN READY."МŒІ 460Ы–€ SГ1 Ѕ 18у п 0,N,S,A$(S),B$(S)щЊ‹ѕЏ  220,1Дž:‡"INSERT DISK NUMBER : ";N<О‡"HIT WHEN READY.":І 460KШ€ SГ1 Ѕ 18dвр 0,17,S,A$(S),B$(S)jм‹~ц  220,1:  180,1ˆњЅ 34Ž,žЊ6‰ "ENTER DISK NUMBER";NЕ; 220,1б@ž:‡"INSERT SOURCE DISK"ђJ‡"PRESS WHEN READY."§TІ 460 ^€ SГ1 Ѕ 18%hп 0,17,S,A$(S),B$(S)+r‹6w 220,1T|ž:‡"INSERT DIR SAVE DISK"z†‡"HIT WHEN READY.":І 460‰€ SГ1 Ѕ 18Ёšр 0,N,S,A$(S),B$(S)ЇЄ‹ЙЎ 220,1: 180,1УТЅ 34фЬH$Гџ’:… H$Гџ‹(13) Ї  :„ 460HEN READY."§TІ 460ГКбђђЋЗОБДпІАЊпЙА­пЊЌЖБИпЏЗАБКвМГАБКоџBб HёнIёѕ~и IёнЦЫЯqћџяqћрyOBЫъBЫлBЫЬЯўЮРsћяйyŸBЫъBЫлBЫЬЯрЮоsћџйЪЯЦЫя9яX{ЯwпЅйЪяЦЫп9яX[ЮWпЅйЪпЦЫяqїџЯрйЪяЦBЬBVзqЫ›BзšBЫFBЫqЯрээsџџйBЬBЫЦЋЗОБДпІАЊпЙА­пЊЌЖБИпЏЗАБКвМГАБКопппппппЏГКОЌКпМАВКпОИОЖБџIў{HўIќ{HќIмuїHм€ЦЦy§ qљПяqџўпBЫ!€пBЫЯфЮкЕйyўЃ>йЦЫяЯрйЪяЦЫпЮРйЪпЦqџряqџјyі9пr!€пrЕй yіЅйЦBVзqЪgBзš B^N~ђйћ€ёюЦ~ШкњBЫпHёЯB\ѕB^N~їи*HёЮB\ѕyђB\ѕyђB\ѕIёЯBЪЯЗЗЗЗHёЯIёЮBЪЯEёЯHёПqЪ#BзšIёПBжŒqЪBзšB^>~Іиѓ~Би§п BVзщ|IёП~нян…HёюЦЏГКОЌКпЖБЏЊЋпЋЗКпЌЋО­ЋЖБИпЋ­ОМДпЖБпЗКЇбпЗЖЋпКБЋК­пЙА­пЋ­ОМДпзЯжпХвСџЖЌпХџЋЗКпМА­­КМЋпЉОГЊКРзІгБжџ~ХлўЦјЦяqџњqЯрйЮРй АЫ§rїЪ§Г~юй ЦHёЮ€ёЯAёЯЯvћџяAёЯЮVУџ rъ3ћрLёЯё3УрLёЯёщџяY[X{ЯwпЮWпЃ>яйЦAёяAё rqПџЯрйЦ$Ьyш‡иT€ёoyўHёnBVзy§HёыqЧuBзšIёoBжŒqЧ[BзšIёnBжŒIёoHёюIёnHёэBео’љяйўIёnГHёn~ьй?yўHёnIёoГHёo~мйOщџќэээBVзqћџ@ёПqњ@ёЛyџHёНy§HёЙqШ?Bзš€ёюyўHёэ€ПяqџпB^>~Юяиџф~Эяиš~Ьяи„~ЫяиvЮРйBЧп'BVз€ПqШ\BзšyюHёюyќHёэBטqпџ@ёo9єY~яиџЮB\ѕЅй AёoY{~џяиџйyђB\ѕAёoЯwп@ёo9єsоџй-IёэГHёэ~эйCB^NщБqШqBзšщ)ппеееЙЖГКпДЖГГКЛеееђџЋЗКпЛЖ­ 10 'dirsort.bas MAR 30, 1987. 20 GOTO490 30 CLEAR4500:DIMS(68),A$(24),F$(68),E$(68):FC$=STRING$(128,255):FF$=CHR$(255):A=1:C=1:VERIFY ON:CLS:DR=0:PRINT:PRINT" LOADING DIRECTORY":FORI=3TO12:DSKI$ 0,17,I,A$(A),A$(A+1):IFLEFT$(A$(A+1),1)=FF$THEN90 80 A=A+2:NEXTI 90 Z=A:A=1:TR=I 100 'LOOK FOR END OF FILENAMES 110 FORX=1TO111STEP32:IFFF$>MID$(A$(A),X,1)THENS=S+1:F$(S)=MID$(A$(A),X,16):NEXTX ELSE130 130 IFMID$(A$(A+1),1,1)E$(C+1)THENC=X:GOTO210 240 X=X-1 250 FORA=C TOX-1:IFLEFT$(F$(A),11)>LEFT$(F$(A+1),11)THENS$=F$(A):F$(A)=F$(A+1):F$(A+1)=S$:FL=1 270 NEXTA:IFFL=1THENFL=0:GOTO250 290 IFS=X THEN CLS:PRINT:GOTO320 300 C=X+1:GOTO210 310 'PRINT OUT FILENAMES 320 FORX=1TOS:PRINT" "LEFT$(F$(X),8);".";MID$(F$(X),9,3),:NEXTX:A=Z:Z=0:C=1 340 'REPLACE SORTED STRINGS TO BE SAVED 350 FORX=1TO111STEP32:Z=Z+1:IFZ>S THEN400 370 MID$(A$(C),X,16)=F$(Z):NEXTX:C=C+1:GOTO350 400 FORY=X TOLEN(A$(C)):MID$(A$(C),Y,1)=FF$:NEXTY 410 C=C+1 :IF C=>25 THEN 420 ELSE IF LEFT$(A$(C),1) ";N$:™"O",#DV,N$/эJAГџ‰("&H"ЋA1$):A2Гџ‰("&H"ЋA2$):LГ0:‡0T… AВA2 Ї … T$Г"Y" Ї š#DV:Š :„ Š0+^LГLЋ1:… LГ10000 Ї LГ00‚hO$Гџ(џˆ(LЋ10000),3)Ћ" "Ћџ(џœ(џ(AЎ256)Ћ256),2)Ћџ(џœ(AЌџ(AЎ256)­256Ћ256),2)Ћ" "0ЃrІ1100:B1ГD:B1$ГD$:O$ГO$ЋB1$0а|MГџ‰("&H"Ћџ(M$(B1),1)):MN$ГџŽ(M$(B1),4)1†ˆ M І 460,480,500,520,790,820,840,860,880,920,980,1020,10601 ‡ џ(O$,5)1eš… P$Г"Y" Ї OP$Г" "ЋџŽ(O$,20)Ћ" "Ћџ(O$,21):‡#Ќ2,OP$1yЄ… T$ДВ"Y" Ї 3401˜ЎXГ4:… џ(O$,24,1)Г" " ЇXГ31ЪИOT$Г" "Ћџ(O$,21,X)Ћџ(O$,25):‡#DV,OT$:Ѕ 3401оТ:ƒCONSTANT MODE1њЬІ1110:O$ГO$Ћ" $"ЋB1$:2ж:ƒINHERENT MODE2рІ1110:2-ъ:ƒDIRECT MODE2JєІ1120:O$ГO$Ћ" <$"ЋB2$:2[ў:ƒINDEX MODE2‰B2Гџ†(A):R$Гџ("XYUS",(B2 А &H60)Ў32Ћ1,1)2™…B2В127Ї5602ЫІ1120:B2ГB2 А &H1F:…B2В15ЇB2ГB2Ќ32:O$ГO$Ћ" "2х&O$ГO$Ћџˆ(B2)Ћ","ЋR$:380XГB2 А &H0F:ˆ X Ѕ 580,590,600,610,620,630,640,650,660,680,690,700,710,740,7503j:…(B2 А 16)Г16Ї740:„І1120:R$Г","ЋR$Ћ"+":Ѕ7703ŠDІ1120:R$Г","ЋR$Ћ"++":Ѕ7603ЙN…(B2 А 16)Г16Ї740:„І1120:R$Г",-"ЋR$:Ѕ7703жXІ1120:R$Г",--"ЋR$:Ѕ7603ёbІ1120:R$Г","ЋR$:Ѕ7604 lІ1120:R$Г"B,"ЋR$:Ѕ7604)vІ1120:R$Г"A,"ЋR$:Ѕ76043€Ѕ7404yЁІ1130:…B3В127ЇB3ГB3Ќ256:B3$Гџˆ(B3):Ѕ670:„B3$Гџ(џˆ(B3),2):Ѕ6704Ц”І1140:B3ГB3­256ЋB4:…B3В&H7FFF ЇB3ГB3Ќ65535:B3$Гџˆ(B3):„B3$Гџ(џˆ(B3),2)4оžR$ГB3$Ћ","ЋR$:Ѕ7604шЈЅ7405ВІ1120:R$Г"D,"ЋR$:Ѕ76057МR$Г"PCR":І1130:…B3В127ЇB3ГB3Ќ256:Ѕ720:„Ѕ7205XЦR$Г"PCR":І1140:B3ГB3­256ЋB45|аB3ГB3ЋA:…B3В65535 Ї B3ГB3Ќ655365•кB3$Г"$"Ћџœ(B3):Ѕ6705ЖфO$ГO$Ћ" FCB $"ЋB1$:5яю…(B2 А 16)Г0Ї740 :„І1140:O$ГO$Ћ" (,$"ЋB3$ЋB4$Ћ")":6ј…(B2 А 16)Г16 ЇR$Г"("ЋR$Ћ")"6#O$ГO$Ћ" "ЋR$:67 :ƒRELATIVE MODE6WІ1120:… B2В127 Ї B2ГB2Ќ2566a Ѕ8906|*:ƒIMMEDIATE 8 BIT MODE6™4І1120:O$ГO$Ћ" #$"ЋB2$:6Е>:ƒIMMEDIATE 16 BIT MODE6жHІ1130:O$ГO$Ћ" #$"ЋB2$ЋB3$:6ъR:ƒEXTENDED MODE7 \І1130:O$ГO$Ћ" $"ЋB2$ЋB3$:7%f:ƒRELATIVE 16 BIT MODE7=pІ1130:B2ГB2­256ЋB37tzB2ГB2ЋA:…B2В65535 ЇB2ГB2Ќ65536 :„…B2Д0ЇB2ГB2Ћ655367Œ„O$ГO$Ћ" $"Ћџœ(B2):7žŽ:ƒPAGE 2 MODE7П˜І1100:B2ГD:B2$ГD$:O$ГO$ЋB2$8ЂXГџž(E$(1),"-"ЋB2$):…XДВ0Ї MN$Гџ(E$(1),XЋ3,4):MГџ‰("&H"Ћџ(E$(1),XЋ7,1)):Ѕ9608gЌXГџž(E$(2),"-"ЋB2$):…XДВ0Ї MN$Гџ(E$(2),XЋ3,4):MГџ‰("&H"Ћџ(E$(2),XЋ7,1)):Ѕ9608’ЖMN$Г"FDB ":І1110:O$ГO$Ћ" $"ЋB1$ЋB2$:8гРˆ M Ѕ 460,480,500,520,790,820,840,860,880,920,980,1020,10608хЪ:ƒPAGE 3 MODE9дІ1100:B2ГD:B2$ГD$:O$ГO$ЋB2$9ZоXГџž(E$(3),"-"ЋB2$):…XДВ0Ї MN$Гџ(E$(3),XЋ3,4):MГџ‰("&H"Ћџ(E$(3),XЋ7,1)):Ѕ9609dшЅ9509€ђ:ƒINHERENT TFR,EXG MODE9ђќB2Гџ†(A):XГ(B2 А 240)Ў16:І1030:…R$Г""Ї740:„S$ГR$:XГ(B2 А 15):І1030:…R$Г""Ї740:„І1120:O$ГO$Ћ" "ЋS$Ћ","ЋR$::……XГ0ЇR$Г"D":„…XГ1ЇR$Г"X":„…XГ2ЇR$Г"Y":„…XГ3ЇR$Г"U":„…XГ4ЇR$Г"S":„…XГ5ЇR$Г"PC":„…XГ8ЇR$Г"A":„…XГ9ЇR$Г"B":„…XГ10ЇR$Г"CCR":„…XГ11ЇR$Г"DPR":„R$Г"":‹:Ї:ƒINHERENT PSH,PUL MODE:ш$І1120:DГ1:R$Г"":…џ(MN$,1)Г"S"ЇS$Г"CABDXYUP":„S$Г"CABDXYSP";.€XГ1Ѕ8:…(B2 А D)ДВ0ЇR$ГR$Ћџ(S$,X,1)Ћ",";U8DГDЋD:‹X:…R$ДВ""ЇR$ГџŽ(R$,џ‡(R$)Ќ1):…џ(R$,1)Г"P"ЇR$ГR$Ћ"C";hBO$ГO$Ћ" "ЋR$:;LDГџ†(A):D$Гџ(џœ(DЋ256),2):AГAЋ1:;šVЅ1150;Т`І1100:B2ГD:B2$ГD$:O$ГO$ЋB2$:Ѕ1150<jІ1100:B2ГD:B2$ГD$:І1100:B3ГD:B3$ГD$:O$ГO$ЋB2$ЋB3$:Ѕ1150œ‡K$;: 200,1:…A$Г"M"ЇNГЌ2:‹N :„…A$Г" "ЇAГAЋ1:Ѕ1170:„…A$Гџ‹(8)ЇAГAЌ1:Ѕ1170>І…A$Г"/"Ї1200:„…A$Г"@"Ї240:„‹N:…џ‡(A$)Г5ЇAГџ‰("&H"Ћџ(A$,2)):Ѕ1170:„ 50,1:’A,џ‰("&H"ЋA$):AГAЋ1:Ѕ1170>ПАA$Г"":Л‰A$:€NГ1Ѕ џ‡(A$):’A,џŠ(џ(A$,N,1)):AГAЋ1:‹N:Ѕ1170 „…A$Гџ‹(8)ЇAГAЌ1:Ѕ1170>І…A$Г"/"Ї1200:„…A$Г"@"Ї240:„‹N:…џ‡(A$)Г5ЇAГџ‰("&H"Ћџ(A$,2)):Ѕ1170:„ 50,1:’A,џ‰("&H"ЋA$):AГAЋ1:Ѕ1170>ПАA$Г"":Л‰A$:€NГ1Ѕ џ‡(A$):’A,џŠ(џ(A$,N,1)):AГAЋ1:‹N:Ѕ1170џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§*P ‚ ************************************************************************Ÿ‚ * DiskPlus Version 4.3 **ю‚ * (C) 1987 by James E. Hartman *+=(‚ * *+Œ2‚ * Takes disk in drive 0 and creates transfer files on drive 1 *+л<‚ * -or- *,*F‚ * Takes files on drive 1 and re-creates original disk on drive 0. *,yP‚ * *,ШZ‚ * Resulting files should be sent via XMODEM for best results. *-d‚ ***********************************************************************-n:ƒ-Ux:ƒWIDTH 32:CMP:REM CoCo 3s should remove initial '.-\‚:ƒ-ŒŒž3:•6000:б 2,1000:Œ I0$(18),I1$(18),I2$(18)-ь–‡@0,џ‹(190);џЁ(30,188);џ‹(189);џ‹(186);:‡@63,џ‹(181);џ‹(187);џЁ(30,179);џ‹(183);џЁ(32,163);.  € YГ7 Ѕ 31:(0,Y):(63,Y):‹.FЊ‡@41,"diskplus";:‡@50,"v";:’1076,52:’1077,46:’1078,51.lД‡@132,"<1> CONVERT DISK TO FILE";.’О‡@164,"<2> CONVERT FILE TO DISK";.ИШ‡@196,"<3> COLLECT DISK/DRIVE 1";.ов‡@228,"<4> EXIT PROGRAMME ";.јм‡@490,"BETA TEST-KS";/цA$Гџ’:… A$Г"" Ї 230/8№AГџ‰(A$):… AД1 Б AВ4 Ї   5,1:Ѕ 230/ІњЩ"L255;O3;":€IГ1Ѕ7:‡@101Ћ(32­A),џ‹(48ЋA);:Щ"5;1;5;":’ 1125Ћ(32­A),48ЋA:Щ"1;5;1;":‹:‡@101Ћ(32­A),џ‹(48ЋA);/Рˆ A Ѕ300,490,730,660/Ч‚ /т‚ ** CONVERT D TO F **/ш"‚0",‡@325,"ENTER OUTPUT FILENAME:";:І 1130:… Z$Г"" Ї 140056™"D",#1,Z$,2580A@KГ1:LГ10iJа #1,2 џЇ H0$,128 џЇ H1$,128 џЇ H2$0xT€ TГ0 Ѕ 340‡^€ SГ1 Ѕ 180“hІ 10900Ќrп0,T,S,I1$(S),I2$(S)0г|‹ S:€ SГ1 Ѕ 18:… TГ34 А SГ18 Ї 4001†… I1$(S)ГџЁ(128,255) А I2$(S)ГI1$(S) Ї 4401 д H1$ГI1$(S):д H2$ГI2$(S)1>šI0$Гџ‹(T)Ћџ‹(S):д H0$ГI0$1WЄХ #1,K:KГKЋ1:І 10901аЎ… KВ127 Ї š:І 940:џ(Z$,џ‡(Z$)Ќ2,1)Гџ‹(48ЋL):™"D",#1,Z$,258:а #1,2 џЇ H0$,128 џЇ H1$,128 џЇ H2$:KГ1:LГLЋ1:‡@361,Z$;1кИ‹ S,T1чТš:Ѕ 1401эЬ‚2ж‚ ** CONVERT F TO D **2р‚2Hъ‡@325,"ENTER INPUT FILENAME :";:І 1130:… Z$Г"" Ї 1402[є™"D",#1,Z$,2582uўKГ1:LГ1:LLГџЅ(1):DZГ02œа#1,2 џЇ H0$,128 џЇ H1$,128 џЇ H2$2В… KВLL Ї š:Ѕ 5802УФ #1,K:KГKЋ13&I0$(L)ГH0$:I1$(L)ГH1$:I2$(L)ГH2$:… I0$(L)Гџ‹(34)Ћџ‹(18) Ї DZГ130І 109030:LГLЋ1:… LГ19 Ї 580 :„ 5303†D€ ZГ1 Ѕ LЌ1:TГџŠ(џŽ(I0$(Z),1)):SГџŠ(џ(I0$(Z),1)):… (TВ34) Б (SД1) Б (SВ18) Ї 6003ЇNр0,T,S,I1$(Z),I2$(Z):І 10903ХX‹ Z:LГ1:… KВLL Ї š :„ 5303жb… DZГ1 Ї 1404lџ(Z$,џ‡(Z$)Ќ2,1)Гџ‹(48ЋM):І 1020:MГMЋ1:‡@361,Z$;:Ѕ 5004v‚4+€‚ ** EXIT **41Š‚4Q”‡@327,"REALLY EXIT? (Y/N)";4ižA$Гџ’:… A$Г"" Ї 6704Ј… A$Г"Y" Б A$Г"y" Ї ž:‡"PROGRAMME RUN ENDED.":Š4пВ… A$ДВ"N" А A$ДВ"n" Ї   5,1:Ѕ 670 :„ ‡@327,џЁ(18,175);:Ѕ2304хМ‚4ўЦ‚ ** COLLECT DISK **5а‚5-к‡@323,"INSERT DISK TO BE COLLECTED";5Vф‡@355,"INTO DRIVE 1 AND HIT SPACE.";5ˆюZK$Гџ’:… ZK$Гџ‹(13) Ї 140 :„ … ZK$ДВ" " Ї 7505Ај‡@323,џЁ(27,175);:‡@355,џЁ(27,175);5кп1,17,2,A1$,A2$:A1$ГџŽ(A1$,68):A2$Г""5щ € IГ1 Ѕ 685џKГџŠ(џ(A1$,I,1))6 … KД192 Ї 8906<*TГџ((IЌ1)Ў2):… (IЌ1)Ў2ГT Ї HГ0 :„ HГ16O4… IВ34 Ї TГTЋ16h>… KГ255 Ї SГ9:Ѕ 8606tHSГ201ЌK6„R… SГ0 Ї 8906І\€ JГ(H­9)Ћ9 Ѕ (H­9)Ћ10ЌS Љ Ќ16ъfр1,T,J,џЁ(128,255),џЁ(128,255):‡@327,Э"TRACK:## SECTOR:##";T;J;6ђp‹ J6њz‹ I7„Ѕ 1407 Ž‚7(˜‚ ** CHECK FREE SPACE **7.Ђ‚7fЌ… џЃ(1)ВГ15 Ї ‡@422,џЁ(20,175);:‡@450,џЁ(28,175);:7ˆЖ‡@422,"DISK IN DRIVE 1 FULL";7СР‡@450,"INSERT NEW DISK / HIT SPACE.";:  100,1:  50,17еЪ… џ’ДВ" " Ї 9707рдЅ 9407цо‚8ш‚ ** CHECK FILE EXIST **8 ђ‚8Xќ™"D",#1,Z$,1:… џЅ(1)Г0 Ї š:в Z$ :„ š:‡@419,џЁ(26,175);:‡@453,џЁ(22,175);:8€‡@419,"INSERT DISK WITH NEXT FILE";8Г‡@453,"IN SEQUENCE; HIT SPACE";:  100,1:  50,18ђZK$Гџ’:… ZK$Г" " Ї 1020 :„ … ZK$Гџ‹(13) Ї š:Ѕ 140 :„ 10508ј$‚9.‚ ** DISPLAY T/S INFO **98‚9OB‡@322,Э"TRACK:## SECTOR:## RECORD:###";T;S;K;:9UL‚9nV‚ ** GET FILENAME **9t`‚9”j‡@361," /000:1";:MГ19žtZ$Г""9З~A$Гџ’:… A$Г"" Ї 11509жˆ… A$Гџ‹(13) А џ‡(Z$)Г0 Ї :’… A$Гџ‹(8) А џ‡(Z$)Д2 Ї ‡@361," ";:Ѕ 1140:Cœ… A$Гџ‹(8) Ї Z$ГџŽ(Z$,џ‡(Z$)Ќ1):‡@361Ћџ‡(Z$)," ";:Ѕ 1150:eІ… џ‡(Z$)Г8 Ї Z$ГZ$Ћ"/000:1"::šА… A$ДВџ‹(13) Ї Z$ГZ$ЋA$:‡@360Ћџ‡(Z$),A$;:Ѕ 1150:ОК… џ‡(Z$)ДВ8 Ї Z$ГZ$Ћ" ":Ѕ 1210:гФZ$ГZ$Ћ"/000:1":Ѕ 1140:Cœ… A$Гџ‹(8) Ї Z$ГџŽ(Z$,џ‡(Z$)Ќ1):‡@361Ћџ‡(Z$)," ";:Ѕ 1150:eІ… џ‡(Z$)Г8 Ї Z$ГZ$Ћ"/000:1"::šА… A$ДВџ‹(13) Ї Z$ГZ$ЋA$:‡@360Ћџ‡(Z$),A$;:Ѕ 1150:ОК… џ‡(Z$)ДВ8 Ї Z$ГZ$Ћ" ":Ѕ 1210:гФZ$ГZ$Ћ"/000:1":џ D&8:ƒDAVE CLARK, 11657 SUMMERHAVEN ST, LOUIS MO 63141&X:ƒ COPYRIGHT (C) CLOAD 1982&i :ƒT DISKEDIT&r•900&‘Œ H$(15):CM$Г" +=-TGDMWX?"&Ќ(H1$Г"0123456789ABCDEF"&о2‰"PRINTER(Y/n)";A$:…A$Г"Y"ЇPГЌ2:’150,41::„PГ0' 7‰"INSTRUCTIONS?(Y/n)";A$:…A$Г"Y"ЇІ1100'=<‰"TRACK-SECTOR/GRANULE(t/G/D)";A$:…A$ДВ"G"Ѕ78'QA‰"GRANULE #";GR'kF…GRД0БGRВ67Ї 1,1:Ѕ70'{KІ430:Ѕ110'–N…A$Г"D"ЇTГ17:SГ3:Ѕ100'ІP‰"TRACK#";T'ОU…TД0БTВ34Ї 1,1:Ѕ80'ЯZ‰"SECTOR#";S'ч_…SД1БSВ18Ї 1,1:Ѕ90'ёdІ400'ќn…PГ0Їž(xп 0,T,S,RA$,B$((‚‡#P,Є10);"DISK DUMP"(RŒ‡#P,"TRACK";T;"SECTOR";S;"GRANULE";GR(…–KГ0:R$ГRA$:І210:…A$Г" "Ѕ160KГ128:R$ГB$:І210(››KГ128:R$ГB$:І210(О Л ‰"+,=,-,T,G,D,M,W,X,? >>";A$(жЁ…A$Г"?"І1410:Ѕ160(фЂ…A$Г"X"ЇŠ(њЊ…A$Г"+"ЇAГ1:Ѕ202) Џ…A$Г"="Ѕ130)"Д…A$Г"-"ЇAГЌ1:Ѕ202)2Й…A$Г"M"Ї500)BО…A$Г"T"Ѕ80)RУ…A$Г"D"Ѕ78)dХ…A$Г"W"Ѕ1000){Ш…A$Г"G"Ѕ65:„Ѕ160)•ЪSГAЋS:…SВ18ЇTГTЋ1:SГ1)ЉЬ…SД1ЇTГTЌ1:SГ18)ЛЮ…TД0БTВ34Ї160)ХаЅ100)дв€IГ1Ѕ128Љ8)шзA$Гџ’:…A$Г" "Ї*м‡#P,џ("0"Ћџœ(IЋKЌ1),2);" ";:€JГI ЅIЋ7**цR1ГџŠ(џ(R$,J,1))*N№H$Гџ("0"Ћџœ(R1),2):‡#P,H$;" ";*Tњ‹*Z‡*j‡#P," ";*„:ƒ CHARACTER*“"€JГI Ѕ IЋ7*Ќ,…џ(R$,J,1)Д" "Ѕ330*Щ6…џ(R$,J,1)Вџ‹(127)Ѕ330*щ@‡#P,џ(R$,J,1);" ";::Ѕ340*јJ‡#P,". ";+T‹:‡#P:‹:+^:ƒ INITIAL+"h:ƒ+,r‡#P:+2|+P:ƒ CONVERT T/S TO GRANULE+xT1Гџ(SЎ10):GRГT­2ЋT1:…TВ17ЇGRГGRЌ2+~š+œЄ:ƒ CONVERT GRANULE TO T/S+ЌЎ…GRВ33Ѕ460+ЯИTГџ(GRЎ2):…GRЌT­2Г0ЇSГ1:„SГ10+йТЅ470, ЬG1ГGRЌ34:TГџ(G1Ў2)Ћ18:…G1Ќ(TЌ18)­2Г0ЇSГ1:„SГ10,ж,Qє‰"MODIFY SECTOR-START";K$:KГџ‰("&H"ЋK$):…KВ255Ї 1,10Ѕ500,qљ…KВ127ЇKГKЌ127:Ѕ520:„KГKЋ1,šўJГ0:R$ГRA$:І550:RA$ГR$:…A$Г"X"Ѕ160,ЪJГ128:R$ГB$:І550:B$ГR$:…A$Г"X"Ѕ160:„Ѕ510,§&‡#P,џ("0"Ћџœ(JЋKЌ1),2);" ";:R1ГџŠ(џ(R$,K,1))-0H$Гџ("0"Ћџœ(R1),2):‡H$;" ";-@:CLГџ†(&H88)­256Ћџ†(&H89)Ќ1024-|<…CLЌџ(CLЎ32)­32В22ЇCLГџ(CLЎ32)­32Ћ32:…CLВ480ЇCLГ480:‡-Ћ=‡@CL,џ‹(191);:A$Гџ’:…A$Г""Ї‡@CL," ";:Ѕ573-Л?…A$Г"X"Ї‡:-§DIГџž(1,"0123456789ABCDEF",A$):…IДВ0Ї‡@CL,A$;:AL$ГAL$ЋA$:Ѕ570.#N…A$Г"^"ЇKГKЌ1:…KД1ЇKГ128::„Ѕ550.JX…A$Гџ‹(10)ЇKГKЋ1:…KВ128ЇKГ1::„550.eb…A$ДВџ‹(13)Ї 1,1:Ѕ570.{gAL$Гџ("0"ЋAL$,2).МlR$ГџŽ(R$,KЌ1)Ћџ‹(џ‰("&H"ЋAL$))Ћџ(R$,KЋ1):KГKЋ1:…KВ128ЇKГ128.ЦvЅ550/ ш‡"BUFFER CONTAINS SECTOR -","TRACK ";T;"SECTOR";S;"GRANULE";GR/0ђ‰"WRITE TO TRACK";T1$:‰"SECTOR";S1/dќ…T1$ДВ""ЇT1Гџ‰(T1$):…TД0БTВ69Ї 1,1:Ѕ1020:„TГT1/…S1ДВ0Ї…S1Д1БS1В18Ї 1,1:Ѕ1030:„SГS1/Э‡"WRITE TO TRACK"T"SECTOR"S:‰"Y/n";A$:…A$Г"Y"Їр0,T,S,RA$,B$/зЅ160/оLž0/їVA$:…A$ДВ"^P^"Ѕ11400`І1380:…PГЌ2Ї‡#P:‡#P0jЅ111007t…A$Г"^S^"ЇІ1400:Ѕ11100S~…џ‡(A$)Ћџš(P)В32ЇІ14000sˆINГINЋџ‡(A$):…INВ480ЇІ13800Ќ’…A$ДВ"END"Ї‡#P,A$;:…џš(P)ДВ0Ї‡#P," ";:Ѕ1110:„Ѕ11100ЗœІ13800ФІІ1410:1>А†" THE",DISKEDIT PROGRAM,WILL,READ,ANY SECTOR,ON,THE,DISK,INTO,A,BUFFER,AND,DISPLAY,THE,BUFFER,IN,HEX,AND,CHARACTER.1pК†IT,WILL,ALSO,ALLOW,MODIFICATION,OF,ANY,BYTE.1сФ†THE,INITIAL,DISK,ADDRESS,PROMPT,(t/G/D),REQUESTS,THE,TYPE,OF,DISK,ADDRESSING,YOU,WISH,TO,USE,(SEE,"BELOW):"1џЮ†^S^,'t',-,TRACK,/,SECTOR2и†^S^,'G',-,GRANULE,NUMBER2Fт†^S^,'D',-,FIRST,SECTOR,OF,DIRECTORY2–ь†" THE",DISPLAY,SHOWS,THE,DISK,ADDRESS,IN,TRACK,SECTOR,AND,GRANULE,FORMAT.2оё†^P^," THE",DEFAULT,RESPONSE,FOR,EACH,COMMAND,IS,SHOWN,IN,REVERSE.3 ѓ†DO,NOT,RESPOND,WITH,THE,REVERSE,IMAGE.3oі†^S^," THE",SPACE,BAR,WILL,TERMINATE,THE,DISPLAY,OF,THE,CURRENT,RECORD,AND,PRINT,A,PROMPT,LINE.3М † THIS,PROMPT,LINE,ALLOWS,VARIOUS,ACTIONS,EXPLAINED,BY,THE,HELP,COMMAND.43†^P^," THIS",PROGRAM,IS,VERY,USEFUL,AS,A,PROGRAMMING,TOOL.,IT,ALSO,WILL,HELP,YOU,UNDERSTAND,THE,DATA,ON,THE,DISK.4q†" ANOTHER",VERY,CRITICAL,USE,IS,TO,CORRECT,DISK,ERRORS.4Ч(†SHOULD,YOU,GET,A,DISK,ERROR,PEEK,LOCATIONS,236,AND,237,FOR,THE,TRACK,AND,SECTOR.5˜2† RUN,DISKEDIT,AND,WRITE,A,BUFFER,TO,THE,SECTOR,IN,ERROR.,MOST,OFTEN,THIS,WILL,ALLOW,THE,SECTOR,TO,BE,READ.,NATURALLY,THE,SECTOR,WILL,NOT,CONTAIN,GOOD,DATA.,BUT,BETTER,TO,LOOSE,A,SECTOR,AND,GAIN,A,DISK!!!5з<†^P^," THE",HELP,COMMAND,IS,DISPLAYED,ON,THE,NEXT,SCREEN.6iF†^S^," RESPOND",TO,THE,HELP'S,enter,REQUEST,WITH,ANY,OF,THE,COMMANDS,INSTEAD,AND,YOU,WILL,RECEIVE,MORE,DETAILED,INFORMATION,ON,THAT,COMMAND.6rZ†END6™d‡@480,"press any key to continue";6МnA1$Гџ’:…A1$Г""Ї1390:„ž0:INГ0:6йx‡#P:INГџ(INЎ32)­32Ћ32:6ы‚ž:‡@13,"HELP"7Œ‡"'SPACE BAR' - STOPS BUFFER LIST"73–‡"'+' - DISPLAY NEXT SECTOR"7X ‡"'=' - DISPLAY CURRENT SECTOR."7}Њ‡"'-' - DISPLAY PREVIOUS SECTOR"7ЄД‡"'T' - GIVE TRACK/SECTOR ADDRESS"7ЦО‡"'G' - GIVE GRANULE NUMBERS"8 Ш‡"'D' - READ AND DISPLAY THE FIRST SECTOR OF THE DIRECTORY"80в‡"'M' - MODIFY SECTOR IN BUFFER"8Nм‡"'W' - WRITE THE BUFFER"8vц‡"'X' - EXIT PROGRAM":‡"'?' - HELP"8кы‡" - TO END HELP OR HIT A COMMAND KEY FOR DETAILED HELP ON THE COMMAND";9№‡@32­13,"enter";:A$Гџ’:…A$Г""Ї‡@32­13," ";:Ѕ15209+њ…A$Гџ‹(13)Ї‡:‡:‡:9Lž0:AГџž(1,CM$,A$):…AГ0Ѕ15709ŒˆA І1590,1610,1640,1660,1690,1730,1860,1760,1890,1980,20009žІ1380:Ѕ1410:"‡"INVALID RESPONSE: KEY ANY OF THE COMMANDS FOR MORE INFORMATION OR THE ONLY THE ENTER KEY TO RETURN TO THE MAIN MENU":), 1,1:Ѕ1560:i6‡"THE SPACE BAR WILL TERMINATE THE PRINTING OF THE BUFFER.":o@:ДJ‡"THE '+' COMMAND WILL READ THE NEXT SECTOR AND DISPLAY IT.":‡;T‡"IF THE CURRENT SECTOR IS 18 THENTHE TRACK IS INCREMENTED AND THESECTOR NUMBER IS 1.";^;Dh‡"THE '=' COMMAND WILL PRINT THE BUFFER.";Jr;‚|‡"THE '-' COMMAND WILL PRINT THE PREVIOUS SECTOR.";р†‡:‡"IF THE CURRENT SECTOR IS 1 THEN THE TRACK IS DECREMENTED AND THESECTOR NUMBER IS 18.";ц<4š‡"THE 'T' COMMMAND WILL REQUEST THE TRACK NUMBER AND THE SECTOR NUMBER.<“Є‡:‡"ONLY TRACK NUMBERS IN THE RANGE 0-35 AND SECTOR NUMBERS IN THE RANGE 1-18 ARE VALID."<кЎ‡:‡"NUMBERS NOT IN THIS RANGE WILL BE REJECTED WITH A BLAH SOUND"<рИ=Т‡"THE 'G' COMMAND WILL REQUEST GRANULE NUMBERS."=WЬ‡:‡"ONLY GRANULE NUMBERS IN THE RANGE 0-67 ARE VALID."=bжЅ1710=‘р‡"THE 'M' COMMAND WILL MODIFY THE BUFFER."=ѕъ‡" THE PROMPT, 'MODIFY SECTOR- START' MUST BE ANSWERED WITH THESTARTING BYTE NUMBER IN HEX.">:є‡"TWO NUMBERS WILL BE DISPLAYED WITH A FLASHING BLOCK CURSOR.">vў‡"THE FIRST NUMBER IS THE BYTE DISPLACEMENT IN HEX.">А‡"THE SECOND NUMBER IS THE VALUE OF THE BYTE IN HEX.?‡" USE THE UP AND DOWN ARROW KEYSTO MOVE THRU THE RECORD AND THE ENTER KEY TO CHANGE THE DATA."?yІ1380:‡" THE DATA USED TO MODIFY A BYTEDOES NOT CHANGE UNLESS YOU KEY IN A DIFFERENT VALUE."?н&‡"THIS ALLOWS YOU TO CHANGE MUL- TIPLE BYTES TO THE SAME VALUE WITHOUT REENTERING THE VALUE.@І0‡"FOR EXAMPLE: TO CHANGE BYTES 3A-3F TO 1A, KEY 3A FOR THE START REQUEST, THEN 1A ENTER ENTER ENTER ENTER ENTER ENTER. THEN KEY THE UP ARROW AND YOU WILL SEE THE BYTES HAVE THE 1A VALUE.";@з:‡"ENTER 'X' TO EXIT THE MODIFY COMMAND":A)D‡"THE 'D' COMMAND WILL READ AND DISPLAY THE FIRST SECTOR OF THE DIRECTORY."A›N‡:‡"THE '+' AND '-' COMMANDS MAY BE USED TO PRINT THE ALLOCATOR SECTOR AND THE OTHER DIRECTORY SECTORS."AЁXAиb‡" THE 'W' COMMAND WILL WRITE THEBUFFER TO DISK."BXl‡"caution: INCORRECT USE OF THIS COMMAND MAY DESTROY ALL DATA ON THE DISK. THE AUTHOR IS NOT RESPONSIBLE FOR 'GOOFS'."B›v‡" THE LAST TRACK AND SECTOR NUMBERS USED ARE DISPLAYED."CW€‡" THE 'WRITE TO TRACK?' REQUEST WILL CHANGE THE TRACK NUMBER - KEY 'ENTER' FOR NO CHANGE.":‡" THE 'SECTOR?' REQUEST WILL CHANGE THE SECTOR NUMBER - KEY 'ENTER' FOR NO CHANGE."CЇЁІ1380:‡"THE NEW TRACK AND SECTOR VALUES ARE DISPLAYED WITH A Y/N PROMPT.";D[”‡" UP TO THIS POINT NO CHANGES TOTHE DISK HAVE OCCURED, BUT THE MOMENT OF TRUTH IS AT HAND. IF YOU RESPOND 'Y' YOUR DISK WILL BE CHANGED - DON'T CALL ME IF YOU FOUL UP!"Dњž‡"IF YOU RESPONSE IS ANY OTHER KEYNOTHING WILL BE WRITTEN TO DISK AND YOU ARE ASSURED THAT YOU DIDNOT FOUL UP - BUT YOUR PROBLEM IS NOT SOLVED EITHER!!!"E Ј‡"DECISIONS! DECISIONS! DECISONS!E&ВEVМ‡"THE 'X' COMMAND WILL EXIT THE PROGRAM."EvЦ‡"SO WILL THE BREAK KEY.":E№а‡" THE '?' COMMAND WILL DISPLAY THE HELP MENU. RESPOND WITH ANYCOMMAND TO SEE MORE INFORMATION ABOUT THAT COMMAND.FCк‡:‡" IF YOU DID NOT KNOW THAT ALREADY, HOW DID YOU GET TO THISSCREEN?": THE PROGRAM."EvЦ‡"SO WILL THE BREAK KEY.":E№а‡" THE '?' COMMAND WILL DISPLAY THE HELP MENU. RESPOND WITH ANYCOMMAND TO SEE MORE INFORMATION ABOUT THAT COMMAND.FCк‡:‡" IF Yџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 100 REM --PURPOSE 102 REM 104 REM THIS PROGRAM CALCULATES THE BEGINNING OF DAWN (ASTRONOMICAL, 106 REM NAUTICAL, AND CIVIL), SUNRISE, SUNSET, AND THE END OF DUSK 108 REM (CIVIL, NAUTICAL, AND ASTRONOMICAL). IT IS ACCURATE TO 110 REM WITHIN A MINUTE OR SO DURING THE SECOND HALF OF THE TWENTIETH 112 REM CENTURY. ITS PRECISION DEGRADES NEAR THE POLES WHEN THE SUN 114 REM REMAINS CLOSE TO THE HORIZON FOR LONG PERIODS OF TIME. 116 REM 118 REM --INPUTS-- 120 REM 122 REM LAT. : LATTITUDE EXPRESSED IN DEGREES, MINUTES, AND SECONDS 124 REM WHERE NORTH IS POSITIVE AND SOUTH IS NEGATIVE. FOR 126 REM EXAMPLE, 30.0029 REPRESENTS 30 DEGREES, 00 MINUTES, 128 REM 29 SECONDS NORTH LATTITUDE. 130 REM 132 REM LON. : LONGITUDE EXPRESSED IN DEGREES, MINUTES, AND SECONDS 134 REM WHERE WEST IS POSITIVE AND EAST IS NEGATIVE. FOR 136 REM EXAMPLE, 90.1108 REPRESENTS 90 DEGREES, 11 MINUTES, 138 REM 08 SECONDS WEST LONGITUDE. 140 REM 142 REM YEAR : ENTER A NUMBER BETWEEN 1951 AND 2000 INCLUSIVE. 144 REM 146 REM MONTH : ENTER A NUMBER BETWEEN 1 AND 12 INCLUSIVE. 148 REM 150 REM DAY : ENTER A NUMBER BETWEEN 1 AND 31 INCLUSIVE. 152 REM 154 REM ZONE : TIME ZONE, I.E., THE TIME IN HOURS AND MINUTES THAT 156 REM IS ADDED TO WALL CLOCK TIME TO YIELD UNIVERSAL TIME. 158 REM IN THE FORTY-EIGHT CONTIGUOUS UNITED STATES, REFER 160 REM TO THE TABLE BELOW. 162 REM 164 REM STANDARD DAYLIGHT 166 REM 168 REM EASTERN 5.00 4.00 170 REM CENTRAL 6.00 5.00 172 REM MOUNTAIN 7.00 6.00 174 REM PACIFIC 8.00 7.00 176 REM 178 REM --OUTPUTS-- 180 REM 182 REM OUTPUTS ARE EXPRESSED IN HOURS AND MINUTES ON A TWENTY-FOUR 184 REM HOUR BASIS. FOR EXAMPLE, 6.25 REPRESENTS 6:25 A.M. AND 18.25 186 REM REPRESENTS 6:25 P.M. 188 REM 190 REM THE OUTPUT 0.00 IS A SPECIAL CASE. IT INDICATES THAT THE 192 REM PHENOMENON DOES NOT OCCUR ON THE SPECIFIC DATE. FOR EXAMPLE, 194 REM THE SUN DOES NOT SET IN MIDSUMMER AT HIGH LATITUDES. 196 REM 198 REM 200 REM - CONSTANTS 202 REM 204 A=1.5708 206 B=3.14159 208 C=4.71239 210 D=6.28319 212 REM 214 REM - INPUTS 216 REM 218 Z=30.0000' :INPUT "LAT. ";Z 220 GOSUB 378 222 E=Z*.0174533 224 REM 226 Z=90.0000' INPUT "LON. ";Z 228 GOSUB 378 230 F=Z*.0174533 232 REM 234 H=1984' INPUT "YEAR ";H 236 INPUT "MONTH ";I 238 INPUT "DAY ";J 240 REM 242 Z=5:' INPUT "ZONE ";Z 244 GOSUB 378 246 G=Z*.261799 248 REM 250 REM - DAY OF YEAR 252 REM 254 K=INT((I+9)/12) 256 X=H/4 258 Y=INT(X) 260 Z=X-Y 262 IF Z=0 THEN 266 264 K=K*2 266 H=INT(275*I/9) 268 H=H+J-K-30 270 REM 272 REM - RISING PHENOMENA 274 REM 276 PRINT " " 278 REM 280 I=0 282 J=A 284 GOSUB 404 286 REM 288 R=-.309017 290 GOSUB 510 292 PRINT USING "ASTRONOMICAL DAWN ##.##";V 294 REM 296 R=-.207912 298 GOSUB 510 300 PRINT USING "NAUTICAL DAWN ##.##";V 302 REM 304 R=-.104528 306 GOSUB 510 308 PRINT USING "CIVIL DAWN ##.##";V 310 REM 312 R=-.0145439 314 GOSUB 510 316 PRINT USING "SUNRISE ##.##";V 318 REM 320 REM - SETTING PHENOMRNA 322 REM 324 I=1 326 J=C 328 GOSUB 404 330 REM 332 R=-.0145439 334 GOSUB 510 336 PRINT USING "SUNSET ##.##";V 338 REM 340 R=-.104528 342 GOSUB 510 344 PRINT USING "CIVIL DUSK ##.##";V 346 REM 348 R=-.207912 350 GOSUB 510 352 PRINT USING "NAUTICAL DUSK ##.##";V 354 REM 356 R=-.309017 358 GOSUB 510 360 PRINT USING "ASTRONOMICAL DUSK ##.##";V 362 REM 364 PRINT " " 366 PRINT "------------" 368 PRINT " " 370 GOTO 234 372 REM 374 REM - SEXAGESIMAL TO DECIMAL 376 REM 378 W=1 380 IF Z>=0 THEN 386 382 W=-1 384 Z=ABS(Z) 386 X=INT(Z) 388 Z=(Z-X)*100 390 Y=INT(Z) 392 Z=(Z-Y)*100 394 Z=(X+Y/60+Z/3600)*W 396 RETURN 398 REM 400 REM - APPROXIMATE TIME 402 REM 404 K=H+((J+F)/D) 406 REM 408 REM - SOLAR MEAN ANOMALY 410 REM 412 L=K*.017202 414 L=L-.0574039 416 REM 418 REM - SOLAR TRUE LONGITUDE 420 REM 422 Z=SIN(L) 424 M=L+.0334405*Z 426 Z=SIN(2*L) 428 M=M+3.49066E-04*Z 430 M=M+4.93289 432 REM 434 REM - QUADRANT DETERMINATION 436 REM 438 Z=M 440 GOSUB 608 442 M=Z 444 X=M/A 446 Y=INT(X) 448 Z=X-Y 450 IF Z<>0 THEN 454 452 M=M+4.84814E-06 454 N=2 456 IF M>C THEN 470 458 N=1 460 IF M>A THEN 470 462 N=0 464 REM 466 REM - SOLAR RIGHT ASCENSION 468 REM 470 P=.91746*TAN(M) 472 P=ATN(P) 474 REM 476 REM - QUADRANT ADJUSTMENT 478 REM 480 IF N=0 THEN 496 482 IF N=2 THEN 488 484 P=P+B 486 GOTO 496 488 P=P+D 490 REM 492 REM - SOLAR DECLINATION 494 REM 496 Q=.39782*SIN(M) 498 Q=Q/SQR(-Q*Q+1) 500 Q=ATN(Q) 502 RETURN 504 REM 506 REM - COORDINATE CONVERSION 508 REM 510 S=R-(SIN(Q)*SIN(E)) 512 S=S/(COS(Q)*COS(E)) 514 REM 516 REM - NULL PHENOMENON 518 REM 520 Z=ABS(S) 522 IF Z<=1 THEN 534 524 V=0 526 RETURN 528 REM 530 REM - ADJUSTMENT 532 REM 534 S=S/SQR(-S*S+1) 536 S=-ATN(S)+A 538 IF I=1 THEN 548 540 S=D-S 542 REM 544 REM - LOVAL APPARENT TIME 546 REM 548 Z=.0172028*K 550 T=S+P-Z-1.73364 552 REM 554 REM - UNIVERSAL TIME 556 REM 558 U=T+F 560 REM 562 REM - WALL CLOCK TIME 564 REM 566 V=U-G 568 REM 570 REM - DECIMAL TO SEXAGESIMAL 572 REM 574 Z=V 576 GOSUB 608 578 Z=Z*3.81972 580 V=INT(Z) 582 W=(Z-V)*60 584 X=INT(W) 586 Y=W-X 588 IF Y<.5 THEN 592 590 X=X+1 592 IF X<60 THEN 598 594 V=V+1 596 X=0 598 V=V+X/100 600 RETURN 602 REM 604 REM - NORMALIZATION 606 REM 608 IF Z>=0 THEN 614 610 Z=Z+D 612 GOTO 608 614 IF ZIXORPN<0THEN450 470 RETURN 480 GOSUB830:PRINT@448,"COMMAND (HIT H FOR HELP):"; 490 F$=INKEY$:IFF$=""THEN490 500 RETURN 510 CLS:PRINT"COMMANDS":PRINTSTRING$(32,"=") 520 PRINT" C COPY FILE" 530 PRINT" H HELP (THIS LIST)" 540 PRINT" K KILL FILE" 550 PRINT" N RENAME FILE" 560 PRINT" R RUN FILE" 570 PRINT" P PURGE DISK" 580 PRINT" NEXT PAGE" 590 PRINT" D CHANGES DRIVE #" 600 PRINT" B BACKUP DISK" 610 GOSUB 1050 620 A$=INKEY$:IF A$=CHR$(13)THEN630ELSE620 630 GOSUB 390:RETURN 640 GOSUB450:IFPN=0THENRETURN 650 GOSUB830:PRINT@448,"DELETE FILE "PN$(PN)" (Y/N)?"; 660 A$=INKEY$:IFA$="Y"THEN670ELSEIFA$="N"THEN680ELSE660 670 KILLPN$(PN):PN$(PN)="":PT(PN)=9 680 GOSUB390:RETURN 690 GOSUB450:IFPN=0THENRETURN 700 IFPT(PN)=0THENLOADPN$(PN),R 710 ' 720 IFPT(PN)=2THENLOADMPN$(PN):POKE&HFF40,0:CLS:EXEC 730 GOSUB840:PRINT@480," I CAN'T RUN THAT! ";:RETURN 740 PG=PG+1:IFPG>PMTHENPG=1 750 GOSUB390:RETURN 760 GOSUB450:IFPN=0THENRETURN 770 GOSUB830:PRINT@448,"NEWNAME:";:INPUTNN$ 780 IFNN$=""THENRETURN 790 FORI=1TOIX 800 IFNN$=PN$(I)THENGOSUB840:PRINT@480,"CAN'T RENAME: NEWNAME EXISTS";:RETURN 810 NEXTI 820 RENAMEPN$(PN)TONN$:PN$(PN)=NN$:GOSUB390:RETURN 830 PRINT@448,STRING$(31," ");:RETURN 840 PRINT@480,STRING$(31," ");:RETURN 850 FORI=1TOIX:GOSUB830 860 PRINT@448,"KILL "PN$(I)" (Y/N/Q)? ";:A$=INKEY$:IFA$="Y"THEN870ELSEIFA$="N"THEN880ELSEIFA$="Q"THENRETURNELSE860 870 KILLPN$(I) 880 NEXTI 890 RETURN 900 GOSUB450:IFPN=0THENRETURN 910 GOSUB830:PRINT@448,"SINGLE DRIVE (Y/N)?"; 920 SY$=INKEY$:IFSY$="Y"THEN970ELSEIFSY$="N"THEN930ELSE920 930 GOSUB830:PRINT@448,"FROM WHICH DRIVE ";:LINEINPUTZD1$:ZD$=":"+ZD1$ 940 GOSUB830:PRINT@448,"TO WHICH DRIVE ";:LINEINPUTZE1$:ZE$=":"+ZE1$ 950 COPYPN$(PN)+ZD$TOPN$(PN)+ZE$ 960 GOSUB830:PRINT@448,PN$(PN)" DONE !";:FORY=1TO800:NEXTY:GOSUB390:RETURN 970 COPYPN$(PN):GOSUB390:RETURN 980 GOSUB830 990 PRINT@448,"BACKUP: ARE YOU SURE (Y/N)":B$=INKEY$:IFB$="Y"THEN1000ELSEIFB$="N"THENRETURNELSE990 1000 GOSUB830:PRINT@448,"SINGLE DRIVE (Y/N)?"; 1010 M$=INKEY$:IFM$="Y"THEN1040ELSEIFM$="N"THEN1020ELSEIFM$<>"Y"ANDM$<>"N"THEN1010 1020 GOSUB830:PRINT@448,"FROM WHICH DRIVE ";:LINEINPUTZD1$:ZD$=":"+ZD1$:GOSUB830:PRINT@448,"TO WHICH DRIVE ";:LINEINPUTZE1$:ZE$=":"+ZE1$ 1030 FORI=1TOIX:GOSUB830:PRINT@448,"BACKING UP ";PN$(I);:COPYPN$(I)+ZD$TOPN$(I)+ZE$:NEXTI:RETURN 1040 FORI=1TOIX:COPY PN$(I):NEXT:RETURN 1050 PRINT@448,"PRESS TO CONTINUE";:RETURN 1060 GOSUB830:PRINT@448,"NEW DRIVE# (0-3)";:INPUTZ:IFZ<0ORZ>3THEN1060 1070 FORI=1TOIX:PN$(I)="":NEXTI:GOSUB190:GOSUB390:RETURN RESS TO CONTINUE";:RETURN 1060 GOSUB830:PRINT@448,"NEW DRIVE# (0-3)";:INPUTZ:IFZ<0ORZ>3THEN1060 1070 FORI=1TOIX:PN$(I)="":NEXTI:GOSUB190:GOSUB390:RETURN џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ&%:ƒ*****************************&I:ƒ* DISKSEEK - BY MIKE BERENZ *&m:ƒ*****************************&Ћ ž:‡џЁ(33,175);" DISKSEEK - BY: MIKE BERENZ ";џЁ(33,175)&к‡@449,"INSERT DISK AND HIT ";:Л‰ Z$&я• 500:TГ17:SГ9:ž'(‡@480,"TRACK="T,"SECTOR="S;' 2п0,T,S,A$,B$'.<‡@0,A$;B$'JF€ QГ341 Ѕ 344:’ Q,255:‹'ЕP… џ†(341)Г247 Ї TГTЋ1 :„ … џ†(342)Г247 Ї TГTЌ1 :„ … џ†(343)Г247 Ї SГSЌ1 :„ … џ†(344)Г247 Ї SГSЋ1 :„ 80'ЬZ… SД1 Ї SГ18:TГTЌ1'уd… SВ18 Ї SГ1:TГTЋ1'ѓn… TД0 Ї TГ0(x… TВ34 Ї TГ34(‚ž:Ѕ 40п0,T,S,A$,B$'.<‡@0,A$;B$'JF€ QГ341 Ѕ 344:’ Q,255:‹'ЕP… џ†(341)Г247 Ї TГTЋ1 :„ … џ†(342)Г247 Ї TГTЌ1 :„ … џ†(343)Г247 Ї SГSЌ1 :„ … џ†(344)Г247 Ї SГSЋ1 :„ 80'ЬZ… SД1 Ї SГ18:TГTЌ1'уd… SВ18 Ї SГ1:TГTЋ1'ѓn… TД0 Ї TГ0(x… TВ34 R || #define MAX_LEN 127 #define SQUOTE 1 #define DQUOTE 2 #define QUOTE 3 #define REM 4 #define SLASH 8 #define ASTERISK 16 main(argc,argv) int argc; char *argv[]; { int *infile; char *line_ptr; char *token_ptr; static char line[MAX_LEN]; static char token[MAX_LEN]; static char *word[] = { "char","int","short","long","unsigned", "float","double", "struct","union","typedef","enum", "auto","extern","register","static", "if","switch","continue","case", "else","default","for","entry", "do","break","while","return", "goto","void","sizeof" }; int flag = 0; int count; int word_ct = ( sizeof(word) / sizeof(char*) ); static int counter[ ( sizeof(word) / sizeof(char*) ) ]; if(argc!=2) { fprintf(stderr,"\n\nKEYWORDS ERROR!"); fprintf(stderr,"\n\nCorrect Syntax is:"); fprintf(stderr,"\n\nKEYWORDS [d:][path]SOURCE_FILE[.ext]\n"); BEEP; return; } if( (infile = fopen(argv[1],"r")) == NULL ) { fprintf(stderr,"\nSource File Error!\n"); BEEP; exit(1); } fprintf(stderr,"\nSearching for %d keywords in %s ... ",word_ct,argv[1]); for(token_ptr=token,line_ptr=line;fgets(line,MAX_LEN,infile);line_ptr=line) { while( (*line_ptr) != NULL ) { while((isalpha(*liџ4.& Р 1: • 500,&H4FBF&Z€ IГ&H4FC0 Ѕ &H4FE3 :ƒPOKE IN MACHINE CODE FOR DISK SPEED TEST&c D$&w(’ I,џ‰("&H"ЋD$)&2‹ I&‡<ž 4&ЏFRESГ3 :ƒOP CODE FOR RESTORE COMMAND&ъPSIГ&H50 :ƒOP CODE FOR STEP IN @ 6MS, USE &H53 FOR 30MS'&ZSOГ&H70 :ƒOP CODE FOR STEP OUT @ 6MS, USE &H73 FOR 30MS'CdMAXГ34 :ƒMAX # OF TRACKS'pnCГ&H29 :ƒ SELECT DRIVE 0, DOUBLE DENSITY'‹xDNГ0 :ƒ DRIVE NUMBER 0'Љ‚MSГ0 :ƒ MOTOR STATUS= OFF'еŒTRKГ&HFF49 :ƒFLOPPY DISK TRACK REGISTER( –COM Г&HFF48 :ƒFLOPPY DISK COMMAND & STATUS REGISTER(: DRVГ&HFF40 :ƒFLOPPY DISK SELECT REGISTER([Њ‡ @231,"disk alignment aid";(ƒД‡ @260,"WRITTEN BY- DAVE TRAPASSO";(ŸО‡ @297,"OCTOBER, 1984";(ЪШ‡ @448, "WOULD YOU LIKE INSTRUCTIONS";(увZ$Гџ’ :… Z$Г"" Ї 210(њм… Z$Г"Y" Ї І 1970)цž ))№І 780 :ƒRESTORE DRIVE 0 TO TRACK 0)Kњ‡ @0,"TOGGLE MOTOR ON/OFF= M")i‡ "RESTORE TO TRACK 0= R")ˆ‡ "0 TO 3= SELECT DRIVE #")Ё‡ "STEP DRIVE IN= I")Л"‡ "STEP DRIVE OUT= O")д,‡ "GOTO TO TRACK= G")њ6‡ "READ TRACK'S SECTOR IN HEX= H"*"@‡ "READ TRACK'S SECTOR IN ASCII= A"*>J‡ "MOTOR SPEED TEST= S"*OT‡ "COMMAND:"*o^‡ @384, "track zero switch"*‚h‡ @416,"motor"*˜r‡ @448, "drive #"*Џ|‡ @480, "track #";*Ю†:ƒ*KEYBOARD INPUT ROUTINE**ѓ’ 339,2 :ƒKEY REPEAT THE 'I' KEY+š’ 345,2 :ƒKEY REPEAT"THE 'O' KEY+$Є’ DRV,C+7ЎCKГџ†(COM) А 4+sИ… Ј MS Ї ’ DRV,0 :ƒIF MOTOR STATUS OFF, SHUT OFF MOTORS+Т… CKГ4 Ї ‡ @402,"ON " :„ ‡ @402,"OFF"+ЧЬ… MS Ї ‡ @422,"ON "; :„ ‡ @422,"OFF";,жTKГџ†(TRK) :ƒFIND OUT WHAT TRACK ALOPPY CONTROLLER THINKS WE'RE AT,#р‡ @488,TK;" ";,bъ’ &H97E,TK :ƒ TELL DOS WHAT TRACK WE ARE AT FOR EACH DRIVE,qє’ &H97F,TK,€ў’ &H980,TK,’ &H981,TK,ž‡ @456,DN;,ЈC$Гџ’,Л&… C$Г"0" Ї 700,Ю0… C$Г"1" Ї 700,с:… C$Г"2" Ї 700,єD… C$Г"3" Ї 700-N… C$Г"R" Ї 750-X… C$Г"I" Ї 950-.b… C$Г"O" Ї 1010-Bl… C$Г"G" Ї 1110-Vv… C$Г"S" Ї 1810-j€… C$Г"H" Ї 1320-~Š… C$Г"A" Ї 1610-’”… C$ДВ"M" Ї 540-Ўž:ƒ*CHANGE MOTOR STATUS*-ЛЈMSГ Ј MS-ЦВЅ 420.МDNГџ‰(C$) :ƒ GET NUMERICAL VALUE OF DRIVE NUMBER SELECTED.2Ц… DNГ0 Ї CГ&H29 :ƒCODE FOR DRIVE 0 SELECT.`а… DNГ1 Ї CГ&H2A :ƒCODE FOR DRIVE 1 SELECT.Žк… DNГ2 Ї CГ&H2C :ƒCODE FOR DRIVE 2 SELECT.Мф… DNГ3 Ї CГ&H68 :ƒCODE FOR DRIVE 3 SELECT.ююІ 770 :ƒRESTORE THE SELCTED DRIVE TO TRACK 0.љјЅ 420/,:ƒ*THIS SUB RESTORES CURRENT DRIVE TO TRACK 0*/b І 1070 :ƒTURN ON DRIVE & WAIT FOR IT TO SPEED UP/–’ COM,RES :ƒISSUE RESTORE COMMAND TO CONTROLLER/б € IГ 0 Ѕ 100 :ƒLOOK FOR TRACK 0 SWITCH THIS MANY TIMES/§*CKГџ†(COM) А 4 :ƒREAD TRACK ZERO SWITCH0'4… CKГ4 Ї 900 :ƒIF ON THEN WE ARE DONE0D>‹ I :ƒCHECK SWITCH AGAIN0cH‡ @320,"DRIVE? PUSH ENTER"0mRA$Гџ’0\… A$Г"" Ї 8500•f… A$ДВџ‹(13) Ї 600ИpІ 1280 :ƒCLEAR THE INPUT LINE0кzЅ 780 :ƒTRY TO RESTORE AGAIN0у„MSГ00ћŽ… џ†(TRK)ДВ 0 Ї 8301˜CKГџ†(COM) А 41Ђ… CKГ0 Ї 8301%Ќ1EЖ:ƒ*THIS STEPS THE DRIVE IN*1ŒР… TKГMAX Ї 390 :ƒIF WE ARE ALL THE WAY IN, THEN DON'T DAMAGE DRIVE1ЫЪ… MS Ї 990 :ƒIF MOTOR IS ALREADY ON, LET'S SPEED THINGS UP1№дІ 1070 :ƒTURN ON SELECTED MOTOR2#о’ COM,SI :ƒISSUE STEP IN COMMAND TO CONTROLLER2.шЅ 3902Oђ:ƒ*THIS STEPS THE DRIVE OUT*2•ќ… TKГ0 Ї 420 :ƒIF WE ARE ALL THE WAY OUT, THEN DON'T DAMAGE DRIVE2в… MS Ї 1050 :ƒIF MOTOR IS ON, THEN LET'S SPEED THINGS UP2оІ 10703’ COM,SO :ƒISSUE STEP OUT COMMAND TO CONTROLLER3$Ѕ 3903I.’ DRV,C :ƒSELECT DRIVE & TURN ON MOTORS3€8€ IГ 1 Ѕ 50 :ƒDELAY FOR MOTORS TO COME UP TO SPEED3ˆB‹ I3ŽL3ЗV:ƒ*THIS STEPS TO THE SELECTED TRACK*3д`‡ @320,"input track # ";3оj‰ TK$4tTГџ‰(TK$) :ƒGET NUMERIC VALUE OF INPUT TRACK NUMBER49~І 1280 :ƒCLEAR THE INPUT LINE4eˆ… TД0 Ї 1110 :ƒCHECK FOR ILLEGAL VALUES4x’… TВMAX Ї 11204ЗœMГMS :ƒSAVE PRESENT MOTOR STATUS, RESTORE WILL TURN IT OFF4лІІ 770 :ƒNOW RESTORE TO TRACK 05АMSГM :ƒPUT BACK ORIGINAL MOTOR STATUS5(КІ 1070 :ƒTURN ON DRIVE MOTORS5bФ… TГ0 Ї 390 :ƒIF THEY WANTED TRACK ZERO, WE ARE THERE5–Ю€ IГ1 Ѕ T :ƒSTEP IN ONCE FOR EVERY TRACK NUMBER5Щи’ COM,SI :ƒISSUE STEP IN COMMAND TO CONTROLLER5єт… џ†(COM) А 1 Ї 1250 :ƒSEE IF COMPLETE5ќь‹ I6іЅ 4206/:ƒ*THIS SUB. CLEARS THE INPUT LINE*6] ‡ @320," ";6‹‡ @352," ";6‘6а(:ƒ*THIS DISPLAYS SECTOR FROM CURRENT DRIVE & TRACK IN HEX*6§2І 1480 :ƒINPUT SECTOR NUMBER, & READ IT7ŒHLГHLЋ55 :… HLД65 Ї HLГHLЋ578_–HRГHRЋ55 :… HRД65 Ї HRГHRЋ578t ’ P,HL :’ PЋ1,HR8~ЊPГPЋ28†Д‹ I8ŒО8аШ:ƒ*THIS READS THE SECTOR INPUT, FROM THE CURRENT DRIVE & TRACK*8єв‡ @320,"input sector # (1-18)";8ўм‰ SN$93цSNГџ‰(SN$) :ƒGET NUMERIC VALUE OF SECTOR # INPUT9V№І 1280 :ƒCLEAR THE INPUT LINE9„њ… SNД1 Ї 1480 :ƒSEE IF IT'S A LEGAL VALUE9—… SNВ18 Ї 14809бп DN,TK,SN,A$,B$ :ƒREAD SECTOR FROM DISK INTO A$ & B$9зž9н"9№,… џ’Г"" Ї 15809і6ž:@Ѕ 250:AJ:ƒ*THIS DISPLAYS SECTOR FOR CURRENT DRIVE & TRACK IN ASCII*:nTІ 1480 :ƒINPUT SECTOR NUMBER, & READ IT:v^NГ1:Ѕh€ IГ0 Ѕ 15 :ƒSHOW THIS MANY LINES OF ASCII:рrADГIЋ48 :ƒSHOW HEX ADDRESS OF EACH"LINE, MAKE IT ASCII;|… ADВ 57 Ї ADГADЋ7 :ƒCORRECT ASCII FOR HEX 'A-F';M†‡ @(32­I),џ‹(AD);"0= "; :ƒNOW PRINT ADDRESS ON LINE;z€ PГN Ѕ NЋ15 :ƒSHOW THIS MANY CHARS/LINE;ІšZ$Гџ(A$,P,1) :ƒGET CHARS ONE AT A TIME;кЄ… Z$Г"" Ї Z$Г"." :ƒCHECK FOR UNPRINTABLE CHARS.;ѕЎ… џŠ(Z$)В&H7F Ї Z$Г"."<И… џŠ(Z$)Д&H20 Ї Z$Г"."<5Т‡ Z$; :ƒNOW SHOW CHAR. ON SCREEN<=Ь‹ PžЅ 1850>mЈ† 34,12,8E,0,0,B6,FF,48,30,1,27,12,84,2,26,F5,8E,0,0,B6,FF,48,30,1,27,4,84,2,27,F5,AF,8D,0,2,35,92>šВž: ‡ "THE 'M' KEY WILL TURN THE MOTORS";>СМ‡ "ON OR OFF. IF PUSHED WHILE THE">чЦ‡ "MOTORS ARE ON, THEY WILL SHUT"?а‡ "OFF & VICE-VERSA. ANY MENU ITEM"?7к‡ "MAY BE SELECTED WITH THE MOTORS"?^ф‡ "IN EITHER STATE. IF AN ITEM IS"?ˆю‡ "SELECTED WITH THE MOTOR OFF, THE";?Вј‡ "COMMAND WILL TURN ON THE MOTORS,";?к‡ "EXECUTE, & TURN IT BACK OFF. IF"@ ‡ "THE MOTOR IS ON, IT WILL STAY ON";@(‡ "AFTER THE COMMAND EXECUTES,"@O ‡ "EXCEPT FOR THE RESTORE COMMAND"@r*‡ "WHICH WILL ALWAYS SHUT THE"@–4‡ "MOTOR OFF AFTER IT IS DONE."@Ђ>І 3860@ЧH‡ "THE 'R' KEY WILL RESTORE THE"@ёR‡ "THE HEAD OF THE CURRENT DRIVE TO";A\‡ "TRACK 0. THE RESTORE COMMAND"A>f‡ "WANTS THE TRACK 0 SWITCH TURNED"Afp‡ "ON. IF AFTER AN ALLOTTED AMOUNT"AŽz‡ "OF TIME, THE SWITCH DOES NOT, A"AЖ„‡ "'DRIVE ?' MESSAGE APPEARS. THIS"Aкއ "OCCURS IF THE DRIVE IS NON-"B˜‡ "EXISTENT OR SLOW. PUSHING ENTER"B,Ђ‡ "WILL TRY TO RESTORE AGAIN, WHILE";BSЌ‡ "ANY OTHER KEY WILL RESTART THE"BdЖ‡ "PROGRAM."BpРІ 3860B˜Ъ‡ "ENTERING A '0 TO 3' WILL SELECT"BНд‡ "THE DRIVE # THAT YOU WANT TO"Bто‡ "WORK WITH. SELECTING A DRIVE"C ш‡ "WILL AUTOMATICALLY RESTORE THE"C/ђ‡ "DRIVE TO TRACK 0, SO THAT THE"CYќ‡ "PROGRAM WILL KNOW WHERE THE HEAD";Cz ‡ "IS ACTUALLY POSTITIONED."C† І 3860CЎ ‡ "THE 'I' COMMAND STEPS THE DRIVE"Cж $‡ "IN 1 TRACK, (MOVES THE HEAD ONE"Cў .‡ "TRACK TOWARD THE CENTER HOLE OF"D( 8‡ "THE DISK). THE 'O' COMMAND STEPS";DR B‡ "THE DRIVE OUT 1 TRACK. BOTH KEYS";Dw L‡ "AUTOMATICALLY REPEAT IF HELD"Dš V‡ "DOWN. IF THE MOTORS ARE ON"DТ `‡ "BEFORE EITHER KEY IS HELD DOWN,"Dф j‡ "THE DRIVES WILL STEP MUCH"E t‡ "FASTER SINCE THE PROGRAM DOESN'T";E5 ~‡ "HAVE TO WAIT FOR THE MOTORS TO"EX ˆ‡ "COME UP TO SPEED BEFORE IT"Ep ’‡ "STEPS." :І 3860E œ‡ "THE 'G' COMMAND WILL"EЕ І‡ "AUTOMATICALLY STEP THE DRIVE TO"Eп А‡ "THE DESIRED TRACK # ENTERED. THE";F К‡ "COMMAND ACTUALLY RESTORES THE"F- Ф‡ "DRIVE TO TRACK 0, THEN STEPS IN"FU Ю‡ "ONCE FOR EVERY TRACK #. IT WILL"F{ и‡ "LEAVE THE MOTOR ON/OFF STATUS"F— т‡ "UNCHANGED." :І 3860FН ь‡ "THE 'H' COMMAND WILL ACTUALLY"Fф і‡ "READ THE DATA FROM THE CURRENT"G ‡ "TRACK #, FOR THE SECTOR ENTERED.";G8 ‡ "IT WILL DISPLAY THE DATA IN HEX-";G^ ‡ "ADECIMAL NOTATION. DUE TO THE"G† ‡ "LIMITED SIZE OF THE SCREEN, 256"G­ (‡ "BYTES OF DATA (1 SECTOR), WILL"Gе 2‡ "JUST FIT ON THE SCREEN AT ONCE,"Gќ <‡ "BUT THIS MEANT LEAVING OUT ALL"H& F‡ "THE SPACES & ADDRESS INFORMATION";HM P‡ "HOWEVER, THERE ARE 16 BYTES OF"Hs Z‡ "DATA/LINE. BY COUNTING LINES,"H d‡ "YOU CAN TELL WHICH RELATIVE BYTE";HЛ n‡ "# YOU ARE LOOKING AT."HЧ xІ 3860Hэ ‚‡ "THE 'A' COMMAND IS SIMILAR TO"I Œ‡ "THE 'H' COMMAND, & WILL READ A"I< –‡ "SECTOR AND DISPLAY IT IN ASCII."Id  ‡ "UNPRINTABLE CHARS. ARE SHOWN AS"I‰ Њ‡ "A '.' THE COLUMN ON THE LEFT"IГ Д‡ "SHOWS THE RELATIVE BYTE # OF THE";Iн О‡ "FIRST CHAR. IN THAT ROW. THE 'A'";J Ш‡ "COMMAND ALSO SHOWS 16 BYTES OF"J в‡ "DATA/LINE." :І 3860JG м‡ "caution: DO NOT USE EITHER THE"Jm ц‡ "'A' OR 'H' COMMAND UNLESS THE"J №‡ "DRIVE IS AT LEAST SOMEWHAT"JЖ њ‡ "ALIGNED, & CAPABLE OF READING"Jр ‡ "DATA. THE PROGRAM USES THE DSKI$";K ‡ "BASIC STATEMENT TO READ THE"K. ‡ "SECTOR FROM DISK. TRYING TO READ";KS "‡ "FROM A DRIVE, UNABLE TO READ"Kz ,‡ "SECTORS, WILL RESULT IN AN I/O"Kœ 6‡ "ERROR. BOTH THE 'A' & 'H'"KЦ @‡ "COMMANDS WERE INCLUDED AS AN AID";Kъ J‡ "TO THOSE THAT DON'T HAVE AN"L T‡ "OSCILLISCOPE AND/OR AN ALIGNMENT";L+ ^‡ "DISK." :І 3860LQ h‡ "THEY WILL LET YOU VERIFY THAT"Ly r‡ "THE HEAD IS ACTUALLY POSITIONED"Lž |‡ "OVER THE SAME TRACK THAT THE"LЦ †‡ "DISK CONTROLLER THINKS IT'S AT."Lю ‡ "(TRACK 0 SWITCH ADJUSTMENT. THE"M š‡ "TRACK ZERO SWITCH STATUS IS"M2 Є‡ "SHOWN FOR THIS REASON.)"M\ Ў‡ "FOR EXAMPLE, STEP TO TRACK 17, &";M€ И‡ "READ SECTOR 3 USING THE 'A'"MЅ Т‡ "COMMAND. THIS IS PART OF THE"MЬ Ь‡ "DIRECTORY. IF THE NAMES OF THE"Mѓ ж‡ "FILES STORED ON THE DISK DON'T"N р‡ "APPEAR, THEN THERE IS A PROBLEM.";N) ъІ 3860NS є‡ "THE OBJECT OF THE TRACK 0 ADJUST";Nz ў‡ "IS TO FIND OUT WHERE THEY DISK"NЄ ‡ "CONTROLLER THINKS THE HEAD IS AT";NЪ ‡ "VS WHERE IT IS PHYSICALLY AT."Nє ‡ "UPON STARTUP, DOS DOES A RESTORE";O &‡ "TO GET IT'S REFERENCE POINT. NOW";OE 0‡ "BY COUNTING THE # OF TRACKS IT"Om :‡ "STEPS IN OR OUT, IT SHOULD KNOW"O‘ D‡ "WHAT TRACK IT IS AT. IF THE"OЙ N‡ "SWITCH TURNS ON SAY AT TRACK 1,"Oо X‡ "THE CONTROLLER GETS FOOLED &"P b‡ "WHEN IT STEPS IN 17 TIMES TO"P+ l‡ "READ THE DIRECTORY, IT ACTUALLY"PU v‡ "IS AT TRACK 18. THE RESULT IS AN";Pq €‡ "I/O ERROR." :І 3860P— Ї "THE ACTUAL TRACK & SECTOR #'S"PС ”‡ "ARE WRITTEN ONTO THE DISK DURING";Pш ž‡ "THE FORMATTING PROCESS. IF THE"Q Ј‡ "TRACK NUMBER READ IS NOT THE"Q4 В‡ "SAME AS THE ONE IT THINKS IT'S"Q\ М‡ "AT FROM THE TRACK 0 SWITCH, DOS"Q~ Ц‡ "KNOWS SOMETHING IS WRONG."QІ а‡ "DOS WILL TRY TO RESTORE SEVERAL"QЬ к‡ "TIMES TO PROPERLY PICK UP THE"Qѓ ф‡ "TRACK 0 SWITCH BEFORE DECIDING"R ю‡ "TO GENERATE AN I/O ERROR."R? ј‡ "THIS IS THE EXTRA CLUNKING SOUND";Re ‡ "THAT IS SOMETIMES HEARD AFTER"RŒ ‡ "YOUR SYSTEM IS FIRST TURNED ON"RА ‡ "WHEN YOU DO A DISK ACCESS.";RМ І 3860Rф *‡ "THE OBJECT OF AN ALIGNMENT TEST"S 4‡ "IS TO FIND OUT HOW THE HEAD IS"S0 >‡ "FINELY POSITIONED WITHIN THE"SZ H‡ "TRACK. FACTORY WRITTEN DISKETTES";S R‡ "SHOULD HAVE THE TRACKS WRITTEN"SІ \‡ "AT FAIRLY CLOSE TO THE IDEAL"SЭ f‡ "LOCATION. IF YOUR DRIVE IS OUT"Sє p‡ "OF ALIGNMENT, YOU MAY NOT KNOW"T z‡ "IT TILL YOU TRY TO READ & WRITE"TF „‡ "A DISKETTE FROM ANOTHER DRIVE, &";Tj އ "FIND I/O ERRORS OR MULTIPLE"T ˜‡ "RESTORES WHILE DOS TRYS TO"T­ Ђ‡ "PERFORM IT'S OPERATION."TЙ ЌІ 3860Tс Ж‡ "TO CHECK THE TRACK 0 ALIGNMENT,"U Р‡ "USE THE 'G' COMMAND TO GO TO"U, Ъ‡ "TRACK 17 (THE DIRECTORY). USE"UV д‡ "THE 'A' COMMAND TO READ SECTOR 3";U€ о‡ "THE DRIVE SHOULD BE ABLE TO READ";UЇ ш‡ "THE SECTOR with out moving the"Uб ђ‡ "head, AND THE NAMES OF THE FILES";Uћ ќ‡ "STORED ON THE DISK SHOULD APPEAR";V‡ "ON THE SCREEN. USE A WRITE"VH‡ "PROTECTED, STANDARD TRDOS FORMAT";Vm‡ "FACTORY WRITTEN DISKETTE FOR"V’$‡ "BOTH THE ALIGNMENT & TRACK 0"VЊ.‡ "TESTS." :І 3860Vв8‡ "IF THE DRIVE RESTORES & TRYS TO"VіB‡ "READ AGAIN, & THEN SUCEEDS,"WL‡ "THIS COULD BE AN INDICATION OF"W@V‡ "AN ALIGNMENT OR DIRTY HEAD"Wj`‡ "PROBLEM. IF IT FAILS ALTOGETHER,";WŽj‡ "TRSDOS WILL GENERATE AN I/O"WЖt‡ "ERROR. THIS COULD BE A VERY BAD"Wп~‡ "ALIGNMENT OR BAD TRACK 0 ADJUST."WыˆІ 3860X’‡ "THE FINAL TEST IS THE DISK"X6œ‡ "SPEED TEST. USE THE 'S' COMMAND"X^І‡ "TO MEASURE IT. THE SPEED SHOULD"X†А‡ "BE 300.0 +/- 2 RPM. THERE IS AN"XЎК‡ "ADJUSTMENT POTENTIOMETER INSIDE"XдФ‡ "THE DRIVE. A MACHINE LANGUAGE"XљЮ‡ "PROGRAM MEASURES THE TIME IT"Y!и‡ "TAKES FOR THE INDEX HOLE IN THE"YIт‡ "DISK TO PASS BY, (1 REVOLUTION)"Ynь‡ "AND THE PROGRAM DISPLAYS THE"Y˜і‡ "SPEED CONTINUALLY ON THE SCREEN.";YП‡ "HOLD DOWN ANY KEY TO TERMINATE"Yц ‡ "THE TEST & RETURN TO THE MENU."Z‡ @ 480, "HIT ANY KEY TO CONTINUE";Z"… џ’ Г"" Ї 3870Z+(ž : PASS BY, (1 REVOLUTION)"Ynь‡ "AND THE PROGRAM DISPLAYS THE"Y˜і‡ "SPEED CONTINUALLY ON THE SCREEN.";YП‡ "HOLD DOWN ANY KEY TO TERMINATE"Yц ‡ "THE TEST & RETURN TO THE MENU."Z‡ @ 480, "HIT ANY KEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџU! :ƒ DSKTST.BAS (C) J.L. AkerB:ƒ WRITE/READ RANDOM SECTORSMž:•512\(‰"DRIVE";Dr2… џЃ(D)ДВ68 Ї 430~<’&HEB,DŽFЙџƒ9Г&HD66C–Pк ЊЛZ‡@257,"RANDOM WRITE/READ TEST.."чd‡@260Ћ32,"TRK SEC CNT RD ERRORS";їn€ IГ0 Ѕ 512x’&HE00ЋI,џ†(&HC000ЋI)‚‹ I*Œ€ IГ1 Ѕ 1000H–’&HEE,&HE:’&HEF,џ„(256)Ќ1` TГџ„(35)Ќ1:SГџ„(18)tЊ’&HEC,T:’&HED,SŠД’&HEA,3:STГџƒ9(0)”ОІ460œШ‹ IТв‡@257,"READING ALL SECTORS..":IГ0бм€ TГ0 Ѕ 34фц€ SГ18 Ѕ 1 ЉЌ1ј№’&HEC,T:’&HED,S њIГIЋ1 І 460 ‹ S,T .A$ГџЁ(128,џ‹(255)) :"B$ГA$:ž a,‡@257,"INITIALIZING ALL SECTORS.." i6к ˆ ‹@‡@292,"TRK SEC VERIFY ON" ŸJ€ TГ34 Ѕ 0 Љ Ќ1 ЎT€ SГ1 Ѕ 18 Ъ^‡@289Ћ32,Э"######";T;S; мhр D,T,S,A$,B$ цr‹ S,T љ|к Њ:‡@312,"FF"!†… NEГ0 Ї NE$Г"NO" :„ NE$Гџˆ(NE)!8‡@292Ћ64,NE$;" ERRORS"!HšЙџƒ9Г&HB44A!NЄŠ!hЎ‡"NOT ON THIS DISK.."!‹И‡"USE NEWLY INITIALIZED DISK!"!–Т•200:Š!ЇЬ:ƒREAD BACK !Уж’&HEE,4:’&HEF,0:’&HEA,2!ур‡@289Ћ32,Э"######";T;S;I;NE!ќъSTГџƒ9(0):STГџ†(240)" є…STГ0Ї 520"ўNEГNEЋ1"">н:ƒ VERSION 1.3 -- 17 JUL '82"Tчк ˆ:и"DSKTST":к ЊT ON THIS DISK.."!‹И‡"USE NEWLY INITIALIZED DISK!"!–Т•200:Š!ЇЬ:ƒREAD BACK !Уж’&HEE,4:’&HEF,0:’&HEA,2!ур‡@289Ћ32,Э"######";T;S;I;NE!ќъSTГџƒ9(0):STГџ†(240)" њš#1+'ž:‡@32­7," NOW WAIT..........."+4€IГ0Ѕ200+J… M$(I)Г"" Ї 380+z"… R$Г""Ї300 :„ PГ1:TA$ГR$:CO$Гџ‹(124):І340+Љ,… B$Г""Ї310:„ PГ1:TA$ГB$:CO$Гџ‹(123):І340+м6… BL$Г""Ї 320 :„ PГ1:TA$ГBL$:CO$Гџ‹(125):І340+у@‹I+эJЅ380,TFГџž(P,M$(I),TA$),^… FГ0 Ї ,'hџ(M$(I),F,1)ГCO$,[rPГFЋџ‡(TA$):… PДГџ‡(M$(I))Ќџ‡(TA$)Ћ1 Ї 340 :„ ,…|ž:‡@32­7,"";:‰"FILE NAME TO SAVE";FI$,•†™"O",#1,FI$,Г€IГ0 Ѕ 200:… M$(I)Г""Ї420,Фš‡#1,M$(I):‹I,ЬЄš#1TA$),^… FГ0 Ї ,'hџ(M$(I),F,1)ГCO$,[rPГFЋџ‡(TA$):… PДГџ‡(M$(I))Ќџ‡(TA$)Ћ1 Ї 340 :„ ,…|ž:‡@32­7,"";:‰"FILE NAME TO SAVE";FI$,•†™"O",#1,FI$,Г€IГ0 Ѕ 200:… M$(I)Г""Ї420,Фš‡#1,M$(I):‹I,ЬЄš#1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџФХСУШУУЩХЧ ШЩЦЧЧУ ШХШС%ЩФСЩ*+ХТХС0ХЦСЧџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџADDRESS BASџARC BASAUTOEXECBAS€4FFJBE7ACOLORBSCBASџCOMPACT BASDIR BASџDIREASE BASDIRECTRYBASџ DIRSAVE BAS шDIRSORT BASџ SDIS6809 BAS DISK+43 BASDISKEDITBASGDISKMAP BASџоDISKMENUBASџDISKSEEKBASDISKSTEPBAS1DISKTESTBAS!XDMAGIC32BASџ"1џџџџџџџџџџџџџџџџDOS BAS#ўDSKCHK BIN$FASTCOPYBAS&†LABEL BAS'ёMASTER CAT(ЉMENU BAS)ЦMOVIES BAS,ROMCRACKBAS-SLOSCROLBAS.йSORT CAT/аSPDCOMP BIN1зTRUELC BIN2€XMODEM BAS3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ&ž•4500:Œ NM$(68),NAM$(68),EXT$(68),DA$(68),S$(25),GN(68),IND(68):І194:Ѕ15&З€ HГ 1Ѕ MXЌ1:‡@334,H'… NM$(IND(H))ВNM$(IND(HЋ1)) Ї T1ГIND(H):IND(H)ГIND(HЋ1):IND(HЋ1)ГT1:FLGГ1' ‹ H'%… FLGГ1 Ї FLGГ0:Ѕ4'4‡@334," "': 'N … BД143 Ї BГ143'b … BВ255 Ї BГ143' ‡џ‹(B);:€TГ1Ѕ50:‹T:‡џ‹(8);'Œ BГBЋ16'’'›І85'ЈNГ0:MXГ0'ПPTГ0:IГ0:€ XГ0 Ѕ 8'ў‡ @ 224,џЁ(96,32):‡@256," READING DIRECTORY..PLEASE WAIT";(п S,17,XЋ3,A$,B$(IГIЋ1(2C$ГA$ЋџŽ(B$,127)(GNAM$(I)ГџŽ(C$,8)(l… џŽ(NAM$(I),1)ВДџ‹(0) Ї PTГPTЋ1(Є… џŽ(NAM$(I),1)Гџ‹(255) Ї MXГIЌ1:MSГNX:PTГPTЌ1:Ѕ35(ЛEXT$(I)Гџ(C$,9,3)(вDA$(I)Гџ(C$,12,5)(с€ NXГ1 Ѕ 7(ыIГIЋ1)NAM$(I)Гџ(C$,NX­32Ћ1,8))-… џŽ(NAM$(I),1)ВДџ‹(0) Ї PTГPTЋ1)JEXT$(I)Гџ(C$,9ЋNX­32,3))g DA$(I)Гџ(C$,12ЋNX­32,5))Ÿ!… џŽ(NAM$(I),1)Гџ‹(255) Ї MXГIЌ1:MSГNX:PTГPTЌ1:Ѕ35)Њ"‹ NX,X)Ш#… FFГ1 Ї FFГ0:NГNЌ1:Ѕ 56)е$NГ0:Ѕ56*% ‡@224,џЁ(192,143):‡@256,"active drive :";S*:&‡@288,"active file :" ;:‡NAM$(N);"/";EXT$(N);*W'‡@320,"input command :";*e(І41:FLГ0*o)I$Гџ’*x*І10*Š+… I$Г"R" Ї 95*Ÿ,… I$Гџ‹(10) Ї 56*В-… I$Г"L" Ї 106*Ф.… I$Г"^" Ї 60*з/… I$Г"K" Ї 117*ъ0… I$Г"B" Ї 191*§1… I$Г"C" Ї 124+2… I$Г"P" Ї 64+"3… I$Г"D" Ї 155+54… I$Г"N" Ї 161+H5… I$Г"S" Ї 133+[6… I$Г"M" Ї 162+e7Ѕ 41+|8NГNЋ1:… NВMX Ї NГ1+ž9… џŽ(NAM$(N),1)Гџ‹(255) Ї NГ1+Н:… џŽ(NAM$(N),1)Гџ‹(0) Ї 56+Ц;Ѕ37+н… џŽ(NAM$(N),1)Гџ‹(255) Ї 60,'?Ѕ 37,0@NNГ1,8ACГ1,kBPGГџ(PTЎ26)Ћ1 :… PTГ26 Б PTГ52 Ї PGГџ(PTЎ26),sCPГ1,}Dž:LГ0,›E… NNГN Ї CLГ255 :„ CLГ143,ЛF… џŽ(NAM$(NN),1)Гџ‹(0) Ї 74,єG… џŠ(EXT$(NN))Д32 Ї ‡@L,џ‹(CL);NAM$(NN);"/";MS$:Ѕ73-H‡@L,џ‹(CL);NAM$(NN);"/";EXT$(NN)-*ILГLЋ32:CГCЋ1-CJNNГNNЋ1:… NNВMX Ї 78-UK… CГ14 Ї LГ16-eL… CГ27 Ї 78-oMЅ 69-ГNCГ1:‡@448," 48/11/6 5.1 VER ƒ:O&.CNI SREHSILBUP ESUOH NOSIROD >C< 23CIGAMDƒ::802Ѕ8&џE… NNГN Ї CLГ255 :„ CLГ143,ЛF… џŽ(NAM$(NN),1)Гџ‹(0) Ї 74,єG… џŠ(EXT$(NN))Д32 Ї ‡@L,џ‹(CL);NAM$(NN);"/";MS$:Ѕ73-H‡@L,џ‹џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџћ&& ’&H95C9,&H17:’&HFF22,џ†(&HFF16) &N’&HD7C0,0:’&HD613,&H50:’&HD816,&H14&y’&HC735,&H4E:’&HC7BB,&H4E:’&HC7D0,&H4E&Є(’&HC7EF,&H4E:’&HCD26,&H4E:’&HCEB5,&H4E&Я2’&HD44D,&H4E:’&HD29D,&H28:’&HD65F,&H28&њ<’&HD682,&H28:’&HD534,&H27:’&HC75A,&H0112џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@ vР‘БYДЃTJх”Rqž”M›~ŽRpЄq8­—NJЁ{aJ˜‹DLœkcI fOe€uSM‡lXXrwNR{vVKkvZFntVDe…R ‡K z‰J w‡L Yˆ 6 Sr [ q 4 W p 2 3 p14 p2Q qO d N f 9M f 7K e 7J z 8I z † z „ _ ƒ _ ƒ ^ ‚ ^ ‚ ] g ^ h ] g ] g ] f ] e \ K \ J ^ .J \  ^ /J r /J u 0L t .L u .M v g nN SO SR „Z g3 ” lЄ ІьЌЅёМхЖкТёХіФтныжђфљјя                 ; JY_s #v 1V~XL\ЋJEKD^D4A/8zC*A%5Š626+34B(13.)8;&4,4-0C&5+2+$L$5,.+%I%3.!6"N#0'(7!L" *%8L! *&1 F! +$. E  ,#, G  -"-E! - %G -$%B!.##C! -"%@ -"$?  $> ,#@ + "@, "@@ @?!#> , %: (+($7!)+#5". ":!7) G"7+Z4(4' V4#50![239-+OBCA \…3  /*q7/:S;<0i++4,j%((*$)9N&65B71+:Џ“/G0˜Ѕ“"4"Л)+’M*  (                                                       ‚ M "fc=G^ZHEyD1X|D-BD.DƒE/K†FFI”GGG˜HEF2 HHD>0*KH8C3.PF4<=+[E2<34gA/B,8s=1?-6z=2<-61 C91@-62B54(8z*-0'@%/‘(+?(?&/™),,'A#-4]*>+)A$-Ј+09(>'-(m-:.);)-1n.25*;(0)#v.16*8,/+/.9)7-.,*{-,;)42.)/…+)?(25/+-+*?(331-8”**?'520,3Ў/-9)422/0Т/,<)520/4б/)A(451/5ж1)@',:1&0$И0&E#*81#fо-%E -083\i'%дB$Sжт ,  [и "F:Р C' Pю5 iSQ?‡<5n„9І€'ћ &4&5 №&І€4Ц =ъ€Унˆ5 к %ˆЅ­Ÿ  Ю4ŽЬ``эŒ%љ5–4 №}џ}џJ&і9ŽIщoт†џLр„$ћы„mф&M'‹0Їф­Ÿ 0І„&тІр&†0nŸ 9d ЖI`ЗџK†ЗџH4v5vŽР0' ЖџH…&ѕ„˜'кџ@НIb ќъ№…ыррс…ф…ѕрїˆуъїшфёёрс…сьіюьы…сїьѓр…•…ёъ…цэрцю…є№фьщьёќѕїріі…фыќ…юрќ…ёъ…їріёфїё­Ÿ M'љ~JyЮ?џŽJyŸr†U—qНIb сьію…є№фщьёќ…цэрцюрїѕщфцрс…ьы…ѕ№чщьц…съшфьычќ…ёэр…цъщъї…іьт ёріёьыт‹‹ќРƒDK')НIb NO DISK DRIVE ABORT†xНIАqPnŸџў …P†)Зџ@†<НIА†ЗџH4v5vЖџHD%њЖџH„@'НIb ђфїыьыт‰…ђїьёр…ѕїъёрцёрс…сьію ъѓрїђїьёьыт…ђїьёр…ѕїъёрцёЦ˜DНIА˜„Š(Зџ@ZС"ь†)Зџ@Ž@НIЌНIb ђїьёр…ѕїъёрцё…срфцёьѓфёрсI`†НIАНIэ|I`ЖI`#%ю†НIА†ЗџH†ДНIАI`† НIАНIb ѓрїьуќьыт…ёїфцю…іI`НIЛНIэ|I`ЖI`#%б†<НIА†ЗџH†xНIАНIb ………уъїшфё…цъшѕщрёрс…………†-НIАНIb сьію…є№фщьёќ…ьі…тъъсѕїріі…фыќ…юрќ…ёъ…р§ьёЬL€нrџ@­Ÿ M'љЮ?џџ@НI›ŽŸˆPŽ€Зџоь„ЗџпэŒўџ%ёО ЬLГэ†~Ї„~€4О PЦЗџоІ„ЗџпЇ€Z&ѓ5žrПLјŽLѓŸrОР†~Ї€ЬMэ„ќ §MŽLњП 5nŸ Зџп~ 'Ž'L0ПLћŒ„"]& НIb фїу ~ '2~4vŽM6ЏhІŸР'"'†ОРn4ОРІ„& ЎЬџЇ€Z&ћ5–qPџHЮ?џoНIb  ђр…тъёцэф„ђрщцъшр…ёъ…ёѓ‚і…чщъъѕрїіфыс…ѕїфцёьцфщ…яъюріќъ№ї…сьію…ђфі…ЫЪб…уъїшфёёрс ђр…я№іё…ѕ№щщрс…ф тъъс…ъыр…ъы…ќъ№„ ѕїріі…фыќ…юрќ…ёъ…р§ьёЬ45ЗџїџЖџ#ŠЗџ#P†ЗI`ЦЖI`J&ќ†ТЗџ ЖI`@J&ќ†Зџ Z&ф|I`&н† НIАЮ@Ž ]†Зџ ІР'іџ Ш№їџ !ўJ&ћ0&ы†Зџ ­Ÿ M'љPЗџоnŸџўџџJy     џƒ&# :ƒ COPYRIGHT 1987 MATT LAWSON&bР1:б0,0:• 300,&H3FFF:DSKГ256­џ†(&HC004)Ћџ†(&HC005):V1Г&HEA&Иž:‰"REPORT ERRORS TO (S)CREEN OR (P)RINTER";A$:… A$Г"P" Б A$Г"p" Ї DГЌ2 :„ DГ0&№(ž:‡"INSERT SOURCE DISK AND PRESS (ENTER)":І 220'02PGГ48:’ V1,2:’ V1Ћ1,0:’ V1Ћ4,&H40:’ V1Ћ5,0:’ V1Ћ6,0:ADГ&H40'V<€ TKГ0ЋZ Ѕ 16ЋZЋI:€ SCГ18 Ѕ 1 ЉЌ1'pF’ V1,2:І 140:‹ SC,TK'ЋP‡"INSERT DESTINATION DISK AND PRESS (ENTER)":І220'НZADГ&H40:PGГ48'уd€ TKГ0ЋZ Ѕ 16ЋZЋI:€ SCГ18 Ѕ 1 ЉЌ1'ћn’ V1,3:І140:‹SC,TK(x… ZГ0 Ї ZГ17:IГ1:Ѕ 40(:‚‡"DONE! ";ER;" TOTAL ERRORS":Š(Œ’ &HFFA2,PG:’ V1Ћ2,TK:’ V1Ћ3,SC:’ V1Ћ4,AD:Ђ DSK:… џ†(V1Ћ6)В0 Ї 190(›–ADГADЋ1:… ADД&H60 Ї (Й ADГ&H40:… PGГ59 Ї PGГ58:(ЯЊ… PGГ55 Ї PGГ59:(нДPGГPGЋ1:)"О‡#D,"DISK ERROR #";џ†(V1Ћ6):… џ†(V1)Г2 Ї Z$Г"READ" :„ Z$Г"WRITE").ШERГERЋ1)aв‡#D," "ЋZ$Ћ" TRACK";TK;" SECTOR";SC:Ѕ 150)‚мA$Гџ’:… A$Гџ‹(13) Ї  :„ 220–ADГADЋ1:… ADД&H60 Ї (Й ADГ&H40:… PGГ59 Ї PGГ58:(ЯЊ… PGГ55 Ї PGГ59:(нДPGГPGЋ1:)"О‡#D,"DISK ERROR #";џ†(V1Ћ6):… Ї SГ0:‡:‡" closing file":š #1:Ѕ 10*K№ž:‡@3,"enter FOR SAME INFORMATION":Ѕ 85*cѕž:‡@7,"PRINT FILES"*yњ™"D",#1,"TAPE",60*Мџа #1,20 џЇ A$,20 џЇ B$,5 џЇ C$,5 џЇ D$,1 џЇ E$,8 џЇ F$,1 џЇ G$*ж‡@99,"1--> TO SCREEN"*ђ ‡@163,"2--> TO PRINTER"+‡@227,"3--> RETURN TO MENU"+'Z$Гџ’:…Z$Г""Ї275+?…Z$Г"3"Ї š #1:Ѕ 10+O…Z$Г"2"Ї390+_"…Z$Г"1"Ї300+j'Ѕ 275+‡,ž:‡@37,"PRINT TO SCREEN"+Ћ1‡:‡:‰" WHICH FILE TO START ";A+О6€ XГ A Ѕ џЅ(1)+Щ;Ф #1,X+х@ž:‡@32,"LAST NAME ";A$+џE‡@96,"FIRST NAME ";B$,J‡@160,"MEMBER # ";C$,5O‡@224,"PROGRAM # ";D$,PT‡@288,"TAPE-DISK ";E$,kY‡@352,"DATE SENT ";F$,†^‡@416,"PAID ";G$,Еc… XГџЅ(1) Ї ‡@452," end of file":Ѕ 380,ЪhZ$Гџ’:…Z$Г""Ї360,пm…Z$Гџ‹(13) Ї ‹ X,јr…Z$Г"S" Ї š #1:Ѕ 10-wЅ 360-|… џ’Г""Ї380-"š #1:Ѕ 10-?†ž:‡@7,"PRINT TO PRINTER"-a‹‡:‡:‰"WHICH FILE TO START ";A-Х‡#Ќ2,"LAST NAME";Є23)"FIRST NAME";Є47)"MEM #";Є54)"PRO #";Є62)"TD";Є66)"DATE OUT";Є77)"PD":‡#Ќ2-и•€ XГ A Ѕ џЅ(1)-уšФ #1,X.Ÿ‡#Ќ2,A$;Є23)B$;Є47)C$;Є54)D$;Є62)E$;Є66)F$;Є77)G$.#ЄPГPЋ1.5Љ… PГ57 І 440.=Ў‹ X.LГš #1:Ѕ 10.iИ€ QГ1 Ѕ 10:‡#Ќ2:‹Q:PГ0:.ŒНž:‡:‡:‰"WHICH FILE TO EDIT ";A.—ТФ #1,A.ЎЧž:‡"LAST ";A$.УЬ‡"FIRST ";B$.иб‡"MEMBER # ";C$.эж‡"PROGRAM # ";D$/л‡"TAPџю& т40:у8,63:у0,0:ž1&%’ 65495,0&Bž:‰"enter disc name:";N$&\(‡#Ќ2,џ‹(27);џ‹(14);N$&y2‡#Ќ2:‡#Ќ2:‡#Ќ2:‡#Ќ2:‡#Ќ2&Ž<‡"another label"&ЅFA$Гџ’:… A$Г"" Ї 70&КP… A$Г"Y" Ї Ѕ 30&йZ… A$Г"N" Ї ’ 65494,0 :„ 70&эd’ 113,0:Ђ 40999S DIRECTORY SUMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџІ ’150,18M:ƒ MASTER CATALOG PART 1 USE SORT/CAT TO DO SORTINGVЅ62jŒS$(952):ŒA$(1)€ž:BГ0:IГ0:AГ0:XГ0П‡:‡" records-entered ";N:‡џЁ(64,128);:‡:‡" 1=MAKE CATALOG"ж‡" 2=VIEW CATALOG"ю‡" 3=PRINT CATALOG"‡" 4=LOAD CATALOG" ‡" 5=SAVE CATALOG"E ‡@435," "::Л‰" SELECTION ";A$T …A$Г"1"Ї17j …A$Г"2"ЇІ44:Ѕ45  …A$Г"3"Їž:‡:‰"DATE";AA$:‰"COMMENTS";BB$:І54:Ѕ55Е…A$Г"4"ЇNГ0:Ѕ37Ф…A$Г"5"Ї32ЬЅ4гž0‡@224,"DISK NAME";џ‹(128);:Л‰DN$:DN$ГџŽ(DN$Ћ" ",8):ž0:€AГ3Ѕ11:п0,17,A,A$,B$:€BГ1Ѕ128Љ32s‡@203,"loading";џ‹(128);"data";џЁ(24,128);N;џ‹(128);ŒDE$Гџ(A$,B,13):І25Ÿ‹B:€BГ1Ѕ128Љ32ИDE$Гџ(B$,B,13):І25Ц‹B:‹A:Ѕ4н…џŽ(DE$,1)Гџ‹(0)Їі…џŽ(DE$,1)Гџ‹(255)ЇFI$ГџŽ(DE$,8):EX$Гџ(DE$,9,3)-FT$Гџ(DE$,12,1)}…FT$Гџ‹(0)ЇFT$Г"BAS":„…FT$Гџ‹(1)ЇFT$Г"DAT":„…FT$Гџ‹(2)ЇFT$Г"ML ":„FT$Г"EDI"NГNЋ1:S$(N)ГDN$ЋFI$ЋEX$ЋFT$Ѓч ž0:‡@1,"INSERT DISK TO SAVE INFORMATION";џ‹(128);:‡џЁ(230,128);!Л‰" NAME TO SAVE ";CF$:™"D",#1,CF$,22:а#1,22џЇA$:"ž0:€JГ1ЅN:дA$ГS$(J):Х#1,Jv#‡@203,"saveing";џ‹(128);"data";џЁ(24,128);J;џ‹(128);:‹J‚$š#1:Ѕ4М%ž0:‡@224,"NAME TO LOAD";џ‹(128);:Л‰CF$:™"D",#1,CF$,22Ы&а#1,22џЇA$л'…џЅ(1)Г0Ї43ю(NГNЋ1:Ф#1,N:ž0/)‡@203,"loading";џ‹(128);"data";џ‹(128);џЁ(23,128);N;џ‹(128);J*S$(N)ГA$:…џЅ(1)ДВN Ї40V+š#1:Ѕ4,ž:‡"DISK FILE EXT TYPE":‡:Œ-€AГ1ЅNж.A$Гџ(S$(A),1,8):B$Гџ(S$(A),9,8):C$Гџ(S$(A),17,3):D$Гџ(S$(A),20,3)є/XГXЋ1:…XГ12ЇXГ1:І50:І440‡A$;Є10);B$;Є20);C$;Є27);D$$1‹A:І50:Ѕ482E$Гџ’:…E$ДВ""ЇH3€IГ1Ѕ100:‹I}4‡@452,џ‹(128);"PRESS ENTER TO CONTINUE";џ‹(128);У5€IГ1Ѕ100:‹I:‡@452,џ‹(128);"press enter to continue";џ‹(128);:Ѕ50j6ž:‡#Ќ2,Є4);"DATE ";AA$;Є30);"COMMENTS ";BB$:‡#Ќ2," ":‡#Ќ2," ":‡#Ќ2," DISK FILE EXT TYPE DISK FILE EXT TYPE":‡#Ќ2," ":‡#Ќ2," ":x7€AГ2ЅN Љ2‚8BГAЌ1Ь9A$Гџ(S$(A),1,8):B$Гџ(S$(A),9,8):C$Гџ(S$(A),17,3):D$Гџ(S$(A),20,3):E$Гџ(S$(B),1,8):F$Гџ(S$(B),9,8):G$Гџ(S$(B),17,3):H$Гџ(S$(B),20,3)^;‡#Ќ2,Є4);A$;Є14);B$;Є24);C$;Є29);D$;Є44);E$;Є54);F$;Є64);G$;Є69);H$…Ш0:Р1:•15000:Ѕ3:C$Гџ(S$(A),17,3):D$Гџ(S$(A),20,3):E$Гџ(S$(B),1,8):F$Гџ(S$(B),9,8):G$Гџ(S$(B),џУ& Ѕ40&/‚ (C) 1983 BY KENNETH L. DANIELS&5Ž&F(•5000:І1050&Y2пDR,17,S,A$,B$&—<€XГ1Ѕ97Љ32:J$Гџ’:…J$ГВ"0"АJ$ГД"3"ЇIГџ‰(J$):І680:’235,I:Ž&бFZГZЋ1:D$Гџ(A$,X,8):C$ГџŽ(D$,1):…C$Гџ‹(0)ЇZГZЌ1:Ѕ120&њP…RPД255АZВ42АџŠ(C$)Д255ЇCNГ255:Ѕ140' Z…CГ0Ї‡" ";'ЎdCГCЋ1:…C$Гџ‹(255)Ї140:„‡" ";D$;" ";:E$Гџ(A$,XЋ8,3):P$(Z)ГD$Ћ"/"ЋE$:F$Гџ(A$,XЋ11,1):V(Z)ГџŠ(F$):FG$Гџ(A$,XЋ13,1):FG(Z)ГџŠ(FG$):V$(Z)Гџ(A$,XЋ15,1):GL(Z)ГFG(Z)'Сn…CГ3Ї‡" ";:CГ0'єx‹X:…FLГ0ЇA$ГB$:FLГ1:Ѕ60:„FLГ0:SГSЋ1:…SГ12Ї140'§‚Ѕ50(dŒCLГџ†(&H88)­256Ћџ†(&H89)Ќ1025:PГ33:ZГ1:І1000:‡@42,FT$(Z);:‡@33,FT$(Z);: 200,2:…RPГ255ЇZГ43:І1000(o–RQ$Гџ’(ј Ђџ†(џ(YY$)Ћ2)­256Ћџ†(џ(YY$)Ћ3):AГџ†(&H201):…CNГ255Ї‡@480," PRESS [SPACEBAR] TO CONTINUE ";:…џ’Гџ‹(32)ЇCNГ0:RPГ255:ZГ42:І380:Ѕ70)6Њ…RPГ255Ї‡@482,"PRESS [SPACEBAR] TO RESTART";:…џ’Гџ‹(32)ЇŽ)EД…AГ255Ї150)“ОAГAЌ19:ˆA Ѕ480,290,480,900,480,760,480,200,460,400,220,240,260,830:Ѕ150)ђШPГPЌ32:…PД33ЇPГPЋ32:Ѕ150:„ZГZЌ3:І1000:‡@PЋ32," ";:‡@PЋ41," ";;:‡@P,FT$(Z);:‡@PЋ9,FT$(Z);)ќвЅ150*[мPГPЋ32:…PВCL ЇPГPЌ32:Ѕ150:„ZГZЋ3:І1000:‡@PЌ32," ";:‡@PЌ23," ";:‡@P,FT$(Z);:‡@PЋ9,FT$(Z);*eцЅ150*Т№DГDЌ10:…DД0ЇDГ0:Ѕ150:„ZГZЌ1:І1000:‡@P," ";:‡@PЋ9," ";:PГPЌ10:‡@P,FT$(Z);:‡@PЋ9,FT$(Z);*ЬњЅ150*о…PЋ10ВCL Ї150+nDГDЋ10:…DВ22ЇDГ22:Ѕ150:„‡@P," ";:‡@PЋ9," ";:PГPЋ10:…PВCL ЇPГPЌ10:DГDЌ10:‡@P,FT$(Z);:‡@PЋ9,FT$(Z);::„ZГZЋ1:І1000:‡@P,FT$(Z);:‡@PЋ9,FT$(Z);+xЅ150+џ"І380:І640:‡@164,"LOADING "T$;P$;T$:…V(Z)Г0ЇгP$,R:„…V(Z)Г1ЇІ380:‡@160,P$(Z);" IS A DATA FILE AND CAN'T BE LOADED.":€IГ1Ѕ1000:‹:Ž,S,…V(Z)В2ЇІ380:‡@160,P$(Z)" IS A SOURCE FILE AND CAN'T BE LOADED.":€IГ1Ѕ1000:‹:Ž,ˆ6GGГFG(Z):FG(Z)ГFG(Z)Ў2:…FG(Z)В16.5ЇFG(Z)ГFG(Z)Ћ1,Й@NTГFG(Z):NAГџ(FG(Z)):…NAДВFG(Z)ЇNSГ10:„NSГ1-FJSBГџ†(&H19)­256Ћџ†(&H1A):NTГџ(NT):пDR,NT,NS,NA$,NB$:€IГ2Ѕ3:NE(I)ГџŠ(џ(NA$,I,1)):‹I:LPГNE(2)­256ЋNE(3)Ќ1:€IГ4Ѕ5:Z(I)ГџŠ(џ(NA$,I,1)):‹I-ЃTSAГZ(4)­256ЋZ(5):EAГSAЋLP:EBГџ†(&H1B)­256Ћџ†(&H1C):…ZZГ255Ї920:„…EAДSB Ї390:„…SAВEB Ї390-П^I$Гџ‹(146)Ћ"&H19,&H26:".…hP$ГI$Ћџ‹(211)Ћ"M"ЋT$ЋP$ЋT$Ћ":"Ћџ‹(146)Ћ"&HFF40,0:"Ћџ‹(162)Ћ":"Ћџ‹(150):NГ&H200:€IГSB ЅSBЋ4:PГџ†(I):NГNЋ1:’N,P:‹:€IГ&H205 Ѕ&H204Ћџ‡(P$):AГџŠ(џ(P$,IЌ&H204,1)):’I,A:‹:LГџ‡(P$)Ћ5:’&H1B,&H2:’&H1C,L.˜r•200:’&H19,2:Ž/|ž:‡џЁ(9,137);џ‹(128)"menu"џ‹(128)"ver"џ‹(128)" ";:’1043,50:’1044,46:’1045,48:‡џ‹(128);џЁ(9,134);:/††P$Гџ‹(211)Ћ"M"ЋT$ЋP$ЋT$Ћ":"Ћџ‹(146)Ћ"&HFF40,0:"Ћџ‹(162)Ћ":"Ћџ‹(130):€IГSBЋ13 Ѕ SBЋ12Ћџ‡(P$):’I,џŠ(џ(P$,IЌ(SBЋ12),1)):‹:•200:Ž20/І380:І640: 200,2/їšCP$ГP$:‡@162,"COPY ";T$;P$;T$;" (Y/N)?":A$Гџ’:…A$Г""Ї410:„…A$Г"N"ЇŽ:„…A$Г"Y"Ї420:„4100<Є‡@162," COPY ";T$;P$;T$:‡@230,"TO WHICH DRIVE? (0-3)": 200,20ˆЎA$Гџ’:…A$Г""Ї430:„RГџŠ(A$)Ќ48:R$Гџ(џˆ(R),1):IГR:І680:…RГџ†(235)ЇоP$:Ž0ЯИ…RД0БRВ3Ї430:„І530:€IГ1Ѕ12:H$Гџ(P$(Z),I,1):…H$Г" "Ї450:„S$ГS$ЋH$1+Т‹I:S$ГS$Ћ":"ЋR$:І380:‡@164,"COPYING ";T$;CP$;T$:‡@233,"TO ";T$;S$;T$:оCP$ЅS$:’235,DR:Ž1`ЬІ380:І640:‡@164,"KILL ";T$;P$;T$;"???";: 200,21ЎжZ$Гџ’:…Z$Г""Ї470:„…Z$Г"N"ЇŽ:„…Z$Г"Y"Ї‡@164,"KILLING ";T$;P$;T$:вP$:Ž:„4701Лр…AГ1ЇIГ01Шъ…AГ3ЇIГ11еє…AГ5ЇIГ21тў…AГ7ЇIГ31ћІ680:Y$Гџ’:’235,I:Ž2SГ3:FLГ02пR,17,S,A$,B$2c&€XГ1Ѕ97Љ32:ZZГZZЋ1:D$Гџ(A$,X,8):C$ГџŽ(D$,1):…C$Гџ‹(0)ЇZZГZZЌ1:Ѕ5802u0…C$Гџ‹(255)Ї2Ќ:E$Гџ(A$,XЋ8,3):Q$(ZZ)ГD$Ћ"/"ЋE$:…P$(Z)ГQ$(ZZ)Ї6102ЪD‹X:…FLГ0ЇA$ГB$:FLГ1:Ѕ5502сNFLГ0:SГSЋ1:…SГ12Ї2ыXЅ54035b 100,2:‡:‡" FILE EXISTS. DELETE IT? (Y/N)";:FFГ255:І640:K$ГP$Ћ":"ЋR$3qlY$Гџ’:…Y$Г""Ї620:„…Y$Г"Y"ЇЅ630:„…Y$Г"N"Ї’235,DR:Ž:„6203ЉvІ380: 100,2:‡@160," DELETING: ";T$;K$;T$:вK$:4€P$Г"":€IГ8Ѕ1ЉЌ1:U$Гџ(P$(Z),I,1):P$ГџŽ(P$(Z),I)Ћџ(P$(Z),4):…U$Г" "Ї650:„…U$ДВ" "Ї6604 Š‹I4&”…FFДВ255ЇP$ГP$ЋDR$:FFГ04,ž4FЈˆIЋ1Ѕ690,700,710,7204[В’&HFF40,41:Ѕ7304pМ’&HFF40,42:Ѕ7304…Ц’&HFF40,44:Ѕ7304•а’&HFF40,1044ок’&HFF48,3:Ђџ†(џ(XX$)Ћ2)­256Ћџ†(џ(XX$)Ћ3):PГџ†(&H205):…PГ255Ї740:„5Aф’&HFF40,0:І380:‡@164,"DRIVE #";I;"NOT AVAILABLE.":‡:‡" PRESS [SPACEBAR] TO CONTINUE.": 100,25^юA$Гџ’:…A$ДВџ‹(32)Ї750:„Ž5јІ380:І640:‡@162,"RENAME "P$" (Y/N)?": 200,25ЪY$Гџ’:…Y$Г""Ї770:„…Y$Г"N"Ї’235,DR:Ž:„…Y$Г"Y"Ї780:„7706  ‡@226,"NEW NAME FOR "P$"?":‡" DO NOT FORGET THE EXTENSION."6M‡@330,;: 100,2:Л‰NN$:…NN$Г""Бџ‡(NN$)В12Ї‡@330,џЁ(16,32):Ѕ7906s …џŠ(NN$)Г47Ї‡@330,џЁ(12,32):Ѕ7906В*…џŠ(џ(NN$,4))ДВ47АџŠ(џ(NN$,4))ДВ46Ї‡@330,џЁ(12,32):Ѕ7906д4NN$ГNN$ЋDR$:жP$ЅNN$:’235,DR:Ž6щ>…FT$(Z)ДВ"m"Ї1507.HІ380:І640:‡@74,"OFFSET LOAD":‡@132,"OFFSET "P$" (Y/N)?": 200,27hRY$Гџ’:…Y$Г""Ї850:„…Y$Г"N"Ї’235,DR:Ž:„…Y$Г"Y"Ї860:„8507˜\‡@194,;: 100,2:‰"BY HOW MUCH";O$:…O$Г""Ї8607гf…џ(O$,1,1)Г"-"ЇO$Гџ(O$,џ‡(O$)Ќ1):OГџ‰(O$):OГЌO:Ѕ8907ъpгMP$,O:’&HFF40,0:–8zгMP$,OЋ65536:’&HFF40,0:–8„…FT$(Z)ДВ"m"Ї1508gށІ380:‡@160,"FILENAME EXT START END TRANSFER";:ZZГ255:‡:‡P$(Z);:Ѕ3109J˜ZZГ0:SA$Гџœ(SA):SA$ГџЁ(4Ќџ‡(SA$),"0")ЋSA$:‡@237,SA$:EA$Гџœ(EA):EA$ГџЁ(4Ќџ‡(EA$),"0")ЋEA$:‡@243,EA$:FG(Z)ГGG:пDR,17,2,X$,Z$:XX$ГџŽ(X$,68):€IГ1Ѕ68:GL(IЌ1)ГџŠ(џ(XX$,I,1)):‹I:GLГFG(Z):FGГFG(Z):€IГ1Ѕ68:…GL(GL)Д128ЇGLГGL(GL):‹I9…ЂLGГGL(GL):LSГLGА31:WГGL:…WД34ЇTTГџ(WЎ2):„TTГџ(WЎ2)Ћ19рЌSSГ(W А1)­9ЋLS:пDR,TT,SS,TP$,SP$:TP$ГTP$ЋџŽ(SP$,127):VГџŠ(V$(Z)):VГVЌ1:…VД128Ї945:„9609іБ…VГД0ЇVГ255:Ѕ960:ЖAA$Гџ(TP$,V,2):Ѕ970:,РVГVЌ128:AA$Гџ(SP$,V,2):ЧЪ€IГ1Ѕ2:BB$Гџ(AA$,I,1):BB(I)ГџŠ(BB$):‹I:TAГBB(1)­256ЋBB(2):TA$Гџœ(TA):TA$ГџЁ(4Ќџ‡(TA$),"0")ЋTA$:‡@249,TA$:‡@482,"PRESS [SPACEBAR] TO CONTINUE";: 100,2:сдY$Гџ’:…Y$ДВџ‹(32)Ї980:яо’235,DR:Ž;ш…V(Z)Г0ЇFT$(Z)Г"b";ђ…V(Z)Г1ЇFT$(Z)Г"d";4ќ…V(Z)Г2ЇFT$(Z)Г"m";K…V(Z)Г3ЇFT$(Z)Г"s";Q;ёкˆ:І380:DRГџ†(235):SГ3:ŒGL(69),P$(69),V(69),FG(69),V$(69),FT$(69),Q$(69):DR$Г":"Ћџ(џˆ(DR),1):T$Гџ‹(34):‡@480," "џЃ(DR);"GRANULES LEFT ON DRIVE"DR;:‡@32,;< $XX$Г"žЖџH0Œџџ'„&№ŽўўП9ŽџџП9"<М.YY$Г"ЖRя'MП'MЖSя'Jў'JЖTя'Gћ'GЖUя'Dї'D§'Dў'DЖVї'AЖWї'>ЖXї';ЖY§'8†џ 9† 5† 1† -† )† %† !† † † † † † † †! %З9"<Т8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ& т40:у8,63:у0,0:ž1&%’ 65495,0&Cž:‰"enter movie name:";N$&](‡#Ќ2,џ‹(27);џ‹(14);N$&f2‡#Ќ2&7TГTЋ1:… TГ2 Ї56 :„60&8‡#Ќ2:‡#Ќ2&Ђ<‡"another label"&ЙFA$Гџ’:… A$Г"" Ї 70&ЮP… A$Г"Y" Ї Ѕ 30&эZ… A$Г"N" Ї ’ 65494,0 :„ 70'd’ 113,0:Ђ 40999 т40:у8,63:у0,0:ž1&%’ 65495,0&Cž:‰"enter movie name:";N$&](‡#Ќ2,џ‹(27);џ‹(14);N$&f2‡#Ќ2&7TГTЋ1:… TГ2 Ї56 :„60&8‡#Ќ2:‡#Ќ2&Ђ<‡"another label"&ЙFA$Гџ’:… A$Г"" Ї 70&ЮP… A$Г"Y" Ї Ѕ 30&эZ… A$Г"N" Ї ’ 65494,0 :„ 70'd’ 113,0:Ђ 409пЪЂпМЗОБИКпНОЊЛђппппппппппЩЂпЖБЙАђппппппппппШЂпВКБЊпмЭђппппппппМЊ­­КБЋпЛ­ЖЉКХџяq§џB^>~ЮяиџV~Эя觇~Ьин~Ыяићу~ШяиёJ~ЪяијЖ~ЩяиіаЮРй.Bгјщ8BЬyGHЦBVзqзŽBзšBж~џиќB\ѕB^>~џиЫ§BећЪ§B\ѕ~Ёяибп"Y~џињB\ѕп ЦппппппееееМЗОЋпВАЛКееееђппппЗЖЋпЄЊЏвО­­АЈЂпЋАпКЇЖЋђџBЫРАhŽB_иBVз€ёюyўHёэBЪёBVзqж^Bзšqж"BзšIёюBжŒqж1BзšIёэBжŒyњBећяqёџBеЈ~яиљЮРй пy§HёыBеоBг;Iёњ~џиќвцqЮдBзšyъBећяqџBеЈ~эиљЮРй пqпџYBећsоўй BдqяqПџBеЈ~ъию~ьяиˆЮРйyBећпIёэtўHёэ~ьйыyўHёэIёюtўHёю~мйќй”зCHёџ{ЛЛЛЛBжjIёџ{№BжjIёл~џиўЦyђB\ѕЦ~ѕк§tјtЯB\ѕЦппппеееЌКБЛпЛЖЌДеееђпввввввввввввввввввввввђџппппппЌКМЋА­пХџпппппппЋ­ОМДпХџIёщ~ўяићI–{їи§п§АЦI—ЦHёпIёщ~ўяињйI–{яиIёпH—HћрЦA?љIёыX{IёяXўIёюX§IёэXќ1пџћR`?ћхЏqпџяqњџYX_sоџйA?љЦIёщ~ўяићl€ёѕI–{їи№I—HћрyўHёѕIћрЦyHёѕАHћрЦBЪёBVзqдBзšqж"BзšIёюBжŒqж1BзšIёэBжŒBеЈ~њйyяBећяqџBеЈ~џйљЮРй п~ъиѓ~ыяи§3ЮРйп%qЮдBзšyэBећяqпџqћBеЈ~џиѓX_Xяsоќйпі ёѕ>ипBдaIёџNоўйЅIёўNо§й­yъBећyќHёыBеоIёэtўHёэ~ьяйЉyўHёэIёюtўHёюгзЫяqўЏЯрйЪяЦHёэ~ьйуiўHёэIёюtўHёю~мйєй”yьBећщшеyпппеееее­КМКЖЉКпЛЖЌДееееееђџBдaIёџBећIёўBећЦqџџяqпџ_Хяsоўй@ёџЦqћџ9a4ўsћриї>й 9aп{Яwп4ўsњиї>й9aпњ4ў}sњиѕ4ў>й 9aп{Яwsћџиѕ4ў>й9aпЦqћџY{~bлїЯўsљџй Ц~иљtўX{пyaX{п~мяйЇй”BЬBVзqгƒBзšIёяBжŒqгWBзšB^>~Яиё~Юия~Эиы~Ьичп€ёяBйnyўHёяBйny§HёяBйnyќHёяBйnппеееМЗОБИКпЛ­ЖЉКеееђЋЗКпМЊ­­КБЋпЛ­ЖЉКпЖЌпХџЏГКОЌКпКБЋК­пБКЈпЛ­ЖЉКбђвТСџqпџяqЏџ1џџ YHёџЃ>иѓsоџијY{NёџиIёџ_X_ЬНsоџиѕю|џић щ-ю|џкј€ёњ€ёљЦŸџIŸўHёљyўHёњЦqЯyўHёлBзšIёљBжŒqЮцBзš€ёлyыBећяqBеЈ~эијЮРй щIёљBећ€ёњIёљHёчяqЏџqџџY[Bећ_Х…ёчй @ŸџIŸџBећIŸўBећяqёџBеЈ~ъяи8~ьяивЮРйyBећпqЯBзšqЏџsЎџйqпџsо§йyэBећBЮНHёљHёчyўHёлIёљBжŒqЮцBзš€ёл€ёњяqЏџqџџBЮНHёџHћр ёџX_Х…ёчй@ŸџBЮНHёџBЮНHёўIёџNŸџяйџКIёўNŸўяйџФyъBећёњяqпџqЏџY_ЕйЬЁю|џџйqњџяqпџY_XsљџйyќHёыBеощ/yьBећеyпппппппееееЏЗАБКпМГАБКееееђввввввввввввввввввввввввввввввввпппЈКГМАВКпЋАпЏЗАБКпвџ& ž:•200,15999&&‡Є12)"ROMCRACK"&,‡&o(‡"THERE ARE TWO PROCEDURES TO MAKEA WORKING COPY OF A ROMPAK:"&u2‡&Ф<‡"FIRST, PLACE A PIECE OF TAPE OVER THE FAR LEFT PIN OF THE ROMPAK:"&кF€XГ18Ѕ46:€YГ18Ѕ27&хP(X,Y)&юZ‹Y,X'd€XГ20Ѕ44Љ2:€YГ18Ѕ21'nœ(X,Y,1):œ(XЋ1,18,1)'(x‹Y,X'C‚‡@394,"ROMPAK BOTTOM";'PŒ€XГ1Ѕ100'_–‡@266,"V";'n ‡@266," ";'tЊ‹'Д€XГ18Ѕ21:œ(21,X,5):‹'ВО‡@448,"INSERT ROMPAK, AND TYPE:"'фШ‡"CSAVEM";џ‹(34);џ‹(34);",49152,57343,49152";'єв€XГ1Ѕ4000:‹'њмž(ц‡Є12)"ROMCRACK"(№‡(Hњ‡"NOW YOU HAVE THE ROMPAK CONTENTSON CASSETTE."(”‡"SECOND, TO MAKE A WORKING COPY, INSERT THE CASSETTE AND PRESS PLAY"(В‡"HIT WHEN READY"(М‰ ZZ$(Ы"—M"",32768(х,€XГ16000 Ѕ 16038:  A(ѓ6’ X,A:‹ X) @Л‰"ENTER FILENAME FOR DISK SAVE :";A$)1J…A$Г"" Ї 320)LTиMA$,16000,24575,16000)R^Š)ph† 26,80,142,160,0,183,255)Žr† 222,166,132,183,255,223)Љ|† 167,128,140,192,0,38)Ч†† 241,142,64,0,16,142,192)у† 0,166,128,167,160,140*š† 126,255,38,247,126,192,0NAME FOR DISK SAVE :";A$)1J…A$Г"" Ї 320)LTиMA$,16000,24575,16000)R^Š)ph† 26,80,142,160,0,183,255)Žr† 222,166,132,183,255,223)Љ|† 167,128,140,192,0,38)Ч†† 241,142,64,0,16,142,192)у† 0,166,128,167,160,140*š† 126,255,38,247,126,19џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџж&€XГ1000Ѕ1010&!A:’X,A:‹X&W’383,126:’384,3:’385,232:’422,126:’423,3:’424,232&†52,16,142,0,1,189,167,211,53,16,57&…–&е:ƒRUN,THEN POKE 1003,200 FOR SLOW SCROLLING (VARY 200 FOR DIFFERENT SPEEDS)RY,29,MARCH,31,APRIL,30,MAY,31,JUNE,30,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЭF:ƒ********************************SORT CATALOG PART 2 START HEREOЅ37w•17000,31999:ŒZ(4):ŒS$(1000):ŒA$(1)"† 32,76,77,73,83,83,73,78,71,32,65,82,71,13,0,166,128,39,6,173,159,160,2,32,246,57,158,27,16,163,129,39,14,48,5,156,29,37,245,48,140,216,141,227,126,172,118,57,158,29б† 16,163,132,39,14,52,6,236,2,48,139,53,6,156,31,37,239,32,226,48,7,57,189,188,20,126,179,237,204,90,0,141,221,31,19,204,78,0,141,192,141,236,237,66,204,75,83,141,183,141}† 227,192,1,231,68,204,75,76,141,172,141,216,231,69,204,83,128,141,185,175,196,142,0,0,52,16,236,66,131,0,1,52,2,134,5,61,237,78,53,4,134,5,61,31,152,95,227,78,227,196+† 52,6,236,196,52,6,174,225,38,1,57,175,76,175,74,53,16,175,72,175,70,111,200,16,174,76,172,72,36,118,16,174,72,230,132,174,2,52,32,49,133,16,175,200,17,53,32,230,164,16м† 174,34,52,16,48,165,175,200,19,53,16,166,68,230,69,231,78,48,134,49,166,172,200,17,36,51,16,172,200,19,36,12,230,128,225,160,38,4,106,78,38,235,35,33,134,1,168,200,16,167 † 200,16,52,64,174,76,16,174,72,166,132,230,164,167,164,231,132,236,2,238,34,237,34,239,2,53,64,109,200,16,39,8,174,76,48,5,175,76,32,140,174,72,48,27,175,72,32,132,109,2003 † 16,38,4,174,76,32,2,174,72,175,78,236,70,163,78,52,6,236,78,163,74,16,163,225,37,7,141,27,141,10,22,255,79,141,5,141,18,22,255,72,53,6,174,78,48,5,172,70,36,21е † 16,174,70,32,14,53,6,16,174,78,49,59,16,172,74,35,4,174,74,52,48,31,5,0,0,0,0,0,0,0,0,0,0,0,223,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255c † 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255 † 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Б† 0,0,0,0,0,0,0,0,0,0,0,0,223,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,128,64,13,0,1,113,160,14,255,0,167,211,162,30,13,185,236,4,186,65a† 189,51,177,106,0,188,225,183,77,174,84,173,45,131,2,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255я† 255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,255…† 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/† 0,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0Y† 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,ENDeAГ32000† B$:… B$Г"END" Ї AГAЌ1:Ѕ24Ђ’ A,џ‰(B$):AГAЋ1:Ѕ 21Ч:ƒ********SORT CATALOG**********еЙџƒГ32000оЅ30Yž:‡@40,"SORTING CATALOG":‡@101,"DO YOU WANT TO SORT BY:":‡:‡"1-FILENAME":‡"2-DISK":‡"3-TYPE":‰A:…AГ1ЇKSГ9:KLГ8:XГџƒ(0)u…AГ3ЇKSГ20:KLГ3:XГџƒ(0)…AГ2ЇKSГ1:KLГ8:XГџƒ(0)šЅ 34тž0:‡@203,"NAME TO LOAD";џЁ(20,128);:Л‰CF$:™"D",#1,CF$,22:а#1,22џЇA$ђ…џЅ(1)Г0Ї33 Z NГNЋ1:Ф#1,N:ž0:‡@203,"loading";џ‹(128);"data";џ‹(128);џЁ(22,128);N;џ‹(128);:S$(N)ГA$:… џЅ(1)ДВN Ї32 g!š#1:Ѕ26 ц"ž0:‡@193,"INSERT DISK TO SAVE INFORMATION";џ‹(128);:‡џЁ(32,128);:Л‰"NAME TO SAVE ";CF$:‡џ‹(128);:™"D",#1,CF$,22:а#1,22џЇA$!A#ž0:€ JГ1 Ѕ N:д A$ГS$(J):Х#1,J:‡@203,"saveing";џ‹(128);"data";џЁ(23,128);J;џ‹(128);:‹ J!K$š#1:Š!`%Ш0:Р1:•17000:Ѕ3!Ž&:ƒPERSONALIZED PROGRAMING...PUBLIC DOMAIN!Ь':ƒ********************************YOU GOT ALL THE PROGRAMD",#1,CF$,22:а#1,22џЇA$!A#ž0:€ JГ1 Ѕ N:д A$ГS$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭqЮ3Жџ"ŠЗџ"Ž1ЗІ Ї€Œ&ї0&П „Џ­Ÿ M&}t'є E'0%я3"ы‹@ЗЗt€pЗКŽПpПrL/ &† †@4†(ЊрЗ †Зџ@ЩЦfПW–№€&а}Ш'ШŽњПfކ0ПhќWƒ|§dќp§rќl§pќrƒ'џbѓp§hЬ§dfgяќl§ЈvЖЎЗ†nЗќЌ§ЖЋЗќЈƒ …"Ь † ƒ є%Ь ѓ§hŽПfЬ §dІќlƒ'† =§ЪЬяГЪЬ  э„ўцЦ їЩЬ``ŽЏэ„0ˆ zЩ&і9nŸПўzШŽŸIЦdзŒЬНЉQŽ``ППП0@ŽAЦЦŽbЦށ Ь§pЄў‡І€Ї Z&љ9†ЯЦŽAЦŽb ЦŽ9Ї Z&ћ94vPŽПjПlќhГd%Гd0ƒ'Œ&ъОj1!Пj оОf'1?Пf ж„ЏПl5і4vŽП`Пb†Зn†Зo031334І„ц =уФэРzo&ђzn'†Зo013 м„Џ5і4vPŽПЃПЅПІŽ ПЊПЌП­ќЈ0-ƒ'%ƒ'l„ ѓ0ƒш%ƒшl„ ѓ0ƒd%ƒdl„ ѓ0ƒ %ƒ l„ ѓ0ƒ'ƒl„ ѓ0ш3м1мЦїЙІТц†ч zЙ&ѕ„Џ5і4fP№ …ЮџH†З ‚0FП ƒŽ†ЗџIЖџHЖ †Зџ@ЦфїџHˆˆžŠЦхФ& 1?&ј ‚Џ0 ќ†аЗџHˆˆЖџH†€—№5цŽ0&ќ9Ж ‚'О ƒЏj ‚;COMSPD & DRIVE-SPEED(C) 1984 BY COMPUTIZE INC. pqrstuvwxyDRIVENOTREADYяяяяяяяCOMPmSPEEDhCi`qyxtяяяяяяяяяяяяяя`BY`COMPUTIZE`INCnяяяяяяяяяяяяяя|BREAK~`KEY`TO`ENDяяяяяяяяяяяpms`KEY`TO`SELECT`DRIVEяяяяяяяяяяяяяяяяяяяVqnqяяяяяяяяяяяяяяЯЯЯЯЯЯЯЯЯЯЯspu~``|spuЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯspt~``|sptЯЯЯЯЯЯЯЯЯЯЯЯDRIVEЯЯЯЯЯsps~``|spsЯЯЯЯSPEEDЯЯЯЯЯ`ЯЯЯЯЯЯЯspr~``|sprЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯspq~``|spqЯЯЯЯЯRPMЯЯЯЯЯЯЯЯЯЯЯЯЯЯspp~``|sppЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯryy~``|ryyЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯryx~``|ryxЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯryw~``|rywЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯryv~``|ryvЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯryu~``|ryuЯЯЯЯЯЯЯЯЯЯЯџџЯЯЯЯЯspr~``|sprЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯЯspq~џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ•Ў†Ц IЖџ"„ŠЗџ"5––Dџ* BAS$,SD BAS%rERMPGM0BIN 7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџN'Œ€ NГ0 Ѕ 7'n–… џŽ(E$(N),1)Вџ‹(65) А џŽ(E$(N),1) Дџ‹(91) А џŽ(N$(N),1)ДВџ‹(0) Ї OГOЋ1:M$(O)ГN$(N):І 330'v ‹ N'~Њ‹ X'†Дž:'•О€ LГ 1 Ѕ O'ЁШ HH(L)'Љв‹ L'Зм€ YГ1 Ѕ O'Щц‡@HH(Y),M$(Y)'ṋ Y'нњFГџЃ(0)(‡@450,"FREE ";F;" p TO PRINT"(‰"WHICH TO LOAD";Z$(*… Z$Г"" Ї ‘(W"… Z$Г"P" Ї ž3:‡@192,"PRINTING ";:Ѕ 360(`,г Z$(f6Š) @† 32,43,54,64,75,86,96,107,118,128,139,150,160,171,182,192,203,214,224,235,246,256,267,278,288,299,310,320,331,342,352,363,374,384,395,406,416,427,438,448,459,470)1J… E$(N)Г"DAT" Ї M$(O)ГM$(O)Ћ".")UT… E$(N)Г"BIN" Ї M$(O)ГM$(O)Ћ",")[^)zh‡@224,"NAME OF DISK";:‰ A$)Аr‡#Ќ2,џ‹(27);џ‹(14);"----";A$;"----";џ‹(27);џ‹(15))Э|A1Г1:A2Г2:A3Г3:A4Г4:A5Г5*†‡#Ќ2,џ‹(27);џ‹(20);M$(A1);Є10)M$(A2);Є20)M$(A3);Є30)M$(A4);Є40)M$(A5)**… A4ГВ O Ї 420*]šA5ГA5Ћ5:A1ГA1Ћ5:A2ГA2Ћ5:A3ГA3Ћ5:A4ГA4Ћ5:Ѕ 390*“Єž:‡@105,"ANOTHER DISK Y/N"*ЉЎZ$Гџ’:…Z$Г""Ї 430*ЦИ… Z$Г"N" Ї ’113,0:Ђ40999+Т… Z$Г"Y" Ї ž:‡#Ќ2:‡@64,"INSERT NEW DISK AND HIT ENTER":‰"";Z$+Ь‡#Ќ2,џ‹(27);џ‹(18)+(жЅ20+3рЅ 4306)*Cз… A6ГВ O Ї 225*~мA1ГA1Ћ6:A2ГA2Ћ6:A3ГA3Ћ6:A4ГA4Ћ6:A5ГA5Ћ6:A6ГA6Ћ6:Ѕ 210*Дсž:‡@105,"ANOTHER DISK Y/N"*ЪцZ$Гџ’:…Z$Г""Ї 230*ны… Z$Г"N" Ї ž:‘+ №… Z$Г"Y" Ї ž:‡@64,"INSERT NEWџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁ& у 0,0:т 40:ž 1:ј 3,0&`:ƒ MAIN SET UP FOR XMODEM TRANSFER VIA SERIAL PORT &™•2000,&H7DDF:€NГ&H7DE0 Ѕ &H7DF7:A$:’N,џ‰("&H"ЋA$):‹&З(† BD,8D,BC,26,06,1F,89,4F&е2† 7E,B4,F4,CC,FF,FF,20,F8&ѓ<† BD,B3,ED,1F,98,7E,8E,0C'FXГ0:ACKГ6:NAKГ&H15:SOHГ1:EOTГ4'?Pž:ё 9,12:‡ "[3]00 OR [1]200 BAUD: ";'uU… џ’Г"1" Ї ’ 230,41 :„ … џ’Г"3" Ї ’ 230,180 :„ 85'­ZЙџƒ0Г&H7DE0:Йџƒ1Г&H7DF0:NU$Гџ‹(0):B$ГџЁ(128,0):SAГ1(d:ƒ SUBROUTINE FOR SEND ... N$=FILENAME TO SEND GOSUB THIS ROUTINE .... (Tnž:ё 12,11:‡ "Filename To Send":ё 16,13:Л ‰ N$:… N$Г"" Ї Ž(Йxž:™"D",1,N$,1:SAГ1:EAГџЅ(1):š#1:™"D",1,N$,128:а#1,128 џЇ A$:ё 16,0:ј 5,0,B:‡ "Xmodem Send":ј 3,0(о‚ё 6,11:‡ "Sending Filename: ";N$)Œё 6,12:‡ "Blocks :"џЅ(1))I–ё 6,13:‡ "Bytes :"EA:ё 10,22:‡ "Awaiting Initial Nak";)m XГџƒ0(0):…XГ24Ї250:„…XДВNA Ї160)‹ЊBLГ0:ё 10,22:‡ џЁ(30,32);)нД€ NГSA Ѕ EA Љ 128:ё 6,14:‡ "Sending Block # :"џ(NЎ128)Ћ1:BLГ(BLЋ1)А255:І260*LОXГџƒ1(SOH):XГџƒ1(BL):XГџƒ1(255ЌBL):CSГ0:€LГ1Ѕ128:XГџŠ(џ(B$,L)):CSГCSЋX:XГџƒ1(X):‹:XГџƒ1(CS А255):XГџƒ0(0)*gШ…XГ24Ї250:„…XДВAC Ї190*nв‹N*}мXГџƒ1(EOT)*ŠцXГџƒ0(0)* №…XДВAC АXДВ24Ї220*мњš#1:ž:ё 5,12:‡ "... Transmission Complete ...":ё 0,20:Š*эXГ1:OГN:LBГ1+b… OЋ127ВEA Ї š#1:™"D",1,N$,1:а#1,1џЇA$:€QГ0Ѕ127:…OЋQВEA Їџ(B$,QЋ1,1)ГNU$:‹: :„Ф#1,OЋQ:џ(B$,QЋ1,1)ГA$:‹:Ѕ 250+ˆФ#1,(OЋQЌ1)Ў128Ћ1:џ(B$,1,128)ГA$+š"OГOЋ128:XГXЋ1+ ,š#1:™"D",1,N$,1:а#1,1џЇA$:€QГ0Ѕ127:…OЋQВEA Їџ(B$,QЋ1,1)ГNU$:‹: :„Ф#1,OЋQ:џ(B$,QЋ1,1)ГA$:‹:Ѕ 250+ˆФ#1,(OЋQЌ1)Ў128Ћ1:џ(B$,1,128)ГA$+š"OГOЋ128:XГXЋ1+ , G IS SO SLOW.)5НLєНLxC8НDШ~-­Ь\НQ<ЬNФџ„УCP§ˆНLfQUIT5НLєНL…ChЬ‡Фџ„У§ˆНLf<1> REC€TURN TO MENU5НLєНL…ЬC˜ЇФџ„У§ˆНLf<2> QUICАT PROGRAMME5НLєНL…Ь}бнCШ'НTЉŽ}бŸ'ŽVЬ НT&ŽVЬ}бCрн'Ь НT€НTЛ5НTyŽ}бНTCјШ&Цџ!_ƒ'НI ~CФŽVЬ}Dбн'Ь НT€Ž}бНUŸ§|Kќ|KƒD(,Цџ!_4ќ|Kƒ/Цџ!_ЊрD@ърƒ'Ь4Ь5НQQ~CФќDX|K4Ь AНOЃ2bУh§|IН'›ќDp|Kƒ&Цџ!_ƒ'~-­ЬїDˆџж_НQ<Ž|uЦНMНLfPROD GRAMME RUN ENDED.5НLєНDИLxO‹qїџоџœ~ 'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ