L-hhɈ LHH` X% " THIS DISK HAS NO DOS *** BOOT ON A 3.3 MASTER, REPLACE THIS DISK IN DRIVE, THEN CATALOG AND RUN PROGRAMS AS REQUIRED ***  +LZ04.08.83DOS鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  ( =+. ".$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0#?((#)<;?+0<#0?2$4:?(Eb)+ H+ `H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`   ɑ `HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  Lӌu`".Q`pNФbptťܥm2<(-޼y0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?L"Q$"."TRTR1:6320Q$"<"Q$","TRTR1:64004600::Q$"/"Q$"?"/Q$"1"Q$"!"Q$"C"20040:Q$"D"12020:Q$"L"8100:Q$"S"30040:Q$"V"2230:Q$"X"40040:Q$"Y"50020:Q$"-"6360:Q$"0"13000:Q$"3"10340Q$"?"35520:Q$"!"35020:Q$"E"Q$"Q"ġ:Q$"E"9140:5580OFF":IS08800:IS8850:ISĺB2$;Yp 23:1:"P=Printer ";:P08800:P8850:PĺB3$;_z f5VT24:TH1:5550:Q$,A$Q$"I"ISIS:4600Q$"T"TSTS:E3E3X(3):4600Q$"N"DR(DR1)1:UPUP:HA,DR:4600Q$"P"PP:IO:IO0# S% 21:23:"T=I/O IN ";:S1$"DEC":S2$"HEX":TS08800:TS8850:' 22:23:"N=Drive ";:S1$"1":S2$"2":(DR1)8800:(DR1)08850:* UPğ4 21:"U";::"=";::"UPDATE";::" for new disk":"I=Inspection ";#H S1$"ON":S2$"er";:23:">(.)=Incr.)Track+"K "L=List memory";:23:"<(,)=Decr.) Read"w "E=Edit buffer";:23:"Y=list files": "S=Status of disk":"?(OR /)=files on trk";:24:"Q=Quit" "!(or 1)=T/S list"" IOĢ17:33::B5$;"RWTS":33:"ERROR"::34:)l :"M=Modify DOS ";:MOĞ:"DONE";:H 23:"3=Restore DOS-mem."; 9:1:"X=eXchange disk ID";:23:"V=change Variables" "R=Read Track,Sector";:23:"+(;)=Incr.)Sect.+" "W=Write Track,Sector";:23:"- =Decr.) Read" "Z=Zero buff19:22:"*"::24:22:"*";:20:1:ST$;:W+ 7:1:S6$;:10:1:S6$;:16:1:S6$;:0 5:"D=Delete DOS (TR 1-2)";:23:"*(:)=Rest.DOS-disk";D MO0:(S)200(S3)208(S6)173(S9)76MO1X "0=Delete DOS (TR 0)";:23:"C=Change dir.size"r.sectors:";::::CT:; 23:24::"DA ";::"DISK:";DD$c 24:24::"TE:";::"NOW :";DC$;: SCĢ17:31::B5$;"RELOAD":31:"COMPLEAT ZAP": UPĢ4:17::"UPDATE ?": UPĢ4:17::"********":  4:1::ST$;:+& 5::I12 HHB(6):T$(HH)"Normal DOS 3.3":MOT$(HH)T$(B(4)1)>F f ::3050:3100:3085:3120:3365: 1:8640:1:1:"Buffer:":8040:2:1:"Disk:";::NA$; :" ";::"VOL#";VOL;::" ";::"DRIVE#";DR: 3:"DOS :";::DT$;::"(";CD$;") Di"("0"D$(2),2)"-"D$(3):QD1&h 7Gt MS53DT$"SYSTEM MASTER":e~ MS117DT$"32K SLAVE": MS181DT$"48K SLAVE": DT$"UNKNOWN": ER0:IB1:IECT:JB0:JE6:CO0:CN0:DL0:X(3)MYCT7  XE(TN):IX1NS(TI):T$(IX)::8 sR1:20 x34,0:(4)"FP"734,5: :16368,00 <(4)"EXECINIT.EXEC"6 Ak d"";Z$:32944:(4)"BSAVEINTBASIC,A$1000,L$3000" i34,3:35,24::"DISK HAS BEEN INITIALIZED, INCLUDING":"INTBASIC." n:"INITIALIZE ANOTHER DISK (Y/N)? ";:A$:A$:A$"N"120:A$"Y"110 ND A HELLO PROGRAM":"WHICH WILL LOAD 'INTBASIC' INTO YOUR":"RAM CARD." #:"BE SURE INITTER DISK IS IN CURRENT":"DRIVE AND HIT TO PROCEED";Z$: ("LOADING PROGRAMS INTO MEMORY...":R55 )(4)"BLOADINIT.OBJ" *(4)"BLOADINTBASIC" Y INITTER BY J M PROSSER CALL -A.P.P.L.E. IN DEPTH 3 "All About Applesoft"  (104)134Ĺ104,134:134256,0:(4)"RUNINITTER"::15::" INITTER "::34,3::R35H "THIS PROGRAM WILL INITIALIZE A DISK TO":"CONTAIN 'INTBASIC' A   =":6040:DRIN:HA,DRA |L 5:8:37360:8:DT$"NO DOS":DOS47TR2:SE0:7040:MS(HM7):2420:DEMS:100:CD$"$"HX$[ 8:DOS47CD$"Tr 0-2 Free":DOS15CD$"Tr 1,2 Free"` e QD2HH2044:I13:D$(I)((HHI))::DC$("0"D$(1),2)"-)$ LO(LS)LP(2LS2)8. BM(AD)(AD)C9(AD1)A8 8:= IA47082:HA2047:FA46584:RW(HA):DNRW1RW2:FM(FA):QD0QD2DRDNRWDNFM@ QDĉ:::"YOU MAY NOW INSERT A NEW DISKETTE":"OR CHOOSE ANOTHER DRIVE":::INDR:TE$"DRIVE NRit":VT7:5550:A$"Q"ER0:>A$"B"A$"F"İ5520:2230yA$"B"Ľ:2005:INPH:TE$"Page # =":6040:PHIN:1010A$"F"Ľ:2005:INMX:TE$"# of files=":6040:MXIN:1010 HP(DE)(DEC9) LP(DE)DEHP(DE)C9 HO(LS)HP(2LS2------":S6$S5$S5$S5$S5$8:CR$(13):CH$(160):I1NN:SP$SP$CH$::F$(0)"F":F$(1)"R":F$(2)"E":F$(3)"E":D$(13)(4):DEPH:100:BU$,HX$:XE(60020):IX1NS(0):G$(IX)::7::"B=Page # Buffer":"F=Number of files in directory":"Q=Qu4f5:NH$(15),T$(TD),F$(3),TS$(1),G$(NS(0)),D$(3)z8:ST$ST$"*****":NU$"0123456789":H$NU$"ABCDEF":TD$"TIADBDDDSRaDb":TS$(0)"hexadecimal":TS$(1)"decimal":B1$"":B2$"":B3$"":B5$""S3$"..........":S4$S3$S3$S3$S3$:S5$"----30,6:ST36,7:DP0:I04:X(I)1:O48:TR1:SI15:HC0:J0:J10:J20:NN20>A16:A256:C258:C3217:C(3)224:C(4)240:C(5)248:C6251:C7254:C8255:C9256H8:DR1:PK(987):SC9PK1504:5040W1013,76:1014,233:1015,10:11,184:12,10:8::BT$(I)ST$"":KNA$(0),N$(MX),SW$(1):SW$(0)"* ":SW$(1)" *":9420:8 BT%(15),SH(15),S%(MX),T%(MX),DE%(MX),X(4),NS(5),C(5)%8:NS(0)12:NS(1)9:NS(2)6:NS(3)18:NS(4)7:NS(5)8:TD18#*6,0:7,PH:9,PH:PB10:BITPB25663:PA8:STPA256:ST750:TR$,HX$:DED2:750:SE$,HX$:, 20056 2010L 3020:4020:1020_ MX63:PH142: ::QD261140:2040:2310:2150:2365:2380: HMPH256:HM:FS%(34):I034:FS%(I)1: BT$(15):ST$"**********":ST$ST$ST$ST$"*****":I015JX015' H%DE2:DEH%2BT%(JX)17 H%0JX15E DEH%::a (" "(G),SP);:n 520:: DE0:IX110:L$(HX$,IX,1):L$""IX10:: DEDE16:F(L$)48:F9FF7 DEDEF:: TS100:TSHX$(DE) " DED1: ":TY%127LO$"*":TY%TY%1287 TY%8TY%8TY%16 TY$(TD$,TY%1,1):N$(CO)(" "(CO1),2)" "DE$LO$TY$" "("00"(NR%),3)(" "TR$,3)(" "SE$,3)" "NA$(0): rXAAN:8:Y:XA2PYYYPK wX,Y:: JX015:BT%(JX)0::AR(107)(108)256139:AR,NN:AR1,14J35:AR2,PH:HHHCJ35:DE%(CO)0:T%(CO)(HH):S%(CO)(HH1) T%(CO)S%(CO)0I15:J6: T%(CO)255T%(CO)(HH32):DLDL1:DE%(CO)1 150:NR%(HH33):TY%(HH2):DE$"+":DE%(CO)1DE$"-" LO$"(H$,NR%1,1)HX$:DC0IX10% n:J xTR17:SE15I1:7040:HCHM11: }15:15::COCO1:"FILE # ";CO::COMXI15:J6:W1:B2$ DET%(CO):TSİ100:TR$,HX$ TSTR$(DE) DES%(CO):TSİ100:SE$,HX$ TSSE$(DE) g j@(104)12Ĺ103,1:104,12:3072,0:(4)"RUN COMPLEAT ZAP"j(2048)72ĺ(4)"BLOADCOMPLEAT.BIN"t1005DPDP1:ER0:DPDP1:ER0:Pı 12:20::SW$(SW):SWSW:: dHX$"":DCDE:IX110:Q%DC16:NR%DCQ%16:DCQ%:HX$           """""""""          F뷩췍 `h균詷 ` :H` T((F$,1)):T64T90ĺ:"ILLEGAL FILENAME!":60F Z32792,(F$)1 dI3282332823(F$)1:I,((F$,I32822,1))128:: STORE FILENAME n32768: STORE DOS ON DISKo 186,142,155,179,162,15,189,37,128,157,187,181,202,16,247,169,0,141,95,170,32q[ DOS UPDATER BY LEIGHTON PAUL CALL - A.P.P.L.E. IN DEPTH 3 (48K APPLE ][ ONLY) x(I3276832822:A:I,A:2"ENTER THE NAME OF THE GREETING PROGRAM"7"TO BE RUN AUTOMATICALLY UPON BOOTING UP:"<:"FILENAME: ";F$F(F$)603 PIND THE FILES WITH OPTION '?' THEN COPY AND DELETE THEM"::VrWW0:VT::G$(2):\rr2:6::"WELCOME TO THE COMPLEAT ZAP"::79,-1,76,197,-1,32,124,3,32,124,3,76,131,3,234bq\:B2$;"IMPOSSIBLE! DOS IS PRESENT!"::5540:qp::B2$;"IMPOSSIBLE! INPUT AGAIN!"::5540:q"T/S numbers are ";TS$(TS):q::"YOU WILL DESTROY FILES ON THE MENTIONED SECTORS":::>>,DESTINATION DRIVE # >>>,TR USEDkT=used sectors/Track,B=Bitmap of used sectors,S=Sector-distribution,C=normal Catalog,E=Extended cataloglW=Warning message,"I=Identification on track 0,sector 0",A=All,Q=Qui$):8:511I,((CO$,I,1))128::4:72,0:144:IS08440:Q$"E"Q$"M"Q$"3"7:PľA$:hjPʹNR17wjd͹34,1::7jtARE YOU SURE?,DIRECTORY ARRAYS TOO SMALL!,"Name of file","Files in directory:","Files deleted :"IkwGARBAGE,"LISTING BUFFER ":LN$"LLLLL":RG6:LN1:IiDES3432:100:AD$,HX$:LN$"L":RG7:LN52:{iDES3963:100:AD$,HX$:LN$"LLL":RG8:LN1:iDES4318:100:AD$,HX$:LN$"L":NR10:ḭ5:CO$CO$" N D9C6G":ISė::"MONITOR COMMAND: ";CO$:::5340\j̰9420:I1(COD$LN$:52440:NR152200:52040LhtDES:100:AD$,HX$:LN$"L":RG2:LN21:}hDES631:100:AD$,HX$:LN$"LL":RG3:LN22:hDES1581:100:AD$,HX$:LN$"LL":RG4:LN80:hDES2713:100:AD$,HX$:LN$"LLLLL":RG5:LN97:iDES3035:100:AD$,HX$2380,52400,52410,52412,52414,52416kg̭NR2İ7100:AD$BU$"01":LN$"LL N "BU$"3A."BU$"BA N "BU$"BBL"g$̭NR3AD$"A00":LN$"LLLLL"g8̭NR4AD$"800":LN$"LLLLLLLLLLLLLL"g:̭NR5AD$"AB8":LN$"LL"g=̭NR6AD$"AE9":LN$"L"gB̭Pĺ hLCO$ANR6İ5520:52040ff˴NR07:34,2::34,4:Pĺ:2:"=Stop/Restart(PLE) =Start/End":A$:f˰8700:31605:3:"Listing of ";:TINR1:8860:f˭Pĺ:"g˭NR1ė:TI5:TN60200:2490:4:T$(RG);::" ,";LN;" LINE(S)";:868:RG52340,52360,5eļ10000,20000:$eż20000,30000:7eż30000,40000:Je0ż40000,50000:]eDż50000,60000:peXż60000,63990:}e4˰5:NR10eH˭NR10TI4:TN60180:2490e\˰2610:LN12:RG1:8640:::PH$::I1NS(4):I1;"=";T$(I):fpVT20:5550:NR(A$)::NR00,50300,50320,50340,50360,50380,50400,50420,50440,50460,50480,50500,50520:5340:50040dd,ļ0,1000:ud@ļ1000,2000:dTļ2000,3000:dhļ3000,4000:d|ļ4000,5000:dļ5000,6000:dļ6000,7000:dļ7000,8000:dļ8000,9000:dļ9000,10000:̠ ̠ ̠ 捠 Ӎ±Ԡƍ ĠƠ 䩍ijҠԠ ٍ٠àIJ 占؍ؠàı РĠ ңĴǠ·čԵ ıҠԠ ҍ٠ 占Ҡ֠ IJ̩٠ ɠij ð 獠ҠԵ 캍àij  ɽRʽ˽zno"+(`ӽԠˠ08xHJJJJ ɺi h) ɺix`HJHJJJJ ɺi$h) ɺi%hLh Ģؠİ к ΢ 󍪭àǠРҠԠ ңؠ ôì؍Եٍ؍ٍ٠±Եàô 䍪 ؠõĬ؍ѠöҠԱ؍ŠõöӍĠؠĸčà Í Юóì؍Ь؍؍ؠĴЍàó Ե 卪 ·ĭ·٠  퍪 䮍͍ؠؠͫ ĵ 卪 ө Ӭ òЭ֍Ѝ֫ 卪 ٢ ΢ 卪 宍ؠñĬ؍Ĭ؍ɠò؍ŠñĠɠΧ ıŭ שĠŹ ԠŹ Ǡ к Т 󍪭 ĵ٢ Ġ٢ ͠Ơ٢ ֠µ  ԠĸŠ ԠĠ שԱư ٢ ΢ Ԡ̠ ֠ y Ԡ ЮЮ̮Ů Ӣ     à̠ōàӍ̠ҍҍҍҍҍ°РàԱàԱĠƍ°Рà̱à̱РŸōԠƍؠŠҍӍŠà Ӣà à ˠÍàҍҍҍҍ°РàԍàԠčĠƍ°Рà̍ Ӣ ԠǠùˍˍ̍Ŷō̍ŶƍؠҠŬ؍؍ Ԡ ЮЮ̮Ů    ----------------R: :DO NOT TRY TO USE "INIT" COMMAND WITH THE UPDATED DOS!!! (47091,0:Z: :END ADR. LO & HI (+1): TRACK & SECTOR: START ADR HI & SECTOR COUNT (+1) 110,165,1,4,165,3,8,175,1,13,174,2253,182,0,0,182,3,147,183,0,1,183,3150,186,0,4,186,3,0,189,0,6,188,3184,191,0,8,190,2: --------------x: :END ADR. LO & HI (+1): TRACK & SECTOR: START ADR LO & HI: SECTOR COUNT (+1) & R/W COMMAND: VOL. # & BYTE COUNT 26,D%(T%1):27,D%(T%2)47084,D%(T%3):47085,D%(T%4)47089,D%(T%5):30,D%(T%6)47088,0:47092,2 47083,0:6...$BC56-BCFF..(169 B.)...CALL 48214"X A$(7)"7...$BEAF-BFB7..(264 B.)...CALL 48815"m A$(8)"8...QUIT"z A$(9)"" A$(10)"YOUR CHOICE, PLEASE: ": : :SET HI BIT ON INPUT, RESET ERR FLAG  I14:511I,((Q$,I,1))128::516,186:25,0$(1)"1...$A54F-A56D..( 31 B.)...CALL 42319"^ A$(2)"2...$AE8E-AF07..(136 B.)...CALL 44686" A$(3)"3...$B6B3-B6FC..( 73 B.)...CALL 46771" A$(4)"4...$B74A-B792..( 73 B.)...CALL 46922" A$(5)"5...$BA69-BA95..( 45 B.)...CALL 47721"& A$(6)"0Q$"Y"4806: :RE-INIT. TRACK-SECTOR ETC. E4000:470]: :ARRANGE SCREEN oI11500::: :PRINT START ADR. TO INP. BUFFER I03512I,((A$(Q%),I6,1))128:: : :DO NOT CHANGE FORMAT OF THESE STRINGS!! , A20 (25)330? :1:"WRITE THIS TO DISK NOW? -Y/N: ";:m :1:"WRITE THIS TO DISK NOW? -Y/N: ";: Q$:Q$"N"Q$"8":260 Q$"Y"450 : :EVERYTHING OK - MAKE IT LEGAL 743875:1:"ANOTHER DISK? - Y/N: ";:Q$:Q$"N"20"370 |(Q$)4370C : :HALF-HEARTED TEST FOR MEMORY RANGE c (A$(Q%),6,1)(Q$,1)370 (A$(Q%),7,1)(Q$,2,1)420 (A$(Q%),12,1)(Q$,2,1)370 : :PRINT ":", RESET MEMORY BOUNDARY RESET ERR FLAG, GET A LINE  :3500:640:3517I,((A$(Q%),I11,1))128:::640P Y: NOW DIPLAY TO SCREEN FOR CHECKING ^1:23:"ANY CHANGES? (Q = QUIT) - Y/N: ";:Q$:23:825:Q$"N"430 hQ$"Q"Q$"8":260 mQ$"Y"350 r23:1:"(4-DIGIT HEX ADDRESS + RETURN): ";Q$:(Q$,1)"$516,186 "T%(Q%1)6:4000D ': :SET WINDOW FOR ONE LINE INPUT V ,34,21:35,22c 622:640 ;: :SAVE ERR MESSAGE FOR A BIT @:(25)İ1000 E: :START ADR. & '.' FOR DISPLAY J2000:516,174 O: :END ADR. TO INP. BUFFER ' TI04:23:762$ : :AND CLEAR ERR FLAG R 2:10:"* STUFF DOS 3.3 *":25,0:7:1x I110:A$(I)::I142:D%(I): 16:23:Q$ Q%(Q$):Q%8Ģ24:1:" - BYE !": Q%1Q%7Č1059:250 : :START ADR. & ':' TO INP. BUFFER  2000:T `d DOS STUFFER BY HORST K SCHNEIDER CALL -A.P.P.L.E. IN DEPTH 3 ALL ABOUT DOS |: :--PROGRAM START-- (4)"BLOAD STUFFER":::D%(42): :INIT. STRINGS 3000: :SET SCREEN IMAGE  1:762:3:762:21:762:   p X ɾ ɾ % L!%$ " 澢 ` `$% " f ` H@A$Lr% "*LPH@Ah % Lz%L5 L9%$ " @AL$L íNR17PH$"Assembler "PX$:cíNR0NR17İ5520:50040FcôNR07ecíNR17İ52020:NR17:50040cð31605::"Listing of ";:TINR1:8860::34,4:3cĭPĺ"=Stop/Restart(PLE) =Start/End"::ST$;::A$::4Vd"ĴNR50220,50240,50260,5028TVT1 bbdð5:NR178bxíNR17TI3:TN60100:2490bÉ::8640:PX$"Programs of Compleat ZAP":PH$"Basic "PX$:T$(0)PH$:TI0:8860:34,1:I1NS(3):INS(3)ĺbú("00"(I1),2);"=";T$(I)::VT22:TH1:5550:A2$:A2$:NR(A$)10(A2$):8700c44080"aTEK$(8)İ44285:44250PaTT$TT$TE$:TE$;:HTHT1:CUCU1:CLCL1aڬ22:1:868:22:1::"CHARACTERS USED: ";CU;::21::"CHARACTERS LEFT: ";CL;::VT:HTaI:::PF$"":bCUCU1:CLCL1:II2:TT$(TT$,CU):HTHT1:HT1HTHL:Vh`@O H 0i#h`1 ekli` " `8 " j +  +  "       Ȍ  `" R ֐!Ƀi}i~P{Q| ` ߅ ߠHLhL) @JJJ @+`>Lh @A H@Ah@A $ /`A $ /`Ah@A $ /`A $ /`L LhL) @JJJ @+`>Lh @A H@Ah@A $ /`HHH ȑ ȑ    -?? hhh`& L LiB?CL <@=A @B`>L    PE$"INTEGER"%:(FLTYPE$,1);" ";C:(FYLNAME$(NNUM),4,30);L: t@ : FORMAT TRACK & SECTOR NUMBER : JT$(TRACK%):TRACK%10T$"0"T$TS$(SKTER%):SKTER%10S$"0"S$^%ER,0 : 3X : PRINT OUT FILE TYPE SUBRTN : Hb:FLTYPE4ĺ"*";_l:FLTYPE128ĺ" ";v:FLTYPE2FLTYPE130FLTYPE$"APPLESOFT":FLTYPE4FLTYPE132FLTYPE$"BINARY":FLTYPE0FLTYPE128FLTYPE$"TEXT" :FLTYPE1FLTYPE129FLTYYZE ANOTHER FILE? : 7:"MORE? (Y/N):";:ANS$:ANS$XANS$"Y"2010: START OVER r| : END OF PROGRAM : }:: p : SIMPLIFIED RWTS SUBRTN : zRDCODE,REEDTRACK,TRACK%SKTER,SKTER%USERWTSRDCODE,WRYTEPREGISTT:SKTER%FS6000:RWTS1RWTS2VAR:D1$,D2$7:GALO(D1$)\AHI((D2$,1))rADDRALO256AHIx:LLO((D2$,2,1))LHI((D2$,3,1))LNGTHLLO256LHI:"STARTING ADDRESS: ";ADDR;", LENGTH ";LNGTH:  : ANALH :C1C11:C15C10::" ";/R :C2C21C\ :TNUM%TNUM%2ef D0UNTIL(TRACK%0TNUM%8):kp :sz : "ACTUAL PHYSICAL FILE LENGTH=";C2;" SECTORS" FLTYPE$"BINARY"5010:  :GET BINARY FILE'S STARTING ADDRESS : TRACK%F0UNTIL(TRACK%0TNUM%8):! :0 :" ";C TRACK%03440I :c D0UNTILSTARTFINISH :TRACK%((D2$,12TNUM%,1)) :SKTER%((D2$,13TNUM%,1))* :TRACK%034304 :8010: FORMAT TRACK AND SECTOR NUMBER> :T$;" "S$;" ";!ԠŠàŽԠƍؠƠŬ؍ҠڠŽ؍ؠŠƍؠ̠占Ƞ占٠Űà占ŠԠЭԠÍРIJЭРԠРŵ Ԭؠ占Р፠РˠРҠӠ占РàŠ堲֍ƠȍҠ ፠РРР栤Ơ䍠Р֍ŠРؠ덠؍؍ؠà俍ѠŠРԠҠڠҠб𠱠占核䍠Р֍ŠРؠ占Ԭؠ덠Р֍àҠ ̬ȍÍ̠Р𠱠ӠȠ占蠢䍠РԍȠà̍Š̍àȍ̠Ġ䠢РҠĠÍǠРӠ̠⍠Ƞ⍠ؠحȍРР䠱ˠȍؠ蠱ԲŬ؍ҠڠҠƠ䍠ҠӠ占؍ؠƢ俍ŠԲӍŠàƢԠҰƠؠ蠱ɠԠŬ؍Ҡڠ؍ؠƢ俍ŠԠӍ卪Πȍ堳֍Ҡ ȍҠ ̬ȍҠҰƠ󠰭ƍҠҰƠؠ󠰭ԱŬ؍Ҡڠ؍ؠ󠢲俍ŠԱӍ렣ƍ報ҠŠҠΠҠΠРР卪Š֍Ӡñ卪ӭ󍪍Ԡ³ƳàĠƷÍǠƍ렦򍪍ԠҠŠ堲ҠŠ̳Ƞ⩍Ǡ獪ͭ󍍪Šõ òڠƶбò𠱠ƠöӠԠ󍪍РȠ̠֠⩍ıźŠŠƭ³¶Ġ砠ө堪ӠӠԢ䮠砠ƭ Ԣ庠  Ԡ˩ 1Ԡ ЮЮ̮Ů ӢԠ           RACK/SECTOR LIST : * TNUM%0:C10:C21D D0UNTILSTARTFINISHf :TRACK%((D2$,12TNUM%,1)) :SKTER%((D2$,13TNUM%,1)) :TRACK%03290 :8010: FORMAT TRACK AND SECTOR NUMBER :T$;" "S$;" "; :TNUM%TNUM%2:C2C21 DR%((FYLNAME$(NNUM),2,1))G~ 8010: FORMAT TRACK AND SECTOR NUMBER[ "TS->";::T$;t " ";S$;::" ";:  : GET TRACK/SECTOR LIST :  6000:RWTS RWTS2VAR:D1$,D2$ FT((D2$,12,1)) FS((D2$,13,1)):  : PRINT OUT TANS$"Y"5000: CHECK FOR MORE &5"FILE: ";_7010: PRINT OUT FILE TYPE AND NAME s::" ";: ~I15::"TK SC";:::" ";:: ` : PRINT LOCATION OF TRACK/SECTOR LIST : j TRACK%((FYLNAME$(NNUM),1))t SKTE (=ABORT)"::2D0UNTILSTARTFINISHV:NNUMNNUM1:NNUMNCTRNNUM1| :FLTYPE((FYLNAME$(NNUM),3,1)):7010: PRINT OUT FILE TYPE AND NAME  :35:"Y/N:";:ANS$:ANS$*D0UNTIL(NNUMNCTRANS$(13)ANS$"Y"):4: >: ELSE :::NCTRNCTR1M :::FYLNAME$(NCTR)(D2$,1135SCENTRY,40)f::SCENTRYSCENTRY1::SEVENNAMESCHECKED(SCENTRY7)(:D1UNTILEODSEVENNAMESCHECKED:2:<D0UNTILEOD:: : SELECT FILE : :NNUM0"SELECT: : TRANSLATE BUFFER INTO STRING : ;:RWTS2VAR:D1$,D2$:m: : LOAD FILENAMES FROM STRING INTO ARRAY : :D1UNTILSTARTFINISH::TESTBYTE((D2$,1135SCENTRY,1))::EOD(TESTBYTE0):ERASED(TESTBYTE255)::EODERASED1300: : l: 2  : CONTINUATION OF GREETING SCREENh*:" INSERT DISK AND HIT RETURN";:ANS$:ANS$4" ";::" SCANNING CATALOG ":: D0UNTILSTARTFINISH:SCENTRY0:DIRSCANOFFSET(FRSTTIME):FRSTTIME1: ":96 &001,032,226,229,032, 190,222,032,227,223k 0169,255,032,082,228, 160,000,145,131,200 :165,113,145,131,200, 165,114,145,131,160 D180,162,188,169,255, 076,226,229 N: XPAGE376876867b:BYTE:PAGE3,BYTEAD CAT SCANNER : b  : MACHINE CODE PROGRAM TO CONVERT RWTS BUFFER INTO TWO STRING VARIABLES : 032,177,000,032,227, 223,169,001,032,082 228,160,000,145,131, 200,165,113,145,131 200,165,114,145,131, 160,180,162,187,16 WITH "DISKMAP" COMMAND. ('DISKM' WILL WORK) HEX$HEX$" N D9C6G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144:"=>";:CBF78:35 BF 20 10 FC 4C 39 BF A9 16 85 25 A9 0F 85 24 20 22 FC A2 00 BD A7 BF 20 F6 FD E8 E0 05 D0 F5 A6 40 A5 41 AC 06 E0 D0":900 HEX$"BFA0:03 4C 24 ED 4C 1B E5 C6 D2 C5 C5 BD":900 21:11:"DISK MAP NOW LOADED.":-  REPLACES "INIT" COMMAND02 85 24 4C 72 BF A9 12 85 25 20 22 FC 18 06 06 B0 05 A9 2A 4C 50 BF 48 E6 40 D0 02 E6 41 68 A9 AD":900 HEX$"BF50:20 F6 FD 20 20 FC A9 0A C5 25 D0 09 E8 BD F3 B3 85 06 4C 7A BF A9 02 C5 25 D0 0F E8 E8 E8 E0 8C F0 0E BD F3 B3 85 06 4C":900 HEX$" BD 11 BF 20 F6 FD E8 E0 10 D0 F5 60 85 24 A9 03 85 25 20 22 FC A2 00 BD":900 HEX$"BF00:11 BF 20 F6 FD 20 66 FC 20 10 FC E8 E0 10 D0 EF 60 B0 B1 B2 B3 B4 B5 B6 B7 B8 B9 C1 C2 C3 C4 C5 C6 20 F7 AF A9 00 85 48":900h HEX$"BF28:85 40 85 41 A2 00 A9 4 49 53 CB N 9D1E:AE BE N B3B6:20 10 1 D 20":900 HEX$"BEAF:20 58 FC A9 02 20 C9 BE A9 13 20 C9 BE A9 01 20 F4 BE A9 25 20 F4 BE 4C 21 BF 85 25 A9 02 85 24 20 22 FC 20 E6 BE 20 E6 BE":900N HEX$"BED8:A2 00 BD 11 BF 20 F6 FD E8 E0 03 D0 F5 60 A2 00Z DISK MAP POKER BY KEN PROUTY CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" ,:10:"DISK MAP:A DISK COMMAND REPLACING INIT."6:"............PLEASE STAND BY............"@18:7:"START FINISH";:121 HEX$"A884:4  nge) !Renew input";:34,7:VT8:HT1:I1MA:NP40:CL40NPCL`lTEK$CR$CUCB39CBCU:HLHT2:HT1:868:VTVT1:HT1:VT:HT:(S4$,NP):VT:HT:I1ĺPF$:VT:HT`TE$:TE$E$I1TT$PF$:CU(TT$)`TE$E$IMA:44280aTE$"!"IMA:::T$CR$CR$:CU128>_A$"R"ER0:MA150:E$"@":ET$E$:44080Z_ERİ5520:43160:43240_$HHHMC2:15::"OK, WAIT APPROX. 10 SEC."::9370:43080:7_034,4::TE$CR$:CU0:CB1:CLMA:TT$""::"GIVE THE TEXT:":>`DET$;"=End of text(Begin:no chaITH THIS DISK":e^:"N=Normal message":"R=Read message":VT9:5550:A$"N"A$"R"İ5520:43160k^x^ Poking^Ԩ5_設A$"N"ER0:TT$CR$CR$CR$CR$B2$"* There is no DOS on this diskette ! *""* Boot with the System Master. *"S43:HH3,189:HH4,136[]\8:HH5,192:HH6,76:HH7,0:HH8,224:B1C2CU9:B2C31:9040]pHHHMC(5):HH,("D"):HH1,("O"):HH2,("S"):HMC3,("Z"):8:7^::NP40:TT$""::"WARNING TEXT (MAX 150 CHAR) TO DISPLAY":" WHEN YOU TRY TO BOOT W$::3:PF$NA$:DOS47SKPF$"BLANK"\,B1C(3):B2C(4)1:9040:MA16:E$CR$:ET$"":HHHMC(3):44080:NA$TT$:9370:DOS47ĹHMC(5)1,("K"):SK1\@7\ XE(60250):HM,1:IX056:Y:HMIX1,Y::]H5:8:HHHMC2CU:HH,136:HH1,166:HH2,(37)1:HT8:3:"Date=";DA$;:HT:"";IN$^[CO$"":OLD$DA$:(IN$)8CO$(OLD$,8(IN$))[ȠDA$IN$CO$:VT:HT:DA$:DA$DD$PRPR1[ܠPR1CU8:HHHMC(4):TT$DA$:DD$DA$:9370:DOS47ĹHMC(5)2,("D"):SD1[7&\5::T$(1);":":::NA@  v@ L @u ]L   Ԡ7)3ɪ)+ɪ+4@ȄHLpϠҠćҠŲ͠Π±±ð͠ΠŰݵƙ THE FOUND TRACK AND SECTOR.INPUT DATA AS HEX   ` ` X SEARCH FROM: TRACK ? $  SEARCH FROM: SECTOR ? $  END SEARCH AT: TRACK ? $  END SEARCH AT: SECTOR ? $ `3 j >` THIS PROGRAM WILL LOCATE HEX OR ASCIIDATA ON A DISKETTE AND DISPLAY DATAFROM  SECTOR NOT WRITTEN TO ` BAD SECTOR FOUND IN: `B CL [ CONTINUE SEARCH (Y/N) ? L X  D LU X *** SEARCH DONE: NO MATCH *** Lhh L HH`,,, SECTOR $ 2`$ NOW SEARCHING: `$ [B D$C D `>BCODEFGM?N@`  `B CL CCBC D   ` [  `KHK [ $hɀ L> iL i@L> 8@L> iL>  @ `ɀɠ HIT ANY KEY FOR HEX DISPLAY X '! 9L> 2 `H?2h ة$ L ` J` X ?2`$ TRACK $ ,TES d ɍ ȹ ȩ4 >Ȅ4 ɍL JL[ L[ Li L| h X $ SEARCH DONE ! - DATA FOUND IN D L Rɠɀ L> 8L  P8   d HEX, ASCII OR NEG ASCII [ H/A/N ] ? H X D ENTER WITHOUT SPACES UP TO 12 h]H ASCII CHARACTERS h L ɍȹ Hh8Hhɍ LL[  HEX BY   : ":INCT:6040:CTIN:HMC7,CT:PR1:7Zd5:TE$"Volume number : ":INVOL:6040:VOLIN:HMC8,HP(VOL):DOS47ĹHMC(5),("V"):SN1Zn7160:7120:HMA1,LP(VOL):PR1:7Z5:::"GIVE ONLY THE CHANGE THEN "::::"Format:DD-MM-YY"::*[VT Ģؠ ǩŠà ŢΠà ±±ð ŰݵƢؠàؠčԠƍ0ؠ ؠĸ 􍪍ƠՠԫԠƍ Ġؠ Ԡؠ ĠӠ ΠӠ ΠӠ 䍪 卪Ԡؠ ŠؠӍԠӠ ΠӠ ̠ؠ ˠӠ ԠӠ РӠ РӠ ؠЍŠ ύūūӍ ɯ ԍ   ɯ 󮍪ˠР 獠ؠĠ 塍Ġà ɧؠĠà ؠčà Үؠĸĸčà اؠĸİ ԍؠ 獠ҠΠ 獠ҠŠ ፠Ҡ͠ ҠԠ ̍̍ӠϠҠԠ ؠҠ΍ÍҠԍà Ժ ؠҠ΍ˍҠԍà Ժ ؠҠ΍ÍӠ ፪Π렻󿍠̠٠ Ġ ㍠ԠŠ 占ҠԍӍРҠōŠҠύҠԍà ͺ ؠҠ΍ˍҠԍà ͺ РР ӠЫ Ӎ Р  䩍Ӡ ӍΠԠō٠Ԡ РàР ŠĠ àЫ ĠЩ٠ 獠ѠӠ 򽰬 獠 ҠԠź ؠĸİҠ͍Ҡ̍Ҡ̍РÍ 䍪 䢍Ԡ 덠Р 占Ы ٠ԍà ٯΩ ؠҠ΍Р٢ѠЍРÍРҠōҠōҠǍҠРàĠҠōҠԍؠĸĸİҠˠҠ֍Ҡԍà ؠİӍҠҠԍà κ ؠİӍŠˍРˍŠ΍ÍРԍŠ΍РÍΠ Ҡ֠ ԍ ӠӍǠӠˠ Ҡ֍ҠōҠǠӍˠԍԍҠ֍ҠōȍРѠҍҠԍà àԍРǠ ŠàƠ ԍàˠ ààԍҠ٠«ҠӠ 䍠ҠǍӍŠˠ 占Рˠ 占Šà 占à 򮍠РԠŠà РĠ ЫƍРƍЫԍ΍ԍϠ΍΍Ӎà٠  « ҠӠ 䍠ҠԍӍ ¬ 㮍Ԡ٠˫ 占˫ ٠  ɯ 뮍«ˍˍÍԍԍЍԍԍӍǠȍҠԍà Ǻ ؠҠˍҠԠҠԍӍȍҠ֍ؠˍҠؠàȍؠԍҠؠҠԍҠؠ Ҡ̲ӍŠҠŠ ҠԍؠĸİƍǍӍԠ ȍҠԠà à à ؠĸİƍ؍àԍҠ؍ؠ ŠԠ Ԡ 宍٠àȍҠԍР؍̠ ҠԍӍ֠Ҡ؍Ԡٍ٠Š؍ҠԠ РōؠҠŠ 嬍ƍǍ 占ҠԍӍ֠ ƠǍؠĸİ٠ Ƞ ؠԠ 占ؠ ؠƬ٠ 占٠Ԡ Ѡ ՠҠԍٍ٠ŠԠҠԍؠĸĸĸĸĸĸĸİҠˠҠ֠ 占Ҡԍà ٧ؠҠ͠ 썠Ҡ΍ҠōҠԠȠ Р Ԡՠ 占Р Ԡֲ 占Р Ԡà Р Ԡֲ̍ԠҠԍٍ٠ŠԍРō̠ÍàРԍȠÍàРՍֲÍàРՍàÍàРՍԠƬٍР ԠŠÍàРԍ ɍԠƬ٠ 덠Р 宍ԠԠ Р 宍Ԡ 썠Р 獠ŠԠ 婍Р 󮍠Šō ԠҠԠ ٍ٠ ŠԠ РōˍРԍ 󍪍Ԡ٠ǍР ѠԠРƠ ɍ ɍѠԍ ɍԠƬ٠ ٠ 荠Р΍ ȠҠ̠ ҠōҠōȍҠԍà ؠİҠԍҠҠ Š΍àҫΠҠ РƍѠàРȠ 򍪍ĠؠԠ ѠȠ 占ؠ ҍ ٍԍٍ؍Ƞҩ٠ РȬؠ ѠĠؠ 荠٠ àԍàҠҠԠàԠРР 򍪍àҠōРЍ 荪РƠ ҫ Ơ ٍŠ 󬍠Ҡ͠ ҠԠ 占̠ ٠ԠȬ٠ ٍ٠ԍ٠֍ĬٍРĠ ѠōРԠ ŠР٠٠ԠĬٍԠƠ ٠ Ĭ٠ ƫٍĠ ƫ٠֍ҠĠ ѠŠ 占РҠ ŠРРؠǍҠԍàؠӠؠҠԍ٠РҠΠ 獠Ĭ٠ ٍРĠ덠ǍРƠ ѠǠ 덠Íà 占 Ǡ Ȭ٠ РĠ ѠŠ РЍàƍǍ٠РҠΠ 獠Ĭ٠ ٍРĠ ŠРٍ٠٠ԍ٠ƠҠٍĬ٠  Ҡԍؠčà ؠİ 덠РȢѠ؍ ҠԍàɠӠؠ 덠РŠàƠǍ٠Рϩ٠ύҠРҠԍҠԍàج ȯ ؠ ҠΠ ҠԍҠōҠōҠÍҠӠà Ҡ 獠àҫ³ҍ٠ҩٍŠԱÍǍ̠ԍԱƍǍԠҠϫ٠Ϡ٠µŠõΠĶ ԠĸŠ ïҍŠ ԠĠ ֠Ÿ͠Ÿ͠ Š÷ ǠˠƲàƳȠƴàİ ӍӠĹ ųҠŵԠƸĠðŠðؠƹ ؍̲ƹ Ԡ³ ֠ԠҠҠԠ ǠϠǠԠРȠȠ̠ōǠԠ֠ƠˠưàƱ U,Ҡ΍Ԡ ʮ Ǯ ЮЮ̮Ů                     䍠٠ ҳά٠ ά٠ ٍ̠ҳ 占ٍ٠ Э積РΠ ǠؠĠ àٍ̠ұ 占٠ Ҳˬ٠ 占ĠƠ ˲٠ ٍˬ٠ 占˲٠ 占ٍ̠Ҳ 占ҠԠ ٠ ұˬ٠ ĠƠ ˱٠ 占ٍˬ٠ ˱٠ Ŭ٠ 占¬٠ ٠ ̠Š 䍠ҠĠ ō٠Í٠Ġ ЍҠ РǬ٠ ҠԠ ٠ ٠ 򿍠ŠР 獠Р͠ ÍĠ٠à ŠƠ 䍠à 占Р 㿍ѠĠ 荠Π 占à 占Р ѠĠ 荠٠   ˠù ԠĴĵ àŰ ԠĠ ΠƷ 󍪍Ǡƽ ͠İ˱űŠ ō˲ù ͮîƠð Πð ˠıŠ ĠĠ  Ԡ ЮЮ̮Ů Ӣ ԠΠ D$;"CATALOG" :JP TR1R11 ^390" h460+ r3505 |FF1; N D$"READ";SF$$[ CFFFc ICn F$(I)u C{  D$"WRITE";RF$;",R";R1 PF1F1F1 IP F$(I) P R1R11   D$"WRITE";RF$;",R0 &R1 0J D$(4)  18$ 10* 9 "WORKING"? S D$"UNLOCK";SF$i PRINGD$"OPEN";SF${ D$"READ";SF$ 530 I1F F$(I) I D$"OPEN";RF$;",L";L R11 "D$"WRITE";RF$;",R";R1 ,P1F 6IP @F$(I) M FILE CONVERTER"< <::"NAME OF SEQUENTIAL FILE?"::SF$h F::"NAME OF NEW RANDOM FILE?";::RF$ P::"LENGTH OF NEWFILE?;:NORMAL:INPUT L Z::"NUMBER OF FIELDS?";::F d::(4)"CATALOG" n::"LENGTH OF FIELD (";J")";::LJ(J) x SEQUENTIAL->RANDOM FILE CONVERTER BY DAVID GOODFELLOW CALL -A.P.P.L.E. IN DEPTH 3 ALL ABOUT DOS LJ(300):F$(300)(792,224:793,73:794,74:795,141:796,47:797,3:798,104:799,141 2:5:5::"SEQUENTIAL TO RANDO    z #ΠҠЮӠ ҮӠ ԮΠ  ҠˠҮӠ ҠˠҠԠؠ ӠҠ  ΠЮӠ ΠР ԠРl ŮԮàӠҠ̠ŠҠŠ ŮӠЮӠ Р!͠Ӡ ЮӠРٮӠ٠ԮʮӠԮʠҠ ҮԠ ҮӠ"͠Ϡ̠̠Ϡ͠ҠȮӠ. ҠȠ РҠ ԠŠϮӠԠŠϠԠ ԮӠ(ԠӠΠϠҮԮӠ!1 2 ... ..  3  -   34 "  " 5   2 6 =control listing"-+p!Pĭ(16384)1288560X+!ST241:8640:::5340:16368,0::7+!"Track ";::TR$;::", Sector ";::SE$;::" of disk # ";::VOL::"with keyword:";::NA$::+!PĺD$;"PR#0"+!+!Pı>,"::LP0:NP1:X(0)8760:7#* TE$"Page=":INPN:6040:PNINU* 5:DEPN:100:HX$HX$"00":DEPN256:8360:7c* 5:NTĉ* !:PH$"LISTING WITH COMPLEAT ZAP":8700:31605* !34,6:HT(40(MS$))21:HT::MS$:+4!Y$"B"8610:60,0:61,(7):62,255:63,(7)::Pĺ"Space"000"HH$,4):HX$(HH$,2):660:PNDE:HX$HH$:660:8360X)D Y$"+"Y$";"PNPN1:8400r)X Y$"-"PNPN1:8400)l Y$"Q"NT0:7) ER05520:8120* 5:34,2:7,PN:MS$"LISTING OF PAGE # "(PN):1:1:"Dec=";DE;" Hex=";HX$;:868:8440:7,PH:;)=Increment page #":"-=Decrement page #":"Q=Quit":VT20:5550:Y$,A$c(Y$"B"MS$G$(7):8440u( Y$"P"İ8380( Y$"D"TE$"Address(dec)=":INDE:6040:DEIN:100:PNHP(DE):83607)0 Y$"H"TE$"Address(hex)=$":IN$HX$:SV1:6040:HH$IN$:HH$("?":SE$"?"-'rTSTR$"$"TR$:SE$"$"SE$}'|1:12:868:"Track:";::TR$;::" Sector:";::SE$;::1:33::BS$;::'5:NT1:PNPH'::"B=Buffer":"P=Page in memory"'"H=Hex address in memory":"D=Decimal address in memory"G("+(orCK";TR;" SECTOR";SE::DG1:20:5340@& CM2:7320:BS$"WRITE"X&4TR17SE0X(3)1v&HTR17SE0X(2)1:X(4)1&\Y$"B":7&5:0,TR:1,SE:2,CM:IA,DR:ST&(47093)64IO64:5120&7 'hD1TR:D2SE:800:TR0BS$"ZERO"BS$G$(6)TR$BS$"READ":ISMS$G$(7)"AFTER READ":Y$"B":84409%7]%5:TR0:SE0:DOS47TR2:SESIj%7040:7%5:TR17:SE0:7040:7%5:ISMS$G$(7)"BEFORE WRITE":8440%& ISĉ::10::"CAUTION !":::10:"DATA TO BE WRITTEN TO DISK"::10:"TRA100:IN$,HX$:SV1:6040:HX$,IN$:660:VADE:VA0VAVHİ61040:VAHH:6245P$gv$5:ER0:SE15TRTR1:SE0:6320$SESE1$TR34TR0$7040:7$5:SE0TRTR1:SE15:6400$SESE1$TR0TR34$7040:7$5:CM1:73202%5:M#LTE$G$(8):VATR:VH34:6230:TRVA:TE$G$(9):VASE:VH15:6230:SEVA:#V:HHVA:INVA:6040:VAIN:VA0VAVHİ61040:VAHH:6230#X#[TE$G$(8)"$":SV1:VATR:VH34:6245:TRVA:TE$G$(9)"$":SV1:VASE:VH15:6245:SEVA:J$e:HHVA:DEVA:"IT0:(16384)128ı."IT1:16368,0:F"ER0:SVIN$(IN)]"IN$""IN$"0000""VT(37)1:HT(TE$)1:TE$;IN$;:HT:"";Q1$"Q1$"S"ı"Q1$""IN(Q1$):IN$,Q1$"Q1$""ĢVT:HT:IN$"SV0:#8ER0::TS06220:TS623"Q$"X"BS$"CHANGED?":B1$"!w>!B1$;"Invalid command!"P!IX0500::!VT:1::"WHICH COMMAND? ==>";::" ";:20:A$:A$;:ER1:THTH0:!::!:::B1$;"NEXT PROGRAM ? 'FP'"::"BYE! RESUME THE PROGRAM ? ]GOTO 1020";:(37):71 ::"M=MENU CR=CONT.S=SKIP";::" ";:S$:] S$CR$DGĺ::B5$;G$(1)::DG0::5380 ,S$"S"İ5490:::"OK,NO ACTION !"::5540::PF$"":DPDP2:: @S$CR$ė:7 TS$"M"İ5490:DG0:PF$"":5120 h5520:5380!rQ$"C"Q$"D"Q$"E -"POKE34,3:HOME:POKE35,10"' 2ST$P 7"WAIT - 16384,128: POKE - 16368,0~ 8ST$"HOME:?"Q$"INITIALIZING..."Q$:ST$ 9"POKE34,5:HOME" A"INITHELLO" K"POKE104,134:GOTO100" PD$;CL$;F$S$(34)"' ST$"LO$="Q$"LOADHELLO"Q$0 ST$A "POKE104,8"^ "?CHR$(13);CHR$(4);LO$" *ST$"?"Q$"INSERT DISK TO BE INITIALIZED INTO CURRENT DRIVE - BE SURE YOU ARE NOT INITIALIZING YOUR INITTER DISK! HIT A KEY WHEN READY"Q$C MAKE.INIT.EXEC : J M PROSSER CALL -A.P.P.L.E. IN DEPTH 3 D$(13)(4):OP$"OPEN":DE$"DELETE":WR$"WRITE":CL$"CLOSE":Q$(34):F$"INIT.EXEC"D$;OP$;F$;D$;DE$;F$;D$;OP$;F$;D$;WR$;F$"HOME:POKE35,6" "D$=CHR$(13)+CHR$(4):Q$=CHR  ̍̍̍ԍ΍٠Π ٠΍Ԡ ÍˍӍԠύҠӠ ӍϠ ɯԠ ӍŠԠ٠֍ŠԍРԲԠԠŠԱԠﬠԍԱԠ占٠֍̠  Ƭĸ፪Ԡ ֠ ƠӠ򍍪􍪍ԠՠؠԠ俍ŠҠԠ占Ԡ򠍠٠Š 䍠Р 덪 © ՠ ԠӠΠӠ ˠ ԠԠ Ӡԍƍ ԠӠӠΠӠΠӠ 卪 ԩԠՠŠՠŠՠàՠ􍪍 ͠ՠРՠƹǠàРԍ 占 ֠ 썠Ӡ􍪍 ӠՠĹ  ՠų 󍪍 ÍРՠ 󍪍 ˠՠàՠŠՠ 卪 䍪 ɯ ϠՠϫϠՠϫ堨ϠՠϫŠՠϠ 卪󍪍 ӍԪ٠ՠàԠՠ٫Šՠ٫堣Ϡՠ٫ϠՠϠ 䍪 䍪 ЮЮ̮Ů Ԡ֠ՠ󍪍àՠԠՠ Ӡՠ ЮЮ̮Ů ɯ 纪  ]Ԡ ЮЮ̮Ů Ӣ           nFYLNAME$(105),FIN1:CTSCAN45073EADJ15:RWTS2VAR768{$ 032,177,000,032,227, 223,169,001,032,082. 228,160,000,145,131, 200,165,113,145,1318 200,165,114,145,131, 160,180,162,187,169 B 001,032,226,229,03  Šՠؠ 占ŠР ӠfРՠƫЭؠ 占ѠŠ Ԡ̠ àԠ 塍àŠ Š٠ àū ٠٠ ŠԠ ӠӠ 卪Šՠ î  󍪍ؠ 占Š 捠ū ЩٍĠƠ⍠Ϭ٠٠̠ЍӠ ӍӠՠ٠  占  ҠӠӺ ӍàӠ ԠϠŠՠ٠àЫٍύٍЫٍϫӠŠՠЫÍàŠ占ЍЫЫ٠Р ԠϠ Ӡ̠à¿ӿҧŠՠ٠ŠЫ٠占ĠƠٍؠ̬٠ϠӠϠ 䍠ѠǠ ŠӠ 󍪍𫲬 Ġՠ٠ōؠЫ٠占̠ԠؠҠŠ占ҠŠ占ҠŠԴÍЫ㍠àЫàЫЫàԠ ٠Ы٠ ѠԴ栰РƠ Ƭ 䍠ŠԲύРԳԲҠĠԳō԰ҠӠ ӍϠ ɯ ŠŠƫŠ ЫƠ Ыؠ򠍠ؠԠԱ렍ƫˠ렣ˠ ƫàԠ ààˍŠ԰嬠Ԡ РԠòٍōŠҍЩ٠占ōҠӠ 獪Ԡ ǠՠύԠ򿍠ŠԱﱠ Š占Ѡñ РҠñҠ  Ы٠Р٠ԍŠòЩٍҍҍҍҍ ŠŠҠŠ 占РōԲҠǠŠӠ卪Ԡՠ 򍪍ԠѠ7Ğ:"YOU MUST FIRST RESTORE DOS!"::A$"Q":55405|)CO$"8F00=Return to LIST mode"r.,$CO$BU$"80."BU$"FF":A$"U"CO$BU$"00."BU$"7F".T$52440:1016,76:1017,35:1018,216:151:DP0:MS$G$(7)"AFTER EDIT":Y$"B":8440:BS$"CHANGED?":1020/$ER0:CU0İ9420:I0CU1:8::::2-P#ER0:IXB1B2:HMIX,0::BS$"ZERO":-#:::"U=edit Upper buffer:$00-7F L=edit Lower buffer:$80-FF Q=Quit":VT7:5550:A$"Q"1020:A$"U"A$"L"İ5520:9140 .$:"USE THE NORMAL MONITOR COMMANDS TO EDIT THE 256 BYTES WHICH START AT $X(0)0:8:TE$"Printer slot or driver call=":INP:6040:PC%INR,8"PPC%:P7ČP:d,L"D$;"PR#";P:~,`":S1$;::"/";S2$;:,"S1$;"/";::S2$;::,"HT(36):50,31:TE$T$(TI):TE$;:Pĝ::,":I1(TE$):S$(TE$,I,1):(S$)64ĖHTI:S$;-"3 4 ɺ74 4ə #ɧL $ :L  $ jr  ̠`  L` L2, 190,222,032,227,223S L 169,255,032,082,228, 160,000,145,131,200 V 165,113,145,131,200, 165,114,145,131,160 ` 180,162,188,169,255, 076,226,229 j: tPG376876867 ~:BYTE:PG3,BYTE :  D0UNTILSTAŭ ֧± קİñŰàĠĠàĠĠĠĠ¹Ġ¹àĠİǠİ ŮĺγSSS- 67 Źù°ùàŹùĠİưĠĠàưčİǍ̷ ѧ Ӡôø¹Ʋ³ưà ŶİŶƲİ ôǠİǍӠŢ ԍzz]`ԠŠϮӠG ˨˨6[\_T@A›BÛCěDśEƛFР̧ĺ  ::TS::16:15)"DRIVE (1-2): "3MD(8);:X$:TD(X$)48:TD2180:F((TD1TD2)TD35):(7F);:F100:TD35TD3MD n16:29::TD::20:"DO YOU WISH TO MAKE ANY CHANGES (Y/N) "(7)(95)(8);:X$:X(X$):X89X12140:X78X110110@ x29Z FX$:MD(X$)48:MD2140:F((MD1MD2)MD35):(7F);:F70:MD0MD(43624) P10:29::MD:14:6:" TARGET ";::" SLOT (1-7): "MS;:958:29 ZX$:TS(X$)48:TS2160:F((TS1TS7)TS35):(7F);:F90:TS0TSMS~ d14:295:12)" TO BACK UP":(4)"BLOADMASTER CREATE.Bu (8:6::" MASTER ";::" SLOT (1-7): "(43626);:958:29 2X$:MS(X$)48:F((MS1MS7)MS35):(7F);:F50:MS0MS(43626) <8:29::MS::10:15)"DRIVE (1-2): "(43624);:958:s DUAL DRIVE MASTER CREATE BY MICHAEL B. NORTON, D.V.M. CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" }130(103)1(104)64Ĺ103,1:104,64:16384,0:(4)"RUNMASTER CREATE 4 :::120)::2:8:" DUAL DRIVE MASTER CREATE ":290& PRINT TITLE SUBROUTINE 3CN$(4);N(TITLE$)20ĺCN$(3);ZTITLE$fCN$(5)l$ PRINT AVAILABLE SPACE FR;" SECTORS AVAILABLE"ILI%NFILESĺ45);":"RIKWNFILES36İ2000: PRINT AVAILABLE SPACEd\J185:"-";:J::xfNFILES36910pL137:LI%NFILES:NFILESNFILES36uTITLE$TITLE$" - cont"z1000: PRINT TITLE810CN$(7)0X(0)ILES:AF$(I);":":I52000: PRINT AVAILABLE SPACELI140:"-";:I:U920aCN$(6)|NFILES36LI%18:800 LI%NFILES22LI%NFILESLI%LI%1 L11*IL1LI%4AF$(I);>ILI%NFILESĺ" ";AF$(ILI%);" :"HT$)126T$"?"/vSIZE256(FSIZE1)(FSIZE)ASIZE$(SIZE)_SIZE100SIZE$"0"SIZE$|SIZE10SIZE$"0"SIZE$AF$(NFILES)S$T$" "SIZE$" "F$3901CN$(1);CN$(2);1000: PRINT TITLENFILES17760I1NFAME28))" (DA$)1DA$"0"DA$7 &H$((NAME27))N 0(H$)1H$"0"H$c :M$((NAME26))z D(M$)1M$"0"M$ NF$(F$,21)MO$"/"DA$" "H$":"M$ XS$"*"S$" "S$"-"620 b"I/O ERROR ";(S$): lT$((FTYPE))q(T$)32(0690 S$((FLOCKED))+ S$"-"390? NFILESNFILES1I F$""U I029l F$F$((NAMEI))s I F$F$" "  CHECK FOR POSSIBLE TIMESTAMP (NAME27)24600 MO$((NAME29)) (MO$)1MO$"0"MO$ DA$((N:"TITLE OF VOLUME ? ";TITLE$/ ,TITLE$""ĀE 6"SLOT,DRIVE ? ";` @C$:C$;:(C$)13385p JSLOT,(C$) TC$:C$;:(C$)13385 ^C$:C$ hDRIVE,(C$) r |NFILES0 GFILE FR256(FSIZE1)(FSIZE) GFILE (FLOCKED) REMOVE CONDENSED5 :D$;"BLOAD GET FILE INFO"a GFILE37000: GET FILE INFO SUBROUTINE SLOTGFILE3:DRIVEGFILE4: INPUTS FLOCKEDGFILE5:FTYPEGFILE6:FSIZEGFILE7:NAMEGFILE9: OUTPUTS ::"PRINT CATALOG PROGRAM":: "ER CONTROLS 1 CN$(1)I$"80N": 80 COL MODEN CN$(2)(12): FORM FEEDr CN$(3)(14): EXPANDED MODE CN$(4)E$"E"E$"G": DOUBLE WHAMMY CN$(5)E$"F"E$"H": REMOVE DOUBLE WHAMMY CN$(6)(15): CONDENSED CN$(7)(18): cd EPSON MX-80 PRINT CATALOG PROGRAM CALL -A.P.P.L.E. IN DEPTH 3 "ALL ABOUT DOS" ni37000nMFILES100: MAX FILES ON DISKxD$(4): CTRL-D E$(27): ESCAPEI$(9): CNTRL-IAF$(MFILES),CN$(20) PRINT     Ԡ 占 썠Íà РԍŠ٠忍Ӎōؠ 䍠 ٍ 䍠ؠ 󮍠ҩٍٍͫҠà 썠ٍñĠƠ à 荠àҠԠ ðҠŠ ōҠҠȠ 䍠ؠ ҍҩٍҠԠ ٍ؍ŠҍȍàȠ 䍠ҩ٠ 荠͠ 򮍠ٍҩ٠ 占ĠƠ 䍠ؠԍР 占ѠŠ占؍ÍҍРԍōŬ؍ҠԠ 占ٍȍ ÍàԠҠō٠  Š ٍ ҠԠ ҩٍѠ٠ 俍РƍѠ٠ 䍠٠ ٍ  䮍 򍪍  䍪֍ȍҠ̍čӍҍ 占Ҡ֍ȍҠԍ֠ ҢҠ΍ čӍԍԠ ԍ ԍ 卪 宍  卪ԠҠĠ ҠӠ Ӡҍ ҠРâŠԍҠōРčԍРѢŠ΍ ЍҠōР͠ Ӎ΍àȠ РčԍԠ ԍРɢŠԍ 占ǍРčԍРƢŠԍ 獠ǍРčԍРӢŠԍҠҠ РčԍčҠԠ ҠԠ РčԍРעŠԍčҠԠ РčԍР΢Šԍ 썠ǍРčǠҠҠΠ čҠ֍ȍҠҠ ҠԠРŢŠԍҠԠ РčԍРҢŠԍİӠĹƠΠ·̠·ˠ·ÍԠ·č̠·ưȠ·ƱĠ·ƴ֠µŠõ̠ùÍҠijԠĸōŠԠčŠ 宍 獪 󮍪ŠР͠Ƞ֠ǠҠĠų͠ &Ԡ Ů ЮЮ̮Ů Ӣ Ԡ                 占ōūԲàŠ ŠԳàūԳũ٠ ѠԴҠԍРԲԴàŠ ¨Һ ƢؠĸİҠԍà ӍԍԠ ԍ 덪 Ԡ٠͍ҠŠ ЍҠԍà ͺ ʮŮ ҢؠĸİҠԍàŨԺ èҺ Ҩ ר Ψ̢ؠİҠԍàɨ ƨ Ѩ ӍŠˍӍ΍Ԡ ΍ 퍪 卪 Ԡ Ѝ Ҡ֍ȍҠ̠ 占 ؍؍Ԭؠ ٍƍҩٍٍٍٍؠōˍҩٍٍ 򍪍Ԡ Ҡ֍ȍҳҠҠ ҠҠ ӠҳРԠ˲àȍРҳ˲ àٍٍҩٍōӍōԠ ō 䍪 ٍҩ٠ 俍ѠٍРƍŠōٍ ҩٍٍٍҩ٠ 占àٍҩ俍Šōԍؠ 俍Ѡٍ čҩٍٍ؍ŠčٍҠ̠ ̍Ơ 썠ǍàȍРōˍР Šč٠ àȍРōčĠǠ ҩ٠ ٍҠԠōؠ ōƍǍō٠ñ ҠҠ ٠ñ РĠ ѠԍР忍ŠˍؠѠō٠ ؍Ҡ֍ȍ ؍؍Ԭؠ ٠ 䍠ٍٍٍؠǠ Ѡō̠ōƍǍРōԠ Ҡ֍ȍҲҠҠ ҠҠ ӠҲРԠˍàȍРҲˍ à 󳲍 ԍ 썪 卪 卪 򍪍 䍪 Ԡ Ҡ֍ȍҍҠҠ ҠҠ ӠҍԠ ӍԍԠ ٠ 占ٍЍҩٍٍ؍ŠЍРōҍԠ ҍ 䍪 4:8:I,C8:I1,C8::7160];X/8:TI2:TN60060:2490:7100:B158:B2C(3)7:DOS47TR0:SE0;/8:9040:41240:DA$DC$:41100:DC$DA$:43160:43220:43020:43080:7160:8:DOS15:DT$"NO DOS":CD$"Tr 1,2 Free":72<25:7120:HHHMA2:HH,C8:HH1,C7:71215:TKB1B2:TK0R10(:,20580::m:.5::"DELETE DOS";::" on diskette:"::"volume #:";::VOL;::/" keyword: ";::NA$:::"...";G$(1):::5340:/DOS47DG1:::B2$;"DOS ALREADY DELETED!"::5340;0/8:7120:HHHMA2:IHH4HH8N9p+:"WHICH IS THE CASE?";::Q3$::Q3$"A"Q3$"B"Q3$"Q"İ5520:11080]9+Q3$"Q"79+7120:HHHM56:IHHHH84:I,0:I1,0::71609+7100:HHHMC(5):HH,("V"):HH1,("K"):HH2,("D"):TR2:SESI:71609+10620:7:t,7120:CC0:R11:R:A$"M"B20:11380:10520:7/8*+DOS15B11V84+B22:11380:CCİ61080:5340:51208H+::"THERE ARE NO FILES IN":15:"TRACKS 0 THROUGH 2":::"A=DOS IS NOT OVERWRITTEN":8\+"B=DOS is overwritten,":10:"but the files are deleted"::"Q=Quit":7) 7 +5K7+DOS47ğ:"DOS IS ALREADY PRESENT ON THIS DISK!"::53407+"M=Mark track 0 as used R=Restore DOS Q=Quit":VT20:55507+A$"Q"7:A$"M"A$"R"İ5520:110258 +:"RESTORE DOS...";G$(1)::5340:::"SECTORS USED BY FILES"::B100710:42344,32:6,0:7,174:TR1:SE13:CM2:7320:8:7,165:SE4:7320:7,170:SE9:7320:BS$"GARBAGE":6)::SV1:IN$"HELLO":TE$"Name of greeting program : ":60406)X1(IN$):43636X,((IN$,X))128:7)(IN$)30āX(IN$)130:43636X,160:583S))3 H$H$((F)):(F)(F)192FF1:150 H$H$" ERROR AT LINE "((218)(219)256)::(41(H$))2)H$40(36)):47081,MS16:47082,MD:2061,76:2048:3664,TS16:3665,TD:2093 100235366(1010):H$(7):::S(222):S6ĺ"UNABLE TO EXECUTE PROGRAM DUE TO LACK OFMASTER CREATE (BINARY FILE) ON THIS DISK": F(SS15)(53856S(S255))(SS16)(43377(43²ŵčԠƍҍҠԍРŠҍàÍàÍӍҍÍàÍàÍӍҍÍӍǠ ð ñ ò ͠ Š֠Ԡ֠ҠƍŠà¢Ԡؠ 卪 􍪍 򍪍 í 䍪 䍪ԠРǢӠҍРӠҍРӠҍРàҍĠñòč٠е̠͍̠ͫðàððñàññ̠òٍŠеčӍҍԠ ҍ 뮍 󍪍 ð ñ ò 󍪍Ԡð̍ҍƍȍҫ΍ӍÍԠ Í 썪 Ԡ̠ 占ˍƍԍŠԵàūԵРũ Ԡ   Ƭ 卪 򮍠РԠ ̠Р ӠԠ РĠ 󮍠ŠӍ Ӡ̠ Р 򬍠ӠԠ 󬍠ĠƠ ì 占̠ ɠ̠ ̠ ɍ̠ Šɠ 婍à ɠ 卪 宍ҠԠ РԠ 獪 ֠űǠԠ Š Р 嬍 占ŠԠ 䍠РŠ ԠҠˠ 卪 ԠҠĠ 占ŠԠ àӠ 宍Š  ՠð ԠՠĸŠ ԠՠĠ ǠƍŠҠΠ ҠԠ Ġՠà Ӡՠ Šՠ ì 퍪 Šՠµõ Ġՠð ЮЮ̮Ů Ӣ ԠΠՠӬ 獪 Šՠà   Ԡ ̮    `hh L l뷩췩p`  . m m . `ǰ"ɺɱ ɺi`8i `8`18 .Qtݽiȑ` [$ 5 { $L Hi [$ hʽ Ȣ`"# X" ǠԠͺ٠ʮŮҍ ŨԺèҺҨĠרŠΨ̍ ɨŠƨǠѨԠӨҺƍ h$$ ȱȍ H M h )i hiͪ Г`# ȑL0  [#$ 5 { ` [$ 5 { $Lo Hi [$hʽ HȢ 2L ?2 5 ɍ$Ɉ $L ɕ$L %2  2h#ȩ * M  [$ 5  f L   L   L  L  L  L  Q L  L " XHL$L    [$ ` [$  ` X H jfȱ)jL ȥ$Hi$   ):MLLP(BN):Cİ61080:5340:5120)?O7R?OS1S2Ğ:"ALREADY DONE !":5540::?O5:TR17:S2S1SES2:7040:HM1,0:HM2,0:7160:7?OB10:B2255:9040:SECS2:7160:S2S12āSECS21S11:HM1,17:HM2,SEC1:7160:@PSECS1:7040:HM1,17:40c>NHM124,MH:HM125,ML:7160:20400:7100:HHHMC6:HH,67:HH1,65:HH2,84:HH3,CT:7160:7>LO5:BCBOğ:"ERROR - CURRENT BITMAP > OLD"::5340>`OBCBOĺ::::"OK, NO FILES ON TRACK 17":"?tOBCBOR1S2:R2S11:TK17::C0:20580:MHHP(BNTTENTION":::"NO MORE THAN ";7CT;" FILES?"::5340_=N7120:HHHM124:BCBM(HH):OLDS11=NMHHO(S2):MLLO(S2):OLD020300>NISĖ9::"BITMAP SECTORS"::::"Old :";BO;:20:16S1:"Current:";BC;:20:16S1:"New :";BN;:20:CT::5360:7100:HMC3,0:7160:DOS0:CD$"Tr 0-2 Free":7b>>>>>>>"::PĹ34,7ER{731180:N$(CO):COCO1:COMXICT:J6:W1:B2$QDy::::31580:23:5340::7tDz5:Q$"?"31440:IIBIE:120DDzJ10:IIBJ1JBDXzJ26:IIEJ2JEDlzJJ1J2:200:I1531380:125Dz::Q$"?"Ğ:31580Dz7Dz5:PĺT$(5)::$EzS1$"Q$"?"İ31240:X(3)0VC`wX(4)(X$"T"X$"B"X$"S"X$"A"Q$"?")İ7120:BIT:X(4)0CtwX(2)0(X$"S"X$"A"Q$"?")33420:Cw5:::31640:::31605:33220:33020:31605:32020:37020:37220:7/Dy5:X(3)1:31440:I1IE:120:J06:200:I15"A"30620:X$"B"33220:X$"E"31640:X$"I"37020:X$"W"37220:X$"S"32020:X$"T"33020:X$"C"ĺD$;"CATALOG,D";DR:5340BvER05520:30060BwER0:Q$"?"X$"E"X$"A"İ2470BwX$"E"E3X(3)1:E30B8wX(3)0(X$"E"X$"A")31120CLwX(3)%(I)0ĺI;::" ";:(AP:::CCCCC:pAXu5:TI1:TN60040:2490:PH$"Status diskette "NA$" Vol # "(VOL)Alu8640:::I1NS(1):T$(I)::VT15:61120AuVT20:5550:X$,A$:8700:X$"Q"7:31605:X$"T"X$"B"X$"S"X$"E"X$"A"30480~B vX$HM2,SEC1:7160:7^@dPHHHMA2TK4:DEBM(HH):BNDE:S2S1Q$"C"āIS1S21:BNBN2I::@xP420:C0:IR1R2:BT%(I)0CC1@PBT%(I)1BNBN2I@P:Cĺ:"OK,NO FILES IN TRACK ";TK:AP:"Track:";::::TK;::" Sectors:":::IR1R2:BTѡ Ѡ٠ Ԡð̠Ԡ ð 占ɠĠ٠РŲà ӍԠƍ 獪 ѩ 讍Ѡ٠ Ҡõ 占ð 䍠̠Ġ ð 占РԠƠ 䍠Ӡ 򍪍РɠЧ 䍪 卪ԠҠø ïҍҠŲ ԠРԲЍĠҠŶà 卪 Ѣ Ԭؠ ӍԱЬ؍؍̠ԍؠ٫čԲĬؠ ӍԲЬ؍؍̠ԲؠԱЬؠ ЍŸ؍؍̠ԱǠ ð Ơð ԱРŴư ӍԲРƠ ӍΠԠΠ 䍠Ԡ΍ؠԫԍԠ̮Ů Ӣ Ԡ 卪 獪 Ѝ Ԡ 󮮮 Ю      РԩٍРҩٍŠƍٍ٠ 忍ɠЍǠÍӍƠɠǍǠÍӍԠƍV1:6245:CK$,HX$:CKVA.PԊZEMY1:36020:7TP5:::34,3:Q$"!"İ8700:31605P:Q$"?"ĺ"OPTION ?=SEARCH FOR TRACK ";CK$PQ$"!"ĺ"OPTION !=TRACK/SECTOR LIST OF FILES"SQ:61060:ST$;:Q$"!"ĺ:"OPTION :";Q4$:"FIRST # :";ZB1:"LAtrack of '"NA$"' Vol # "(VOL):34,3OŠ:VT6:61120:8:"F=First search R=Repeat Q=QUIT":VT12:5550:A$"F"35530:A$"R"36390:A$"Q"7:ERİ5520:35522ONJ7Oʊ5:ZB0:::TE$G$(8):VACK:VH34:TSİ6230:CK$(VA):CKVAPϊTSTE$TE$"$":S(NP$):CH$CH$(((NP$,I,1))128)::NP$(CH$SP$,NN):2470:X(3)İ35360:7NIIBIE:120:J06:200:125:NP$NA$(0)COCO1:ZBCO:ZECO:IIE:J6N::7N Z0105:N$(N$(Z),NN):N$NP$ZBZ:ZEZ:Z105N4:(O5:30480:PH$"Search for of last file =":6040:ZEIN1AMQ4$"A"2470:ERİ5520:35030MQ4$"A"IB1(ZB7):JBZBIB77:IE1(ZE7):JEZEIE77:COZBM5X(3)İ31240:Q4$"A"MYCOM?Q4$"A"ZB0:ZEMY1:X(3)0MD36020:7NNl5:G$(3);"=";:"";NP$:CH$"":I1single file":"N=";G$(3):"R=a Range of files":"A=All files":VT20:5550:Q4$,A$LQ4$"#"Q4$"3"INZB:TE$"File number=":6040:ZBIN1:ZEZBLQ4$"N"İ35180:36020:7MQ4$"R"INZB:TE$"Number of first file=":6040:ZBIN1:INZE:TE$"Number:27::"0=USED";:34:"1=FREE";::23:5340:7DKPPĖ3:(ST$,36)Kd20::J03:J1:F$(J);:IJ344:I4:FS%(I);:::::KFR0:X(2)0:J034:FRFRFS%(J)::K̈5:PH$"Track/Sector lists of '"NA$"' Vol # "(VOL)QLֈCK50:"#(OR 3)=a TSĖ20:"1";:36:"2":3:"T";H$;H$;"012"mJ؁TSĖ14:"1";:24:"2";:34:"3":3:"T";NU$;NU$;NU$;"01234"J⁢3:2:"S";(ST$,36)J쁁I1501:JTSDEI:100:HX$" "HX$JTSHX$(" "(I),2)JHX$;"*";::BT$(I)::33360:Pĺ:/K24:G$(12);:21:G$(12):::J011:IJ3412HI.TSDEI:100:HT$,HX$YI8TSHT$(I)IL::HT:(" "HT$,2);::Pĺ":";I`HT4:G16FS%(I):520:HT7:"*";ItHTHT10:I::HT1:J::P5340:7Iā5::Pĺ:T$(2)::I΁:">>BITMAP<<";,J:";:GDOS:540SHx}3:"Directory";:20:":";:GCT:540:" VTOC : 1"H}3:"Files";:20:":";:G558DOSCTFR:540:21:"----"H}11:"TOTAL";:20:": 560":::5340:7H5::::TI1:8860:61060::VT2:SP2:HT1,I$::G$(12);:11{5:X(3)1X(3)0:7RG{CN0:31440:I0MY1:N$(I):CNCN1:CN15İ5340:CN0gG{:23:5340::7G}5:::::TI3:8860:SP4:8:1::"FREE SECTORS:";::21:GFR:540G<}::"USED SECTORS: ":::" Track 0,Sector 0 : 1"Hd}3:"DOS";:20:"Z,, ,`TDUM L  ߭ɑ 0L  `8`"0L `'1  #0`08`ȩ`   H iq` GL] @dL] t n hhL` Ln 8 L ɰ$ ` d      L `i#`ILӠԠԠˮŠݠҠݺŠŠӠŠˠɯϠ̠ӠԠéΠĮ  n  n ɛ.ɠ   ? n  {