Welcome to... \\\\\\\\ \\\\\\\ \\\\\\\\ \ \\******** \\****** \\\\****** \\* \\********* \\******* \\******* \\*** \\*** \*** \\*** ***\*** \*** \\***** \\*** \\*** \\*** ***** \\*** \\***\*** \\*** \\*** \\*** *** \\*** \\*** \\*** \\*** \\*** \\*** * \\*** \\*** \\*** \\*** \\*** \\*** \\*** \\*** \\*** ************************************************************** *************************************************************** \\*** \\*** \\*** \\*** \\*** \\*** \\***\\\\\*** \\*** \\*** \\*** \\*** \\***\\\\*** \\*** \\*** \\*** \\*** \\********* \\*** \\*** \\*** \\*** \******** \*** \*** \*** \*** D I S K M A N A G E R S A P P R E N T I C E copyright 1989 by L. Todd Knudsen I'X' H&\o׍ ''%CUR$,OA,OX,OY\OX,OY\4CUR$,AA,XX,YY:XX,YY\JK$:K$""5390\rK$":"5660:5390::help screen\"A(K$)\,NC05580:KY$":":5550:NC05350\6A10A9A125380\@A21((I$),8);:5340] JXX5 YYOY 5,OY:I$"":5380]&TXX5 K$(8)5380]:^K$(13)5550]ThNC60K$(8)5380]]rK$;]u|K$(8)I$I$K$]I$""K$(8)I$(I$,(I$)1)]K$(8)NC1NCNC1:NCNC1]LXXX:LYYY]5380]]:]:Control KEYZ^!̅A47I$"/":K1:KY$":":5610^4A1&HEB:5740^LK0A1&HEC:5740^ZK0I$;^hNC(I$)^n^u:^:Help screen^4^&K$:K$":"5670:0:^0:^::DISPLAY ERRORS^DA1:A1&HED:3,0::5740:I$:0,0^N240_X:_b:find string in ROM_(lKY$"*"_6vK(KY$)_AK,255_WK2,A1:K3,&HF5_sK(1,KY$,(0)(A))_K05820_I$(KY$,K2,(K,KY$,(1))(K2))_(I$,1)":"I$(I$,(I$)1):KY$":":5830_KY$""_Ɛ_:`:get an extra 256 bytes`1:80`&:`;:End of program)(A))_K05820_I$(KY$,K2,(K,KY$,(1))(K2))_(I$,1)":"I$(I$,(I$)1):KY$":":5830_KY$""_Ɛ_:`:ge0xx000llllllll0|x 00f8l8vv``0```0`00`UUUU000000`00 0`||0p0000x 8`x 8 xx00000x xflxlf```bf8ll8ff|``xxff|lfx`0x0000xx0l88lx00xƌ2f>>00x |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0d00000000v8lx |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0d00000000v8"CAT"(C$,1)"D"," ";JH 5,0:"- Sorting directory -":0,0:JS K1V1Jc K1(K12)Jr K103390J K2VK1:J1J IJJ K3IK1J ƅ(1,C$,"E")03320J A$(B$(0,I),9,3)(B$(0,I),8)J B$(B$(0,K3),9,3)(B$(0,K3),8)K A$B$3360K$ (1,C$,"E")03330K? B$(0,I)B$(0,K3)3360Km K4$B$(0,I):B$(0,I)B$(0,K3):B$(0,K3)K4$Kx IIK1K I13260K JJ1K *JK2 3220K 43250K >V1:SW0K HX311K RB$(1,X)""3500K \N07L fB$(0,V)""B$(0,V)(32,255):SW1L. p(B$(1,X),N321,32)B$(0,V)LC zVV1:V683500LI L] SW1X11::Ld :L :Write out sorted directoryL X311L B$(1,X)""3550L T1$(B$(1,X),128):T2$(B$(1,X),127)L DR,17,X,T1$,T2$L ԋL SW0L M :M :Format a disk DSKINIM6&HF0B0,D:&HF0B1,0MI"DRIVE:";DR$MtDR$"all"DR$"ALL"&HF0B1,1:DR$"0"M$DR(DR$)M.DR0DRD 255M80,(&HFE03)1:0,3:"DRIVE:"(3(DR$),32)DR$;:0,0:MB&HF0B2,DR:900:5:DR(&HF0B2)NL160NV3720N7`"Formatting disk in drive:"DRNSj&HFFD8,0:DR:&HFFD9,0Nt(&HF0B1)1DR(&HF0B2)1:DR(&HF0B0)1DR$(DR):3640N~160N&HFFD9,0:3,0:"- FORMATING ERROR -":0,0:160N:N:VIEW FILEO:"VIEWing file ";:5,0:SF$:0,0:O%B13920OB:"I",#1,SF$::S50:C1Ozą(P4,C$,"P")0DN2:"Output to PRINTER."::DN0OΙ"D",#1,SF$,1:L1(1):OAL1(L1S)SOL1S S1:A0O"D",#1,SF$,SOL(1)O#1,S A$O L03910PRC LP#1,RP(#DN,A$;PJ2I$:I$""3940::was a key pressed?PR<:PtFA0S1:CL1A1:A0:3820PPA$"":C0:5,0::"End of file":0,0PZPd44539:I$PnI$"p"I$"P"ND2:4050PxI$"s"I$"S"ND1:3980PPQ&"O",#1,"%"(SF$,4)(R)".DMA"Q14050Q7QI"D",#1,SF$,SQY#1,S A$Q_ȐQzҀT&H6C1E0 &H6CF00 2Q܇#ND,((T));QQQ:Q:point to filename - arrow keys to HIGHLIGHTQ4310QDRD1:2480R""O03,0:"- NO DIRECTORY ENTRIES -":4320R\,I$,X,X,Y:YYY(O5)2:X12:YYY:OXX:OYY:N1:OPNRe61,0R@X12,Y:6,4:B$(0,N);:0,0RJ44539:I$RTI$(13)4330R^I$(8)XX15:NN1RhI$(9)XX15:NN1RrI$(10)YY1:NN5S|I$(94)YY1:NN5S+X12X72:NN5S@X72X12:NN5SPYYY YYYSnOX12,OY:0,0:B$(0,OP);SNO XOX:YOY:NOPSN1XOX:YOY:NOPSOXX:OYY:OPNŚ4160S0,23S0,0:1,54:240T(C$,1)"^"C$(C$,(C$)2)"^?"T4PO$(C$,(C$)1)(34)B$(0,N)(34)T[240:0,YY(O5)2:0,0:1,54TaTh:T:MOD DECB FOR FORMATT&DK(&HC004)T0DK&HD6 DE0:DE1T:OFDE&HED:FODE&HEETD&HD598OF,&H39TN&HD545OF,&H0E:&HD546OF,&H02U#X&HD5A5OF,&H0E:&HD5A6OF,&H02UMb&HD4EAOFDE,&H26:&HD4EBOFDE,&H88UllA03:&HD4F8FOA,&H12:UrvUy:U:GENERATE SYNTAX ERRORUU:U:Put last command to memoryUYY&HF0C0 &HF0BF(LC$)VYY,((LC$,YY&HF0BF,1))V ƋVВYY,255VڐV":VE:Get last command from memoryVZLC$"":YY&HF0C0Vo(YY)2554650V LC$LC$((YY))VYYYY1V 4610V*V4:V>:VH:Let DECB use hi-speed during disk I/OVRV(&HC004)W\(&HE289)684810W1fV&HD6 A$"C0EED52AD6D1D6F1D727D75E"WPpV&HD7 A$"C101D617D7C4"WbzV1(A$)4W|A("&H"(A$,V,4))WA,&HBD:A1,&HF0:A2,&H9D:A3,18WW&HF09D,&H34:&HF09E,&H7FW&HF09F,&H35:&HF0A0,&HFFW&HF0A1,&H39XA$""XʐX:X+:set BAUD rate -CONFIG-X?" 1 - 9600"XS" 2 - 4800"Xg" 3 - 2400"X{" 4 - 1200"X" 5 - 600"X" 6 - 300"X$X."BAUD rate:";B$X8B(B$)XBB1B63,0:"- BAUD RATE ERROR -":0,0:5140Y LB1B7YVB2B18Y(`B3B40Y6jB4B87YEtB5B180YT~B6B110Yc150,B:W5YiYp:Y:Save CONFIG dataY"Place disk with DMA.BIN in drive"D1"and press ENTER.";YI$YB$((150))YM$((&HF0A2))Zؙ"I",#1,"DMA.BIN":Z&"D",#1,"DMA.BIN",1Z6#1,1 I$ZH I$B$:#1,6ZZ I$M$:#1,7Zd :W5ZjZq:Z(:Get CONFIG dataZ24690::mod DECB for fast I/OZ<"I",#1,"DMA.BIN":ZF"D",#1,"DMA.BIN",1ZPR67ZZ#1,1 I$Zd#1,R[ nB$B$I$[x[[4M$(B$,1):B$(B$,1)[D150,(B$)[W&HF0A2,(M$)[oM$"C":&HFF9A,1[M$"M":&HFF9A,0[[:[:INPUT$ and Single Key Commands -control keys-[܅PO$""NC(PO$):I$PO$:I$"":NC0[K$\F$8"E2$"*"DE$SE$83,DF$DF$(8(DF$),32)8P6DE$DE$(3(DE$),32)8@SF$SF$"."SE$":"D1$:DF$DF$"."DE$":"D2$8JW$"R"DF$(DF$,(1,DF$,":"))D1$8T(&HFE02)08^W$"D"0,2:SF$;:0,0:16609"h""44539:I$::was a key pressed? for DIR "*.BAS"9-r17509T|(P4,C$,"D")0B0C$C$"R":B19(C$,W,1)"?"2090:I$"N"1780:I$"Q"VO:1780:W$"K"W$"V"SF$DF$:0,2:SF$;:3,0:" CANNOT HAVE DUPED FILENAMES ON SOURCE DRIVE.":0,0:1780:AW$"K"W$"V"NO02900:R$"N"1780::Does file exist?:W$"C"2,0:"Copying ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$:W$"M"2,0:"Moving ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$:SF$;NW$"R"2,0:"Renaming ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$;…W$"K"2,0:"Killing ";:0,2:SF$;:0,0::B1SF$;̅W$"V"3750;NFNF1::Increment number of files affected.;(P4,C$,"<")01780::is it reverse logic?<@(P4,C$,"<")0SF$F$:SE$E$:1540::is it reverse logic?SW0SF$F$>>:>2:WILD CHARACTERS for EXTENTION>;SW0>iQE$E1$(3(E1$),63)::look for a '?'>{LL1(QE$)>(QE$,LL,1)(E$,LL,1)(QE$,LL,1)"?"SW1>>SW0SE$E$> >:> :ARE YOU SURE ?>*?42,0:(C$,W1)" ";:0,2:SF$;?R>0,0:" Are you sure? [ (Y)es, (A)ll, (N)o, (Q)uit ]?";?HB2I$(B$,1):B$(B$,(B$)1):2150?R44539:I$?\B1B$B$I$?fI$"Z"I$((I$)32)?p(1,"YANQ",I$)02130@ z0,(&HFE03):(79,32);:0,(&HFE03)1@&I$"A"(C$,W,1)" "@,@3:@D:SET DRIVES@LW6@`"SOURCE:";D1$@tD1$""D1$"0"@ʅ(D1$)0(D1$)D 255@D1(D1$)@0,(&HFE03)1:0,3:"SOURCE:"(3(D1$),32)D1$;:0,0:@軉"DESTIN:";D2$A D2$""D2$"1"A((D2$)0(D2$)D 255A7 D2(D2$)Av 0,(&HFE03)1:0,3:"DESTIN:"(3(D2$),32)D2$;:0,0:A &HE00,D1:&HE01,D2A $A .:A 8:DIR commandA B&HAE00,&H39::mod INKEY$ for DIR pauseA L2840:::DISPLAY DRIVESB V4,0:#DN,"DIRECTORY OF DRIVE"DRBV `W4W$"D"(4,C$,"S")03040::Should I sort it?Bi j0,0:FR(DR)B tDN2111,254:DR:111,0:2450::DRB ~4,0:1,(&HFE03)OSB "Free =";FR::DR1B B :C :CAT command 'READ SOURCE DRIVE & DESTINATION DRIVEC Y3:C0CK AD1LOO:DRD2:W$"R"DRD1:2540:2540Cg ā2840::DISPLAY DRIVESC 4,0:#DN,," DIRECTORY OF DRIVE"DR:0,0:#DN,""C ؅W4W$"C"(4,C$,"S")03040::Should I sort it?C FR(DR)C O0C X1172D DR,17,Y,A$(X),A$(X1)D$ YY1D* DK :SEPARATE INTO SINGLE FILESDW (X118Dq 2Y1:2670:X192650D ";:0,0*PO$""PO$;*5340::goto INPUT$ routine+C$"":PO$"":SW0:DN0:W0+/QT(1,I$,(34))+f…(I$)45((I$)15QT0)4500::create SN error+̅QT2UO(1,(I$,QT1,2),"^")::uppercase override for ADOS+օI$"/"C$LC$:5,(&HFE03)1:C$:560, L1(I$)::convert lowercase commands to upper,T$(I$,L,1),^(T$"^"(LQT QT0))(T$"^"LQT UO0)T$((T$)32),oT$" "SW1,T$"/"T$".",SW1C$C$T$,,&LC$C$:W$(C$,1),0,::,D(C$,3)"DIR"760,N(C$,3)"CAT"760- X(C$,3)"REN"870-&b(C$,4)"KILL"W5-?l(C$,4)"COPY"W5-Xv(C$,4)"MOVE"W5-q(C$,4)"VIEW"W5-W5980-C$"COLOR"920-C$"SAVE"5040-C$"DRIVE"2220-C$"FORMAT"3590-C$"BAUD"4840.ƅC$"EXIT"&H9F00::exit to BASIC.TЅW0C$""4500::not a valid command - SYNTAX error -.^ځ380.e:.w:DIR command.W4:DR0:AD0.DR((C$,4,(C$)3)):SDDR. DR0(1,C$,"0")0DRD1:SDDR.DR0DRD 255/  (1,C$,(34))0W$"D":980:/&*(4,C$,"P")0DN2/;4W$"D"2370:/F>2480/LH/SR:/h\:RENAME command/f(C$,4,1)"A"W7:W4/p980/z/:/:COLOR type Color or Monocrome -switch-/W60(&HF0A2)77&HF0A2,67:&HFF9A,1::9500+(&HF0A2)67&HF0A2,77:&HFF9A,0:0108:0e:Disk access and file name verification0zB$"":B0:10000ޅB1B2B2:"Press ENTER to activate process or BREAK to terminate.":44539:LB$B$:1400:B$LB$:990:1,OS1UO1&HC8A2,&H87:&HC8A3,&H48::NO force to UC by ADOS15NN01\(C$)W14500::create SN error1(C$,1)"?"(C$,2)"?^"4110:1LW (C$)1(C$,L,1)(34)NNNN11$1.NN4NN24500::create SN error28NN2(W$"K"W$"V")4500::create SN error2<BNN4W$"R"4500::create SN error2`LNN2C$C$(C$,(C$)(W1))2VP1(W,C$,(34)):: look for 1st quote "2`P2(P11,C$,(34)):: look for 2nd quote "3jP3(P21,C$,(34)):: look for 3rd quote "3@tP4(P31,C$,(34)):: look for 4th quote "3Z~L1P2P11:L2P4P313S1$(C$,P11,L1):S2$(C$,P31,L2)3P1(1,S1$,"."):P2(1,S2$,".")3S1$""S1$"*.*"3S2$""S2$"*.*"4 W$"R"((P4,C$,"<")0NN2)S2$S1$S2$"*.*"4@W$"K"(1,S2$,"?")0""::create FN error4G:4d:WILD FILE NAME SECTION4yP1(1,S1$,".")4P10""::create FN error4F1$(S1$,P11)4E1$(S1$,(S1$)P1)4F(F1$):E(E1$)5 F8E3""::create FN error5P1(1,S2$,".")59P10""::create FN error5N(F2$(S2$,P11)5i2E2$(S2$,(S2$)P1)5:VH:Let DECB use hi-speed during disk I/OVRV(&HC004)W\(&HE289)684810W1fV&HD6 A$"C0EED52AD6D1D6F1D727D75E"WPpV&HD7 A$"C101D617D7C4"WbzV1(A$)4W|A("&H"(A$,V,4))WA,&HBD:A1,&HF0:A2,&H9D:A3,18WW&HF09D,&H34:&HF09E,&H7FW&HF09F,&H35:&HF0A0,&HFFW&HF0A1,&H39XA$""XʐX:X+:set BAUD rate -CONFIG-X?" 1 - 9600"XS" 2 - 4800"Xg" 3 - 2400"X{" 4 - 1200"X" 5 - 600"X" 6 - 300"X$X."BAUD rate:";B$X8B(B$)XBB1B63,0:"- BAUD RATE ERROR -":0,0:5140Y LB1B7YVB2B18Y(`B3B40Y6jB4B87YEtB5B180YT~B6B110Yc150,B:W5YiYp:Y:Save CONFIG dataY"Place disk with DMA.BIN in drive"D1"and press ENTER.";YI$YB$((150))YM$((&HF0A2))Zؙ"I",#1,"DMA.BIN":Z&"D",#1,"DMA.BIN",1Z6#1,1 I$ZH I$B$:#1,6ZZ I$M$:#1,7Zd :W5ZjZq:Z(:Get CONFIG dataZ24690::mod DECB for fast I/OZ<"I",#1,"DMA.BIN":ZF"D",#1,"DMA.BIN",1ZPR67ZZ#1,1 I$Zd#1,R[ nB$B$I$[x[[4M$(B$,1):B$(B$,1)[D150,(B$)[W&HF0A2,(M$)[oM$"C":&HFF9A,1[M$"M":&HFF9A,0[[:[:INPUT$ and Single Key Commands -control keys-[܅PO$""NC(PO$):I$PO$:I$"":NC0[K$\CUR$,OA,OX,OY\OX,OY\4CUR$,AA,XX,YY:XX,YY\JK$:K$""5390\WA(K$)\"NC05570:KY$":":5540:NC05350\,A10A9A125380\6A21((I$),8);:5340\@XX5 YYOY 5,OY:I$"":5380\JXX5 K$(8)5380]TK$(13)5540],^NC60K$(8)5380]5hK$;]MrK$(8)I$I$K$]u|I$""K$(8)I$(I$,(I$)1)]K$(8)NC1NCNC1:NCNC1]LXXX:LYYY]5380]]:]:Control KEYZ]…A47I$"/":K1:KY$":":5600^ A1&HEB:5690^$օK0A1&HEC:5690^2K0I$;^@NC(I$)^F^M:^b:DISPLAY ERRORS^A1:A1&HED:3,0::5690:I$:0,0^240^&:^0:find string in ROM^:KY$"*"^DK(KY$)^NK,255^XK2,A1:K3,&HF5_ bK(1,KY$,(0)(A))_lK05770_DvI$(KY$,K2,(K,KY$,(1))(K2))_x(I$,1)":"I$(I$,(I$)1):KY$":":5780_KY$""__:_:get an extra 256 bytes_1:80_:_:End of program)(A))_lK05770_DvI$(KY$,K2,(K,KY$,(1))(K2))_x(I$,1)":"I$(I$,(I$)1):KY$":":5780_KY$""__:_:get an extra 256 bytes_1:80_:_:End of program""D2$"1"A((D2$)0(D2$)D 255A7 D2(D2$)Av 0,(&HFE03)1:0,3:"DESTIN:"(3(D2$),32)D2$;:0,0:A &HE00,D1:&HE01,D2A $A .:A 8:DIR commandA B&HAE00,&H39::mod INKEY$ for DIR pauseA L2840:::DISPLAY DRIVESB V4,0:#DN,"DIRECTORY OF DRIVE"DRBV `W4W$"D"(4,C$,"S")03040::Should I sort it?Bi j0,0:FR(DR)B tDN2111,254:DR:111,0:2450::DRB ~4,0:1,(&HFE03)OSB "Free =";FR::DR1B B :C :CAT command 'READ SOURCE DRIVE & DESTINATION DRIVEC Y3:C0CK AD1LOO:DRD2:W$"R"DRD1:2540:2540Cg ā2840::DISPLAY DRIVESC 4,0:#DN,," DIRECTORY OF DRIVE"DR:0,0:#DN,""C ؅W4W$"C"(4,C$,"S")03040::Should I sort it?C FR(DR)C O0C X1172D DR,17,Y,A$(X),A$(X1)D$ YY1D* DK :SEPARATE INTO SINGLE FILESDW (X118Dq 2Y1:2670:X192650D V1:SW0K HX311K RB$(1,X)""3500K \N07L fB$(0,V)""B$(0,V)(32,255):SW1L. p(B$(1,X),N321,32)B$(0,V)LC zVV1:V683500LI L] SW1X11::Ld :L :Write out sorted directoryL X311L B$(1,X)""3550L T1$(B$(1,X),128):T2$(B$(1,X),127)L DR,17,X,T1$,T2$L ԋL SW0L M :M :Format a disk DSKINIM6&HF0B0,D:&HF0B1,0MI"DRIVE:";DR$MtDR$"all"DR$"ALL"&HF0B1,1:DR$"0"M$DR(DR$)M.DR0DRD 255M80,(&HFE03)1:0,3:"DRIVE:"(3(DR$),32)DR$;:0,0:MB&HF0B2,DR:900:5:DR(&HF0B2)NL160NV3720N7`"Formatting disk in drive:"DRNSj&HFFD8,0:DR:&HFFD9,0Nt(&HF0B1)1DR(&HF0B2)1:DR(&HF0B0)1DR$(DR):3640N~160N&HFFD9,0:3,0:"- FORMATING ERROR -":0,0:160N:N:VIEW FILEO:"VIEWing file ";:5,0:SF$:0,0:O%B13920OB:"I",#1,SF$::S50:C1Ozą(P4,C$,"P")0DN2:"Output to PRINTER."::DN0OΙ"D",#1,SF$,1:L1(1):OAL1(L1S)SOL1S S1:A0O"D",#1,SF$,SOL(1)O#1,S A$O L03910PRC LP#1,RP(#DN,A$;PJ2I$:I$""3940::was a key pressed?PR<:PtFA0S1:CL1A1:A0:3820PPA$"":C0:5,0::"End of file":0,0PZPd44539:I$PnI$"p"I$"P"ND2:4050PxI$"s"I$"S"ND1:3980PPQ&"O",#1,"%"(SF$,4)(R)".DMA"Q14050Q7QI"D",#1,SF$,SQY#1,S A$Q_ȐQzҀT&H6C1E0 &H6CF00 2Q܇#ND,((T));QQQ:Q:point to filename - arrow keys to HIGHLIGHTQ4310QDRD1:2480R""O03,0:"- NO DIRECTORY ENTRIES -":4320R\,I$,X,X,Y:YYY(O5)2:X12:YYY:OXX:OYY:N1:OPNRe61,0R@X12,Y:6,4:B$(0,N);:0,0RJ44539:I$RTI$(13)4330R^I$(8)XX15:NN1RhI$(9)XX15:NN1RrI$(10)YY1:NN5S$"D":980:/&*(4,C$,"P")0DN2/;4W$"D"2370:/F>2480/LH/SR:/h\:RENAME command/f(C$,4,1)"A"W7:W4/p980/z/:/:COLOR type Color or Monocrome -switch-/W60(&HF0A2)77&HF0A2,67:&HFF9A,1::9500+(&HF0A2)67&HF0A2,77:&HFF9A,0:0108:0e:Disk access and file name verification0zB$"":B0:10000ޅB1B2B2:"Press ENTER to activate process or BREAK to terminate.":44539:LB$B$:1400:B$LB$:990:1,OS1UO1&HC8A2,&H87:&HC8A3,&H48::NO force to UC by ADOS15NN01\(C$)W14500::create SN error1(C$,1)"?"(C$,2)"?^"4110:1LW (C$)1(C$,L,1)(34)NNNN11$1.NN4NN24500::create SN error28NN2(W$"K"W$"V")4500::create SN error2<BNN4W$"R"4500::create SN error2`LNN2C$C$(C$,(C$)(W1))2VP1(W,C$,(34)):: look for 1st quote "2`P2(P11,C$,(34)):: look for 2nd quote "3jP3(P21,C$,(34)):: look for 3rd quote "3@tP4(P31,C$,(34)):: look for 4th quote "3Z~L1P2P11:L2P4P313S1$(C$,P11,L1):S2$(C$,P31,L2)3P1(1,S1$,"."):P2(1,S2$,".")3S1$""S1$"*.*"3S2$""S2$"*.*"4 W$"R"((P4,C$,"<")0NN2)S2$S1$S2$"*.*"4@W$"K"(1,S2$,"?")0""::create FN error4G:4d:WILD FILE NAME SECTION4yP1(1,S1$,".")4P10""::create FN error4F1$(S1$,P11)4E1$(S1$,(S1$)P1)4F(F1$):E(E1$)5 F8E3""::create FN error5P1(1,S2$,".")59P10""::create FN error5N(F2$(S2$,P11)5i2E2$(S2$,(S2$)P1)5SW0SF$F$>>:>2:WILD CHARACTERS for EXTENTION>;SW0>iQE$E1$(3(E1$),63)::look for a '?'>{LL1(QE$)>(QE$,LL,1)(E$,LL,1)(QE$,LL,1)"?"SW1>>SW0SE$E$> >:> :ARE YOU SURE ?>*?42,0:(C$,W1)" ";:0,2:SF$;?R>0,0:" Are you sure? [ (Y)es, (A)ll, (N)o, (Q)uit ]?";?HB2I$(B$,1):B$(B$,(B$)1):2150?R44539:I$?\B1B$B$I$?fI$"Z"I$((I$)32)?p(1,"YANQ",I$)02130@ z0,(&HFE03):(79,32);:0,(&HFE03)1@&I$"A"(C$,W,1)" "@,@3:@D:SET DRIVES@LW6@`"SOURCE:";D1$@tD1$""D1$"0"@ʅ(D1$)0(D1$)D 255@D1(D1$)@0,(&HFE03)1:0,3:"SOURCE:"(3(D1$),32)D1$;:0,0:@軉"DESTIN:";D2$A D2$ #& :DMA BOOT&%:copyright 1989&>:by L. Todd Knudsen&E(:&Y2 A$(25),B$(25)&d< 460&kF:&xP65497,0&Z&HE6C6,18:&HE6C7,18&d1,54&n2,44&x3,63&0,0&8,63&:&M"DMA.FNT"&:&S13&750&4'' 3,0'2,0',(0,0)(640,191),,B'E(5,2)(635,189),,B'N3,0'_(3,1),A$(1)'h1,0'w" X2 18',(6,X),A$(X)'6'@3,0'J X19 23'T(6,X),A$(X)'^'c4'h700'rS12'|750:700'4:( X1 23((1,X),(70,"*")((#:(CS13:700:S12:700:430(QM"DMA":(X:(A$( 1)"Welcome to... "(A$( 2)" ")KA$( 3)" \\\\\\\\ \\\\\\\ \\\\\\\\ \ ")A$( 4)"\\******** \\****** \\\\****** \\* ")A$( 5)"\\********* \\******* \\******* \\*** "*>A$( 6)"\\*** \*** \\*** ***\*** \*** \\***** "*A$( 7)"\\*** \\*** \\*** ***** \\*** \\***\*** "*A$( 8)"\\*** \\*** \\*** *** \\*** \\*** \\*** "+1A$( 9)"\\*** \\*** \\*** * \\*** \\*** \\*** "+&A$( 10)"\\*** \\*** \\*** \\*** \\*** \\*** "+0A$( 11)"************************************************************** ",':A$( 12)"*************************************************************** ",yDA$( 13)"\\*** \\*** \\*** \\*** \\*** \\*** ",NA$( 14)"\\***\\\\\*** \\*** \\*** \\*** \\*** "-XA$( 15)"\\***\\\\*** \\*** \\*** \\*** \\*** "-obA$( 16)"\\********* \\*** \\*** \\*** \\***"-lA$( 17)" \******** \*** \*** \*** \***".vA$( 18)" ".hA$( 19)" D I S K M A N A G E R S A P P R E N T I C E ".A$( 20)" "/A$( 21)" copyright 1989 :&9 :D M A the Disk Manager's Apprentice version 1.0&N:copyright 1989&g:by L. Todd Knudsen&n(:&2(&H192)&HC0 &H9F00::is error patch in place?&";:0,0*PO$""PO$;*5340::goto INPUT$ routine+C$"":PO$"":SW0:DN0:W0+/QT(1,I$,(34))+f…(I$)45((I$)15QT0)4500::create SN error+̅QT2UO(1,(I$,QT1,2),"^")::uppercase override for ADOS+օI$"/"C$LC$:5,(&HFE03)1:C$:560, L1(I$)::convert lowercase commands to upper,T$(I$,L,1),^(T$"^"(LQT QT0))(T$"^"LQT UO0)T$((T$)32),oT$" "SW1,T$"/"T$".",SW1C$C$T$,,&LC$C$:W$(C$,1),0,::,D(C$,3)"DIR"760,N(C$,3)"CAT"760- X(C$,3)"REN"870-&b(C$,4)"KILL"W5-?l(C$,4)"COPY"W5-Xv(C$,4)"MOVE"W5-q(C$,4)"VIEW"W5-W5980-C$"COLOR"920-C$"SAVE"5040-C$"DRIVE"2220-C$"FORMAT"3590-C$"BAUD"4840.ƅC$"EXIT"&H9F00::exit to BASIC.TЅW0C$""4500::not a valid command - SYNTAX error -.^ځ380.e:.w:DIR command.W4:DR0:AD0.DR((C$,4,(C$)3)):SDDR. DR0(1,C$,"0")0DRD1:SDDR.DR0DRD 255/  (1,C$,(34))0W& 1000&! K1$(20),K2$(20)&)N1&=(0,0:8,63:100&G280:&<15,5:"K E Y Z control key modification program"&F15,6:" copyright 1989"&P15,7:" by L. Todd Knudsen"&ZM"KEYZ"&d:' n&HF797,9:&HF7A3,9::patch cursor'"x&HF7EC,9:&HF80F,9':&HF84F,9:&HF91B,9'H&HF89C,9'O:']&HFFD9,0'f0,0'|A1&HEB:C0:320'A1&HEC:C1:320'ȁ970':'SW1:290'0,21:"":15,21'"Press desired key:";'&H11A,0(44539:A$( A(A$)( 640(," SW0 710(7, 230(>6:(K@KEY$"*"(ZJA(KEY$)(eTA,255({^A2,A1:A3,&HF5(hS1(rS(S,KEY$,(0))(|S0(E(S,KEY$,(1))(K1$(N)(KEY$,S1,1)(K2$(N)(KEY$,S2,(E1)S1))NN1) SE1) 370):)B15,22:"UPDATING KEYZ FILE...")XA1&HEB:C0:500)nA1&HEC:C1:500)xꁥ600)KEY$"") T1 10)KEY$KEY$(0)K1$(T(C10))K2$(T(C10))(1)))KEY$KEY$(255(KEY$),"-")*& A1 255*0C((KEY$,A,1))*4:((A1256&HF5)1)A,C*:D*@N*NX&HFFD8,0*kbM"KEYZ",&HEBF5,&HEDF4,0*ql*xv:*SW0* T1 20* K1$(T)A$ SWT:T20** SW0 I$K2$(SW)**:*Ɓ1040*0,21:"":0,21+6ڇ"(E)dit, (S)elect, (U)pdate file, (Q)uit with no update:";+E&H11A,255+V44539:A$+w A$"S" 15,SW1:1050:+ A$"E"SW0 820+ A$"U" 460:+ A$"Q" + 710+*:+40,21:"":15,21, >"(P)ress a key or enter a (C)ode:";,H&H11A,255,+R44539:A$,A\15,21:"":15,21,Nf&H11A,0,p A$"P" "Press a key:";:44539:A$:910,z A$"C" "Enter a ASCII code:";C$:A$((C$)):910, 830,0,SW1:"":15,SW1,"###";(A$);-$" - "A$;:28,SW1:" - ";: B$->K1$(SW)A$:K2$(SW)B$-R15,SW1:1050-X-_:-h0,0-xހ SW1 20-15,SW1-1050---15,SW1:3,3-"###";(K1$(SW));.$" - "K1$(SW);" ";:28,SW1:" - "K2$(SW);..0,0:(20," ").8: B$->K1$(SW)A$:K2$(SW)B$-R15,SW1:1050-X-_:-h0,0-xހ SW1 20-15,SW1-1050---15,SW1:3,3-"###";(K1$(SW));.$" - "K1$(SW);" ";:28,SW1:" - "K2$(SW)@drive:ren killcopyviewfformat:ssave:bbaud:eexit cat:-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------1dir1:2dir2:3dir3:0dir0:zkill""d:xcopy""d:mmoveMcolor:Sdirs:Ddrive:------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 1:2dir2:3dir3:0dir0:zkill""d:xcopy""d:mmoveMcolor:Sdirs:Ddrive:--------------------------------------------------------------------------------------------------------------------------------------------------------------------& :DMA BOOT&%:copyright 1989&>:by L. Todd Knudsen&E(:&R2 A$(25)&]< 350&dF:&qP65497,0&{Z1,54&d2,44&n3,63&x0,0&8,63&:&M"DMA.FNT"&:&4&3,0&2,0&(0,0)(640,191),,B' (5,2)(635,189),,B'3,0'%(3,1),A$(1)'.1,0'= X2 18'N(6,X),A$(X)'T']3,0'm" X19 23'~,(6,X),A$(X)'6'@:'JM"DMA":'T:'^A$( 1)"Welcome to... "(BhA$( 2)" "(rA$( 3)" \\\\\\\\ \\\\\\\ \\\\\\\\ \ "(|A$( 4)"\\******** \\****** \\\\****** \\* ")5A$( 5)"\\********* \\******* \\******* \\*** ")A$( 6)"\\*** \*** \\*** ***\*** \*** \\***** ")A$( 7)"\\*** \\*** \\*** ***** \\*** \\***\*** "*(A$( 8)"\\*** \\*** \\*** *** \\*** \\*** \\*** "*yA$( 9)"\\*** \\*** \\*** * \\*** \\*** \\*** "*A$( 10)"\\*** \\*** \\*** \\*** \\*** \\*** "+A$( 11)"************************************************************** "+oA$( 12)"*************************************************************** "+A$( 13)"\\*** \\*** \\*** \\*** \\*** \\*** ",A$( 14)"\\***\\\\\*** \\*** \\*** \\*** \\*** ",eA$( 15)"\\***\\\\*** \\*** \\*** \\*** \\*** ",A$( 16)"\\********* \\*** \\*** \\*** \\***"- A$( 17)" \******** \*** \*** \*** \***"-]A$( 18)" "-A$( 19)" D I S K M A N A G E R S A P P R E N T I C E ".A$( 20)" ".V&A$( 21)" copyright 1989 ".0A$( 22)" by L. Todd Knudsen ".:A$( 20)" ?(C&(EH82)968SO1:SO0(@ SO1H&8C2A&,DH:8&CHA8,3H&1C(u H&EA00&,2H:0:10,:D"AM>-;":,0:0P$O""P$O;( 32:6$C":"OP$""S:W:0ND0W:0Q:T1(I,,$3()4:)($I)54(I()$15TQ0)122( QT2OU(,1I(,$TQ1aa@{v~C ALaӬڴ7zLX'|߹ߚڟ-Lq׬ӯSڄ#Lp׬x׬S_zx׹MX'|߹ߚ:zx׺MX'|߹ߚ%LaӬqA{v~C `q`RޯM !zyMKϼ]Xٹ,ݲZ~TtzLXLt{t"SLZνz֧LXRΫLq֧ͫLpֻ֧ӭΧӫΫtŽجQLoPmŻmvDݶŻۭzŭL۞ݓNݭL۾ݳXmέLkOLvzŭKNMX1ʼNy׹ϺSxź^Sxۭ̻ۭxmŷϹͽŭj?ʭLyϹͽwZ~wZ~xߌߔߖŭmŷٹǻ#ŭmŷٹƻzy׹LXLy׹TzŭKyϹϽTXέLw֭~Zȼ~MZLmLٹƻxҰ߸߭Z~KxxߘxŹxzLXɻJefݶιeLʼLzaۼݯMXϱSLxߐѭ{űLfIܬ۹ӳLZeLγS~γQRŬzKXLLaHfݻιŬLZ/X۳zLXǻ4GLZų;ŭx۶Lmz۶MXY~,Fte EzMKXLLγSTL~ZǺDLݼLxxߛߓݚoC]̶Lmz۶LݏNLۯXݻSLY~͖BzLیN۶LݬXLY~ΐAoE@efݰTq۹TwTݲݾ~YefŻܬ۹/ܬX۾oź?LټɺZϷټϹVxtVtoԹ>wZ~ɭLY~ͰzLXxҰ߭߫Z~ȕ= ӧӧŦLS~QSLLLŧLLLűӹYz;۶LtǧXLSLS#:zLtXLTαűLTz9۶LtXLTLT8zLt˦XLSűLSz7KΧXLLTø6zMXLαűLSz5KXL4SΰŦx۽װ֯ızMXLŧLŰLj3zKXLŧLŰLQ2LLŦL~ZƸG1͸40Z~ /zpۼL֡XۼLqۼxۼSTݹ.LqxSTt˽TֱTtwZ~T~QToŷ-Ly׼zŴLXɺL{źL,LRŻLRٺmŷʻưTӹmŷʻ˰Tӹٺmŷʻ˰TӹmŷʻʾTӹٺmŷʻɾTӹmŷ˻TTͷmTTӺLZmTǰTηto߶+N*LZϷϹTxmŦuoۼSϹtmŦoŶ)ۼLݦLp(zyLXK'LۼTty֦LT~ZζEo&!%LyϼzyͺLX͵z$LɻXLۼݺϻʻɻιɻȻݺz#LȻXLۼλɻȼ˵D"LZxVLvݷTo۾mӾٻmTηϹmTͷٻmTtmŷϹ̷mӺٹmŷϹ̷mϷٹmŷϹξ̷۾L>!o xxxxxxxvDݪ߻ŽLvzKNMXxݽߪ߻߭~Z̴zLXLtzLXLfzLXLXzLXLIzLXLǴ:zLXL)mʽӨLoųtxݞߌߔ߾ѱߑݚλݛߚ߫vD۶Lty۲Lty׹fݶλݾѱefݻλݾѱ/ζX۶+L۽:+۶L:eLnoѲY~fݶλݾѱefݻλݾѱέLZ/X۶;ܭӽL۽Tte۲Lp۽۽Lq۽mu۽muz۲LݼXmŷٹӲz۲Lݲ XmŷٹӲozMݱXLx۰۶L۰{۶LݼLiLm ŪۭӾŦӧO ۭӾŦӧ:Lmz۴LX"zLXY~Z~LuzżL~XYzŦLXxZ~z{M~XẔz LξNLNLXǵ zLXx^x~Ẕz KOLXʦL~Ẕ|z LOLtXi zLtXʱPzLO۴MKtX3xz۴MKtX۶LT۴ z۶MKݴOLtX۶Lq۶x۶Sΰz۴LtDZOMSXLS{żLTаLŧLŦZ~ʰozLX۶LдLۦL~ZʰLηٽ~YzLXξLżY~tzMxX۶dLx۶o]@Lmz۴MKX{oLSTLηٻxY~϶x~ZôۦLմLbmӴʴmTδmTӹLa״ۦtTt־ִzLXɯkLoۦTaӴtSTzp۶LX۶Lq۶x۶SδۦL~Zɯ`ۦLZoO.~Z*&(&H192)&HC0&H9F00&1M"KEYZ":264&233:80:8:"Welcome to 'D M A' the Disk Manager's Apprentice version 1.0":23,1:"Copyright 1989 by L. Todd Knudsen":0,3:0,0::0,3&218:210:(&HC004)&HD7OS&HCCC8:OS&HCBEE'OS,&HF0:OS1,&HA5'#LC$""213'V:1:7000:6:259:(&HF0C0)255214'A$(18),B$(1,72):D1(&HE00):D2(&HE01):D1$(D1):D2$(D2):D1$(D1$,(D1$)1):D2$(D2$,(D2$)1):W255:DR1:(&HC142)48D(&HCEC9):D(&HCDED)((&HE289)68OS1:OS0(@ OS1&HC8A2,&HD8:&HC8A3,&HC1(u &HAE00,&H20::1,0:"DMA->";:0,0:PO$""PO$;( 236:C$"":PO$"":SW0:DN0:W0:QT(1,I$,(34)):(I$)45((I$)15QT0)212( QT2UO(1,(I$,QT1,2),"^")) I$"/"C$LC$:5,(&HFE03)1:C$:19)vL1(I$):T$(I$,L,1):(T$"^"(LQTQT0))(T$"^"LQTUO0)T$((T$)32))T$" "SW1)T$"/"T$".")SW1C$C$T$):LC$C$:W$(C$,1)):(C$,3)"DIR"35)(C$,3)"CAT"35*(C$,3)"REN"41*,(C$,4)"KILL"W5*E(C$,4)"COPY"W5*^(C$,4)"MOVE"W5*w(C$,4)"VIEW"W5*W546*C$"COLOR"43*C$"SAVE"231*C$"DRIVE"113*C$"FORMAT"175*C$"BAUD"223+ C$"EXIT"&H9F00+!W0C$""212+#"9+u#W4:DR0:AD0:DR((C$,4,(C$)3)):SDDR:DR0(1,C$,"0")0DRD1:SDDR+$DR0DRD255+%(1,C$,(34))0W$"D":46:+&(4,C$,"P")0DN2+'W$"D"118:+(122:,)(C$,4,1)"A"W7:W4,*46:,C+W6:(&HF0A2)77&HF0A2,67:&HFF9A,1::45,m,(&HF0A2)67&HF0A2,77:&HFF9A,0:,s-,.B$"":B0:48,/B1B2B2:"Press ENTER to activate process or BREAK to terminate.":44539:LB$B$:66:B$LB$:47:-0OS1UO1&HC8A2,&H87:&HC8A3,&H48-51NN0:(C$)W1212-]2(C$,1)"?"(C$,2)"?^"193:-3LW(C$):(C$,L,1)(34)NNNN1-4:NN4NN2212-5NN2(W$"K"W$"V")212-6NN4W$"R"212-7NN2C$C$(C$,(C$)(W1)).8P1(W,C$,(34)):P2(P11,C$,(34)):P3(P21,C$,(34)):P4(P31,C$,(34)):L1P2P11:L2P4P31:S1$(C$,P11,L1):S2$(C$,P31,L2):P1(1,S1$,"."):P2(1,S2$,"."):S1$""S1$"*.*".9S2$""S2$"*.*"/ :W$"R"((P4,C$,"<")0NN2)S2$S1$S2$"*.*"/-;W$"K"(1,S2$,"?")0""/LP1(1,S2$,"."):P10""0?F2$(S2$,P11):E2$(S2$,(S2$)P1):F(F2$):E(E2$):F8E3""0!@W$"D"NF0:122:6709ADRD1DRD1:1220BBNF00uCO03,0:"- NO DIRECTORY ENTRIES -":0,0:50DW$"K"W$"D"W$"V"AD1:1220EV1O:F$(B$(AD,V),8):E$(B$(AD,V),3):SF$"":SE$"":F1$(8(F1$),32)F$SF$F$1F(1,F1$,"?")010119GE1$(3(E1$),32)E$SE$E$1TH(1,E1$,"?")01041hIF1$"*"SF$F$1|JE1$"*"SE$E$1KSF$""SE$""941L(P4,C$,"<")0951MDF$F2$:DE$E2$:F2$"*"DF$SF$1NE2$"*"DE$SE$2pODF$DF$(8(DF$),32):DE$DE$(3(DE$),32):SF$SF$"."SE$":"D1$:DF$DF$"."DE$":"D2$:W$"R"DF$(DF$,(1,DF$,":"))D1$2P(&HFE02)02QW$"D"0,2:SF$;:0,0:842R""44539:I$2S932T(P4,C$,"D")0B0C$C$"R":B13$U(C$,W,1)"?"107:I$"N"95:I$"Q"VO:953VW$"K"W$"V"SF$DF$:0,2:SF$;:3,0:" CANNOT HAVE DUPED FILENAMES ON SOURCE DRIVE.":0,0:953WW$"K"W$"V"NO0142:R$"N"954XW$"C"2,0:"Copying ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$4qYW$"M"2,0:"Moving ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$:SF$4ZW$"R"2,0:"Renaming ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$5[W$"K"2,0:"Killing ";:0,2:SF$;:0,0::B1SF$5\W$"V"18057]NFNF1:(P4,C$,"<")0955_^(P4,C$,"<")0SF$F$:SE$E$:775_:W$"V"NF0I$"N"3,0:"- FILE NOT FOUND -":0,0:100:1005`:NF"file(s) ";:W$"C""copied."5aW$"M""moved."6bW$"R""renamed.":DR16cW$"K""killed.":DR16%d6eSW0:QF$F1$(8(F1$),63):LL1(QF$):(QF$,LL,1)(F$,LL,1)(QF$,LL,1)"?"SW16f:SW0SF$F$6g7hSW0:QE$E1$(3(E1$),63):LL1(QE$):(QE$,LL,1)(E$,LL,1)(QE$,LL,1)"?"SW17i:SW0SE$E$7j7k:2,0:(C$,W1)" ";:0,2:SF$;:0,0:" Are you sure? [ (Y)es, (A)ll, (N)o, (Q)uit ]?";:B2I$(B$,1):B$(B$,(B$)1):1097l44539:I$:B1B$B$I$7mI$"Z"I$((I$)32)7n(1,"YANQ",I$)01088Ao0,(&HFE03):(79,32);:0,(&HFE03)1:I$"A"(C$,W,1)" "8Gp8oqW6:"SOURCE:";D1$:D1$""D1$"0"8r(D1$)0(D1$)D2558sD1(D1$):0,(&HFE03)1:0,3:"SOURCE:"(3(D1$),32)D1$;:0,0::"DESTIN:";D2$:D2$""D2$"1"9t(D2$)0(D2$)D2559uuD2(D2$):0,(&HFE03)1:0,3:"DESTIN:"(3(D2$),32)D2$;:0,0::&HE00,D1:&HE01,D2:9v&HAE00,&H39:139::4,0:#DN,"DIRECTORY OF DRIVE"DR:W4W$"D"(4,C$,"S")0152: w0,0:FR(DR):DN2111,254:DR:111,0:121::DR:9x4,0:1,(&HFE03)OS:"Free =";FR::DR1:?y:uzY3:C0:AD1LOO:DRD2:W$"R"DRD1:125:125:{139:4,0:#DN,," DIRECTORY OF DRIVE"DR:0,0:#DN,"":W4W$"C"(4,C$,"S")0152:|FR(DR);1}O0:X1172:DR,17,Y,A$(X),A$(X1):YY1::X118:Y1:130:X19129;J~Y33:130:X19129;cY65:130:X19129;|Y97:130:X19129;:133;O$(A$(X),Y,8)"."(A$(X),Y8,3):(O$,1)(255)X19:;(O$,1)(0);OO1:B$(AD,O)O$:<AD1AD0:NOO:OLO:DRSD:138<*O0137<`X1O:#DN,B$(AD,X)" ";:CC1:C5C0:#DN,""$:"Destination file: ";:5,0:DF$;:0,0:" exists--replace it?";>N44539:R$:R$"Z"R$((R$)32)>g(1,"YN",R$)0147>0,(&HFE03):(79,32);:0,(&HFE03)1>(B0B2)R$"Y"DF$:B$(1,X)CF$>?dV1:X172:B$(0,X)"":B$(1,X)""::X311:DR,17,X,T1$,T2$:T$T1$(T2$,127):B$(1,X)T$:N07:B$(0,V)(T$,N321,32):T1$(B$(0,V),1):T1$(255)156?wT1$(0)155?VV1:V68156?N,X?(C$,3)"CAT"(C$,1)"D"," ";?5,0:"- Sorting directory -":0,0::K1V1@ K1(K12):K10168@K2VK1:J1@$IJ@DK3IK1:(1,C$,"E")0164@A$(B$(0,I),9,3)(B$(0,I),8):B$(B$(0,K3),9,3)(B$(0,K3),8):A$B$166@(1,C$,"E")0165@B$(0,I)B$(0,K3)166AK4$B$(0,I):B$(0,I)B$(0,K3):B$(0,K3)K4$:IIK1: & :DMA BOOT&%:copyright 1989&>:by L. Todd Knudsen&E(:&Y2 A$(25),B$(25)&d< 420&kF:&xP65497,0&Z1,54&d2,44&n3,63&x0,0&8,63&:&M"DMA.FNT"&:&4&&3,0&2,0&(0,0)(640,191),,B'(5,2)(635,189),,B'!3,0'2(3,1),A$(1)';1,0'J X2 18'[(6,X),A$(X)'a'j"3,0'z, X19 23'6(6,X),A$(X)'@'JS12'T710'^'h X1 25'r(1,X),B$(X)'|':'M"DMA":':(=A$( 1)"Welcome to... "(A$( 2)" "(A$( 3)" \\\\\\\\ \\\\\\\ \\\\\\\\ \ ")0A$( 4)"\\******** \\****** \\\\****** \\* ")A$( 5)"\\********* \\******* \\******* \\*** ")A$( 6)"\\*** \*** \\*** ***\*** \*** \\***** "*#A$( 7)"\\*** \\*** \\*** ***** \\*** \\***\*** "*tA$( 8)"\\*** \\*** \\*** *** \\*** \\*** \\*** "*A$( 9)"\\*** \\*** \\*** * \\*** \\*** \\*** "+A$( 10)"\\*** \\*** \\*** \\*** \\*** \\*** "+iA$( 11)"************************************************************** "+A$( 12)"*************************************************************** ", A$( 13)"\\*** \\*** \\*** \\*** \\*** \\*** ",_&A$( 14)"\\***\\\\\*** \\*** \\*** \\*** \\*** ",0A$( 15)"\\***\\\\*** \\*** \\*** \\*** \\*** "-:A$( 16)"\\********* \\*** \\*** \\*** \\***"-VDA$( 17)" \******** \*** \*** \*** \***"-NA$( 18)" "-XA$( 19)" D I S K M A N A G E R S A P P R E N T I C E ".ObA$( 20)" ".lA$( 21)" copyright 1989 ".vA$( 22)" by L. Todd Knudsen "./0xx000llllllll0|x 00f8l8vv``0```0`00`UUUU000000`00 0`||0p0000x 8`x 8 xx00000x xflxlf```bf8ll8ff|``xxff|lfx`0x0000xx0l88lx00xƌ2f>>00x |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0d00000000v8lx |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0d00000000v8:display a screen/"SS(S1)16/1&HFF9D,SS/7/>:/S:working screen/bSS(S1)4/qВ&HE0EA,SS/ڒ&HE0EB,SS1/&HE0EC,SS2/&HE0ED,SS3/&HE097/ by L. Todd Knudsen "./$( 4)="\\******** \\****** \\\\****** \\* " 5050 A$( 5)="\\********* \\******* \\******* \\*** " 5060 A$( 6)="\\*** \*** \\*** ***\*** \*** \\***** " 5070 A$( 7)="\\*** \\*** \\*** ***** \\*** \\***\*** " 5080 A$( 8)="\\*** \\*** \\*** *** \\*** \\*** \\*** " 5090 A$( 9)="\\*** \\*** \\*** * \\*** \\*** \\*** " 5100 A$( 10)="\\*** \\*** \\*** \\*** \\*** \\*** " 5110 A$( 11)="************************************************************** " 5120 A$( 12)="*************************************************************** " 5130 A$( 13)="\\*** \\*** \\*** \\*** \\*** \\*** " 5140 A$( 14)="\\***\\\\\*** \\*** \\*** \\*** \\*** " 5150 A$( 15)="\\***\\\\*** \\*** \\*** \\*** \\*** " 5160 A$( 16)="\\********* \\*** \\*** \\*** \\***" 5170 A$( 17)=" \******** \*** \*** \*** \***" 5180 A$( 18)=" " 5190 A$( 19)=" D I S K M A N A G E R S A P P R E N T I C E " 5200 A$( 20)=" " 5210 A$( 21)=" copyright 1989 " 5220 A$( 22)=" by L. Todd Knudsen " 5200 A$( 20)=" " 5210 A$( 21)=" copyright 1989 " 5220 A$( 22)=" *u&(&H192)&HC0&H9F00&1M"KEYZ":261&233:80:8:"Welcome to 'D M A' the Disk Manager's Apprentice version 1.0":23,1:"Copyright 1989 by L. Todd Knudsen":0,3:0,0::0,3&218:210:(&HC004)&HD7OS&HCCC8:OS&HCBEE'OS,&HF0:OS1,&HA5'#LC$""213'V:1:7000:6:256:(&HF0C0)255214'A$(18),B$(1,72):D1(&HE00):D2(&HE01):D1$(D1):D2$(D2):D1$(D1$,(D1$)1):D2$(D2$,(D2$)1):W255:DR1:(&HC142)48D(&HCEC9):D(&HCDED)((&HE289)68OS1:OS0(@ OS1&HC8A2,&HD8:&HC8A3,&HC1(u &HAE00,&H20::1,0:"DMA->";:0,0:PO$""PO$;( 236:C$"":PO$"":SW0:DN0:W0:QT(1,I$,(34)):(I$)45((I$)15QT0)212( QT2UO(1,(I$,QT1,2),"^")) I$"/"C$LC$:5,(&HFE03)1:C$:19)vL1(I$):T$(I$,L,1):(T$"^"(LQTQT0))(T$"^"LQTUO0)T$((T$)32))T$" "SW1)T$"/"T$".")SW1C$C$T$):LC$C$:W$(C$,1)):(C$,3)"DIR"35)(C$,3)"CAT"35*(C$,3)"REN"41*,(C$,4)"KILL"W5*E(C$,4)"COPY"W5*^(C$,4)"MOVE"W5*w(C$,4)"VIEW"W5*W546*C$"COLOR"43*C$"SAVE"231*C$"DRIVE"113*C$"FORMAT"175*C$"BAUD"223+ C$"EXIT"&H9F00+!W0C$""212+#"9+u#W4:DR0:AD0:DR((C$,4,(C$)3)):SDDR:DR0(1,C$,"0")0DRD1:SDDR+$DR0DRD255+%(1,C$,(34))0W$"D":46:+&(4,C$,"P")0DN2+'W$"D"118:+(122:,)(C$,4,1)"A"W7:W4,*46:,C+W6:(&HF0A2)77&HF0A2,67:&HFF9A,1::45,m,(&HF0A2)67&HF0A2,77:&HFF9A,0:,s-,.B$"":B0:48,/B1B2B2:"Press ENTER to activate process or BREAK to terminate.":44539:LB$B$:66:B$LB$:47:-0OS1UO1&HC8A2,&H87:&HC8A3,&H48-51NN0:(C$)W1212-]2(C$,1)"?"(C$,2)"?^"193:-3LW(C$):(C$,L,1)(34)NNNN1-4:NN4NN2212-5NN2(W$"K"W$"V")212-6NN4W$"R"212-7NN2C$C$(C$,(C$)(W1)).8P1(W,C$,(34)):P2(P11,C$,(34)):P3(P21,C$,(34)):P4(P31,C$,(34)):L1P2P11:L2P4P31:S1$(C$,P11,L1):S2$(C$,P31,L2):P1(1,S1$,"."):P2(1,S2$,"."):S1$""S1$"*.*".9S2$""S2$"*.*"/ :W$"R"((P4,C$,"<")0NN2)S2$S1$S2$"*.*"/-;W$"K"(1,S2$,"?")0""/LP1(1,S2$,"."):P10""0?F2$(S2$,P11):E2$(S2$,(S2$)P1):F(F2$):E(E2$):F8E3""0!@W$"D"NF0:122:6709ADRD1DRD1:1220BBNF00uCO03,0:"- NO DIRECTORY ENTRIES -":0,0:50DW$"K"W$"D"W$"V"AD1:1220EV1O:F$(B$(AD,V),8):E$(B$(AD,V),3):SF$"":SE$"":F1$(8(F1$),32)F$SF$F$1F(1,F1$,"?")010119GE1$(3(E1$),32)E$SE$E$1TH(1,E1$,"?")01041hIF1$"*"SF$F$1|JE1$"*"SE$E$1KSF$""SE$""941L(P4,C$,"<")0951MDF$F2$:DE$E2$:F2$"*"DF$SF$1NE2$"*"DE$SE$2pODF$DF$(8(DF$),32):DE$DE$(3(DE$),32):SF$SF$"."SE$":"D1$:DF$DF$"."DE$":"D2$:W$"R"DF$(DF$,(1,DF$,":"))D1$2P(&HFE02)02QW$"D"0,2:SF$;:0,0:842R""44539:I$2S932T(P4,C$,"D")0B0C$C$"R":B13$U(C$,W,1)"?"107:I$"N"95:I$"Q"VO:953VW$"K"W$"V"SF$DF$:0,2:SF$;:3,0:" CANNOT HAVE DUPED FILENAMES ON SOURCE DRIVE.":0,0:953WW$"K"W$"V"NO0142:R$"N"954XW$"C"2,0:"Copying ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$4qYW$"M"2,0:"Moving ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$:SF$4ZW$"R"2,0:"Renaming ";:0,2:SF$;:2,0:" to ";:0,2:DF$;:0,0::B1SF$DF$5[W$"K"2,0:"Killing ";:0,2:SF$;:0,0::B1SF$5\W$"V"18057]NFNF1:(P4,C$,"<")0955_^(P4,C$,"<")0SF$F$:SE$E$:775_:W$"V"NF0I$"N"3,0:"- FILE NOT FOUND -":0,0:100:1005`:NF"file(s) ";:W$"C""copied."5aW$"M""moved."6bW$"R""renamed.":DR16cW$"K""killed.":DR16%d6eSW0:QF$F1$(8(F1$),63):LL1(QF$):(QF$,LL,1)(F$,LL,1)(QF$,LL,1)"?"SW16f:SW0SF$F$6g7hSW0:QE$E1$(3(E1$),63):LL1(QE$):(QE$,LL,1)(E$,LL,1)(QE$,LL,1)"?"SW17i:SW0SE$E$7j7k:2,0:(C$,W1)" ";:0,2:SF$;:0,0:" Are you sure? [ (Y)es, (A)ll, (N)o, (Q)uit ]?";:B2I$(B$,1):B$(B$,(B$)1):1097l44539:I$:B1B$B$I$7mI$"Z"I$((I$)32)7n(1,"YANQ",I$)01088Ao0,(&HFE03):(79,32);:0,(&HFE03)1:I$"A"(C$,W,1)" "8Gp8oqW6:"SOURCE:";D1$:D1$""D1$"0"8r(D1$)0(D1$)D2558sD1(D1$):0,(&HFE03)1:0,3:"SOURCE:"(3(D1$),32)D1$;:0,0::"DESTIN:";D2$:D2$""D2$"1"9t(D2$)0(D2$)D2559uuD2(D2$):0,(&HFE03)1:0,3:"DESTIN:"(3(D2$),32)D2$;:0,0::&HE00,D1:&HE01,D2:9v&HAE00,&H39:139::4,0:#DN,"DIRECTORY OF DRIVE"DR:W4W$"D"(4,C$,"S")0152: w0,0:FR(DR):DN2111,254:DR:111,0:121::DR:9x4,0:1,(&HFE03)OS:"Free =";FR::DR1:?y:uzY3:C0:AD1LOO:DRD2:W$"R"DRD1:125:125:{139:4,0:#DN,," DIRECTORY OF DRIVE"DR:0,0:#DN,"":W4W$"C"(4,C$,"S")0152:|FR(DR);1}O0:X1172:DR,17,Y,A$(X),A$(X1):YY1::X118:Y1:130:X19129;J~Y33:130:X19129;cY65:130:X19129;|Y97:130:X19129;:133;O$(A$(X),Y,8)"."(A$(X),Y8,3):(O$,1)(255)X19:;(O$,1)(0);OO1:B$(AD,O)O$:<AD1AD0:NOO:OLO:DRSD:138<*O0137<`X1O:#DN,B$(AD,X)" ";:CC1:C5C0:#DN,""$:"Destination file: ";:5,0:DF$;:0,0:" exists--replace it?";>N44539:R$:R$"Z"R$((R$)32)>g(1,"YN",R$)0147>0,(&HFE03):(79,32);:0,(&HFE03)1>(B0B2)R$"Y"DF$:B$(1,X)CF$>?dV1:X172:B$(0,X)"":B$(1,X)""::X311:DR,17,X,T1$,T2$:T$T1$(T2$,127):B$(1,X)T$:N07:B$(0,V)(T$,N321,32):T1$(B$(0,V),1):T1$(255)156?wT1$(0)155?VV1:V68156?N,X?(C$,3)"CAT"(C$,1)"D"," ";?5,0:"- Sorting directory -":0,0::K1V1@ K1(K12):K10168@K2VK1:J1@$IJ@DK3IK1:(1,C$,"E")0164@A$(B$(0,I),9,3)(B$(0,I),8):B$(B$(0,K3),9,3)(B$(0,K3),8):A$B$166@(1,C$,"E")0165@B$(0,I)B$(0,K3)166AK4$B$(0,I):B$(0,I)B$(0,K3):B$(0,K3)K4$:IIK1:I1161AJJ1:JK2158A%160AJV1:SW0:X311:B$(1,X)""172AyN07:B$(0,V)""B$(0,V)(32,255):SW1A(B$(1,X),N321,32)B$(0,V):VV1:V68172A:SW1X11::AX311:B$(1,X)""174BT1$(B$(1,X),128):T2$(B$(1,X),127):DR,17,X,T1$,T2$:B'SW0:Bu&HF0B0,D:&HF0B1,0:"DRIVE:";DR$:DR$"all"DR$"ALL"&HF0B1,1:DR$"0"BDR(DR$):DR0DRD255Cx0,(&HFE03)1:0,3:"DRIVE:"(3(DR$),32)DR$;:0,0::&HF0B2,DR:900:5:DR(&HF0B2):3:179:"Formatting disk in drive:"DR:&HFFD8,0:DR:&HFFD9,0:(&HF0B1)1DR(&HF0B2)1:DR(&HF0B0)1DR$(DR):177C3C&HFFD9,0:3,0:"- FORMATING ERROR -":0,0:3C:"VIEWing file ";:5,0:SF$:0,0::B1187D6:"I",#1,SF$::S50:C1:(P4,C$,"P")0DN2:"Output to PRINTER."::DN0Dq"D",#1,SF$,1:L1(1)::AL1(L1S)S:L1SS1:A0D"D",#1,SF$,S:L(1):#1,SA$:L0186DRCL:#1,R:#DN,A$;:I$:I$""188D:DA0S1:CL1A1:A0:183EA$"":C0:5,0::"End of file":0,0:EK44539:I$:I$"p"I$"P"ND2:192EiI$"s"I$"S"ND1:191EoE:"O",#1,"%"(SF$,4)(R)".DMA":192::"D",#1,SF$,S:#1,SA$:ET&H6C1E0&H6CF002:#ND,((T));::F+206:DRD1:122:O03,0:"- NO DIRECTORY ENTRIES -":207FjI$,X,X,Y:YYY(O5)2:X12:YYY:OXX:OYY:N1:OPN:1,0FX12,Y:6,4:B$(0,N);:0,0:44539:I$:I$(13)208FąI$(8)XX15:NN1FŅI$(9)XX15:NN1FƅI$(10)YY1:NN5GDžI$(94)YY1:NN5G'ȅX12X72:NN5G<ɅX72X12:NN5GKʅYYYYYYG}OX12,OY:0,0:B$(0,OP);:NOXOX:YOY:NOPG̅N1XOX:YOY:NOPGOXX:OYY:OPN:195G0,23G0,0:1,54:5GЅ(C$,1)"^"C$(C$,(C$)2)"^?"HFPO$(C$,(C$)1)(34)B$(0,N)(34):5:0,YY(O5)2:0,0:1,54:HlDK(&HC004):DK&HD6DE0:DE1IOFDE&HED:FODE&HEE:&HD598OF,&H39:&HD545OF,&H0E:&HD546OF,&H02:&HD5A5OF,&H0E:&HD5A6OF,&H02:&HD4EAOFDE,&H26:&HD4EBOFDE,&H88:A03:&HD4F8FOA,&H12::I IfՀYY&HF0C0&HF0BF(LC$):YY,((LC$,YY&HF0BF,1))::YY,255:I{LC$"":YY&HF0C0Iׅ(YY)255217ILC$LC$((YY)):YYYY1:215IِIV(&HC004):(&HE289)68222JۅV&HD6A$"C0EED52AD6D1D6F1D727D75E"J&܅V&HD7A$"C101D617D7C4"J݀V1(A$)4:A("&H"(A$,V,4)):A,&HBD:A1,&HF0:A2,&H9D:A3,18::&HF09D,&H34:&HF09E,&H7F:&HF09F,&H35:&HF0A0,&HFF:&HF0A1,&H39:A$""JސKp߇" 1 - 9600":" 2 - 4800":" 3 - 2400":" 4 - 1200":" 5 - 600":" 6 - 300"::"BAUD rate:";B$:B(B$):B1B63,0:"- BAUD RATE ERROR -":0,0:232K}B1B7KB2B18KB3B40KB4B87KB5B180KB6B110K150,B:W5:L"Place disk with DMA.BIN in drive"D1"and press ENTER.";:I$:B$((150)):M$((&HF0A2)):"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:#1,1I$:I$B$:#1,6:I$M$:#1,7::W5LM.遦218:"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:R67:#1,1I$:#1,R:B$B$I$:::M$(B$,1):B$(B$,1):150,(B$):&HF0A2,(M$):M$"C":&HFF9A,1MFM$"M":&HFF9A,0MLMvPO$""NC(PO$):I$PO$:I$"":NC0MK$:CUR$,OA,OX,OY:OX,OYMCUR$,AA,XX,YY:XX,YYMK$:K$""239MA(K$):NC0252:KY$":":251:NC0237NA10A9A12238N2A21((I$),8);:236NTXX5YYOY5,OY:I$"":238NkXX5K$(8)238N~K$(13)251NNC60K$(8)238NK$;:K$(8)I$I$K$NI$""K$(8)I$(I$,(I$)1)OK$(8)NC1NCNC1:NCNC1OLXXX:LYYY:238OO@A47I$"/":K1:KY$":":254OeA1&HEB:257:K0A1&HEC:257OsK0I$;ONC(I$):OA1:A1&HED:3,0::257:I$:0,0:5PKY$"*":K(KY$):K,255:K2,A1:K3,&HF5:K(1,KY$,(0)(A)):K0259PXI$(KY$,K2,(K,KY$,(1))(K2)):(I$,1)":"I$(I$,(I$)1):KY$":":260PcKY$""PiPt1:2NC(I$):OA1:A1&HED:3,0::257:I$:0,0:5PKY$"*":K(KY$):K,255:K2,A1:K3,&HF5:K(1,KY$,(0)(A)):K025I1161AJJ1:JK2158A%160AJV1:SW0:X311:B$(1,X)""172AyN07:B$(0,V)""B$(0,V)(32,255):SW1A(B$(1,X),N321,32)B$(0,V):VV1:V68172A:SW1X11::AX311:B$(1,X)""174BT1$(B$(1,X),128):T2$(B$(1,X),127):DR,17,X,T1$,T2$:B'SW0:Bu&HF0B0,D:&HF0B1,0:"DRIVE:";DR$:DR$"all"DR$"ALL"&HF0B1,1:DR$"0"BDR(DR$):DR0DRD255Cx0,(&HFE03)1:0,3:"DRIVE:"(3(DR$),32)DR$;:0,0::&HF0B2,DR:900:5:DR(&HF0B2):3:179:"Formatting disk in drive:"DR:&HFFD8,0:DR:&HFFD9,0:(&HF0B1)1DR(&HF0B2)1:DR(&HF0B0)1DR$(DR):177C3C&HFFD9,0:3,0:"- FORMATING ERROR -":0,0:3C:"VIEWing file ";:5,0:SF$:0,0::B1187D6:"I",#1,SF$::S50:C1:(P4,C$,"P")0DN2:"Output to PRINTER."::DN0Dq"D",#1,SF$,1:L1(1)::AL1(L1S)S:L1SS1:A0D"D",#1,SF$,S:L(1):#1,SA$:L0186DRCL:#1,R:#DN,A$;:I$:I$""188D:DA0S1:CL1A1:A0:183EA$"":C0:5,0::"End of file":0,0:EK44539:I$:I$"p"I$"P"ND2:192EiI$"s"I$"S"ND1:191EoE:"O",#1,"%"(SF$,4)(R)".DMA":192::"D",#1,SF$,S:#1,SA$:ET&H6C1E0&H6CF002:#ND,((T));::F+206:DRD1:122:O03,0:"- NO DIRECTORY ENTRIES -":207FjI$,X,X,Y:YYY(O5)2:X12:YYY:OXX:OYY:N1:OPN:1,0FX12,Y:6,4:B$(0,N);:0,0:44539:I$:I$(13)208FąI$(8)XX15:NN1FŅI$(9)XX15:NN1FƅI$(10)YY1:NN5GDžI$(94)YY1:NN5G'ȅX12X72:NN5G<ɅX72X12:NN5GKʅYYYYYYG}OX12,OY:0,0:B$(0,OP);:NOXOX:YOY:NOPG̅N1XOX:YOY:NOPGOXX:OYY:OPN:195G0,23G0,0:1,54:5GЅ(C$,1)"^"C$(C$,(C$)2)"^?"HFPO$(C$,(C$)1)(34)B$(0,N)(34):5:0,YY(O5)2:0,0:1,54:HlDK(&HC004):DK&HD6DE0:DE1IOFDE&HED:FODE&HEE:&HD598OF,&H39:&HD545OF,&H0E:&HD546OF,&H02:&HD5A5OF,&H0E:&HD5A6OF,&H02:&HD4EAOFDE,&H26:&HD4EBOFDE,&H88:A03:&HD4F8FOA,&H12::I IfՀYY&HF0C0&HF0BF(LC$):YY,((LC$,YY&HF0BF,1))::YY,255:I{LC$"":YY&HF0C0Iׅ(YY)255217ILC$LC$((YY)):YYYY1:215IِIV(&HC004):(&HE289)68222JۅV&HD6A$"C0EED52AD6D1D6F1D727D75E"J&܅V&HD7A$"C101D617D7C4"J݀V1(A$)4:A("&H"(A$,V,4)):A,&HBD:A1,&HF0:A2,&H9D:A3,18::&HF09D,&H34:&HF09E,&H7F:&HF09F,&H35:&HF0A0,&HFF:&HF0A1,&H39:A$""JސKp߇" 1 - 9600":" 2 - 4800":" 3 - 2400":" 4 - 1200":" 5 - 600":" 6 - 300"::"BAUD rate:";B$:B(B$):B1B63,0:"- BAUD RATE ERROR -":0,0:232K}B1B7KB2B18KB3B40KB4B87KB5B180KB6B110K150,B:W5:L"Place disk with DMA.BIN in drive"D1"and press ENTER.";:I$:B$((150)):M$((&HF0A2)):"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:#1,1I$:I$B$:#1,6:I$M$:#1,7::W5LM.遦218:"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:R67:#1,1I$:#1,R:B$B$I$:::M$(B$,1):B$(B$,1):150,(B$):&HF0A2,(M$):M$"C":&HFF9A,1MFM$"M":&HFF9A,0MLMvPO$""NC(PO$):I$PO$:I$"":NC0MK$:CUR$,OA,OX,OY:OX,OYMCUR$,AA,XX,YY:XX,YYMK$:K$""239MK$":"257:239NA(K$):NC0253:KY$":":252:NC0237N+A10A9A12238NJA21((I$),8);:236NlXX5YYOY5,OY:I$"":238NXX5K$(8)238NK$(13)252NNC60K$(8)238NK$;:K$(8)I$I$K$NI$""K$(8)I$(I$,(I$)1)OK$(8)NC1NCNC1:NCNC1O/LXXX:LYYY:238O5OXA47I$"/":K1:KY$":":255O}A1&HEB:260:K0A1&HEC:260OK0I$;ONC(I$):O4OK$:K$":"258:0:OA1:A1&HED:3,0::260:I$:0,0:5P<KY$"*":K(KY$):K,255:K2,A1:K3,&HF5:K(1,KY$,(0)(A)):K0262PI$(KY$,K2,(K,KY$,(1))(K2)):(I$,1)":"I$(I$,(I$)1):KY$":":263PKY$""PP1:2:"258:0:OA1:A1&HED:3,0::260:I$:0,0:5P<KY$"*":K(K16cW$"K""killed.":DR16%d6eSW0:QF$F1$(8(F1$),63):LL1(QF$):(QF$,LL,1)(F$,LL,1)(QF$,LL,1)"?"SW16f:SW0SF$F$6g7hSW0:QE$E1$(3(E1$),63):LL1(QE$):(QE$,LL,1)(E$,LL,1)(QE$,LL,1)"?"SW17i:SW0SE$E$7j7k:2,0:(C$,W1)" ";:0,2:SF$;:0,0:" Are you sure? [ (Y)es, (A)ll, (N)o, (Q)uit ]?";:B2I$(B$,1):B$(B$,(B$)1):1097l44539:I$:B1B$B$I$7mI$"Z"I$((I$)32)7n(1,"YANQ",I$)01088A !''7 !''7(e9&(聞&Ze(%e9&~%a<6???????6!$?+%7?OTet&Oٗqƌtu9  O!WX̽&O9fxge&~gt- SYNTAX ERROR -- BAD DRIVE NUMBER -- INPUT / OUTPUT ERROR - - INPUT PAST END OF FILE -- FILE NOT FOUND -- DISK FULL -"- FILE ALREADY EXISTS -- DISK WRITE PROTECTED - - BAD FILE NAME -!- BAD FILE STRUCTURE -O$p&~gfgs&~eeVE NUMBER -- INPUT / OUTPUT ERROR - - INPUT PAST END OF FILE -- FILE NOT FOUND -- DISK FU 1200":" 5 - 600":" 6 - 300"::"BAUD rate:";B$:B(B$):B1B63,0:"- BAUD RATE ERROR -":0,0:232K}B1B7KB2B18KB3B40KB4B87KB5B180KB6B110K150,B:W5:L"Place disk with DMA.BIN in drive"D1"and press ENTER.";:I$:B$((150)):M$((&HF0A2)):"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:#1,1I$:I$B$:#1,6:I$M$:#1,7::W5LM.遦218:"I",#1,"DMA.BIN"::"D",#1,"DMA.BIN",1:R67:#1,1I$:#1,R:B$B$I$:::M$(B$,1):B$(B$,1):150,(B$):&HF0A2,(M$):M$"C":&HFF9A,1MFM$"M":&HFF9A,0MLMvPO$""NC(PO$):I$PO$:I$"":NC0MK$:CUR$,OA,OX,OY:OX,OYMCUR$,AA,XX,YY:XX,YYMK$:K$""239MK$":"257:239NA(K$):NC0253:KY$":":252:NC0237N+A10A9A12238NJA21((I$),8);:236NlXX5YYOY5,OY:I$"":238NXX5K$(8)238NK$(13)252NNC60K$(8)238NK$;:K$(8)I$I$K$NI$""K$(8)I$(I$,(I$)1)OK$(8)NC1NCNC1:NCNC1O/LXXX:LYYY:238O5OXA47I$"/":K1:KY$":":255O}A1&HEB:260:K0A1&HEC:260OK0I$;ONC(I$):O4OK$:K$":"258:0:OA1:A1&HED:3,0::260:I$:0,0:5P<KY$"*":K(KY$):K,255:K2,A1:K3,&HF5:K(1,KY$,(0)(A)):K0262PI$(KY$,K2,(K,KY$,(1))(K2)):(I$,1)":"I$(I$,(I$)1):KY$":":263PKY$""PP1:2:"258:0:OA1:A1&HED:3,0::260:I$:0,0:5P<KY$"*":K(K 5010 A$( 1)="Welcome to... " 5020 A$( 2)=" " 5030 A$( 3)=" \\\\\\\\ \\\\\\\ \\\\\\\\ \ " 5040 A$( 4)="\\******** \\****** \\\\****** \\* " 5050 A$( 5)="\\********* \\******* \\******* \\*** " 5060 A$( 6)="\\*** \*** \\*** ***\*** \*** \\***** " 5070 A$( 7)="\\*** \\*** \\*** ***** \\*** \\***\*** " 5080 A$( 8)="\\*** \\*** \\*** *** \\*** \\*** \\*** " 5090 A$( 9)="\\*** \\*** \\*** * \\*** \\*** \\*** " 5100 A$( 10)="\\*** \\*** \\*** \\*** \\*** \\*** " 5110 A$( 11)="************************************************************** " 5120 A$( 12)="*************************************************************** " 5130 A$( 13)="\\*** \\*** \\*** \\*** \\*** \\*** " 5140 A$( 14)="\\***\\\\\*** \\*** \\*** \\*** \\*** " 5150 A$( 15)="\\***\\\\*** \\*** \\*** \\*** \\*** " 5160 A$( 16)="\\********* \\*** \\*** \\*** \\***" 5170 A$( 17)=" \******** \*** \*** \*** \***" 5180 A$( 18)=" " 5190 A$( 19)=" D I S K M A N A G E R S A P P R E N T I C E " 5200 A$( 20)=" " 5210 A$( 21)=" copyright 1989 " 5220 A$( 22)=" by L. Todd Knudsen " 5200 A$( 20)=" " 5210 A$( 21)=" copyright 1989 " 5220 A$( 22)=" OSj7&<&=&k܊&~|p&?&?M&&<&=jk 5'RUN"BOOT"