8L2C)pJJJJ IH(ȱH: =IH[H`@HcH $ +
I /H`JLNGȄBȄFaK haaFF
mJm#
KKJ
UJ )J ۈ) ;J3ȱJFȱJG JKaȄM aaNNJFLGJL Lx PF$"/RAM/PROGRAMS/" 0 P1$"STARTUP.RAM" ; RB118 E MP50 R PN$(MP) k :D$(4):D$;"PR#3" t 330 } 400 650 860 12:1:"Running the EXEC copy program..." I11000: D$;"EXEC";FL$ " / )CATSORTER X MOVER01 '
%MOVER ! PROGRAMS
DATA TEMP.EXEC z 'MLXPROG *DISK.DUPER >dLԡm#i 㰼m#i ЕOLԡȱfg hi
!dLԡ 憦
Ljmkm l y`2 Lԡ8(Je稽)ʈ@L LnSOS BOOT 1.1
SOS.KERNEL SOS KRNLI/O ERROR FILE 'SOS.KERNEL' NOT FOUND% INVALID KERNEL FILE: xةw,@ ȱlmi8# )! )? &PRODOS `DaElH $?EGvѶK+`L HH Ly XP LM ŠϠĠӠS)*+,+`F))
(*=GJFjJJA
QE'+ '== `@
S TSP8QSS8 m P o R(8R ,12:1:"Programs are being copied to:";PF$ ? 6I11000: E @ K J l 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
DATA uHUSTON! '
'DFILETST G PROGRAMS uHUSTON! '
'TEST B
'CATSORT X
D$;"CLOSE" ( ' d am..." 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)" "1100 CB WLPN$(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
pBC0 2
zD$;"READ ";DR$ ;
L1$ D
L2$ M
L3$ V
L4$ f
L4$""970 p
1000 y
930
D$;"CLOSE "
1160
(L4$,18,3)"BAS"1150
NPNP1
NPMP1150
BCBC((L4$,23,6)) BCRB1150PF$;",TDIR" !D$;"READ ";PF$ *L1$ 3L2$ <L3$ QL4$:L4$""770 dT$(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." 8C$:C$" "C$(13)530 FI6122 \&I:1:79);(13) b0 r: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$ *
480 E
D$;"OPEN";DR$;",TDIR" P
216,0 Y
200 d
216,0 o
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" x 2:"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,P1d X768785:Y:X,Y: Qn 32,0,191,129,9,3,176,249,96,3,96,0,32,0,0,0,0,0, Yx : x 12: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:FF1 8
: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:: d K13Ė7:A$;" ";: FK32K47K58K64K71A$L$(K)R$:PP1 XK4A$L$R$ zK9A$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)::::150 MJ(A$)33A$O$:PO:(7); yTL(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)Ă:160 F 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$;": ";:&d N9:::"APPLE MLX":34,2:610 Xn 1:20:"START ADDRESS";:530:A0ĺ(7):110 `x SA 2:20:"END ADDRESS ";:530:SAA0ĺ(7):130 EA :"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:D"(L)OAD FILE (S)AVE FILE (Q)UIT": ' &
THIS IS A DATA FILE TEST E "THIS IS STORED IN /DATA" d
768:780,(780)2:I V
"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 ; I1170 E JJ1 S 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 '86 K PAGE 97 jd SK$(100),DA$(100),SD$(10) sn 260 {x SE S(S2):". "; S0720 KES:J1 IJ LIS SK$(I)SK$(L)230 T$SK$(I):SK$(I)SK$(L):SK$(L)T$ # Y EMPTY)" :A$"P"ĺS$ # V28:4:"DATE: "M"/"D"/"Y" TIME: "H":"MI$: d :L3$
L4$
L4$""710 H
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$ NA$"N"A$"n"560 W&330 s0P1ĺ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$ GA$"P"A$"p"ė:450 VA$"P":P$ uP0ĺ(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
|:" printer?";A$ GA$"P"A$"p"ė:450 VA$"P":P$ uP0ĺ(29):ES$;(56):P1 ~780 :L1$: L2$:L3$:730 C0510 ID1C 600:L1$L1$SD$(ID):620 :580:L1$:730: 580:(L5$,64);" to sort or to sort or screen or