▌ ╔ ▌у└э┐ ,°(╩ ,!2С " UNDO-128.BAS "<╩ ,6FС " By Rich Schinnell "CP╩ ,,jZС " Rockville, MD (301) 949-8848 "td┐ ,znСАxС╟ВС "A program for IBM DOS 2.0/2.1 Fixed Disk owners , ie XT's and"МС "expansion chassis's who use the IBM DOS 2.0 BACKUP.COM utility and"XЦС "want to access files from their backup disks without Restore."ШаС "All files are restored up to the next 128 Byte boundry."┘кС "This cause absolutely no problems as DOS always reserves"┤С "space in blocks of 512 for SS disks and 1024 for DS disks."a╛С "Press to quit... Now Enter SINGLE Letter Drive for"k╚н AъZz╥FALSE% ч П▄TRUE% ч ╙ FALSE%ЭцХ з Й кЁZZZ! ч ╢·С:╩ ,,╘С"Backup disk Location ";ЁDR$ч▐:Л Т(DR$)ш ═ Л Х(DR$) ч ═ "DR$ ч DR$ щ ":"@,║ DR$щ"BACKUPID.@@@" В Е AS #I6╗ #\@■Б DR$ щ "*.*"bJСhTСе^Е "File name to Recover (no Drive Designation) ";INFILE$┴hЛ Т(INFILE$) ш ═ ╩r╗ #ц|║ DR$щINFILE$ В Е AS #юЖ╗ ўР╗ #Ъ║ DR$щ"BACKUPID.@@@" AS # ТчА/д■В #,А AS G$9о■Й #B╕╗ #w┬N$ ч У( Х( Г(G$,,))) щ У( Х( Г(G$,,)))Д╠Nч Ф(N$)╗╓DTE$ч У( Х( Г(G$,,)))щ"-"щ У( Х( Г(G$,,)))щ"-"ррDTE$чDTE$щ У( Х( Г(G$,,))щ)ъС "This is your backup disk #"; N;" Dated ";DTE$Ї╗ #<■║ DR$щINFILE$ AS # ТчАHC$ ч ""TD$ ч ""g■В #,А AS A$v&A# ч е()д0С "Input file has";A# ъ А;" Bytes in it"о:■Й #║DC$ ч A$╠NВ I% ч ╠ АЁX Л Х( Г(C$,I%,)) ш ! ═ lb D$ ч D$ щ Г(C$,I%,)lГ I%4vЛ Х( Г(C$,,)) ч ═ ФwАС "This is Part 2 of";D$;" You must start with the first part"ГК┼:Й J▒ФЛ Х( Г(C$,,)) ч ═ ONLY.ONE%чъ:Й ▓ыЮС:┐ ,:С "File on two Disks ,Insert backup disk #";иС Nщ;" When Instructed" : ┐ , : ┼▓С`╝С Ц("); Г(D$,,(); Ц(");" Was the file name when backed up"Ы╞Е "What do you want to name the output file ";OUTFILE$╕╨Л Т(OUTFILE$) ш ═ J╤┌║ OUTFILE$ В Е AS #┘ф╗ юС "File ";OUTFILE$;" already exists, verwrite ";"°Е ": ";WELL$PЛ WELL$ ч "O" я WELL$ ч "o" ═ :б ╞Y╗ #w║ OUTFILE$ В OUTPUT AS #А ╗ #Ы*║ OUTFILE$ AS # ТчАо4■В #,А AS B$╣>┐ ,╧HС "Working ....";┘R┐ ,∙\В I! ч ╠ Е((A#ъА)ьА)щf ■Й #,I!p ■Е B$ ч A$*z ■И #,ZZZ!@Д ZZZ! ч ZZZ! щ PО С Ц();YШГ I!oвЛ ONLY.ONE% ═ ьuмСй╢С "Insert Backup Disk #";N щ;" in drive ";DR$;╤└С " and press or uit ":┼▄╩R$ ч ▐Ё╘Л R$ ч "" ═ ╩▐Л R$ ч "Q" я R$ ч "q" ═ ╗ : ╔ Х : Б#ш╗ #HЄ║ DR$щ"BACKUPID.@@@" AS # ТчА[№■В #,А AS G$e■Й #n╗ #дN1$ ч У( Х( Г(G$,,))) щ У( Х( Г(G$,,)))│$N1ч Ф(N1$)╩.Л N1 ч N щ ═ B8С "WRONG DISK, TRY AGAIN You put in disk #"; N1 : Й вB╗ #+L║ DR$щINFILE$ В Е AS #3V╗ Q`║ DR$щINFILE$ AS # ТчАdj■В #,А AS A$ptC$ ч ""|~D$ ч ""ЛИA# ч е()╣ТС "Input file has";A# ъ А;" Bytes in it"┼Ь ■Й #╙ж C$ ч A$х░В I% ч ╠ А ║ Л Х( Г(C$,I%,)) ш ! ═ ╬%─ D$ ч D$ щ Г(C$,I%,).╬Г I%B╪ONLY.ONE% ч ъ LтЙ \Rь╗XЎСЪС "File ";OUTFILE$;" created Size="; У((ZZZ!ъ)ыА);" Bytesв ╔ ХиБтЛ ╘ч, ═ DR$ч"":С " Not a Valid Backup Disk":┼:и ·(Л ╘ч| ═ С DR$;INFILE$;" NOT FOUND ":╗ #:и ·+2Л ╘ч┌ ═ и i<Л ╘чz ═ С "disk is Probably full, check the disk":и ОFЛ ╘чL ═ С "Not found " : и м╝PС "Error"; ╒ ;" has occured in line #"; ╘╞Zи