C▄П 2 DIR C-128 DIRECTORY UTILITY BY -=[CHUCK.WAGON]=- 06-19-87Jц■%РЁш:■:Ю51748:П CLEAR SCREEN,DEVICE CLEAR,SYS CALL TO CLEAR WINDOWSв·П - SECTION 1хA$▓" 2DIR-128 BY: CHUCK.WAGON VER 2.0 06-19-87 "Н1710:Щ,A$:П CALL SUBROUTINE AND PRINT TO WINDOW #1┤Н 1740:Щ" ЮINSERT DISK#1 IN DRIVE 0 PRESS ANY KEY TO PROCEED USE NO SCROLL TO PAUSE DIRECTORY"╬"б∙ Z$:Л Z$│▒"" з 1580,Н1720:■&:ю:П CALL SUBROUTINE AND PRINT TO IST 40COLUMNS OF WINDOW #2н6Н 1740:Щ" ЮINSERT DISK#2 IN DRIVE 0 PRESS ANY KEY TO PROCEED USE NO SCROLL TO PAUSE DIRECTORY"╟@б∙ Z$:Л Z$│▒"" з 1610JН1730:■&:ю:П CALL SUBROUTINE AND PRINT TO 2ND 40COLUMNS OF WINDOW #2ЭTН1740:Щ"CHOOSE: (ЮM)ORE DIRECTORIES (ЬD)OS ROUTINES (ЦV)IEW A FILE OR (Q)UIT PRESS M D V OR Q╖^б∙ D$:Л D$▓"M" Й 1550╦hЛ D$▓"Q" з 2250▀rЛ D$▓"D" Й 1770є|Л D$▓"V" з 2100+ ЖЛ D$│▒"" зЩ"UH OH! WRONG KEY, TRY AGAIN":■2:Й 1620N РП SECTION 3 - WINDOW ROUTINESШ ЪП WINDOWS - THIS IS THE MEAT RIGHT HERE USE THESE IN YOU OWN PROGRAMS!дП FROM LEFT TO RIGHT - TOP LEFT COL, TOP LEFT ROW, BOTOM RIGHT COL, BOTOM RIGHT ROW,[CLEAR WINDOW OPTIONAL SPECIFIED BY 1];!о■ 0,0,79,1,1:ч6,7:О:П WINDOW#1[!╕■ 0,2,39,21,1:О:П WINDOW#2}!┬■ 40,2,79,21,1:О:П WINDOW#2Aб!╠■ 0,22,79,24,1:■:О:П WINDOW#3з!╓П╞!рП - SECTION 4 DOS ROUTINESЎ!ъП FILE SCRATCHER BY CARL F. HOWARD 05-17-87l"ЇН1740:Щ"CHOOSE: (D)ELETE (R)ENAME A FILE (F)ORMAT A DISK OR (Q) PRESS: D R F OR QД"■б∙U$:Л U$▓"Q"з 2250Ш"Л U$▓"D" з 1840м"Л U$▓"R" з 1920└"Л U$▓"F" з 2020Ў"&ЛU$│▒"" з Щ"UH OH! WRONG KEY TRY AGAIN":■2:Й1780(#0Н 1710:Щ" CHUCK'S 128 FAST FILE SCRATCHER":J#:Н1740:Е"DELETE WHICH FILE";A$T#DЄ(A$)Ч#NН1740:Щ"DO YOU WANT TO SCRATCH ANOTHER FILE? Y=YES N=NO":б∙SS$н#XЛSS$▓"Y" з Й 1850┬#bЛSS$▓"N"з Й 1780ю#lЛSS$│▒"" з Щ"WRONG KEY TRY AGAIN":Й1870%$vЛSS$│▒"" з Щ"UH OH! WRONG KEY TRY AGAIN":■1:Й1850R$АН1710:Щ"CHUCKS 128 FAST FILE RENAMER":Р$КН1740:Е"ENTER THE NAME OF THE FILE YOU WANT TO RENAME";N$т$ФН1740:Е"NOW ENTER THE NEW NAME";NN$:П PROMPT FOR NEW FILE NAME, DEFINE STRINGє$Юї (N$)д(NN$)5%иН1740:Щ "DO YOU WANT TO RENAME ANOTHER FILE? Y=YES N=NO":б∙B$q%▓П PRINT PROMPT FOR ANOTHER FILE MESSAGE,LOOK FOR KEY B$е%╝Л B$▓"Y" з Й 1920:П IF KEY B$ = YES LOOP TO 380╫%╞Л B$▓"N"з Й 1780: П IF KEY B$ = NO GO TO 300&╨ЛSS$│▒"" з Щ"UH OH! WRONG KEY TRY AGAIN":■1:Й1960L&┌П C-128 80 COLUMN QUICK-FORMAT BY CARL F. HOWARD 05-18-87}&фН1710:Щ" CHUCKS 128 QUICK FORMATER "▄&юН1740:Щ" PUT A NEW DISK IN YOUR DRIVE AND PRESS P TO CONTINUE":б∙ P$:ЛP$▓"P" з Й 2040'°Н1740:Е" PLEASE ENTER A NAME FOR THIS DISK ";A$O'Е" NOW ENTER A 2 DIGIT ID# FOR THIS DISK ";B$d'ё(A$)к╟(44)к(B$)н'Н1740:Щ " DO YOU WANT FORMAT ANOTHER DISK Y=YES N=NO";C$:б∙ C$:├' Л C$▓"Y" з Й 2040╪'*Л C$▓"N"з Й 1780Є'4П FILE READER ROUTINE(>Ю49474:ч6,7:ч5,8[(HЮ51346:■ 0,23,79,24,1:Щ"ENTER (V) TO VIEW A FILE OR (R) TO RETURN TO MAIN MENUГ(Rб∙A$:ЛA$▓"R" з Ю49474:Ю51346:Й 1620Ф(\ЛA$▓"V"Й2160╠(fЛ A$│▒"" зЩ"UH OH! WRONG KEY, TRY AGAIN":■2:Й 2120ц(pЕ"ENTER FILE NAME";B$■(zЮ49474:■ 0,0,79,22#)Дш:Ю51328:Я3,8,3,(B$):Я15,8,15:■%B)ОБI▓0д1:I▓ST:б#3,B$:ЩB$;:В:S)ШЛ DS▓0 Й2230╩)вЛ DS▒0 з Ю51346:■ 0,23,79,24,1:Щ"A DISK ERROR HAS OCCURED - THE SYSTEM INDICATES THE FOLLOWING ERROR MESSAGE":■4°)мЮ51346:■ 0,23,79,24,1:Щ DS$:■2:■:Й2160*╢■:а3:а15:6*└Щ" ** DONE **":Й 2120W*╩П - END PROGRAM SCREEN TIDY{*╘Б A▓0д39:■ 39лA,0,40кA,24,1:В:К*▐ш:Ю51748:А