 
4Т ---------------------------------------------- ,Т F4080 : Combined 40/80 track formatter 4Т ---------------------------------------------- ("ч param 12, sectab 39, cat 511 2osword=&FFF1 <К 7 F'Рbegin                 :Т get drive P7Рinitsec(0)            :Т create sectab for track 0 Z,Рformat(0)             :Т format track 0 dЦ T%=20 ╦ 39 n+  Рinitsec(T%)         :Т create sectab x$  Рformat(T%)          :Т format ┌М ▄Ц T%=40 ╦ 78 ┬ 2 √)  Рinitsec(T% │ 2)   :Т create sectab ═$  Рformat(T%)          :Т format ╙М Є.Рcreatecat             :Т set up catalogue Ў-Рwritecat              :Т write catalogue х'Я ┼6,22);Ґ133;"Formatting complete" рЮ э ФщРbegin ПУ ЗРwhichdriveЩ ans$="Y" └ ans$="y"РinsertА",щРcreatecat6Ц I%=0 ╦ 511@+  cat?I%=0                :Т initialiseJМT/$(cat+8)="dummy  $"       :Т dummy filename^7cat?&10  = 0              :Т remove terminating &0Dh/cat?&105 = 8              :Т num of files*8r5cat?&106 = 3              :Т sectors on disk=&320|cat?&107 = &20├5cat?&10D = 198            :Т dummy is 198 sectors░5cat?&10F = 2              :Т starting st sector 2 АєўщРformat(track%)╦&param?0  = drive%         :Т driveб-param!1  = sectab         :Т sector tableл2param?5  = &05            :Т num of parametersж-param?6  = &63            :Т command codeЮ/param?7  = track%         :Т physical trackЙ%param?8  = 21             :Т gap3Т7param?9  = &2A            :Т 10 sectors x 256 bytesЧ%param?10 = 0              :Т gap5%param?11 = 16             :Т gap1
A%=&7FX%=param&Y%=X% │ 2560ж osword:"Я ┼12,12);Ґ130;"track ";track%DГ param?12=0:АN5Я ┼0,23);Ґ13;"format: bad result = &";~param?12:ЮXАbl
щРheadvш─6Я ┼0,2);Ґ141;Ґ131;"COMBINED 40/80 TRACK FORMATTER"┼6Я ┼0,3);Ґ141;Ґ131;"COMBINED 40/80 TRACK FORMATTER"■А·╗щРinitsec(logtrack%)╡Ц I%=0 ╦ 9╪  sectab?(I%*4+0)=logtrack%ф  sectab?(I%*4+1)=0п  sectab?(I%*4+2)=I%з  sectab?(I%*4+3)=1ДМНАЬщРinsert	Рhead/Я ┼0,5);Ґ134;"insert disk in drive ";drive% *Я ┼0,7);Ґ134;"press SPACE when ready";*У4Щ і(100)=32>	РheadHАR\щРwhichdrivef	РheadpУz  Я ┼0,5);д38," ")└3  Я ┼0,5);Ґ134;"enter drive to format (0-3) >";▌  Х " " drive%≤Щ drive%>-1 ─ drive%<4╒	Рhead╛+Я ┼0,5);Ґ134;"formatting drive ";drive%ІУю  Я ┼0,7);д38," ")й*  Я ┼0,7);Ґ134;"are you sure (Y/N) >";т  Х " " ans$ч  ans$=юans$,1)Х/Щ ans$="Y" └ ans$="y" └ ans$="N" └ ans$="n"РАЭщРwritecat&param?0  = drive%         :Т drive/param!1  = cat            :Т catalogue data$2param?5  = &03            :Т num of parameters.-param?6  = &4B            :Т command code8.param?7  = 0              :Т logical trackB/param?8  = 0              :Т logical sectorL6param?9  = &22            :Т 2 sectors x 256 bytesV
A%=&7F`X%=paramjY%=X% │ 256tж osword~Г param?10=0:А┬;Я tab(0,23);Ґ133;"writecat: bad result = &";~param?10:Ю▓АЪ