8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LxPF$"/RAM/PROGRAMS/"0P1$"STARTUP.RAM";RB118EMP50RPN$(MP)k:D$(4):D$;"PR#3"t330}40065086012:1:"Running the EXEC copy program..."I11000:D$;"EXEC";FL$"/ )CATSORTERXMOVER01' %MOVER!PROGRAMS DATATEMP.EXECz'MLXPROG*DISK.DUPER >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R,12:1:"Programs are being copied to:";PF$? 6I11000:E @K Jl TUL$"":I180:UL$UL$"_": ^TL$"DISK TO /RAM PROGRAM MOVER" h:1:1:UL$ r3:(80(TL$))2:TL$ |4:1:UL$   590 DR$VL$"PROGRAMS/" 6: LOAD /MOVER01/PROGRAMS/TEST SAVE /RAM/PROGRAMS/TEST LOAD /MOVER01/PROGRAMS/CATSORT SAVE /RAM/PROGRAMS/CATSORT PRINT:PRINT DATAuHUSTON!' 'DFILETSTGPROGRAMSuHUSTON!' 'TESTB 'CATSORTX D$;"CLOSE"('dam..."FL$"TEMP.EXEC"0D$;"OPEN ";FL$ED$;"CLOSE ";FL$[D$;"DELETE ";FL$oD$;"OPEN ";FL$D$;"WRITE ";FL$I1NP"LOAD ";VL$;"PROGRAMS/";PN$(I)"SAVE ";PF$;PN$(I) SU1ĺ"-";PF$;P1$"PRINT:PRINT" $T$(L4$,2,15)$.K1511=8(T$,K,1)" "1100CBWLPN$(NP)(T$,K)mVPN$(NP)P1$SU1`10:1:79);(13)j10:1:"Copying ";PN$(NP);" ..."tK1500:~10:1:79);(13)10:1:"Building EXEC copy progr210 \ fNP0 pBC02 zD$;"READ ";DR$; L1$D L2$M L3$V L4$f L4$""970p 1000y 930 D$;"CLOSE " 1160   (L4$,18,3)"BAS"1150 NPNP1 NPMP1150 BCBC((L4$,23,6))BCRB1150PF$;",TDIR"! D$;"READ ";PF$* L1$3 L2$< L3$Q L4$:L4$""770d T$(L4$,2,15){ NPNP1:PN$(NP)T$ 730 D$;"CLOSE ";PF$ I1NP D$;"DELETE ";PF$;PN$(I)  *210 4216,0 >3288 HD$;"CREATE ";PF$ R Press RETURN to stop."8 C$:C$" "C$(13)530F I6122\ &I:1:79);(13)b 0r :C$(13)ij{ D400 N XD$;"PREFIX /" bD$;"PREFIX" lVL$ vD$   8:1:"Moving programs to ";PF$ 820 D$;"OPEN ";1:"Moving programs from ";DR$* 480E D$;"OPEN";DR$;",TDIR"P 216,0Y 200d 216,0o 3288 8:1:"The directory '/PROGRAMS/' is not on the diskette ";VL$ 10:1:"Insert the proper diskette" 12:1:"Press SPACE to continue. @"THIS IS A TEST PROGRAM STORED ON THE MOVER01 DISK"x2:"PUT SOURCE DISK IN DRIVE 1"R ND2Ģ17:"PUT DESTINATION DISK IN DRIVE 2" 20:16368,0:"PRESS ANY KEY TO MAKE COPY":AK$ FB0:MX3 N1MX 771,128 780,32:778,96 IFBFB55 P2(I256):P1I256P2 782,P2:781,P1dX768785:Y:X,Y:Qn 32,0,191,129,9,3,176,249,96,3,96,0,32,0,0,0,0,0,Yx:x12:12:"DISK DUPLICATOR"20:9:"(HIT ANY KEY TO BEGIN)";:16368,0:ST$12:"ENTER NUMBER OF DRIVES:";ND$:ND(ND$)ND1ND2390! :1):DD1' D0C$" "D2D0:FF18 :D0FF1> \ J(C$):JJ487(J64):~ A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::dK13Ė7:A$;" ";:F K32K47K58K64K71A$L$(K)R$:PP1X K4A$L$R$z K9A$L$" "(A$,P1,1)R$ K8PP(0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V(F(7);:290. @F18:BF1,V(F)::::150M J(A$)33A$O$:PO:(7);y TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 L2, F07:V(F1)(BF)::560:V(9)C` F1N:AV(F):580:A$" ";:::(49152)128Ăr 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160F I270,220,180,200:34,0:{ "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";:&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:D"(L)OAD FILE (S)AVE FILE (Q)UIT":' & THIS IS A DATA FILE TESTE"THIS IS STORED IN /DATA"d 768:780,(780)2:IV "NMXĺ(4)"BSAVE/RAM/COPY"N",A$2000,L$6FFF":FBFB56] ,N 6ND1Ģ12:"PUT DESTINATION DISK IN DRIVE 1":AK$ @NMX11 J771,129:780,142 TND2Ĺ778,224 ^NMXĺ(4)"BLOAD/RAM/COPY";N hIFB55FB1:P !"U$DA$(I):DA$(I)DA$(L):DA$(L)U$- IIS; I1170E JJ1S JK160\ 130 D$(4):ES$(27):P$D$"PR#1":S$D$"PR#3" P0 D(49040)((49040)32)32 "Y((49041)2) ,M((49041)Y2)8((49040)32) 6MI(49042):H PRODOS CATALOG SORTER= COMPUTE MAGAZINE JULY '86K PAGE 97jdSK$(100),DA$(100),SD$(10)sn260{xSES(S2):". ";S0720KES:J1IJLISSK$(I)SK$(L)230T$SK$(I):SK$(I)SK$(L):SK$(L)T$# Y EMPTY)":A$"P"ĺS$#V 28:4:"DATE: "M"/"D"/"Y" TIME: "H":"MI$:d:L3$ L4$ L4$""710H EE1:SK$(E)(L4$,2,15):DA$(E)L4$x (L4$,18,3)"DIR"CC1:SD$(C)(L4$,2,15) 660 B$"S"ĺ"Now sorting "L1$".";:120 L5$::D$"CLOSE ": 580:FFE E0āI1E:DA$(I): E0ĺ" (DIRECTOR FILES: "F A$"P"ĺS$7 :"MORE (Y/N)? ";A$N A$"N"A$"n"560W &330s 0P1ĺP$:ES$;(99):S$ :"Bye!": DA$"P"ĺP$ N XD$"PREFIX,D"N bD$"PREFIX":L1$: lD$"OPEN "L1$",TDIR" vD$"READ "L1$ L1$:E0 L2$20+ :" screen or

printer?";A$G A$"P"A$"p"ė:450V A$"P":P$u P0ĺ(29):ES$;(56):P1~ 780 :L1$: L2$:L3$:730 C0510 ID1C 600:L1$L1$SD$(ID):620 :580:L1$:730: 580:(L5$,64);"(49043)+ @MI$(MI):MI10MI$"0"MI$A JE0:C0:F0:S$:d T:32:"ProDOS CATALOG SORTER" ^8:"Drive <1> or <2>, or <0> will end?";N hN0ī560 rN1N2340 |:" to sort or no sort?";B$ B$"N"B$"n"B$"S" 600:6U$DA$(I):DA$(I)DA$(L):DA$(L)U$- IIS; I1170E JJ1S JK160\ 130 D$(4):ES$(27):P$D$"PR#1":S$D$"PR#3" P0 D(49040)((49040)32)32 "Y((49041)2) ,M((49041)Y2)8((49040)32) 6MI(49042):H PRODOS CATALOG SORTER= COMPUTE MAGAZINE JULY '86K PAGE 97jdSK$(100),DA$(100),SD$(10)sn260{xSES(S2):". ";S0720KES:J1IJLISSK$(I)SK$(L)230T$SK$(I):SK$(I)SK$(L):SK$(L)T$# 2(I256):P1I256P2, r782,P2:781,P1F |768:780,(780)2:IS FBFB56Z Nh MX2440 MX2:FB168:ND1Ģ12:"PUT SOURCE DISK IN DRIVE 1":AK$ 220 :12:15::"COPY COMPLETE"::d(49043)+ @MI$(MI):MI10MI$"0"MI$A JE0:C0:F0:S$:d T:32:"ProDOS CATALOG SORTER" ^8:"Drive <1> or <2>, or <0> will end?";N hN0ī560 rN1N2340 |:" to sort or no sort?";B$ B$"N"B$"n"B$"S" 600:6Y EMPTY)":A$"P"ĺS$#V 28:4:"DATE: "M"/"D"/"Y" TIME: "H":"MI$:d:L3$ L4$ L4$""710H EE1:SK$(E)(L4$,2,15):DA$(E)L4$x (L4$,18,3)"DIR"CC1:SD$(C)(L4$,2,15) 660 B$"S"ĺ"Now sorting "L1$".";:120 L5$::D$"CLOSE ": 580:FFE E0āI1E:DA$(I): E0ĺ" (DIRECTOR FILES: "F A$"P"ĺS$7 :"MORE (Y/N)? ";A$N A$"N"A$"n"560W &330s 0P1ĺP$:ES$;(99):S$ :"Bye!": DA$"P"ĺP$ N XD$"PREFIX,D"N bD$"PREFIX":L1$: lD$"OPEN "L1$",TDIR" vD$"READ "L1$ L1$:E0 L2$20+ :" screen or

printer?";A$G A$"P"A$"p"ė:450V A$"P":P$u P0ĺ(29):ES$;(56):P1~ 780 :L1$: L2$:L3$:730 C0510 ID1C 600:L1$L1$SD$(ID):620 :580:L1$:730: 580:(L5$,64);"