' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`1LLLLLNN O*PjGAPRAPwPlP[Q"TOCCURRENCES: USE "<", ">", AND UP & DOWN ARROWS ACTIVATE TRACE FIRST NO ERRORSJ L` M; M $M` KM M` L` _OLM _O ML9L KM M M N M` LDJ LDJ M KM M KM MLJ M"Y"G2$"y"245*G2$"N"G2$"n"9999523:1?2190N':D$"BYE":X$(" 00",5(X$))X$:(X$,(X$)2)"."(X$,2);H\RC2C2262VoIIR:JJSp(" "((B(0).500001)),9);zRSPT$"YES"ıPT3:700:23:79)"":231:"Do you want to continue (Y or N)? ";:G2$G2$5);:((AA(5)))4ĺ" ";,LP662N9((AA(5)LP)));AA(5)LP;VLP\n "Crop price"}*" ($/bu.)4D2AA(4).49:C2AA(5)65D20D2D2.07:21016C20C2C22:2102>SD2D2.0714.0001.075RX$((S100.5))X$:(X$,(X$)2)"."(X$,2);2vRC1C1262b(" "((A(RS).500001)),9);iRovSPT$"YES"ıPT2:70016)"Pik-N-Roll Net Profit Over Forfeiture Matrix 2" 24)"Cost of Certificate (%)"4ĺ" ";5LP6628:9((AA(5)LP)));AA(5)LP;@?LPF@XD"ASCS price"hN" ($/bu.)"XD1AA(3).42:C1AA(5)6YD10D1D1.06:1881ZC10C1C12:1882bSD1D1.0614.0001.06qX$((S100.5)):X$(" 00",5(X$)) ";25);:XP5:100:X$`r"Net profit over forfeit ($) ";25);:XP5(AA(1)AA(2)):100:X$qPT$"YES"ıPT1:70016)"Pik-N-Roll Net Profit Over Forfeiture Matrix 1"&024)"Cost of Certificate (%)"45);:((AA(5)))$) ";25);:XP2:100:X$`J"Profit from crop sale ($) ";25);:XAA(1)AA(4):100:X$T"Flat storage savings ($) ";25);:XP3:100:X$^"Add. storage savings/refund ($)";25);:XP4AA(1):100:X$h"Profit from Pik-N-Roll ($) LL ANALYSIS":3P1(AA(3)AA(5))AA(1)100KP2(AA(2)AA(1))P1dP3(AA(9)100)AA(1)P4(AA(6)AA(8))AA(10)100"P5P2P3P4AA(1)AA(1)AA(4)6"Cost of redemption ($) ";25);:XP1:100:X$@"Profit from redemption (6:79)" "I6460,15:79)" "715:1k"Do you want to save this (Y or N)? ";:O$:O$O$"Y"O$"y"O$"N"O$"n"1500O$"Y"O$"y"ĺD$"OPENPIKDATA":D$"WRITEPIKDATA":I110:AA(I)::D$"CLOSE" 23)"PIK-N-RO108XAA(I):20/=A$(I);45(A$(I)));X$6>I??347VxAA(6)AA(7)1500g}15:79)" "r15:1"The months to forfeiture must be greater than the paid storage months":"Type any key to continue";X$:X$15:79)" " 15AA(5)0.00AA(5)999.991070M AA(I)0.00AA(I)99.99J5J11070X17:1fI1ĺB$;tI5ĺC$;I1I5ĺT$;X$:X$17:79)" "&I3:79)" ")1014.I1215)"Pik-N-Roll Input Data"3:6I1PT$"NO"::3%F15)"Pik-N-Roll Input Data"N:ZI110fI3:1A$(I);45(A$(I)));:"";AA$:(AA$)0(AA$"0"AA$"0.0"AA$"0.00")1014AA(I)(AA$)I1AA(1)0.00AA(1)99999991070 Iа20&A$(I);45(A$(I)));X$(0400_ PRINTER ROUTINE:"Do you want a printout of this? (Y or N)?";AN$:AN$AN$"N"AN$"n"ıAN$"Y"AN$"y"706PT$"YES":1PT1515,1820,2040I1AA(1)0.00AA(1)9999999520MI5AA(5)0.00AA(5)999.99520yAA(I)0.00AA(I)99.99I5I152017:1I1ĺB$;I5ĺC$;I1I5ĺT$;X$:X$17:79)" "460I3:79)"":I3:1XAA(I):79)"":15:1:"Enter line number (type 0 to stop): ";X$:((X$)0X$"0")((X$))(X$)400zI(X$):I0I10400I0140015:79)" "I3:40:34);:40"";AA$:(AA$)0(AA$"0"AA$"0.0"AA$"0.00")460AA(I)(AA$)&45(A$(I)));X$:q "15:79)"":15:1:"Change EVERYONE of the above (Y or N)? ";:X$:X$:X$"Y"X$"y"1000 @X$"N"X$"n"290 [15:79)"":15:1:"Any other changes (Y or N)? ";:X$:X$:X$"N"X$"n"1400 rX$"Y"X$"y"347`15:8. Flat fee storage months", "9. Flat fee storage chg. (cents/bu.)", "10. Added storage (cents/bu./mo.)" X110:A$(X)::D$"OPENPIKDATA":D$"READPIKDATA":X110:AA(X)::D$"CLOSE" :15)"Pik-N-Roll Input Data":::I110:XAA(I):20:A$(I);continue" AA(10),A$(10) "1. Number of bushels under loan", "2. County loan rate ($/bu.)", "3. ASCS day price ($/bu.)","4. Crop sell price ($/bu.)", "5. Cost of certificates (%)"j "6. Months to forfeiture", "7. Paid storage months", "0IIAA(3)AA(9)(AA(6)AA(8))AA(10))q T$"The rate must be between 0.00 and 99.99, type any key to continue" B$"The rate must be between 0 and 9,999,999, type any key to continue" C$"The rate must be between 0.00 and 999.99, type any key to "((X.5)),9):X999999X$(X$,3)","(X$,4,3)","(X$,3):115l nX999X$(X$,6)","(X$,3):115z pX$" "X$ sX$(" "X$,11): D$(4):D$"PR#3" A(X)AA(1)100(AA(4)100XAA(9)(AA(6)AA(8))AA(10))& B(X)AA(1)100(JJ10PPIK-N-ROLLDProDOS version 3.2 for the Apple IIc,IIe,IIgsCopyright (C) Wisconsin Microware, Inc 1988. All rights reserved  160X$((X100.5)):X$(" 00",8(X$))X$:X$(X$,(X$)2)"."(X$,2):E dX$("               15054C255(C127):CC255(C255)V:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAAOB0:XBS8((AS)8):b"DISK ERROR":"İ520:V(F)J16(D1)V(F):DD1? D0C$" "D2D0:FF1P :D0FF1V t 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:: 0C(B256):CB2128 K13Ė7:A$;" ";:S K32K47K58K64K71A$L$(K)R$:PP1:330l I(0):K4A$L$R$ K9THANA$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı! C$" :CV(9)ĺ(7);:2907 @F18:BF1,V(F)::::150V J(A$)33A$O$:P0:(7); 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:KK0:A$;": ";:L26 F07:V(F1)(BF)::560:V(9)Ci F1N:AV(F):580:A$" ";:::(49152)128Ă{ 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560UIT":0 A$:I15:A$("EDLSQ",I,1)Ă:160O 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:581dN9:::(17);"APPLE MLX V1.1":34,2:610cn1:20:"START ADDRESS";:530:A0ĺ(7):130kxSA2:20:"END ADDRESS";:530:SAA0ĺ(7):130EA :"CHOOSE: (E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)   15054C255(C127):CC255(C255)V:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAAOB0:XBS8((AS)8):b"DISK ERROR":"İ520:V(F)J16(D1)V(F):DD1? D0C$" "D2D0:FF1P :D0FF1V t 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:: 0C(B256):CB2128 K13Ė7:A$;" ";:S K32K47K58K64K71A$L$(K)R$:PP1:330l I(0):K4A$L$R$ K9THANA$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı! C$" :CV(9)ĺ(7);:2907 @F18:BF1,V(F)::::150V J(A$)33A$O$:P0:(7); 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:KK0:A$;": ";:L26 F07:V(F1)(BF)::560:V(9)Ci F1N:AV(F):580:A$" ";:::(49152)128Ă{ 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560UIT":0 A$:I15:A$("EDLSQ",I,1)Ă:160O 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:581dN9:::(17);"APPLE MLX V1.1":34,2:610cn1:20:"START ADDRESS";:530:A0ĺ(7):130kxSA2:20:"END ADDRESS";:530:SAA0ĺ(7):130EA :"CHOOSE: (E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)   0C255(C127):CC255(C255)T:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAAOB0:XBS8((AS)8):b"DISK ERROR":15520:V(F)J16(D1)V(F):DD1= D0C$" "D2D0:FF1N :D0FF1T r 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::0C(B256):CB254K128 K13Ė7:A$;" ";:T K32K47K58K64K71A$L$(K)R$:PP1:300m I(0):K4A$L$R$ K9A$L$" "(A$,PA,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" ":CV(9)ĺ(7);:2907 @F18:BF1,V(F)::::150V J(A$)33A$O$:P0:(7); TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,PA,1);::R$; r" ";: |K(49152):K128380 49168,0:K0:A$;": ";:L26 F07:V(F1)(BF)::560:V(9)Ci F1N:AV(F):580:A$" ";:::(49152)128Ă{ 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560UIT":0 A$:I15:A$("EDLSQ",I,1)Ă:160O 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:581dN9:::(17);"APPLE MLX V1.1":34,2:610cn1:20:"START ADDRESS";:530:A0ĺ(7):130kxSA2:20:"END ADDRESS";:530:SAA0ĺ(7):130EA :"CHOOSE: (E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)   255(C127)V(F):CC255(C255)::uDI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAAOB0:XBS8((AS)8):b"DISK ERROR":150D2D0:FF1 :D0FF1$ B J(C$):JJ487(J64):d A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J:: 0C(B256):CB254C255(C127):CC255(C255)$:F18:CC28K64K71A$L$(K)R$:PP1:300= I(0):K4A$L$R$_ K9A$L$" "(A$,PA,1)R$r K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V(F):DD1 D0C$" "::150& J(A$)33A$O$:P0:(7);R TL(A$):O$A$:OP:L$"":P0L$(A$,P)r ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,PA,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 K13Ė7:A$;" ";:$ K32K47K5V(9)C9 F1N:AV(F):580:A$" ";:::(49152)128ĂK 49168,0:150] 590:B0150j BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺ(7);:290 @F18:BF1,V(F):: I270,220,180,200:34,0:U "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$;": ";:L2 F07:V(F1)(BF)::560:3n1:20:"START ADDRESS";:530:A0ĺ(7):130;xSAp2:20:"END ADDRESS";:530:SAA0ĺ(7):130xEA:"CHOOSE: (E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT": A$:I15:A$("EDLSQ",I,1)Ă:160  DRESS ";:530:SAEAAOB0:7XBS8((AS)8):Nb"DISK ERROR":150 11::I1(33):" ";::I1322:" ";:36,(33)1:" ";::I1(33):" ";:::A49200:I15:J120:B(A)::J115:::36,9:TĹ36,T$"0"C$"9"C$"A"C$"Z"A0:6&520:AA16J::k0C(B256):CB254C255(C127):CC255(C255):F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT:: N"FROM ADL) 330?F1:D0:P1(A$):C$(A$,P,1):FNC$" "ılC$" "İ520:V(F)J16(D1)V(F):DD1D0C$" "D2D0:FF1:D0FF1J(C$):JJ487(J64):A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):CLĺ(A$,PA,1);::R$;# r" ";:= |K(49152):K128380R 49168,0:KK128j K13Ė7:A$;" ";: K32K47K58K64K71A$L$(K)R$:PP1:300 I(0):K4A$L$R$ K9A$L$" "(A$,PA,1)R$ K8PP(P0)K21PP(P": ";:64668:A$"":P0:330:L0150? ,470:FNĺ(7);:290b 6N9İ560:CV(9)ĺ(7);:290 @F18:BF1,V(F)::::150 J(A$)33A$O$:P0:(7); TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PBSAVE";A$;",A";S;",L";ES" 1504 590:B0150\ BBE8:L4:AB:580:A$;": ";:L2 F07:V(F1)(BF)::560:V(9)C F1N:AV(F):580:A$" ";:::(49152)128Ă 49168,0:150 590:B0150 BBE8$ "1:AB:L4:580:A$;00:34,0: A$"6"A$"0"0 A$"Q"A$"6"M A$"1"A$"6"İ900:170 "FILENAME: ";A$:A$""ĺ(4);"BLOAD";;A$;",A";S (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)): A$"6"Ģ23: 150 "FILENAME: ";A$:A$""ĺ(4);"ADDRESS";:530:A0ĺ(7):130& xSA[ 2:20:"END ADDRESS";:530:SAA0ĺ(7):130c EA :"CHOOSE: (E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT": A$:I15:A$("EDLSQ",I,1)Ă:160 I270,220,180,2Y D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";dN9:::(17);"APPLE MLX V1.1":34,2:610 n1:20:"START      ) A$"CHIRP!":X017:A:12345X,A:ZN(1)6:R(1)66:X1N:0,R:12345:A$;:15: 173,48,192,136,208,4,198,0,240,7,208,208,246,166,0,208,239,96(J :X(1)241 X'X/X;926XAX;H2 z#?????     ҠӠ Šؠ ؠ ؠ ؠɠ ̠ϠҠŮ٠ Р̠ ĮǠ"Šn:1000,x44452,255:44513,67?(4)"CATALOG"V44452,22:44513,2fB(37):T5B23āT15:VT:SC(5)160ĂT WRITE TITLE (A$)A$T2Ģ1:35,T1:958:35,24:T2:21((A$)2)::A$:F T2A$(A$,23):A$( 38:" ":$ IR124:I:868:< R:1:7);:1:C$;L :(4)C$N$R c  INITIALIZE SC(H)(1024128(V1)984((V1)8)H1) SP$" ": K ' INCIDER PROGRAMS("A"))430% H$;:R(H$)("A")T> VR:F$(SC(2)128)] C$"RUN":F$"B"C$"BRUN"s F$"T"C$"EXEC" lVR:E3791:(SC(E)128)" "ĂE N$""::I8E N$N$(SC(I)128) R:8:N$:  R1āI1R:I:868: R:SP$,1,((23(A$))2))A$SP$::I123:I:38:" ";(A$,I,1);" ";::S 6I0BTh @IT:3:"..";: J(I("A"));::".." T 24:B23ĢB2 " PICK ONE (OR ";::"X";::"TO EXIT)->"; H$:H$"X"ĺ"EXIT";:23: H$"A"H$(BTO D - B Y E" 20: :" :8  PUT WORDS HERE.T & MAKE LAST WORD "QUIT"z : BROTHER,SISTER,CAT,NIGHT,YELLOW D MOTHER,COUSIN,COW,BLUE,ORANGE,NICE N UNCLE,LOVE,ACE,RED X QUIT UIT NLT$ĂI:250 rWI5 |G$A$" ";:N$N$A$:JI:IN:IM COUNT(W$(J))440d COUNTCOUNT1:250 G$G$G$G$:10:15:958:I1300::10:15 I1COUNT:(W$(J),I,1);G$;" "; K1200: I K12000: JN230 10:12:" G O (d:6)"S I M P L E S P E L L E R"5xW$(100)AG$(7)fII1:W$(I):W$(I)"Q UIT"180nNI10:15:958COUNT1:N$"":W0A$A$"?"A$"/"A$(W$(W),COUNT,1),NN$N$A$6I1N@LT$(W$(I),COUNT) JNN$  210 AG$AG$G$:G$; 0 EG2ġ:2290 11::I1(33):" ";::I1322:" ";:36,(33)1:" ";::I1(33):" ";::: A49200:I15:J120:B(A)::J115::: 36,9:TĹ36,T SG$(8)(AG$)1Č1008:U1$;:1008:AG$(AG$,((AG$)1)):LL1:210f TLC1G$(13)ĺ(7);:210 ^G$(21)ĭ(OD$,L,1)""G$(OD$,L,1):390 hA2G$" "G$"X"G$(120)210 rA1(G$" "G$(126))210 |A0(G$"0"G$"9")G$".":PNPN1:PN12PN1& G$(14)400S G$(16)LC1:EG2:PNPN1:PN1PN12e G$(16)400 "G$(9)LC1:AG$(9):400 ,G$(27)AG$U1$:LC1:400 6G$(13)LC1:400 @G$(8)(AG$)1Č1008:U1$;:1008:AG$"":L1:210E J A$"1"A$"6"İ900:170% EG0b (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)):t A$"6"Ģ23: OD$U1$OD$"" L1C1 5980:G$ LC1G$(31)360 L1300 G$(27)EG1:LC1:400 G$(14)LC1:EG2Y D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";Z1230x:AG$""A$"6"A$"0"A$"Q"A$"6"    210 AG$AG$G$:G$; 0 EG2ġ:2290 11::I1(33):" ";::I1322:" ";:36,(33)1:" ";::I1(33):" ";::: A49200:I15:J120:B(A)::J115::: 36,9:TĹ36,T SG$(8)(AG$)1Č1008:U1$;:1008:AG$(AG$,((AG$)1)):LL1:210f TLC1G$(13)ĺ(7);:210 ^G$(21)ĭ(OD$,L,1)""G$(OD$,L,1):390 hA2G$" "G$"X"G$(120)210 rA1(G$" "G$(126))210 |A0(G$"0"G$"9")G$".":PNPN1:PN12PN1& G$(14)400S G$(16)LC1:EG2:PNPN1:PN1PN12e G$(16)400 "G$(9)LC1:AG$(9):400 ,G$(27)AG$U1$:LC1:400 6G$(13)LC1:400 @G$(8)(AG$)1Č1008:U1$;:1008:AG$"":L1:210E J A$"1"A$"6"İ900:170% EG0b (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)):t A$"6"Ģ23: OD$U1$OD$"" L1C1 5980:G$ LC1G$(31)360 L1300 G$(27)EG1:LC1:400 G$(14)LC1:EG2Y D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";Z1230x:AG$""A$"6"A$"0"A$"Q"A$"6"    (13)ĺ(7);:210B ^G$(21)ĭ(OD$,L,1)""G$(OD$,L,1):390j hA2G$" "G$"X"G$(120)210 rA1(G$" "G$(126))210 |A0(G$"0"G$"9")G$"."210 AG$AG$G$:G$;  EG2ġ:2290 EG1İ5170::: ESC KEY , FIND G$(16)4001 "G$(9)LC1:AG$(9):400R ,G$(27)AG$U1$:LC1:400k 6G$(13)LC1:400 @G$(8)(AG$)1Č1008:U1$;:1008:AG$"":L1:210 JG$(8)(AG$)1Č1008:U1$;:1008:AG$(AG$,((AG$)1)):LL1:210 TLC1G$Ϡ Z1230AG$""EG03OD$U1$OD$""@L1C1N5980:G$fLC1G$(31)360tL1300G$(27)EG1:LC1:400G$(14)LC1:EG2:PNPN1:PN12PN1G$(14)400G$(16)LC1:EG2:PNPN1:PN1PN12      (13)ĺ(7);:210B ^G$(21)ĭ(OD$,L,1)""G$(OD$,L,1):390j hA2G$" "G$"X"G$(120)210 rA1(G$" "G$(126))210 |A0(G$"0"G$"9")G$"."210 AG$AG$G$:G$;  EG2ġ:2290 EG1İ5170::: ESC KEY , FIND G$(16)4001 "G$(9)LC1:AG$(9):400R ,G$(27)AG$U1$:LC1:400k 6G$(13)LC1:400 @G$(8)(AG$)1Č1008:U1$;:1008:AG$"":L1:210 JG$(8)(AG$)1Č1008:U1$;:1008:AG$(AG$,((AG$)1)):LL1:210 TLC1G$& Z1230AG$""EG03OD$U1$OD$""@L1C1N5980:G$fLC1G$(31)360tL1300G$(27)EG1:LC1:400G$(14)LC1:EG2:PNPN1:PN12PN1G$(14)400G$(16)LC1:EG2:PNPN1:PN1PN12       ID LABEL -> ";U3$PST(37):22:1:"ENTER NUMBERS AND CAPITAL LETTERS ONLY"w$ST:18: PUT CURSOR ON ENTRY LINE.TN$"":EG0: FLAG, 1 = ESC KEY PRESS8I14BT$LT$(13)TN$""I4:1170: END IF VT$(27)EG1:I4:117D$;"WRITE";FM$TA$I1TAKHR$(SR(I)):NP(SR(I)):ET$(SR(I))kTP$(SR(I),0,1): TAPE NAME~K1NP(SR(I))J13TP$(SR(I),J,K)J,K,ID$;"CLOSE" **INPUT TAPE ID SUBROUTINE**:"TAPEK,I  D$;"CLOSE"#) I*** WRITE TO FILE ROUTINE**O4d> FM$= FILE NAMEjHRD$;"OPEN";FM$;",D";DN$\D$;"CLOSE";FM$fD$;"DELETE";FM$: REMOVE OLD FILE SO WON'T LHAVE PARTS OF IT IN THIS COPYpD$;"OPEN";FM$zN$ vD$;"READ";FM$ TA) I1TAD HR$(I):NP(I):ET$(I)T TP$(I,0,1)r 23:22:868:TP$(I,0,1) K1NP(I) TP$(I,1,K) TP$(I,2,K)"" L153:NT$:NT$(13)L53:740 TP$(I,2,K)TP$(I,2,K)NT$ L TP$(I,3,K) PN1PN123 &: LOOP TO DISPLAYT ONLY FORM9 0Y :**LOAD FROM FILE ROUTINE**_ D NFM$""FM$"TAPE.LIB.DATA": SET DEFAULT FILE NAME XDN$""DN$(13)DN$"1": DEFAULT DRIVE NO bD$;"UNLOCK";FM$;",D";DN$ lD$;"OPEN";FM$;",D";D LAST PGM & SET NP(TN) " G  ***CHANGE PAGE ONLY ROUTINE***M   IF ESC THEN ROUTINE WILL CANCEL ITSELF AND CALLING ROUTINE G$ G$(27)ġ:: ESCAPE G$(14)PNPN1:530 G$(16)PNPN1:530 480 PN12PN1 ID LABEL -> ";U3$PST(37):22:1:"ENTER NUMBERS AND CAPITAL LETTERS ONLY"w$ST:18: PUT CURSOR ON ENTRY LINE.TN$"":EG0: FLAG, 1 = ESC KEY PRESS8I14BT$LT$(13)TN$""I4:1170: END IF VT$(27)EG1:I4:117D$;"WRITE";FM$TA$I1TAKHR$(SR(I)):NP(SR(I)):ET$(SR(I))kTP$(SR(I),0,1): TAPE NAME~K1NP(SR(I))J13TP$(SR(I),J,K)J,K,ID$;"CLOSE" **INPUT TAPE ID SUBROUTINE**:"TAPEK,I  D$;"CLOSE"#) I*** WRITE TO FILE ROUTINE**O4d> FM$= FILE NAMEjHRD$;"OPEN";FM$;",D";DN$\D$;"CLOSE";FM$fD$;"DELETE";FM$: REMOVE OLD FILE SO WON'T LHAVE PARTS OF IT IN THIS COPYpD$;"OPEN";FM$zN$ vD$;"READ";FM$ TA) I1TAD HR$(I):NP(I):ET$(I)T TP$(I,0,1)r 23:22:868:TP$(I,0,1) K1NP(I) TP$(I,1,K) TP$(I,2,K)"" L153:NT$:NT$(13)L53:740 TP$(I,2,K)TP$(I,2,K)NT$ L TP$(I,3,K) PN1PN123 &: LOOP TO DISPLAYT ONLY FORM9 0Y :**LOAD FROM FILE ROUTINE**_ D NFM$""FM$"TAPE.LIB.DATA": SET DEFAULT FILE NAME XDN$""DN$(13)DN$"1": DEFAULT DRIVE NO bD$;"UNLOCK";FM$;",D";DN$ lD$;"OPEN";FM$;",D";D LAST PGM & SET NP(TN) " G  ***CHANGE PAGE ONLY ROUTINE***M   IF ESC THEN ROUTINE WILL CANCEL ITSELF AND CALLING ROUTINE G$ G$(27)ġ:: ESCAPE G$(14)PNPN1:530 G$(16)PNPN1:530 480 PN12PN1";:36,(33)1:" ";::I1(33):" ";:::_ A49200:I15:J120:B(A)::J115:::r 36,9:TĹ36,Tx (31)ĺA$ A$"6"A$"0". A$"Q"A$"6"K A$"1"A$"6"İ900:170 (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)): A$"6"Ģ23: R$"RUN ":A$"4"R$"BRUN " 22::D$R$A$((A$)):- 11::I1(33):" ";::I1322:" yY D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";x: 18:1000:"(Q)"::1000:" SELECT: "(8);:A$:A$  O0:L>J" >J&"L>J M 9L MLM KM M N`A[L>J 9L ML_O KMLL KM J M 9Lɢ ML9L _O ML9L M _O M` $M M M LL M LLL J֢: M` N; M N M` KM M M N` NL  ` L MLL KM M N`І 9LؤЦф DJLM M M` ;N ;N M` ?M MLnM M ME M M M` M M M` M M M` M M` M N UK L ,N`,,,,,%,$,,,(,),.,,,φ 8` $` ` M* 9L%LM M MLLȐ͐ M M` >J( LԦ DJLL M O \M CK M M N MLL M M M` Mu $MLL L,PQ]HPHQHPQ hQhPhB8` 2/ ^& &^ &^e^e&e` 7TH6THL>J 9L: M M M M M O`L9LLO LLOҐЪ8`簤8`ׅҥPQ $UUUU CU2̿U?2UUU$0U CLKLKYU T KLK 2H2 h2{=:U-Ѹ U줊 U U `8`湄``U 9C J8UU  :LcJU _K`Hɀ[ I KM7 M= M N M'L9L C  : MLlO L`L OL M` N MLM8VV`LFU %UUʆ%U2UU{U#%0$ K$U{%L[% CI%LPI U"U!!!U$U{U{## [LKU U8U!# HU" [ KLK U2U{UU{U e!U`U0 DƊ` WH,ɓɠ ɠ<Ɉ ɕɃ-UU KLBC$c0$c0cx : K ELG$c0LF HA,ULH >JŸ幐QPLqHPwQx`{$`PQP HV VU HͱU ͰU FLHPQ`UU89F BCLBG BCLF BCLBG RuWЙvWВWWWЅW KX PR: 88 sآxc{UU H A 9CͰU ͱUL'Hȱ wx K ELGh:g6䰰1 kH K$c R > WۦPQ $ C SCPQwx `U؍U؍VUU3T4TuvUV`UحUUVUVuv`U %H K "# HU [ Bh [`ȥe+T *TUUUVV`0XjM 9C Rm0T1Tij FU gݩU I XLILFU,U0yz S,s TLEU͵U 9C-T.T I F c, yz Wۢ0M:, \Ɗ J \ {$0 4 E%$!{! WLIE 9FLBC CLyE<=<  < 8劅 =۠<LJ! KU H XFUUU`bɈ,ɕɋjɊyɼ$ɬ ɮ<ɾ8ɠb`U`8.U`UU8UUULDUحU͵U I XUiLaD͸U HUθULDU H莸U [ K U= I K##ʊ [! E'( U͵U%U H $U{U{U .EUɃ IL DɍU ILUB``:  慤 C C"`H Ch8Єτ ,0 ,0Ɗ0 CLC C CH$ {$hL\NU`aUUUx XFLDbxȘȑ F0: mP0IX R WW WWLBGF/\,VL E.ɛɜ ɬGFLLB A L ALzB I BhhLץ UH UH`LPv F,UP F,U I DUi ISU8 _Ivxuw Kuvwx $ C KC8e/ ` ȱ 8 ȩX  e ȱ e `L$) @ :LkBlBmB LAAAsAtUU IUUUUUVӢA XAA ӢD@ stVVLmPLoAL XL9B I 9U U XFLDU)U#LXF@ L@ĮǠ٠ĮϠŭĬŠТΠΠĮǮĮǍԠéΠčŠӬîĠҠà͠ů@尰 }@ 8s tX A  / A @L@/  > A @L@           R8~(T$"0"T$"9")(T$"A"T$"Z")1090: CHAR. ONLYLT$;:TN$TN$T$SIjEG1ġ:: ESCAPEpv**SETUP ROUTINE**D$(4)0: ESCM`T$(8)(TN$)1Č1008:U1$:1008:TN$"":I1:1090: BACKSPACEjT$(8)(TN$)1Č1008:U1$;:1008:TN$(TN$,((TN$)1)):II1:1090: BACK AND ERASE IF NO BEGINNING OF INPUTtI4T$(13)ĺ(7);:1090: MUST BE RETURN AFTER 3 CHA):UL$(UL$,4): UNDERLINES%TT30R8~(T$"0"T$"9")(T$"A"T$"Z")1090: CHAR. ONLYLT$;:TN$TN$T$SIjEG1ġ:: ESCAPEpv**SETUP ROUTINE**D$(4)UL$"":BL$"":I151:UL$UL$(95):BL$BL$" ":: UNDERLINE CHARU1$(95):U3$(UL$,30: ESCM`T$(8)(TN$)1Č1008:U1$:1008:TN$"":I1:1090: BACKSPACEjT$(8)(TN$)1Č1008:U1$;:1008:TN$(TN$,((TN$)1)):II1:1090: BACK AND ERASE IF NO BEGINNING OF INPUTtI4T$(13)ĺ(7);:1090: MUST BE RETURN AFTER 3 CHA";:36,(33)1:" ";::I1(33):" ";:::_ A49200:I15:J120:B(A)::J115:::r 36,9:TĹ36,Tx D(31)ĺA$ A$"6"A$"0". A$"Q"A$"6"K A$"1"A$"6"İ900:170 (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)): A$"6"Ģ23: R$"RUN ":A$"4"R$"BRUN " 22::D$R$A$((A$)):- 11::I1(33):" ";::I1322:" yY D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";x: 18:1000:"(Q)"::1000:" SELECT: "(8);:A$:A$  ";:36,(33)1:" ";::I1(33):" ";:::_ A49200:I15:J120:B(A)::J115:::r 36,9:TĹ36,Tx D(31)ĺA$ A$"6"A$"0". A$"Q"A$"6"K A$"1"A$"6"İ900:170 (A$"0"A$"7")Ģ12(A$):1000:"--> ";::A$((A$)): A$"6"Ģ23: R$"RUN ":A$"4"R$"BRUN " 22::D$R$A$((A$)):- 11::I1(33):" ";::I1322:" yY D$(4):I16:A$(I)::COMPACT,COMPARE,D.BUG,D.BUG.DEMO,NOTES,QUIT:(33)80T29::D$"BLOAD TITLE":212:800:13:I16:1000:"("I") "A$(I);:I5ĺ" (CHANGES TO MANUAL)";x: 18:1000:"(Q)"::1000:" SELECT: "(8);:A$:A$   !ŠӠîĠΠŬŠàΠϬ((((PPPPLtdd