d"":56,51::185i:Dnhs GLE DISK BACKUP V1.0 x } WRITTEN: 27, JULY 1982  AUTH : MICHAEL SCHAFF  # CFIGURATI: I COMPUTER: C64 o DISK : 1541   (C) 1982  COMMODE BUESS MACHINES  :: 36879,25%.""SDI8 : DISK DEVICE NUMBERxSP4273 : SCREEN BAR POSITIONSB13056 : START BUFFERBP13056 : BUFFER POINTEREB(643)(644)256 : END BUFFER::A828867:B:A,B:O 162,2,32,198,255,160,0,32,165,255,153,0,58,200,208,247,32,204,255,96 162,2,32,201,255,160,0,185,0,58,32,168,255,200,208,247,32,204,255,96BL$" "BM$(140),C(43):A043:C(A)::815@ 32,101,116,117,97,246,234,231,160,21,21,21,21,21,21,21,21,21,21,21,21  21,21,21,21,21,19,19,19,19,19,19,19,18,18,18,18,18,18,17,17,17,17,17"SINGLE DISK BACKUP 1.0""BACKUP COMMAND"" """" '"BUFFER">," "[1"ݦۦۦۦ"x6"";"DISK NAMEID"@" "E""J"DISK STATUS" O" "&T""CY"EXECUTING"`^" "}c""h"OPERATOR INTERVENT"m" "r""tX3806438083:X,4:X!wOP$"ENTER PROGRAM CODE":795:LN1:DN6:RT18|730:B$""B$"B"fPO(B$):B$"D"OP$"DIRECT BACKUP":400wB$"B"375OP$"BAM SELECT BACKUP"785:OP$"":780:OP$"ENTER DISK NAME"795:OP$"":790:LN16:DN13:RT1:730 LN2:RT18:B$""B$"CBM 1540 BACKUP":OP$B$:790iDN$(B$" ",16):""17)",":OP$"ENTER DISK ID ":795730:B$""B$"20"""18)B$:DI$B$:198,0BC$"EMPTY DISK IN DRIVE":965810:OP$"FORMATING DEST.DISK":78015,DI,15:15,EN$,ED$,ET,ES$:EN$"00"450?15:OP$"":780:800:OP$"":405uDN$"N0:"DN$","DI$:15,DN$:15,EN$,ED$,ET$,ES$15:800:EN$"00":OP$"":780:405OP$"":780BC$"INSERT SOURCE DISK":965OP$"READ SOURCE DISK":780-15,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;1e#2,A$:#2,A$:#2,A$:A1140:#2,A$:A$""A$(0)BM$(A)A$::15,EN$,ED$,ET$,ES$:EN$"00"15,"B-P";2;144:SN$"":A120:#2,A$:SN$SN$A$:2:15:SN$(SN$,16)","(SN$,2)"DN$(DN$,(DN$)3):A$(DN$,(DN$)3)" "MDN$(A$,16)","(DN$,2):800:OP$SN$i(DN$,2)(SN$,2)535 OP$"":780:790:EN$"*3":ED$"BAD ID NUMBER":ET$"00":ES$"00"800:BC$"ID NOT UNIQUE":965:100790:OP$"":780BC$"VERIFY FOR BACKUP":965!A$"N"555>&OP$"":780:790:810:465^+OP$"READ INTO BUFFER":7800PO68A1140:BM$(A)(0):515,DI,15:2,DI,2,"#":TC11404:C(((TC1)41)8)(BM$(TC))695?TR(TC1)41:BY255(BM$(TC1))DBY128SC7:835IBY64SC6:8352NBY32SC5:835GSBY16SC4:835[XBY8SC3:835o]BY4SC2:835bBY2SC1:835gBY1SC0:835lBY255(BM$(TC2))qBY128SC15:835vBY64SC14:835{BY32SC13:835 BY16SC12:835 BY8SC11:8352 BY4SC10:835F BY2SC9:835Z BY1SC8:835r BY255(BM$(TC3)) (BY16)C(TR8)20SC20:835 (BY8)C(TR8)19SC19:835 (BY4)C(TR8)18SC18:835 (BY2)C(TR8)17SC17:835!(BY1)C(TR8)16SC16:835C!:2:15:OP$"":780:OP$DN$:790f!BC$"INSERT DEST. DISK":965!955:ID$(DN$,2)EN$"00":ED$"OK":715!EN$"*1":ED$"SOURCE ID FOUND":ET$"00":ES$"00":800:700!800:OP$"WRITE FROM BUFFER":780:9103"OP$"BACKUP FINISHED":780:OP$"":810:785:790["BC$"REMOVE DEST. DISK":965:100"B$"":("",DN)RT)" ";""";:A155:A$:A$""745":" ";:A155:A$"":735"(A$)13" ":#(A$)133100#(A$)20765'#(B$)0:735K#B$(B$,(B$)1):" ";:735e#A$" "A$"Z":735#(B$)LNB$B$A$:""A$"";:735#:735# ""BL$OP$:#""BL$OP$:#""BL$OP$:$""BL$OP$:C$ 2:15:OP$EN$", "ED$","ET$","ES$d$%""BL$OP$:$*""BL$:$/ASBEB258:A,0:A1,0::BPSB:$4BR0PTPT1:PT8PT1:SPSP1:830$9BR1PTPT1:PT0PT7:SPSP1%>SP,C(PT):2%CBR0:15,"U1:"2;0;TR;SC:15,"B-P:"2;0r%HBP,TR:BP1,SC:BPBP2:HI(BP256):LOBP(HI256):839,LO%M840,HI:820:828:820:15,EN$,ED$,ET$,ES$%REN$"00"980%WBPBP256:BP256EB%\2:15:OP$"":780:OP$DN$:790&aBC$"INSERT DEST. DISK":965I&f955:ID$(DN$,2)EN$"00":ED$"OK":800:880&kEN$"*1":ED$"SOURCE ID FOUND":ET$"00":ES$"00":800:865&pOP$"WRITE FROM BUFFER":780:910:815:OP$"":780&uOP$SN$:790&zBC$"INSERT SOURCE DISK":965''955:ID$(SN$,2)EN$"00":ED$"OK":800:905e'EN$"*2":ED$"DEST. ID FOUND":ET$"00":ES$"00":800:890'OP$"READ INTO BUFFER":780:15,DI,15:2,DI,2,"#":'BPSB:15,DI,15:2,DI,2,"#":BR1'((BP)0(BP1)0)BP256EB15:2:(TR(BP):SC(BP1):TR18SC0945T(15,"B-P:"2;0:BPBP2:HI(BP256):LOBP(HI256):856,LO(857,HI:820:848:820:15,EN$,ED$,ET$,ES$(EN$"00"980(15,"U2";2;0;TR;SC:BPBP256:915(A015:(BP146A),((DN$,A1,1))::A01)(BP164A),((DN$,18A,1))::925Q)15,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;162v)#2,A$:#2,B$:2:15:ID$A$B$:)OP$BC$:795:A175:A$)A$"":OP$"":795:A175:A$:A$"":965)OP$"":795:A$"")100*800:OP$"BACKUP INCOMPLETE":780>*780:BC$"UN-REC. DISK ERROR":965:100