' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ROUTINES.*** $&&770::PRINTER.ON;&&903::12/IN,8/INR&&907::16/IN,8/INk&&(27)(120)::8/IN&&39700::DURA.ON&&960::BOTH.OFF& N ********.FORMAT.FUNCTIONS.****** +'*NT(X)(X0)2(((X))9)(((X))99)(((X))999)(("CLOSE "FI$ %l%D$"LOCK "FI$5%v%DD2DD1:9430;%%e%% ********.FILE.READ.************* x%%D$"OPEN "FI$%%D$"READ "FI$%&EF:READ.EOF% &R1EF%&::C1C1% &::::A$(R,C)%*&::C%4&R%>&D$"CLOSE "FI$: && ***.PRINT.Y$$DD2:ND0*$$D$"OPEN "FI$",D"DD>$$D$"UNLOCK "FI$R$$D$"DELETE "FI$f$$D$"OPEN "FI$z$$D$"WRITE "FI$$%R1R1$%::A$(R,1)""EFR1:9510:FIND.EOF$%$&%EF$0%R1EF$:%::C1C1$D%::::A$(R,C)$N%::C$X%R %b%D$6))S1#;$HD,MD,SD/#@$SD0SDSD60:MDMD1J#J$MD0MDMD60:HDHD1P#O${#T$ ********.SCREEN.PAUSE.********** #^$24:16:"ANY KEY";:A$:#$ ********.FILE.WRITE.************ $$IN:R1=ARRAY.ROWS..ND=NEW.DATA.FLAG..A$(R1,C1)=DATA.ARRA****.TIME.****************** 6"#D$;"IN#3":D$"PR#3"C"$" ";TI$]"$D$"IN#0":D$"PR#0":""$ ********.CALC.TIME.************* ",$H1((TI$,8,2)):M1((TI$,11,2)):S1((TI$,14,6)):#6$HD((TI$,8,2))H1:MD((TI$,11,2))M1:SD((TI$,14,$"HM.INV"'!P#A$(R1,C1),B(R1,1),T(C1)K!Z#I1C1:A$(0,I)::FIELD.NAMESj!d#20000:24000:FCTNS&TITLEz!n#1000:MENU!x#OUT:D$=DOS.CMD..A$=ARRAY..R1=ARRAY.ROWS..C1=ARRAY.COLUMNS..NA$=PGRM.NAME..FI$=FILE.NAME..A$(0,1TO0,C1)=COLUMN.NAMES"# **** "(VI):(H(A$(0,I))):A$(0,I);:(H):":";:A$(J,I):S `" **.FORMAT.SUB.** | j"A$(J,I)""A$(J,I)"--------------" t" (# ********.INITIALIZE.************ 2#16298,0:::D$(4):HRES.OFF.CLR.SCRN <#R1500:C18:ARRAY.SIZE !F#2:FI::I1ĭI$"^"ġ:10108!::::I$"^"İ8710:II1:8600P!::::I$"S"ġ:8050!::::I$""A$(J,I)"--------------"A$(J,I)"":8710:8675!::::I$""İ8710:8675!::A$(J,I)I$!::::I3TT(A$(J,I))!I!! **.?.DATA.SUB.** 9:34,4:SET.WINDOW.TO.SAVE.PROMPTS3f!"RECORD #"JFk!I25:8810:cl!A$(J,6)""A$(J,6)"YY"m!A$(J,7)""A$(J,7)"YY"p!I1C1z!::8710:?.DATA.SUB!I!T0!I1C1!::8710:?.DATA.SUB!::(VI):(H1)!::"";I$!::=ARRAY.ROWS..K=1ST.OPEN.ROW'TJKR13^::8510:hJ@r\|OUT:A$(R,C)=INPUT.DATAy4! **.ROW.INPUT.SUB.** >!:H!V5:H18:SCREEN.POSITIONR!"S=STOP ^=BACK UP CR=KEEP F=FURN T=TOOL":"M=MACHINE A=APPLIANCE P=PHOTO G=GENERAL""\!4:"-";:::$L179:"=";:::LL119:" ";::L140:"*";:::f **.TYPE.TOTAL.** p 637036,D(5):"TOTAL ";C$(C);:36,D(8)5:WT1:20050::6370:: FORM&?@ ******.INPUT.SUB.*************** JIN:C1=ARRAY.COLUMNS..R1.OUTL **.TOTAL.** <V6380:36,D(5):"GRAND TOTAL";WjT0:ZERO.TOTAL.ARRAYe::I1R1::::TT(A$(I,8)):TOTAL::I::DD(8)5:WT:20050:FORMAT.&.PRINT:6380:SEPARATOR:MENU **.SEPARATOR.** L17985::::DD(I)5:W(A$(J,I)):W6175:JUMP.IF.0N::::20050:PRINT.ITl::36,D(9):YR(A$(J,6))!T1T1(A$(J,8)):TYPE.TOTAL$J)6410:C:TYPE.TOT.&.LOOP+6230:GRAND.TOT.9960:PRINTER.OFF81000:MENUBOUT:NO.DATA:36,D(9):"AGE":/ ***.PRINT.TABLE.*** EC16:TYPE.LOOP^T10:ZERO.TYPE.TOTjJ1R1::A$(J,1)""6185:TYPE.TOTAL::A$(J,1)C$(C)6180:IS.IT.THIS.TYPE?::J;:I17:36,D(I):A$(J,I);:I:PRINT.TEXT.COLUMNS ::I:C$(2)"T":C$(3)"M":C$(4)"A":C$(5)"P":C$(6)"G":TYPESY ***.PRINT.HEADINGS.*** 6390:36,27:NA$;" ";(TI$,5);"/";YR:6390:"#";:36,D(1):"T";K25::36,D(K):A$(0,K);:36,D(6):"OR";:36,D(7):"AC";:36,D(8):"COST";*** =zIN:C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..A$(R1,C1)=ARRAY~:9210:5:"PLEASE INPUT THE YEAR 19(YY):";"YY";:30:"";YR9910:PRINTER.OND(1)3:D(2)5:D(3)20:D(4)35:D(5)50:D(6)65:D(7)68:D(8)71:D(9)76:COLUMN.POSITIONS9C$(1)"F"ŠҠϠźŠȠŠŬΠŠŠŠҠŠӢ̠ԱҠРЍŠӠ΍ԠàҠР΍ĠƠРԍ٠ĠԠҍРŠٍà̍ŠбàȠΧԠӠҍŠбӠԧӠǠȍ̠ԠˠΠٍРРŠ٠ΠˍѠϠŠčٍŠԠŠҠō٠ԠҍɠԠϠàƠčԠҍѠΧԠϠōàҠō؍ӠŠˠĠϠԍàˠΧԠԠϠٍˠҠؠҠΧԠˠΠ̠ԍˠҠΠ٠čҠԠƠǠҠҠȠحҠŠӍ̠̍ǠéʠԠÍàȠӠŠРԍؠҠŠԠˍб̠̠̍ȠԠԠԍˠҠƠčѠӠՠҠՠðϠźŠŬΠƠԠŠҬԠƠŠŠŠϠРРΠРР٠Š̠̠ŠԠϠŠӍȠՠ̠ՠȠՠ̠ՠȠՠҠՠŪűŠĠҠȠ׭ӠҠĠŠЮ٠Ү٠ҠĠ͠Š٠ʮϧ g ŠӠŠҠƠŠĠŠӠϠԠŠϠҠàӮC1,2}::" "I;:14:A$(0,I)#,<}+,F}:I,P}9310:1000:SCREEN.PAUSEa,::R$""1000:MENUu,6770:1140:960{,;,@770:20002999:40004999:960,J,T770:80008999:960,^,h770:94009790:960* +:u "TYPE: F T M A P G",ITEM,MANUFACTURER,"MODEL/COMMENT","SERIAL #","ORIGINAL YEAR","ACQUISITION YEAR","ACQUISITION COST"+} ********.DISPLAY.ARRAY.********* + }IN:A$(0,C1)+}:"COLUMNS DATA"+}" INDEX I A$(0,I)":,(}I00:24070:24070O*]CE$"":I20592066:CE$CE$((I))::24060:24070:24050t*]9310::SCRN.PAUSE *]I139:"*";::::*LINE*]"*";:20(CE$)2:CE$;:39:"*"::CENTER*^"*";:39:"*":+0u ********.DATA.*****************$"LOCK "NA$",D"A!)PZA123030G)ZZD$"NOMON I,O,C":43624,1:1016:q)dZ(222)6Ĺ216,0:" NOT THERE":23100)nZ:216,0:23090)] ********.TITLE.***************** )]:::24050:24070:CE$NA$:24060:24070*]CE$"BY BOB HUELSDONK":2406(Y"THE PROGRAM IS: "NA$:B(Y"DRIVE ";:A$:A$:A$(13)23130Z(ZA(A$):A223080j( Z9200:TIME(ZI15:I2058,((TI$,I,1)):(ZI711:I2061,((TI$,I,1))::1((Z23140(2ZD$"DELETE "NA$",D"A(Nv'HN ********.PRINT.SUB.************* 'RNWF(W)'\N36,DT(W)'fNW(W)ĺ"0";'pNW;'N: 'Y ********.SAVE.****************** 'YD$(4):D$"MON I,O,C"䠠ԠϠŠӍӠՠˠՠԠՠŵҠӍԠՠčŠՠˠՠ *' ******************** AK3:A(J)C(I):JN1440)J:K2K31:INA(N1)1000:I1N:C(I)A(I)::i ******************** * * * COPYRIGHT 1980 * * DAVID WESTON * * PO BOX 25943 * * LA, CA 90025 *  * RN FOR NEXT SORT";R$:::10:LI1N:C(I)(1000000(1)):A(I)C(I)::gI1N:C(I)I:A(I)I:I15:K2(N(1)):A(K2)100(1):C(K2)A(K2)::xK1(N20):K21I140:C(I)(1000000(1)):B(I)(K12)((1)K1):K3K2B(I)JK2I1N:"#"I" "A(I):^j:"HIT RETURN TO START SORT";R$:998:868::" SORTING ":198:tI13:198::998:868::"FINISHED":I11000::~I1N:"#"I" "A(I):::198:K11Ĺ103,P1:104,P2::I1N:A(I)C(I):B(I)0::"HIT RETU1:B(J1)K2:I:J1J1:K10,I1K1VA(J)C(I):JJ1:K1K11:K1B(I)1014bK10:IrK11:1140************************LL1P3256P41:L2(L1256):103,L1L2256:104,L2:: MOVE TO LINE #10 V34,2:2::N3001130`̍ŠвŧӠŠϠύàȍ̠вԠӠˠϠÍӠ͍͍ ٍŠԠŠԍ٠ԠҠɠΠϠàȠčРàȠРЍŠӠ΍ΠàȠР΍ĠƠРԠƠ٠ĠԠҍàĠƠРƠԍ٠ٽРҍؠȠؽȠҍҠˍвؠŠԠŠϠˠ΍ŠؠȠؽȠҍҠˍԠѠϠŠčV`@9()$`@*#r9()$dQ5 q/?rq/?rq/?r@p()\,9 q/?rq/?rq/?r@p()\,_ V`@9()$a(Ƚ)FE()G-a(̽)FE(ƽ)FE(Ľ)FE()GS(ο)&@`@9()$ cc_d ,dededede`@9()$MC[MX[S(ԠӠĿ)&@L`@9()$Ӡ)P`;@r$ IdS(Ƞ)'S(Ҡ)'S()''e@p()S(ŠҠſԠҠΩ)&@&i`@9()$nS(Ƞ)'n`$"xS(Рο)&@`@9()$q\,$̠ŠĠՠԠĠĠŠӠ)b<a(ŠӠԠĠϠŠԠĮΩӠϠٯΠΠӧ)VFcd2e?a(Ӡ)Gd2ea()Gd2e?S(ϠԮ)&@d2eM6Ka(ĠŠΠŠħӮ)Zca(ՠ̠ŠĠҠŠȬԭǠҬŠƠŠ)Gh(a(ƠĬǠȠƠĠӠũĠȠΠϠЧƠ)V2ca(ŠҠ̠ĠȗM]ŠӠҠ٠٠ي̠ŠԮ[ KM6oa(ŠĠҠ٠٠٠) N@"reca(ӠӠŠǠĠҠŠΠƠӠȠ     ҠɯύōԠԠϠ͍ӍԠԠ͠ӍĠŠԠٿѠԠύӍ٠čĠύύɍɍҠÍӍŠǠōŠ̠ƠŠààРˠҠҠԠΠӠ1٠ѠΠϠŠƠŠ̠ԠԠϠٍŠԠƠŠàϠȠƠϠ±ɠҠԠԠԠààҠ̠РϠ°ɠҠԠԠԠҠҠӠˠĠˠҠԠԠΠ٠ҠˠԠӠ٠ԠĠԠϠ٠ө٠ĠΠŠҠԠԠΠ٠ҠԠԠӠԠ٠ŻԠҠӠϠӠŠˍҠԠ̠ӠΠˠĠŠȠĠĠˠˠԠĠƠŠԠˠŠԠӠˠԠĠԠҠŠԠԠҠˠĠƹԠՠĸōǠʠˠؠ٠ԠĠԠϠ٠ө٠ĠΠŠ̠ԠҠԠˠŠԠ٠ө٠ĠŠԠҠԠҠԠԠϠԠҠˠLE AND END PROGRAM I:"END OF COMPARISONS":D$"CLOSE"D$"PR#0":: g PRINTER SUBROUTINES "PRINTER OR VIDEO ? (P/V) ";:PR$PR$"V"PR0:"ENTER PRINTER SLOT OR CALL":PR: LPRıVPR8ĺD$"PR#";PR:`PR:: FHER "ADDED" OR "DELETED", AS CASE MAY BE N*X(218)(219)256:216,0:910]4X230840>"ADDED :":260:J$NS$:310:830H(OS$)NSĺ"DELETED :":J$OS$:310R"DELETED :":210:J$OS$:310:850:  ASSUME END OF DATA ERROR IN LAST FIJ$OS$:310:210:410: y IF NONE OF THE ABOVE, THEN THE NEW LINE IS ADDED. PRINT "ADDED" AND FETCH NEXT NEW LINE :"ADDED ":5);(NS$);:J$NS$:310:260:410: )  WHEN ONE FILE IS EXHAUSTED, DETERMINE WHICH AND INDICATE REMAINDER OF OTTATEMENT v (OS$)(NS$)OS$NS$ĺ:"CHANGED ":5);(OS$);:J$OS$:310:"TO :":5);(NS$);:J$NS$:310:350: X IF OLD LINE NUMBER < NEW LINE NUMBER THEN OLD LINE IS DELETED; FETCH NEXT OLD LINE b(OS$)(NS$)ĺ:"DELETED ":5);(OS$);: TD$"OPEN"O$;D$"OPEN"N$, ^210:260: m  IF BOTH STATEMENT NUMBER AND CONTENTS AGREE, THEN IGNORE OS(OS$):NS(NS$):(OS$)(NS$)OS$NS$350:  IF LINE NUMBERS ARE THE SAME BUT CONTENTS DIFFER, THEN PRINT "CHANGED" AND GET NEXT S* GETS STATEMENT FROM THE NEW FILE E NS$"":D$;"READ ";N$} A$:A$(13)(NS$)0ĭ(NS$)255NS$NS$A$:270 : , PRINTS A STATEMENT WITH A LINE LENGTH OF LL 6II0 @IOII1:IIIILL:12);(J$,IO,LL):II(J$)320 J13)(4):"OLD PROGRAM TEXT FILE NAME ";O$:"NEW PROGRAM TEXT FILE NAME ";N$c 1100:PRINTER ON m 810y 340: GETS STATEMENT FROM THE OLD FILE OS$"":D$;"READ ";O$ A$:A$(13)(OS$)0ĭ(OS$)255OS$OS$A$:220 : ************************ y d LENGTH OF PROGRAM LINE TO BE PRINTED ON A SINGLE LINE IS SET BY VARIABLE LL IN LINE 110 nLL50:::5:1000::5: x **ENTER NAMES OF FILES TO BE COMPARED==MUST BE TEXT FILES CREATED BY EXEC-ING CAPTURE L D$( *************************?* COMPARE PROGRAM *^* BY *}* CHARLES G. BOODY ** 05/11/80 ** COMMERCIAL RIGHTS ** RESERVED ** CALL -APPLE * JUL/AUG * *     Ԡ㩠̠ӠĠ̠Š֭àԠ̠ՠΠŠӍ̠ՠΠˍǠƷʠƷ ԠâΠҠĭĠӠΠ٠ĠŮŠ àٰذӊ'd e2d eddeded(e d)e 9d ed ed ed ed ed e qqq,q60qDױqGq[] yKQ]5}]àٰذɭӠŠ)%.ca(ůԠΠ٠)8ca()Bca(ĠΠ٠)Lca(ŠΠ٠)Vca(Ġ)`ca(Ҡ)Gjoq \FtqM6~` $y _d]]ԠŠĠϠŠΠ٠)ca(ΠȯҠή)\F q _]]Π͊M6oa(נɭӠŠ) ca(ĠɭӠŠ) ca(ŠɭӠŠ)ca(ŠΠ٠)!$ca(_]]ŠΠي+oa(ŠΠ٠ٯΩ)q\F`$ d`ed<e`d=e`d>ed?edBe`dCe` M6.ca(ɭӠŠӠנ̠ˮŠ).ca(Š)q\F _] ]ĠΠي*%oa(ĠΠ٠ٯΩ)q\F*`$/cS(ŠƠ٠)&@4a@E(Ġ)E@E()9q.?6Ur.?6Ur5>ca(ȠƠ)E@E()FE()q;@rC\F HŠ)F.?r!ca(Ԡ٠Ġ)E@ ca(Ԡ٠Ġ)E@#ca(ȠƠԠ٠)F!ca(ǠٯΩ)q\F`$ca(Š)q \Fq`%qa@E()Fca(Ǡ $d&e d6?e_d&e@d6?e_]]ي&oa(ԠŠĠ)E@"ca(ԠŠĠ)E@9ca(РŠ)F.? rGPa(͠Š)F.? r:ca(ԠŠ)F.?rGPa(_(de.?rde.?r_(de.?rde.?r_(d e.? rd e.? r_de.?r_de.?r_d e.? r_d e.? r_`$_q.?&r`.?r$`.?r'$`.? r$`.?r'$`.?r.?r$`.? r$`.? r.? r$`$c`$`$z_(d e.? rd e.? rԠĠԠٿ̠ŠΠԠҍРƿѠŠӬԠԍӠˠϠҍ͍  FILE CAPTURE xD$(13)(4):"TEXTFILE NAME";A$:D$"OPEN"A$;D$"WRITE"A$:33,33:1:D$"CLOSE"::D$(13)(4):A$"CAPTURE":D$"OPEN"A$;D$"WRITE"A$:33,33:1:D$"CLOSE"::ΠƠàŠҍ̩٠ԠҠƠ΍ĠƠˠƠ§Ӎ̩٠ԠҠˍŠ̠ҍР̩ˠϠҍǠРŷנō͍p Thi8hi9 `H)?(hL Kqq`c%q8cr`c%qd2`%qd`%q_~.a(̠)FE()G` %a()GbQa ]àįԠҠҠà٠̠ʠNJ̠Š̯Ǡi]ŠϠԠ̍ԮԠǠϠԠōĮԠȠ~T'`$~`%q ӠԠנӍӍΠƠàŠҍĠƠˠƠ§Ӎ̩٠ԠҠˍŠ̠ҍРΠˠϠҍ͍ҠŲԠˠҍӍ̠ӠƠˍÍàĠԠϠàō̠٠ˠϠӍ̠ɠӍàĠϠŠٍ̫٠ˠɠӍҠԠΠՠı ҠΠŠŲՠƵҠŠŠǠӠŠԠՠРÍ􍪠卪̠Ԡ㩠̠ӠĠ̠Š֭àԠ̠ՠΠŠӍ̠ՠΠˍԠՠӠԠٍ ԠâΠҠϠ͠Π٠ĠŮŠ @ ]֠Π٠ǠҊ̠Š̯ǠT''\Q bE()G.qq8r bG`$[ HX$,I,1))128::72,0:144$ n768%~ NFC HELLO BY RICHARD E RETTKE 1757 ACORN CT, MENASHA, WI 54952 (414) 731-7091 * 80-09-24 CALL -APPLE * NOV-DEC 1980  dHX$"300:20 54 FF 9A 68 18 69 11 85 38 68 69 0 85 39 20 EA 3 60 48 29 3F 91 28 68 4C 1B FD D0 ND823G":I1(HX$):511I,(( rrd88rrr 878Hrr[r-@ ]ҠΠ٠ǠҊ̠Š̯ǠCT\,a(ҠƠ)FE()FdE()G`d %a()GbdQ,,qdq88rr 878Hrr~6qq8r`8r$6q28r8rq8887  256):' R998:J(175)256(176)I1Q \(4);"BSAVE MODULE ";K;",A";I;",L";Jc aJ;" BYTES":} I(121)256(122):~>  OVERLAY * DAVE LINGWOOD CALL -APPLE * NOV-DEC 1980 x*"MODULE#";K:" SAVE OR RECALL (S/R) ";A$:A$"S"850/A$"R"1204830:>998:(4);"BLOAD MODULE ";K;",A";ICL(21920)256(21919)I1 H175,L(L256)256:176,(L qXUVWX6q p`8;@rr%@B;@rrp@*#rq Y@B;@rrp@*#r[B ]ҤΠ٠ǠҊ̠Š̯ǠRdN@" rC@"rT]ؠΠŠ٠ŠΠҠ͊3,q\M6o a(Ҥҩ)E@Q@@p()@p()`$X@p()q6  ;h;` " .Ф &  "" ` []ˠϠŊ-qq[]РԠҊ)]ԠŠ͠Ϡ2`%q ]ҠǠϭϊXֵq<@*#rrֵqֵ'ֵqֵq88<@*#rrrr ^q<@*#rrqqqֵqֵ`%\8dede`;@r%`@*#r9()%q`;@r%\`%q6[aUVW;@rq<@*#rr`  8 r$q Y[aUVW;@rq<@*#rr`  8 r$q Y[(Ҡ)FE()Q]Р̼IM6N@"rN@"rqqR@`;@r@*#r:()%QF@p@qde.?rde.?rq.?r.?rG]̠ӠŠ̢ϠōΠŠԠΠԠҮAtY ]ŠΠيǠҠ̠NJ̠Š̯Ǡ$d\o Pa(̨̤)GAnde.?rde.?r]ԠРӠҠâxM6]̠ÊQ`%`.?r.?r%a  ōѠΠ٠ԍӠвύΠàٰٰРƠˠƠԠРƠ΍Ѡ΍РРŠŠԠԠōӠбύΠӍ͍ȍ̍͠ԠԠōٰбؠ٠Ҡ΍٠ԠԠԠōؠв̬ة̩٠Š΍ٍÍà̍Šұàȍұ٠ƠŠŠĠԠǠʠРՠÍ͠ՠčԠՠōԠՠƍŠՠ̠ՠȠՠǠՠٰՠ̠ՠȠՠΠՠİōذȠՠذ̠ՠԠԠŠˠԠ ԠɭӠŠӠ٠Ԡ٠̠Š֯àԠ @ ]̠Π٠ǠҊ̠Š̯ǠN@"rR@\dbQCdqq`;@r%`@*#r9()%q`;@r%\`%q6[SUVW;@rq<@*#rr`  8 r%[q Y[ h;` " .Ф&   "" `rde.?rde.?rq.?r.?r+@p()@p()q q_`%a@E(ң)KQ@p()c_RKM6@p()a(ҠҠϬԠҠ̠Ҡ)T]̠ĠΠ"`%M`$a@E(ң)FGM6a()GPa()GPa()d"e.?%r\N@"rC@"rC@"rC@"@ra@GYbP;@rUVWX6a@*#rGYPa()GdFed;ed:eDM6G l`@9()$\`@9()$vcY @p()q_,4de.?rde_ H@p()q_\qe1qqUVW;@rq<@*#rr<()r#` %q`$(q@Brp@*#rqYqq#&qqq(0`$@Brp@*#r:q`$&XP;wJ ]٠Ҡ٠̠ʠNJ̠ŠٯԠ_cUVW@p()$`;@r%`@*#r9()$4`@9()$H$`;@r%`@*#r9()$4D`;@r%`@*#r9()$ de.?rd    ԠōѠ΍٠ԍӠвύΠàٰٰРƠˠƠԠРƠ΍ѠΠРРŠŠԠԠōРРŠŠԠԠōӠбύΠӍ͍ȍ̍̍͠ԠԠōٰбؠ٠Ҡ΍٠ԠԠԠōؠв̩٠Š΍̬ةٍàà̍Šұàȍұ٠ƠŠŠǠʠРՠÍ͠ՠčԠՠōԠՠƍŠՠ̠ՠȠՠǠՠٰՠ̠ՠȠՠΠՠİōذȠՠذ̠ՠԠԠŠˠԠ ԠɭӠŠӠ٠Ԡ٠̠Š֯àԠ    ,@ L@2 @`v` " .Ф&   "" `` " .Ф &  "" ` ЍӍ͍ؠɍؠؠɍР΍̠вϠŠҠвϠбвؠؠɍؠؠɍŠōΠ٠РٍٍٍŠЍàɍàɍ؍Š󠤸Ʈ䍪ﮍӍɠՠɠՠōǠ̠бϠŠҠбϠвбؠ󍪠󮠠퍪򮠠ﬠ孍 ԠɭӠΠȠ٠ӠӠ̠Š̯ǠԠ    z#?Ҡ ͠ àϱӠ àϱϠàϲӠ àϲϠ ؠӠ ŠԠ ΠǠ Π ӮӠ ӮϠ ӮӠ ӮϠ ٠ à  ͠ŮӠ  ͠ŮϠ ҮӠ  ҮϠ Ϡ! ŠҠƠ " Π ҠǠϠԠĠՠԿΠӠΡήŠɭӠΠɭӠήӠ  àįԠŠŠŠ ŠӠ ŠӠӠ ŠӠϠŠŠȠ ӠȮϠ٠Ҡ ̮à ŠΠ ҤΠ ҠΠ ֠Π àŠ&ͮ֠àӠ Ǡ!Ġؠ"ԠǠӠȮӠ   -       *  - 1980 ՠ ŮӠ٠ŠvoH()?(hl8Lv p8&&0jjjE 0  )(`)00 0)`(N16):(H$,N16N11,1)B$;:NN1:N05103 X g N$:N0:I1(N$):A((N$,I,1))48:A9AA7{ A0A15Č211 N16NA::N  H$"0123456789ABCDEF":N:(H$,(N16)1,1);(H$,N(N16)161,1)? FIVE SHORTEST CONVERTERS CALL -APPLE * NOV-DEC 1980 vd26,165:27,25:28,76:29,218:30,253:N:25,N:26~ ,H$"0123456789ABCDEF":N:H%N16:(H$,H%1,1)(H$,NH%161,1) B$(8)(8):H$"0123456789ABCDEF":N:33+ N1  1B E5 20 2F AE 60 20 24 ED 20 2F AE 60 NADC3:20 BA BC ND823G"q nI1(HEX$):511I,((HEX$,I,1))128::72,0{ x144H|a DOS FREE SPACE PATCH BY MARK PUMP AND VAL J GOLDING CALL -APPLE * SEPTEMBER, 1980 > dHEX$"BCBA:A2 0C 20 4A F9 A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 00 E0 C0 20 D0 07 20 DO THE LIST q 2L$(L):(L$)5L$(" ",5(L$))L$: CONVERT LINE # TO STRING AND PAD ON LEFT WITH BLANKS <A15:ASAINC,((L$,A,1)):A:: POKE LINE # DIGITS INTO LIST STMT b APPLESOFT VARIABLE LIST STATEMENT BY LEE REYNOLDS CALL -APPLE * NOV-DEC 1980  AS(121)256(122)37:30XXXXX,YYYYY:L5:INC0:50:20:: STORE 1ST LINE # IN LIST STMT (L60:INC6:50:20:: STORE 2ND LINE # AND   JJ1:7202 " @ LINE ";(218)256(219):300C3O PRINT ERROR MESSAGE BY DAVE LINGWOOD CALL -APPLE * SEPT. 1980 Yd700,PROGRAM LINES TO BE INSERTED HERE 6CAUSE_SYNTAX_ERRI(222):"ERR:";:I0I15J53856I(I255)1:720J43377(43583I) K(J):(K);:K192 Ů)qRca(ƠՠԠϠΠҠӬ)a(Š)GM6a(̠)M6|QBe3cca(ԠˠĠӠ)M6ca@E()'ca(ҠǠٯΩ)GM6q.?6@r`Y$!d6Ced6BeHd6Be^cca(ҠϠŠҠŠΠҠӠ١)ca(ƠӠ͠ӠŠƠΠɯҠՠ)GM6a()GM6|=a(ϠҠҠŠ̠Šš)8]ӠΠ΍ӠΠӠa@E(Ġ)!d6CeLd6Bed6_C ]ΠNJ٠ԠŊ̠ō֭à d_n#nM6@p()]̠ĠΠӊCxa(Ǡ)ca()8ca(ԠŠ)ca(ź)Gka(ˠ   ]ϠՠԠ"]ŠǮ90+]נԠӿ90a9,+]ҠӿҠή90 +]͠Ӡ )1100:1110&I1:J1:K1:K10IA(J)A(I)JJ1:K1K11:1004pB(K)K1:IJ:K10:KK1:J1N1004I1K1:K1K1B(I):C(I)A(K1):I2K1:K1C(I):K2B(I)JI111K1C(J)1011C(J1)C(J):B(J1)B(J):JC(J1)K************************"BUBBLE SORT"BP3(121):P4(122)R1100:1110_I1N1~J1NI:A(J)A(J1)906KA(J):A(J)A(J1):A(J1)KJ:I1140************************"DISTRIBUTION SORT"P3(121):P4(122A(K1)A(NI):A(NI)K2:I#1140A************************S "COUNT SORT"k!P3(121):P4(122){"1100:1110#I1N1$JI1N%A(I)A(J)B(I)B(I)1:807&B(J)B(J)1'J:I(I1N:KB(I)1:A(K)C(I):)1140**I2N:K1A(I)\JI101/]A(J)K1607B^A(J1)A(J):JS_A(J1)K1:I]`1140}a************************ "SELECTION SORT"P3(121):P4(122)1100:1110I0N1:K10J1NI:A(J)A(K1)K1JJK2A(K1):(K12):K10511"K2NK1:J1*IJFK3IK1:A(I)A(K3)509vK4A(I):A(I)A(K3):A(K3)K4:IIK1:I1507JJ1:JK25045061140************************ X"INSERTION SORT"YP3(121):P4(122)Z1100:1110[JK1IJ:J2J:JK411)JK413@A(J)A(J1)JJ1QK2A(J)413dA(I)A(J):408uA(I)K2:404A(1)K21140************************ "SHELL-METZNER SORT"P3(121):P4(122)1100:1110K1N1K10307IK01K0:317;JKN1:I1N:KB(K):A(I)C(K):EK1140cL************************s"HEAPSORT"P3(121):P4(122)1100:1110KN:K1(N2)1K11406K1K11:K2A(K1):407K2A(K):A(K)A(1):KK1:K1414)I:KJ:JJ1:II1:K2I:B(I)I:B(J)I:319K>JJ1:KJ1:K1B(K):K2B(J)a?A(K1)A(K2)324m@B(K)K2AKK2:K2B(K):K2K326BA(K1)A(K2)321CB(K)K1DKK1:K1B(K):K1K319EB(K)K2:327FB(K)K1GK0K01:K00318HK02K323K6K333034K6K61:K7K6:L1L2:K9K8M5K7K72:(K7)K7311o6K0K01:K8K8L1:L1L12:3097K8K8L1:K523148K9K43159K0K0:317:K9K4316;K0K01:II1:B(I)I:B(J)I:JJ1<K0K01+=II1:K1I:B(I)I:B(J1)K2:J:I 11403 ************************N ,"BUTTERFLY-HART SORT"f -P3(121):P4(122)v .1100:1110 /I0:JN1:K00:K31:K40:K5N:K60:K80:B(1)1:B(J)1 0K54306 1K3K32:L2K52:K5(L2):K4K4(L2K5)K3:3042K4K3K4:L************************, "SHELL SORT"D P3(121):P4(122)T 1100:1110 I16:B(I)B(I1)41:B(I)N2K1I I:B(K1)(N5)1:B(1)1:IK111:K1B(I) JK1N:K2A(J) KJK10K1:K2A(K)208 A(KK1)A(K):K A(KKA(J)K4107 lJI110; mKA(I):A(I)A(J):A(J)K:106R nA(K1)A(J):A(J)K4e oJK1K2J113 pB(K31)K1:B(K32)J1:K1J1:114 qB(K31)J1:B(K32)K2:K2J1 rK3K32:104 sK30117 tK2B(K3):K1B(K31):K3K32:104 u1140 v300,1400 P::104 Z************************* E d"QUICKSORT"] eP3(121):P4(122)m f1100:1110 gA(N1)9E37:K10:K2N:K30 hK1K2115 iJK21:IK1:K5((K2K1)2)K1:K4A(K5):A(K5)A(K1):A(K1)K4 jII1:A(I)K4106 kJJ1::255:14:"* TEN SORTS *"= (:32,5:" SORTING LIST TYPE" 2:"1 COMPLETE RANDOM"::"2 PRE-SORTED WITH 5 RANDOM"::"3 RANDOM GROUPS" <:"LIST TYPE? (1/2/3) ";L:L1L360 F:"NUMBERS TO SORT (2-2000)? ";N::"GENERATING NUMBERS":L1200,1( **************** * COMPARING * * TEN SORT * * ALGORITHMS * **************** A(2001):B(2022):C(2001):I0:J0:N0:K0:K00:K10:K20:K30:K40:K50:K60:K70:P1(103):P2(104) :     e.?6br]ҠϠ͠Ŋ@UVWde.?rYl`.?r$de4`%a@E()E@a@E()E@ a@E()%` ñq.?ròq.?r8ñr[e?r]ŠŠϠŠōŠĊALde de,dede`]̠ҠŠŊ-dBedCed>e.?Lrd?e.?Mrd<eñd=eòM,xq.?6~?r]ŠԠŠĊ>de.?6brd` ñqñ`ñ$ Xñqñòqò]8]ñòŠǠӠƍԠŊ, d6Ue]Ԡ͠ԠȊLq.?r`%q.?r]ˠԠΠһŠƠĬΠҠЊEq.?6?rq.?6U ]ŠĠРҊ٠Π̠Ċ̠Š֯àFdO4rq.?r.?r ]àӠϠҠCN@" rq.?r.?r !]àӠϠä,@p()]̠ĠΠ\ "803.2100W" "3D0G"4 "D$;"CLOSE ";FILE$LE$F2034:20 N203C:20":"203F:20 N2042:20 N204B:1A N2064:1A"l "2069:19 N2073:1A N207E:19 N208C:20":"2093:20"{ "1A2C:1B" "3D0G" "INVERSE" "PRINT";(34);"START RECORDER RECORDING";(34) "NORMAL:FORI=1TO2000:NEXT" "CALL-151""1EBB:19 N1EC6:1A N1ED6:1F N1EE5:1F":"1EE9:1F N1EEC:1E N1EFB:1F N1F0A:1F" "1F0F:1F N1F2D:20 N1F37:19 N1F42:19":"1F53:19 N1F66:1F N1F6F:1F N1F8D:1A":"1F9F:1F N1FC1:1C N1FC7:1C N1FCF:1F"7 "1FD8:1F N1FDB:20 N1FED:1A N1FF6:19":"2019:1D N201E:19 N"19D2:1D N1A0B:1B N1A10:1D N1A1C:1B":"1A21:1C N1AD3:1A N1AD6:1B N1AD9:1B":"1ADF:1A N1AE2:1B N1AE5:1B N1AEC:1B" "1D6B:1D N1D6E:1D":"1D7D:1D N1D82:1D N1D87:1D N1D8C:1D":"1D91:1D N1D96:1D N1DAC:1D N1DB1:1D"K "1DB6:1D N1DBB:1D N1E89:1B N1E96:1F":D2 CF D3 C5 A0" x"190A:1D N190E:1D N1911:1C N1920:1D":"1925:1D N193A:1D N194E:19 N1956:19":"195B:19 N1960:19 N1968:1D N196B:1C" "196F:1B N1980:1C N1984:1B N1990:1C":"1997:1B N199C:19 N19A1:19 N19A6:19":"19AB:19 N19B0:19 N19CB:1C N19CE:1D"q 5 FILE$"DEMUFFIN.FILE"&D$""<2D$;"OPEN ";FILE$S<D$;"WRITE ";FILE$gF"BLOAD MUFFIN"wP"CALL-151"d"1900 OR <.O> SUFFIX OR COMPATABLE WITH TED II+."+"OTHERS NEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.": + *+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:'2"Call -Apple Anthol- ogy, Vol IV, JUL-DEC 198:34,23:I11200::::10000SX(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110fb(222)255Ħpl::'2::4:"CALL -APPLE ANTHOLOGY, VOL IV ":::34,5:11000:3*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A H"Q45:"E T R A A":14:"S A R N">15:"O M Y G":16:"U";:40:"E";H17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:" ";:15:" ";:17:" ";W 23:" ";:25:" ";:31:" ";:33:" ";:39:" "_: "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R " ";:25:" ";:33:" "l" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:7:" ";:9AD PROGRAMS; USE .R FOR BRUN PROGRAMS . : 2::" CALL -APPLE ANTHOLOGY VOL IV JUL - DEC 1980 ":: I112:(I64)" "MENU$(I);:20:(I76)" "MENU$(I12):  ::1:2:" ";:9:" ";:17:ORTS" :MENU$(16)"DEMUFFIN!":MENU$(17)"HI-RES SCREEN":MENU$(18)"LINE NUMBER XREF":MENU$(19)"ANIMATION":MENU$(20)"OVERLAY" MENU$(21)"NFC":MENU$(22)"HEX CONVERTERS":MENU$(23)"VARIABLE LIST":MENU$(24)"MUFFIN CATALOG"( 0USE SUFFIX .L FOR BLO:MENU$(06)"BINARY CONVERTER":MENU$(07)"VAL.DC":MENU$(08)"VALUE FUNCTION":MENU$(09)"STR$ FUNCTION ":MENU$(10)"SQR FUNCTION" :MENU$(11)"DIV FUNCTION":MENU$(12)"DEC ADD/SUBTRACT":MENU$(13)"GAME SOUNDS":MENU$(14)"FREE SPACE PATCH":MENU$(15)"TEN SOADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"MEMORY MOVE":MENU$(02)"BASIC BEHAVE":MENU$(03)"INDEXING":MENU$(04)"AD INDEX":MENU$(05)"INPUT ANYTHING" L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"L =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     ĠϠŠōϠҠԠҠč٠ҠԠԠҠɯύύԠԠϠ͍ҠԍԱàԠԠŠԱàŠԱԲàĠԠŠԲӍҠҠԠԠɍɍҠÍӍٺčĠύύɍɍҠÍӍǠōōРҍŠҍƠҬԠԠȭҠԠĠٍ٠ӠĠŠΠϠΠЍƠ̭ĬΠϠ̠ҍӍٺōŠҠĠԠԠϠ͍ҠĠԠԠ͍͠ӍŠӠȱӠٺЍРύύɯϠȱŠҍԠԠϠ͍РԠˠϠЍˠҠ̭ˠȱР̭ѠӍР̭¿ŠˠύРĠӮϠԠРŠǍˠРˠҸҠԠϠ΍ԠԠĠ٠ο̠ԠύĠԠٍԠҠҠōРˠˠҠ̭̠ӠŠƠϠ̭ˠԠԠ͠ӍĠŠԠҿѠˠϮԠҠǠՠԠŠĠҠέˠӍӠӠҠҠàՠˠӠҍǠʠΠЍԠԍĠԠٿѠԠύΠԠԠҍՠɠՠϠՠɠՠϠՠɠՠԠՠưҠՠčϠՠčԠՠðΠՠðԠՠðϠՠưɠՠčŠՠŠՠĠՠðҠՠàĠԠ٠ӠźԭҠ̠ōЭɯϠϠ΍ĭԠϠ͍ĭԠ͍͠ŭԠŠ̍ϠՠŰΠӠԠŠ׬ΠΠӠĠϠŠӠ͠ҠŠ٠ҠҠӠ̠̠Ӡ Ԡ̠ŠŠҠ͠ǠàӠ̠ŠĠΠԠ٠ΠҮӠ  àūԠōڲàŠŠҮàŠŠԠſ٠ŠŠ٠ǮӍ͍ŠũٍԩٍԍŠڱנŠàԫԠōڱàԠήҮΠ٠̠ōРŠҠƠōΫԠčàūΠԮōŠڲנŠΠàĠĠԠΠҮƠŠ΍ŠĠƍԠĠҮƠ΍ΠĠǠŠՠŠՠÍԠՠΠՠō٠ŠŠ٠Ǯ٠Ҡ٠Ǯ yԠӠŠŠ٠ŠӠ̠Š̯ǬԠԠĠҮƠŠ   c) ,,L-)GLGɁ ɂLL` T `67 Q`67 Q`Fɍ  ` F`)`89 Q`) Ɋ`1):(62),(63):(66),(67)( ,MOVE:R SINCE BACKWARD MOVE, MODIFY T1, T2, T3R TT1:T1T2:T2T:T3T3T1T2:MOVE768o 250::DO THE MEM MOVE MEM MOVE ROUTINE T(T1256):61,T:60,T1256T T(T2256):63,T:62,T2256T T(T3256):67,T:66,T3256T "(60),(6I 72,0:1448 GET SOURCE, DESTINATION OF MOVE "SOURCE BEGIN ADDR.?";T1:"SOURCE END ADDR.?";T2:"DESTINATION BEGIN ADDR.?";T3 TT3T1T3T2: TEST WHETHER BACKWARDS MOVE NECESSARY MOVE805:T240: ELSE USE MONITOR'S MEM. MOVE) 823G"/ xI1(A$):511I,((A$,I,1))128:I? 72,0:144 FOLLOWING ROUTINE SAVES Y REG., CLEARS IT, CALLS MONITOR MEMORY MOVE ROUTINE, RESTORES Y REG. A$"325:84 47 A0 00 20 2C FE A4 47 60 N D823G" I1(A$):511I,((A$,I,1))128:)X BACKWARDS MEMORY MOVE BY LEE REYNOLDS CALL -APPLE * JUL/AUG 1980 d STORE BACKWARDS MEM MOVE ROUTINE  nA$"300:84 47 A0 00 B1 3C 91 42 A5 42 D0 02 C6 43 C6 42 A5 3E C5 3C A5 3F E5 3D A5 3C D0 02 C6 3D C6 3C 90 E2 A4 47 60 N D    W.DATA.FLAG..A$(J,1TOC1)=DATAG ********.TIME.TEST.************* ]9200:9250:9260oHD":"MD":"SD9200:9260I11000A5I423I9200:9270HD":"MD":"SD"DONE":1016:p ******.PRINT OUT.************NONE 0 ******.EDIT.FILE.*************** =IN:NONEe::5:" EDIT WHICH RECORD? ";K$uK$""1010J(K$):8510:ROW.INPUT.SUB" STOP? (S) ";:Q$:Q$Q$"S"4020ND1:1010: NEW.DATA.FLAG.THEN.MENUOUT:ND=NE **.PRINT.FIELDS.SUB** I (VI):(H(A$(0,I))):A$(0,I);" ";I:p **.DISPLAY.FOUND.RECORD.SUB.**  :V5:H18:SCREEN.POSITION "RECORD #"J* I1C14 ::8710: ?.DATA.SUB> IH R **.QUIT.** \ 1000:MENUf OUT:  3420:QUIT- **.CONTINUE.SUB.** o :"KEY TO CONTINUE, ^ FOR MENU. ";:Q$:Q$"^"ġ:3420:QUITu  **.REVIEW.ALL.**  J1R1 ::A$(J,1)""1000 ::3350:DISPLAY.FOUND.RECORD ::3230:CONTINUE  3420:QUIT:3330:PRINT.FIELDS.SUB: ^D Q2::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$)N ::"INPUT SEARCH WORD:";A$:A$"^"3420:QUITX J1R1b ::R$A$(J,Q):R$""3210l ::210:SEARCHv ::S1S10:3340:3230:DISPLAY.&.CHOICEELDS 1"( 6:"REVIEW ALL ENTRIES 2":h Q1::17)"WHICH? ";:Q;:(25):Q$:Q$:Q$(13)Q(Q$) Q$"^"3420:QUIT Q23260:REVIEW.ALL **.SEARCH.FIELDS.**  :3:10:"FIELDS:": V5:H22:SCREEN.POSITION& I1C10 :""2050K:K=NEXT.OPEN-8010:INPUTF ND1:NEW.DATA.FLAGV1010:MENU OUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATA ******.REVIEW.FILE.*************  IN:A$(R1,C1)=DATA.ARRAY :7:10:"REVIEW FILE :":: 11:"SEARCH FI1000. ********.QUIT.****************** ::7:" THIS IS THE"::10)NA$::20)"PROGRAM."::::" BYE FOR NOW, BOB!":::1016: ******.INPUT.DATA.************** IN:R1=ARRAY.ROWS..A$(R1,C1)=ARRAYK1R1::A$(K,1)E.**** 9710:1000A@ ********.SAVE.FILE.************* QJ9400:1000{ ********.SET.UP.FILES.1ST.TIME.* :::"FILE SET UP WILL DESTROY ANY EXISTING":"FILE ON THIS DISK. TYPE 'YES' TO":"CONTINUE. ";A$:A$"YES"10009400::"SET UP FILES 1ST TIME 7"= j:" QUIT 8"^ o:" DISPLAY COLUMNS 9" tQ1::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$) ~Q1410,2010,3020,4010,1610,6010,1810,1990,32020 1000x ********.READ.EXISTING.FILIN:ND=NEW.DATA.FLAG :% 5F :" READ EXISTING FILE 1"g :" INPUT NEW DATA 2" $:" REVIEW FILE 3" .:" EDIT FILE 4" 8NDğ B:" SAVE FILE 5" L V:" PRINT LIST W TOTALS 6" ` IJ% LIM:B(I,0)B(L,0)450J TB(I,0):B(I,0)B(L,0):B(L,0)Tq T1B(I,1):B(I,1)B(L,1):B(L,1)T1 IIM:I1450 400 JJ1:JK370 390 :OUT:B$(R1,1)=ARRAY.OF.DATE.ORDER  ******.MENU.********************  + , ********.ORDERING.************** I 6 IN:A$(R1,1)=RECORD.DATEU @I1R1 J::A$(I,1)""360:LOOK.FOR.END.OF.DATA T::B(I,0)(A$(I,1)):B(I,1)I:FORM.ARRAYS.OF.DATES.&.REC.NOS ^ hNI1:MN rM(M2):M0470 |J1:KNM 770:ZZ$:960:7& 9000:INIT: 2:23010:SAVEd ********.SEARCH.**************** IN:R$=FILE$..A$=SEARCH$..T$=LOCAL L1(R$) ::T$(R$,L,((A$))) ::T$A$S11:OUT:LOOP.CNTR.SET.TO.SEARCH.RECORD..S1=FOUND.FLAG :$9:..10/16/80.18;48 :NA$"HOME.INVENTORY":: s5:::" CALL770:LISTXXXXX-YYYYY:GOTO 6":(37)1:5:1016:D$(4):2:9210:770:NA$" "(TI$,5)"/80 "(TI$,7,5):960:960:1016: "TEXT:":"";ZZ$:ZZ$""Č1016:              ҩٍύٍϫàҩٍϫ٠ōÍ٠ٍٍٍ̩̩à٠ōٍٍРɠؠ٠Р؍ҍ̍ҫ٠ؠ ƍÍԠàÍύٍÍàҩٍύٍϫɠǍؠǠàҩٍϫ̠ԍŠԍύٍÍԠĬ̠ՍĠРԍԠՠԠРϠŠύϠՠҠՠàՠč̠ؠؠŸؠؠؠؠٍٍ̩ύٍٍ̩ϫٍ̍ύٍ̩̍̍ȍȍٍ٠٠ٍ̩ؠÍàٍٍ̩؍ٍ̩̍ؠȍٍؠŠ؍ؠٍ̩Š؍ΠՠȠōӠٍŠԍˠϠŠōԠԠōƠōؠٍٍ̩ѠԱŠرԱٍٍ̩ŠԲĠԠŠčŠԠύرٍٍٍزٍٍ̩ŠزٍٍٍٍàÍȍàȍȍȍנԠ̠ύΠƠǍ̍̍ȍȍĠԠƍĠ٠Ԡٍ̩РѠ؍Բ؍ٍٍ̩̍ؠȍ٠Ԡٍٍ̩ŠԍŠŠōŠٍ̩àٍ̩̍à̍̍РƍŠōȍàȍàȍР̠ōנԠǠčӠҠӍ ̠ՠȠՠ̠ՠȠՠ̠ՠȠՠȠՠȠՠÍ̠ՠƍȠՠ°ǠÍȍȍàȍ̍̍̍ԠӠύŠĠƍǠϠ؍  ҍӍЍӍ΍͍ǍҍȍȭЍӍ΍͍͠ԍčԍנٍӍԍŭčӍԍҍӍ͍ύ׍Ǎ͍ҍӍōӍƍǠ͠ԍǍҍԍ̍Ӎ΍ð͍ύ׍̠ԍҍӍιЍ΍ŭǍҍōɍӹƍ  Ș 0 L 8AeC@BB@@BBBACA8ejlg@hA@ @@A@ȱ@ȱ@ȩ@@BACȄ @8e@@@AȦ @L'd ȱ@ȱ@/8ȥ0qȥq BȩB  ĠŠĠƲŶƹİŷƹŸưŠù°ưùùư ĠĠƸøñŸč°õźų±±ú²ĺ¸čĺòĠôčôĺĠĶĠĶĺčĸƳƲù°ƹƲĠŠĠƳ