L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00          ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ     B(20((A$)2)):B0B1( B:A$:ύǸǍʹԍЍ˰̍ύ¸ԍ¸͍̍ЍЍҍưӍύ˱Ѝ˱ԍɍ˴ԍЍ²Ѝ΍²ԍ˲ō΍˰Ѝύ˲͍ύ΍±Ѝ΍DzЍЍ±³Ս΍²Ս΍²ύ°ԍ΍²ԍ΍±ɍǹ͍Ǹԍ΍ԍЍҍ±ԍҍӍ΍±΍͍ҍưԍӍ³ԍՍ°ӍЍ΍¹Ӎҍ͍֍¸ЍՍ±̍֍¹͍Սͳԍ֍ǵЍӍ³͍¹ԍύ͍̍΍²Ӎ֍˳̍Ս²̍Ս˳ԍЍ˰ɍ˱̍ύōύ͍΍эҍ˵͍ύ˰ՍͰЍҍµōҍ°Ս̍ǵύǰ̍ҍǰ֍ҍЍύ·ōҍ¸ԍύư͍ԍҍưЍ΍ͰЍ̍²Ѝ˴΍̍˵ōƶӍӍǰԍ˰ԍ͍̍˵Ѝҍ³ԍҍɍҍ³ԍЍϵύЍƶ͍̍׷Ӎҍ˰ɍǵ̍̍)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$ RUN TRANS.COPY,D1"6t12500:D$;"RUN SEARCH.SORT,D1"C:D$""OZZ$"E"_N130:L940s:"DISK # ?";D:"OLD FILE NAME? ";F$:D0D:D1DL100:R020:30RT:NF:L:MR1710Z$"T"4590I1NF:SKIP(I)1:IǍǸ̍ҍЍԍǍͲЍǍ¹͍Ѝ˱ЍՍµԍЍ˱ЍÍ˳̍ЍƵԍǍ¸ԍՍͳԍЍ²ԍҍǰӍǍ˲̍Ѝ͍Ս¸ЍҍDzЍ̍ō̍¹ԍЍЍ˰ӍǍ˰ԍǍǸЍЍ˱ɍҍƲ̍ǹ̍̍ưԍǍ˳̍Ǎ¹͍̍˳ҍ²ɍҍ˱͍ҍ¹ԍҍԍ͍̍̍¹Սҍҍ˰Ӎҍ¹͍ҍ˲Ѝҍɍҍ¸ԍٍЍǍƲǍύ˱͍˵Սȍǹ͍ҍ˰ҍͳ̍ҍ˲ЍȍōύưЍύ²ԍȍ˲ՍҍǵՍҍǵԍύ²ԍ˳͍±Ӎύ²Ѝ³ԍDz͍ύ±¶ȍύƲЍҍ͵̍ҍɍҍ˳ōȍҍǷЍ˲Ӎύ˲Սύ±ԍ˵Ѝȍ˲ԍ±¸ЍύͱԍҍǸՍύ°ԍȍϹԍҍǰɍύ±Ѝ²̍ύ°ԍύ°̍ȍͱӍȍǹǍύ²͍ɍԍ˲͍Ѝ²ЍЍҍ˲ԍƲ' CHICAGO, IL 60637-' (312)-324-6194D * ':;,..,:' *1&r * *L&| * CYGNUS ENGRAMS *g& * *& * COPYRIGHT 1979 *& * *& ********************& PROGRAMMER:& DR. GORDON BANKS& 5715 S. DREXEL #209G1ZZ$Z$:F$"NONE"ī8000#%L14520>% ********************Y%" * *t%, * .;:-=-:;,. *%6 * / " *%@ * ! + *%J * : ; *%T * "+,..., , *%^ * + ; *&hSC0:D$;"PR#0":L940:8000o$0D$;"DELETE CURRENTFILE ,D1":D$;"OPEN CURRENTFILE ,D1":D$;"WRITE CURRENTFILE"$0Z$:D:L9:SC:F$$0D$;"CLOSE":$81D$;"OPEN CURRENTFILE,D1":D$;"READ CURRENTFILE"$B1Z$:D:L9:SC:F$:D$;"PR#";SC:D$;"CLOSE"%:RR$:I#>+SUMSUM(RR$)"#H+R*#M+506#P+ZZ$"E"#R+:"SUM OF ";RT3;" ITEMS OF ";HD$(NN);" IS...";SUM:"AVERAGE = ";SUMRT3:20::"PRESS RETURN TO CONTINUE";Z$::8000#.SC312100#.CD0:I1NF:SKIP(I)1::D$;"PR#3":L980:SC3:8000$D/ REEENTER":100704"`'LBLB1:LTLT1:LTRTLTRT1>"j'1350a"*34,0::"TOTAL WHICH FIELD: "m"*I1NF"+" ";I;". ";HD$(I)"+I" +:"ENTER BY NUMBER: ";NN"+::"SUMMING ";HD$(NN):"+SUM0:20:30" +R2RT1"*+30:RR#4+I1NN80 CHARACTERS/LINE":"CHANGE IT (Y/N)? ";COM$Q!.'(COM$,1)"Y"Ą"HOW MANY? ";L9!8'"PRINT ALL RECORDS (Y/N)? ";COM$:(COM$,1)"N"10070!B'LB2:LTRT1:1350!V'"PRINT LINES (BEGIN,END) ";LB,LT"['LBRT1ĺ"LESS THAN ";LB;" RECORDS IN THE FILE, 80:PS2::"PRINTER DEFAULTS TO SLOT#";PS:"CHANGE IT (Y/N)? ";COM$n 'ZI(MR)(10):ZI(ZI)1:1730:NPNF 'NPNF:DR10010 'DWİ1700:10010 'DW1:1700:DW0 '(COM$,1)"Y"Ą"TO WHAT? (1-7):";PS:PS1PS710010-!$'"PRINTER DEFAULTS TO F A COLUMN" "DOS COMMANDS:"3" 0: NOMOND " 1: MONP :6000bl Z$"X"8315sq PASS13580}v 3505{ Z$"T"8325 PASS13280 Z$"T"3020 Z$"Q"5005 Z$"M"PASS5207 Z$"M"5202 6000D 'L849:L9" MERGE (TWO FILES)"4" NEW (FILE CREATED)"R" OLD (FILE RETRIEVED)"n" PRINT (INPUT FILE)"" QUICKSORT (INPUT FILE)"" SEARCH (INPUT FILE)"" TRANSFER (DATA TO A NEW FILE)"" UPDATE (INPUT FILE)" " Z: SUM OINPUT FILE TO ANOTHER DISK)"G^" DELETE (RECORDS FROM INPUT FILE) "_h" EXIT (PROGRAM)"j" FLIP (SCREENS FROM APPLE TO TERMINAL)"m" HELP (HOW TO USE THIS PROGRAM)"r" INSERT (RECORD INTO INPUT FILE)"|" LIST (INPUT FILE)"%3Z$"H"İ12500:D$;"RUN HELP,D1"78Z$"P"10000IBZ$"Z"11000[LZ$"F"12000v"NOT A VALID COMMAND"7000:8000X"": BEEPb@:"VALID COMMANDS ARE:"EJ" ADD (SINGLE RECORDS TO INPUT FILE)"T" COPY ("N"47005Z$"E"ZZ$"9":34,0:F$"NONE":12500:FZ$"L"1200VZ$"A"600gZ$"D"2000xZ$"I"2500Z$"U"2260Z$"T"3000Z$"0"1980Z$"1"1950Z$"C"3500Z$"S"3700$Z$"Q"5000.Z$"M"5200, REENTER":70004765*LLNC(I)11IJI1NF:SKIP(I)1:IXRT0:800fRT2:60012500:D$;"RUN SEARCH.SORT,D1"P12500:D$;"RUN MERGE,D1"pZZ$"E"6040u:"COMMAND?";COM$:Z$(COM$,1)Z$"O"ī4500Z$RD? ";NF3u"EXPECTED MAXIMUM NO. OF RECORDS ";MRGzDT1:1712:DT0SI1NF"NUMBER OF CHARACTERS IN FIELD #";I;"? "NC(I)"NAME OF FIELD #";I;"? "HD$(I)Z(HD$(I))ZNC(I)4800"NAME TOO LONG FOR SIZE OF FIELD I1NFNC(I) I&50.R1620> 30E*RQ4I1NF]>HD$(I)dHIyR50:PASSİ1300W8300\:D$""aL940:L4:N130d:ZZ$"E"f"NEW FILE NAME, DISK # ?";F$,D:D0D:D1Dp"NUMBER OF FIELDS PER RECOy R~ I1NF W$(I,K)% I- 50E "UPDATE MORE? ";Z$[ (Z$,1)"Y"2260a k 6000 ZZ$"E":F$"NONE"İ760  "INSERT BEFORE WHICH LINE? ";IB  1730:1700 IBIB1 IS1:NQNF:CD0 NTNF:NRNF:NWNFI1NF W$(I,K) I# 50/$ I1NFI. "CHANGE ";HD$(I);"?"Q8 A$hB (A$,1)"Y"2400L HD$(I);"=";W$(I,K);" CHANGE TO? "V W$(I,K)X (W$(I,K))NC(I)2400\ "ENTRY TOO LONG, REENTER":7000:2390` Ij 20t 402000:NQNF& NWNF:NRNF:NTNFE*RBDE1:WBDB:FF$F$:G$F$[/RERT1:L0L:L1Ld4415o9F$FF$>RTRTDI:850:6000ZZ$"E":L760:N130:17301705:"UPDATE WHICH LINE? ";MMK0RMM120 30 R READING: ";IN$#PNTİ4200$#]"PNT1K#:"NAME OF DISK: ";DN$o#:"TAPE NUMBER,SIDE: ";TN$,SI$#:"INDEX COUNTER READING: ";IN$#PNTİ4200#TO CONTINUE";A$"mPNT0:ALL0c"r:"TRANSFER ALL FILES ON DISK TO TAPE? ";A$:(A$,1)"Y"ALL1"|:"PRINT A INDEX OF PROGRAMS ON THE TAPE? ";A$:(A$,1)"Y"PNT1":"NAME OF DISK: ";DN$":"TAPE NUMBER,SIDE: ";TN$,SI$#:"INDEX COUNTERHE TAPE WILL BE AN APPLESOFT PROGRAM TO SET UP AN EXEC FILE TO RELOAD THE PROGRAM FROM TAPE ANDSTORE IT ON THE DISK."~!Y!^"TO RESTORE THE DISK, LOAD THAT PROGRAM AND RUN IT. THE COMPUTER WILL CONTROL THE TAPE RECORDER.""h22:"PRESS RETURN % @:"DISK-TAPE TRANSFER PROGRAM": J"THIS PROGRAM WILL CREATE A EXEC FILE TO TRANSFER APPLESOFT, INTEGER, AND BINARY PROGRAMS FROM THE DISK IN DRIVE 1 TO " O"TAPE. THE EXEC FILE RESIDES ON THE DISKIN DRIVE 2." Qx!T"THE FIRST PROGRAM ON T0A00F9100A002B100A010910060"2J0(CODE$)21iA$(CODE$,2J1,2):B1(A$)48:B2((A$,2,1))48NB27(B29)16(B17(B19))LJ,N:J:X ---HEADER---bOUT1ĹCM,CMIl"PT LEN START BLEN NAME "vCM,CMN:ER A TEXT FILE.": TYPE0ı,JJJJ1>TYPE(JJ)TYPERNAME$(JJ)NAME$`SC(JJ)SCrTYPE45095BS(JJ)BSBL(JJ)BLPNTİ3500p ---JSR RWTS CODE POKER---L935:CODE$"20E3038400850120D903B006A00DA9009100A001B10D$:hD$;"PR#2"m:ar"TAPE NO.";TN$;" SIDE ";SI$;" FROM DISK ";DN$;" INDEX ";IN$:|" 1. A MENU PROGRAM"D$;"PR#0":ALL5015"TRANSFER? ";:500(37)CH$"Y"ıTYPE0ĺ"SORRY, CAN'T TRANSFFER,D2";Q$=26;"PRINT D$;";Q$;"DELETE TAPETRANSFER,D2";Q$j25;"PRINT D$;";Q$;"DELETE LOADER,D2";Q$30;"PRINT D$;";Q$;"OPEN LOADER,D2";Q$40;"PRINT D$;";Q$;"WRITE LOADER";Q$50;"PRINT";Q$;"MON I,O,C";Q$F$"TAPETRANSFER":20g" ";:NAME$:D$;"PR#0":. INIT TEXTFILESDF$"MENU":20:40N"FP"x5;"POKE -16291,0":6;"POKE -16295,0"10;"D$=CHR$(4)"20;"Q$=CHR$(34)"SN10024;"PRINT D$;";Q$;"OPEN LOADER,D2";Q$ 23;"PRINT D$;";Q$;"OPEN TAPETRANSER,D2"< "CLOSE"( "EXEC MENU":6 TYPE0ıG TYPE43050Q 1500W a 1600g v D$;"PR#2" NJJ1:830:". ";(TYPE$,TYPE1,1);" "; NSC:830:" "; TYPE4ĺ" ";:3540 NBS:900:NBSBL:".";:900 END"* "POKE -16295,0":"POKE -16289,0"P "POKE -16292,0":"POKE -16291,0"\ "SAVE"( "POKE -16296,0":"POKE -16295,0"2 "EXEC TAPETRANSFER"7 F$"TAPETRANSFER":40:"POKE -16295,0":" POKE - 16291,0":" DELETEMENU,D2":" DELETETAPETRANSFC;" LEFT": :# 4000:NJJJ0 JJ1NJp SCSC(JJ):BSBS(JJ):BLBL(JJ):NAME$NAME$(JJ):TYPETYPE(JJ)z 3000 JJ F$"MENU":40 SNSN5:SN;"PRINT D$;";Q$;"CLOSE";Q$ SNSN5:SN;"PRINT D$;";Q$;"EXEC LOADER";Q$ SNSN5:SN;"~ J KI4J:CHRDBUF(K)0 CHR632450O CHRCHR192:OUT1ĹCM,CMId CH$(CHR):CH$;x NAME$NAME$CH$ CM,CMN:K H$:LINELINE1 5000 (KB)1552500 I DSECTR 33,40  :TTSEC;" SECTORS USED; ";403TTSE> COMMAND INVOKES A QUICKSORT ALGORITHM TO SORT THE PRI- MARY SORT FIELD SPECIFIED. SECONDARY SORTS ARE DONE USING EXCHANGE SORT. IF THE PRIMARY FIELD CONTAINS NUMEROUS"Ev"IDENTICAL KEYS, SORTING EFFICIENCY MAY BE IMPROVED BY BREAKING FILE ING"g" THE COMMAND 'SEARCH' ALLOWS THE LOCATION OF ANY STRING, VALUE OR RANGE IN A FILE. RECORDS SATISFYING THE SEARCH CONDITION MAY FORM A NEW FILE. THE NEW FILE MAY BE SUB-SEARCHED."kl"6.2 SORTING"q" THE 'QUICKSORT' INTO INPUT FILE)"!|" LIST (INPUT FILE)" "" MERGE (TT.ADD,D1"1 BZ$"Z"İ12500:"RUN CREAT.ADD,D1"C LZ$"F"12000^ "NOT A VALID COMMAND"h 7000t :8000 D$;"RUN HELP,D1" X"": BEEP b @:"VALID COMMANDS ARE:" E J" ADD (SINGLE RECORDS TO INPUT FILE)"!T" COPY (IN00Z$"A"600#Z$"D"20004Z$"I"2500EZ$"U"2260VZ$"T"3000gZ$"0"1980xZ$"1"1950Z$"C"3500Z$"S"3700$Z$"Q"5000.Z$"M"52003Z$"H"İ12500:D$;"RUN HELP,D1" 8Z$"P"İ12500:"RUN CREAİ1300W8300+\D$;"RUN CREAT.ADD,D1"O12500:D$;"RUN SEARCH.SORT,D1"fPD$;"RUN MERGE,D1"ypZZ$"E"6040u34,0::"COMMAND?";COM$:Z$(COM$,1)Z$"O"ī4500Z$"N"4700Z$"E"Ĺ34,0:F$"NONE":12500:Z$"L"12:"OLD FILE NAME? ";F$:,D0D:D1D:L100:R0F20:30YRT:NF:L:MRc1710tZ$"T"4590I1NF:SKIP(I)1:II1NFNC(I) I50R120 30*R4I1NF>HD$(I)HIR50:PASS 100 TERE:TBRB  4500 WBRB:WERE9 200F" RTRTKKO, 850Y6 6000| 12500:D$;"RUN TRANS.COPY,D1" 12500:D$;"RUN TRANS.COPY,D1"t12500:D$;"RUN SEARCH.SORT,D1":D$""ZZ$"E"N130:L940:"DISK # ?";D } 450 200 850% 6000= RBRE1:RERBBLOCKF 100[ WBWE1:WEWBKKs PASS0WEWBBLOCK| 200 TERE:TBRB 450 DUDUBLOCK PASSPASS1 DUBLOCK2710 WBWE1:WEWBBLOCK 200 RBWE1:RERT1 600 KKK1 PASS0, DURT1IB? RBIB:REIBKKH 100[ WBIB:WEIBKKd 200t( TERE:TBRB}2 450< DUBLOCK2710F RBRE1:RERT1P 100Z WBWE1:WEWBKKd 200n TERE:TBRBx WBWE1:WERTKKz RTRTKK1RAM":2( 15:"BY G. BANKS"::15:"12 MAY 1979"( ::"TO SEE INSTRUCTIONS, ENTER '1'":"TO RUN MAIN PROGRAM, ENTER 'R'":"TO EXIT, ENTER 'E'":"TO RETURN HERE, ENTER '0'."( A$( A$"R"ĺ"RUN CREAT.ADD"( A$"E"Ā( A$"1"ī10) A$" .4"2'" QUICKSORT . . . . . . . . . . .9"`'" SEARCH . . . . . . . . . . . .9"'" TRANSFER . . . . . . . . . . .8"'" UPDATE . . . . . . . . . . . .6"'99( :8:16:"FILES 1.0"::8:"A DATABASE MANAGEMENT PROGH> . . . . . . . . . . . . 12"L&" INSERT . . . . . . . . . . . .7"z&" LIST . . . . . . . . . . . . 12"&" MERGE . . . . . . . . . . . . 10"&" NEW . . . . . . . . . . . . . .3"'" OLD . . . . . . . . . . . . . COMMANDS"8%" ADD . . . . . . . . . . . . .5"f%" COPY . . . . . . . . . . . . .8"%" DELETE . . . . . . . . . . . .6"%" DOS COMMANDS <0>,<1> . . . . . . 12"%" EXIT . . . . . . . . . . . . 12"&" HELP " %"III.INDEX TO MOST PROBLEMS WILL RELATE TO RUNNING OUT OF MEMORY. WHEN THIS OCCURS APPLE- SOFT INITIATES 'HOUSECLEANING' ON THE STRING VARIABLES. THE TIME REQUIRED FOR";f$u"THIS OPERATION CAN BE QUITE LENGTHY AND CAN ONLY BE INTERUPTED BY A RESET WHICH WILL NECEOMMAND 'HELP' IS USED.""b" THE DOS COMMANDS MON AND NOMON CAN BEINVOKED FROM INSIDE THE PROGRAM BY EN- TERING 1 OR 0 RESPECTIVELY. (SEE APPLE DOS MANUAL FOR EXPLANATION OF WHAT THESEDO.""e99"f:36:"<14>""k:"II. DEBUGGING"#p" LE. IF THE RECORD"}!_"LENGTH EXCEEDS 40 CHARACTERS, THE USER SPECIFIES WHICH FIELDS ARE TO BE INCLUD-ED IN THE LISTING."!`" TO EXIT PROGRAM AND RESET POINTERS, THE COMMAND 'EXIT' IS USED.""a" TO OBTAIN THIS INSTRUCTIONAL PROGRAM,THE C FIT THE NEEDS OF INDIVIDUAL SUBROUTINES."3 R99E \:36:"<13>"!^" COMMANDS ARE INVOKED USING EITHER THE FULL NAME OR THE FIRST LETTER. THE COM-MAND 'LIST' IS AVAILABLE IN ALL SUB-PROGRAMS AND PRODUCES A CRT LISTING OF THE CURRENT INPUT FIAYS, THE LENGTH OF WHICH IS LIMITED BY THE AVAILABLE MEM- ORY. THE DIMENSIONS OF THE STRING AR-"+ H"RAYS ARE DETERMINED BY THE NUMBER OF FIELDS IN A RECORD AND BY A PARAMETER 'BLOCK', WHICH IS A FUNCTION OF ANOTHER PARAMETER 'N', WHICH VARIES TOTING INFORMATION IN RECORDS 1 AND 0.">"ANY FILE CAN BE MANIPULATED, PROVIDED THE FORMAT INFORMATION IS AVAILABLE IN RECORD 1 AND 0, WHETHER OR NOT IT WAS CREATED BY THIS PROGRAM."cC" RECORDS FROM THE FILES ARE READ INTO MEMORY AS STRING ARR FILES."E'" MERGE ALLOWS MERGER OF SIMILARLY FOR-MATTED FILES."M)99a*:36:"<12>":/"I. GENERAL INFORMATION"%4" THIS DATA BASE PROGRAM CREATES RANDOMFILES AND THEN PROVIDES EDITING FACILITYFOR ANY FILES CONTAINING THE PROPER FOR-MAOLD FILES AND LISTS."k$" EDIT.FILE ALLOWS EDITING OF OLD FILES, VIZ. UPDATE, DELETE, INSERTION."%" TRANS.COPY ALLOWS FILES TO BE TRANS- FERRED OR COPIED TO ANOTHER DISK."&" SEARCH.SORT PROVIDES CAPABILITIES FORSEARCHING AND SORTINGDULES""" THE FUNCTIONS DISCUSSED IN THE PREVI-OUS SECTIONS ARE IMPLEMENTED IN THE FORM OF SUBPROGRAMS COMBININGA FEW RELA-TED COMMANDS IN ORDER TO SAVE MEMORY."#:"THESE ARE:"::" CREAT.ADD ALLOWS CREATION OF NEW FILES, ADDITIONS TO RARCHY OF FIELDS TO BE USED IN SEQUENCING."" FOR EXAMPLE, A FILE WITH FIELDS FOR FIRST AND LAST NAMES, ONE LIKELY WOULD SORT ON THE LAST NAME AND THEN ON THE FIRST NAME, AS IN A PHONE BOOK."99 :36:"<11>"!:"8.0 SUBPROGRAM MOTO SUB- FILES AND SORTING INDEPENDENTLY, AND MERGING AT THE END."M99_:36:"<10>"r"7.0 MERGING"-" FILES OF IDENTICAL FORMAT MAY BE COMBINED IN SEQUENTIAL ORDER USING THE 'MERGE' COMMAND. THE USER MUST SPECIFY THE HIE$"O"ī4500"Z$"N"4700I"Z$"E"Ĺ34,0:ZZ$"E":F$"NONE":12500:Z"Z$"L"1200j"Z$"A"600{"Z$"D"2000"Z$"I"2500"Z$"U"2260"Z$"T"3000"Z$"0"1980"Z$"1"1950"Z$"C"3500"Z$"S"3700#$Z$"Q"5LOP:I1NF:R$(I,K0):B!RRC:F$FF$:40:R:I1NF:R$(I,K0):Z!RSRS1:RSR25580w!RCRC1:RRS:F$G$:5520!D$;"RENAME ";F$",";FG$:F$FG$:800:DD2:D1D2:D0D2:L940:6000!pZZ$"E"6040!u:"COMMAND?";COM$:!Z$(COM$,1) "ZFG$:40:R:I1NF:S$(I,K0):$ mF wRTR1R22:800::L940:6000u |NQNF:"ENTER NAME FOR COMBINED FILE ";FG$ }G$;" WILL BE APPENDED TO ";FF$;".";:" OK?";COM$:(COM$,1)"Y"8000 ~MRM1M2:RTR1R22: RS2:RRS:RCR1:F$G$!30:G5420)5410],F$FF$:50:F$G$:50:F$FG$:RTR1R22:800::L940:DD2:D0D2:D1D2:6000iJR2R1OF$FF$:30:GLOP:I1NF:L$(I,K0):TF$FF$:40:R:I1NF:L$(I,K0):Y^RR1R1R21cF$G$:30:GLOP:I1NF:S$(I,K0): hF$Ы54105305DF$G$:RRS:30:GLOP:I1NF:S$(I,K0)::RSRS1RCRC1:F$FG$:RRC:40:RC:I1NF:S$(I,K0)::RSR254205400"F$FF$:RRL:30:GLOP:I1NF:L$(I,K0)::RLRL1'RCRC1:F$FG$:RRC:40:RC:I1NF:L$(I,K0)::RLR1ĭLVLSNN1:FIFI(N):5332%53354NNK5335ESN(N)5266O5327oRCRC1:F$FG$:RRC:40:RCI1NF:L$(I,K0):FL0:RLR1RSRS1:54005305RCRC1:F$FG$:RRC:40:RCI1NF:S$(I,K0):FL1:RSR2RLRL1:LOP:I1NF:L$(I,K0)::RL36N1:FIFI(N):FL5320dF$FF$:RRL:30:GLOP:I1NF:L$(I,K0):|RLRL1:RLR154005327F$G$:RRS:30:GLOP:I1NF:S$(I,K0):RSRS1:RSR25410LV(L$(FI,K0)):LS(S$(FI,K0)):LVLS5350NNK5275SN(N)5327(5266HRCRC1:F$FG$:RRC:40:RC`I1NF:L$(I,K0):~FL0:RLR1RSRS1:54005240RCRC1:F$FG$:RRC:40:RCI1NF:S$(I,K0)::FL1:RSR2RLRL1:54105240F$FF$:FL1:RRL:30:GK0)::RL3$xN1:FIFI(N):FL5255>zF$FF$:RRL:30:GLOPV}I1NF:L$(I,K0):bRLRL1l5266F$G$:RRS:30:GLOPI1NF:S$(I,K0):RSRS1L$(FI,K0)S$(FI,K0)5290L$(FI,K0)S$(FI,K0)NN1:FIFI(N):52725275? ";A$:(A$,1)"Y"SN(N)1@jI1NF:K$HD$(I)FI(N)I:5228vkI:K$HD$(I1)ĺ"NAME NOT FOUND, REENTER":5225lFI(N)I:NnRC1:RL2:RS2:FIFI(1)pF$FG$:MRM1M2:DD2q20sSN(1)5300 uF$FF$:FL1:RRL:30:GLOP:I1NF:L$(I,QUENCED OR ALPHABETIZED? ";A$:(A$,1)"Y"5500:aNQNFd"ENTER NAME FOR COMBINED FILE, DISK # ";FG$,D2:"HOW MANY KEYS ARE TO BE SORTED ON? ";NKeDM5223fFI(NK1),SN(NK1):DM1gN1NKi"ENTER NAME OF KEY #";N:K$:"IS DATA NUMERIC$"":D$;"MAXFILES 4":"ENTER NAME OF LARGER FILE, DISK # ";F$,D0:DD0:D1D0:D2D0:FF$F$:Z$"M":4525R1730:1700:M1MR:R1RT:PASS1U20::"ENTER NAME OF SMALLER FILE, DISK # ";G$,D1:F$G$:DD1:Z$"M":4525W20:M2MR:R2RT0Z"ARE FILES SEDR. GORDON BANKS+, 5715 S. DREXEL #209D, CHICAGO, IL 60637Z, (312)-324-6194..., , *(+^ * + ; *C+h * ':;,..,:' *^+r * *y+| * CYGNUS ENGRAMS *+ * *+ * COPYRIGHT 1979 *+ * *+ ********************+ PROGRAMMER:, $"13"860* PAGE$"14"8702* PAGE$"15"900F*(#PAGE$"0"2500P*-#2500k* *********************" * **, * .;:-=-:;,. **6 * / " **@ * ! + **J * : ; * +T * "+,0"2500) 2500$) PAGE$"3"1006) PAGE$"1"10H) PAGE$"2"60[) PAGE$"4"200n) PAGE$"5"300) PAGE$"6"400) PAGE$"7"434) PAGE$"8"500) PAGE$"9"600) PAGE$"10"700) PAGE$"11"800) PAGE$"12"810 * PAGE:S$(I,K0):3mOwRTR1R22:800::6000|NQNF:"ENTER NAME FOR COMBINED FILE? ";FG$~MRM1M2:RTR1R22::4920RS2:RRS:RCR1:F$G$30:GLOP:I1NF:R$(I,K0): RRC:F$FF$:40:R:I1NF:R$(I,K0): RSRS1:RSR25580; LR154204)5410l,F$FF$:50:F$G$:50:F$FG$:RTR1R22:800::6000xJR2R1OF$FF$:30:GLOP:I1NF:L$(I,K0):TF$FF$:40:R:I1NF:L$(I,K0):Y^RR1R1R21cF$G$:30:GLOP:I1NF:S$(I,K0):-hF$FG$:40:R:I1NFRL1:541055305jF$G$:RRS:30:GLOP:I1NF:S$(I,K0)::RSRS1RCRC1:F$FG$:RRC:40:RC:I1NF:S$(I,K0)::RSR254205400"F$FF$:RRL:30:GLOP:I1NF:L$(I,K0)::RLRL1*'RCRC1:F$FG$:RRC:40:RC:I1NF:L$(I,K0)::RALVLSNN1:FIFI(N):5332K5335ZNNK5335kSN(N)5266u5327RCRC1:F$FG$:RRC:40:RCI1NF:L$(I,K0):FL0:RLR1RSRS1:54005305RCRC1:F$FG$:RRC:40:RC I1NF:S$(I,K0):+FL1:RSR2RL30:GLOP:I1NF:L$(I,K0)::RL3\N1:FIFI(N):FL5320F$FF$:RRL:30:GLOP:I1NF:L$(I,K0):RLRL1:RLR154005327F$G$:RRS:30:GLOP:I1NF:S$(I,K0):RSRS1:RSR25410!LV(L$(FI,K0)):LS(S$(FI,K0)):LVLS5350AMS *7& * *R& * COPYRIGHT 1979 *m& * *& ********************& PROGRAMMER:& DR. GORDON BANKS& 5715 S. DREXEL #209& CHICAGO, IL 60637& (312)-324-6194DF$FF$:FL1:RRL: *D%, * .;:-=-:;,. *_%6 * / " *z%@ * ! + *%J * : ; *%T * "+,..., , *%^ * + ; *%h * ':;,..,:' *&r * *&| * CYGNUS ENGRCOMMANDS:"3$" 0: NOMOND$ " 1: MONP$ :6000b$l Z$"X"8315s$q PASS13580}$v 3505${ Z$"T"8325$ PASS13280$ Z$"T"3020$ Z$"Q"5005$ Z$"M"PASS5207$ Z$"M"5202$ 6000% ********************)%" * * *0* ********************C* PROGRAMMER:[* DR. GORDON BANKSv* 5715 S. DREXEL #209* CHICAGO, IL 60637* (312)-324-6194#" TRANSFER (DATA TO A NEW FILE)"$" UPDATE (INPUT FILE)" $ $"DOS " *")@ * ! + *=)J * : ; *X)T * "+,..., , *s)^ * + ; *)h * ':;,..,:' *)r * *)| * CYGNUS ENGRAMS *) * *) * COPYRIGHT 1979 **(0D$;"CLOSE":F(81D$;"OPEN CURRENTFILE,D1":D$;"READ CURRENTFILE"v(B1Z$:D:L9:SC:F$:D$;"PR#";SC:D$;"CLOSE"(G1ZZ$Z$:F$"NONE"8000(L14520( ********************(" * *(, * .;:-=-:;,. *)6 * / ' Z$"M"P95202#' Z$"M"5200-' 6000='.SC312100v'.CD0:I1NF:SKIP(I)1::D$;"PR#3":L980:SC3:8000'D/SC0:D$;"PR#0":L940:8000'0D$;"DELETE CURRENTFILE,D1":D$;"OPEN CURRENTFILE,D1":D$;"WRITE CURRENTFILE"'0Z$:D:L9:SC:F$ UPDATE (INPUT FILE)"1&" Z: SUM OF A COLUMN"F&"DOS COMMANDS:"Y&" 0: NOMONj& " 1: MONv& :6000&l Z$"X"8315&q PASS13580&v 3505&{ Z$"T"8325& PASS13280& Z$"T"3020& Z$"Q"5005& Z$"M"PASS5207T FILE)"#%|" LIST (INPUT FILE)">%" MERGE (TWO FILES)"Z%" NEW (FILE CREATED)"x%" OLD (FILE RETRIEVED)"%" PRINT (INPUT FILE)"%" QUICKSORT (INPUT FILE)"%" SEARCH (INPUT FILE)"%" TRANSFER (DATA TO A NEW FILE)"&" ADD (SINGLE RECORDS TO INPUT FILE)"N$T" COPY (INPUT FILE TO ANOTHER DISK)"y$^" DELETE (RECORDS FROM INPUT FILE) "$h" EXIT (PROGRAM)"$i" FLIP (SCREEN FROM APPLE TO TERMINAL)"$j" HELP (INSTRUCTIONS)"%r" INSERT (RECORD INTO INPU000#.Z$"M"52009#3Z$"H"İ12500:D$;"RUN HELP,D1"c#8Z$"P"İ12500:D$;"RUN CREAT.ADD,D1"#BZ$"Z"İ12500:D$;"RUN CREAT.ADD,D1"#"NOT A VALID COMMAND"#7000#:8000#X"": BEEP#b#@:"VALID COMMANDS ARE:"#E#$J" ):I RMM:F$"TRANS":40:RB I1NF:R$(I,0):I:F$FF$:MMY 50:F$"TRANS":50h 800:SUı "NAME FOR SORTED FILE?";F$:(FF$F$)(D0D1)ĺD$;"DELETE FF$" :Z$"E":D$;"RENAME TRANS,";F$;",D";D1:F$"NONE":8000  12500:D$;"RUN TRANS SNİ4150:X(R1,2)T:34130T X(R1,2)(T$)7U R?W 50_\ P1:S(P,1)1:S(P,2)RERB2na P03440f I1S(P,1):J1S(P,2):PP1:3300k 3425p FF$F$:20:DD1:F$"TRANS":20:F$FF$u MMRBREz RX(MM,1):30:GLOP I1NF:R$(I,0HD$(FI1)ĺ"ERR***NO SUCH FIELD, REENTER":7000:3390OD "IS KEY NUMERIC?";A$eE (A$,1)"Y"SN1F SNĄ"HOW MANY CHARACTERS IN THE LONGEST ENTRY? ";LE:DX3400G X(RERB3,3),S(10,3):DX1H 20:RRBRE:30M X(R1,1)R I1FI:T$:IT1X(I,1):T2X(I,2):X(I,1)X(J,1):X(I,2)X(J,2):X(J,1)T1:X(J,2)T2X S0II1:3320h JJ1:3320z% I1J13375* PP1:S(P,1)I1:S(P,2)J1/ J1I1:3305> "SORT WHICH FIELD?";S$? NQNF@ FI1NF:S$HD$(FI)3396B FI5C S$ϲ±ø±)[;@p(ųĹ°Ġ)[Lرq.?rq.?r~[F]ŠŠŠϠ٬ӠϠӠȠ͠ N@"PrF\r\x@p()\\x[x@B;@rrp(ΠŸ)UVW;@rde<@*rrYdHeM6@[Gr@p(ųø±)[;@p(ųĹ°Ġ)[?r~[F]ŠŠŠϠ٬ӠϠӠȠ͠ N@"PrF\r\x@p()\\x[x@B;@rrp(ΠŸ)UVW;@rde<@*rrYdHeM6@[Gr@p(ų±0 " 1: MON0 :6000/0l Z$"X"8315@0q PASS13580J0v 3505\0{ Z$"T"8325m0 PASS13280~0 Z$"T" * *R& * COPYRIGHT 1979 *m& * *& ********************& PROGRAMMER:& DR. GORDON BANKS& 5715 S. DREXEL #209& CHICAGO, IL 60637& (312)-324-6194DCCV8Z *D%, * .;:-=-:;,. *_%6 * / " *z%@ * ! + *%J * : ; *%T * "+,..., , *%^ * + ; *%h * ':;,..,:' *&r * *&| * CYGNUS ENGRAMS *7&3$" 0: NOMOND$ " 1: MONP$ :6000b$l Z$"X"8315s$q PASS13580}$v 3505${ Z$"T"8325$ PASS13280$ Z$"T"3020$ Z$"Q"5005$ Z$"M"PASS5207$ Z$"M"5202$ 6000% ********************)%" * (INPUT FILE)"J#" MERGE (TWO FILES)"f#" NEW (FILE CREATED)"#" OLD (FILE RETRIEVED)"#" QUICKSORT (INPUT FILE)"#" SEARCH (INPUT FILE)"#" TRANSFER (DATA TO A NEW FILE)"$" UPDATE (INPUT FILE)" $ $"DOS COMMANDS:"ANDS ARE:"1"E]"J" ADD (SINGLE RECORDS TO INPUT FILE)""T" COPY (INPUT FILE TO ANOTHER DISK)""^" DELETE (RECORDS FROM INPUT FILE) ""h" EXIT (PROGRAM)""j" HELP (INSTRUCTIONS)"#r" INSERT (RECORD INTO INPUT FILE)"/#|" LIST5005!Z$"U"2260F!Z$"T"3000W!Z$"0"1980h!Z$"1"1950y!Z$"C"3500!Z$"S"3700!$Z$"Q"5000!.Z$"M"5200!3Z$"H"ĺD$;"RUN HELP"!"NOT A VALID COMMAND"!7000!:8000"X"": BEEP"b+"@:"VALID COMMRCRC1:RRS:F$G$:5520i D$;"RENAME ";F$",";FG$:F$FG$:800:6000 p:"COMMAND?";COM$: zCV(37):CV:868 Z$(COM$,1) Z$"O"ī4500 Z$"N"4700 Z$"E"Ĺ34,0: Z$"L"1200!Z$"A"600!Z$"D"2000$!Z$"I"2F$,D0:DD01*"WRITE SORTED FILE TO DISK #:";D1A*SU0:D$""U*K11:K00:4525r*NQNF:RB2:RERT1:1700x**"HOW MANY KEYS TO SORT ON? ";KM:KM13390*SU1*3390*DQ5025*Q$(NF1,3),SN(KM1):DQ1*F2FI:KN2+"ENT1NF:SKIP(I)1:I)I1NF()NC(I)/) I7)50?)R1G)20O) 30V)*Rb)4I1NFn)>HD$(I)u)HI)R50:PASSİ1300)W8300)\12500:D$;"RUN CREAT.ADD,D1")6000 *:ZZ$"E":SN0:Z$"Q"::"FILE NAME TO BE SORTED, DISK # "; YOU WISH TO SEARCH ";G$;"?":A$7((A$,1)"Y"6000G(F$G$:3700T(:D$""(:"OLD FILE NAME? ";F$:"DRIVE #: ";D::D0D(ZZ$"Q"5000(L940:ZZ$"E"(L100:R0:N130(20:30(RT:NF:L:MR(1710(Z$"T"4590)Iа50:800:F$FG$:G$FG$:D$;"RENAME TRANS,";G$:4495^'THIİ50:"SEARCH UNSUCCESSFUL":6000':50:"THE FIRST OCCURANCE OF ";K$;" IS IN LINE ";RB1;" OF FILE ";F$:6000 (:RT2;" RECORDS SATISFY THE CONDITION. THEY ARE WRITTEN TO FILE ";G$;" DO$F$:FF$F$:F$"TRANS":DD1:20:F$G$:DD0:20:R2RT1:30V&R:I1FI:R$(I,K):m&K$R$(FI,K)4280}&FINF4275&IFI1NF:R$(I,K):&STİ4200:4280&50&&RTW1:RT3ĺ"SEARCH UNSUCCESSFUL":60003'50:F$"TRANS":DD1:S":50:800:F$G$:D$;"DELETE ";G$:D$;"RENAME TRANS,";G$:4495]%6T0:LF(T$):LELFLFLEk%8COL1LF%;TT(((T$,COL,1))65)26(LECOL):COL%@%hWW1:RRR:RW:F$"TRANS":K0:40%mR:I1NF:R$(I,K)::F$G$:RRR:%K0<&FG$G$:G $K0:W12$ 20:F$"TRANS":DD1:20:F$G$:DD0@$R2RT1^$30:R:I1FI:R$(I,K):q$TZ(R$(FI,K))$LOTZHITZ4125$FINFİ4200:4125$IFI1NF:R$(I,K)::4200$R:RTW1:RT3ĺ"SEARCH UNSUCCESSFUL":6000?%"50:F$"TRANST(R$(FI,K))(#HITESTRER1:4000/#R7#50D#DURERBo#DU0İ50:"SEARCH UNSUCCESSFUL":6000z#FF$F$#M1MR:MRWB1:F$G$:4920:MRM1:F$FF$#WB2:NRNF:NWNF#NTNF#415#RORT:RTWE1:MRRT:F$G$#DD1:800:4495R1:3670"7TQTESTī38901"8RBR1:ST3900?"9RNG3900I":4490o"<LC6:RRB:3670:TESTLORBRB1"ARNGST4490"FRRBRT1"P30:R"dI1FI:R$(I,K):"tSN3960"uTEST$R$(FI,K)"vHI$TEST$RER1:4000"w3990#xTER((PHR)2):3670!!SN38405!LO$TEST$3870I!LO$TEST$3600S!3845f!LOTESTī3870x!LOTEST3890!PLR! RR((PHR)2)!3880!PHR! RR((RPL)2)!"3670!#3830!(3670!/3830!2LC6!3TQTEST "4R( L0L:L1L:NQNF:I1NF:SKIP(I)1:I9 RB2:RERT1? L DD0:20[ RRB:3670h SN3800| HI$TEST$3660 3805 HITEST3660 PLRB:RRE:3670 PHRE SN3810 LO$TEST$3660 3815 LOTEST3660 R2!:3750"(A$,1)"K"SN0:3755,3775A"ENTER KEY ";K$"FIRST OCCURANCE OF KEY (0) OR ALL OCCUR-ANCES (1)? ENTER WHICH: ";STST1ST0ĺ"REENTER":3760SNLO(K$):HILO:3780SQLO$K$:HI$LO$:37804230SQ4100QSN37551"SEARCH FOR A KEY OR A RANGE ";A$>SN3750{(A$,1)"R"RNG1:"LIMITS (BEGIN,END)? ";LO$,HI$:37753755(A$,1)"R"RNG1:"LIMITS (LOWER,UPPER)? ";LO,HILOHIĺ"ERR***LOWER LIMIT IS LARGER THAN UPPER, REENTER":7000FIELD TO BE SEARCHED ";S$&FI1NF;S$HD$(FI)3715CFIS$HD$(FI1)ĺ"ERR***NAME NOT FOUND, REENTER":7000:3710"DATA IS NUMERIC ";A$(A$,1)"Y"SN1"IS DATA SEQUENCED OR ALPHABETIZED? ";A$(A$,1)"Y"SQ1 S\RBR1:3900(_I1FI:R$(I,K):1gLCR?hSN3696TjTEST(R$(FI,K))ZoopTEST$R$(FI,K):tZZ$"E"::L760uSN0:SQ0:W1:RNG0:ST0v1730:1700wNQNFy"ENTER NAME OF WRITE FILE, DISK # ";G$,D1~"ENTER NAME OF S.COPY,D1"*LC6:TQ$TEST$:RR1:3670>TQ$TEST$3600RRBR1:ST3900`RNG3900j$4490L"REQUEST OUT OF RANGE OF FILE":50:SN3661:3750M3747VK0:30:GLOPX(LCR)13679ZLCR0RBLC:3900[LCRRBR:3900KIP(I):I! D$;"CLOSE TRANS":_ :L940:ZZ$"E":D$""::"OLD FILE NAME, DISK # ?";F$,D0h DD0n y Z$"T" PASS0 4525 F$;" WILL BE TRANSFERRED TO A NEW FILE." PASS1 LZ(8928(RT1)) PX(LLZ)1:XL((RT1)PX)18325m0 PASS13280~0 Z$"T"30200 Z$"Q"50050 Z$"M"PASS52070 Z$"M"52020 6000324-61940 " 1: MON0 :6000/0l Z$"X"8315@0q PASS13580J0v 3505\0{ Z$"T" *'6| * CYGNUS ENGRAMS *B6 * *]6 * COPYRIGHT 1980 *x6 * *6 ********************6 PROGRAMMER:6 DR. GORDON BANKS6 5715 S. DREXEL #2096 CHICAGO, IL 606377 (312)-5 ********************45" * *O5, * .;:-=-:;,. *j56 * / " *5@ * ! + *5J * : ; *5T * "+,..., , *5^ * + ; *5h * ':;,..,:' * 6r * $;"DELETE CURRENTFILE,D1":D$;"OPEN CURRENTFILE,D1":D$;"WRITE CURRENTFILE"b40Z$:D:L9:SC:F$t40D$;"CLOSE":481D$;"OPEN CURRENTFILE,D1":D$;"READ CURRENTFILE"4B1Z$:D:L9:SC:F$:D$;"PR#";SC:D$;"CLOSE"4G1ZZ$Z$:F$"NONE"80004L145203q PASS135803v 3505,3{ Z$"T"8325=3 PASS13280N3 Z$"T"3020_3 Z$"Q"5005u3 Z$"M"PASS52073 Z$"M"52023 60003.SC3121003.CD0:I1NF:SKIP(I)1::D$;"PR#3":L980:SC3:80003D/SC0:D$;"PR#0":L940:8000K40DUT FILE)")2" QUICKSORT (INPUT FILE)"F2" SEARCH (INPUT FILE)"m2" TRANSFER (DATA TO A NEW FILE)"2" UPDATE (INPUT FILE)"2" Z: SUM OF A COLUMN"2"DOS COMMANDS:"2" 0: NOMON"2 " 1: MON"2 :60002l Z$"X"8315GRAM)"41i" FLIP (SCREEN FROM APPLE TO TERMINAL)"Q1j" HELP (INSTRUCTIONS)"}1r" INSERT (RECORD INTO INPUT FILE)"1|" LIST (INPUT FILE)"1" MERGE (TWO FILES)"1" NEW (FILE CREATED)"1" OLD (FILE RETRIEVED)" 2" PRINT (INP000"NOT A VALID COMMAND"'0700030:8000C0X"": BEEPI0bf0@:"VALID COMMANDS ARE:"l0E0J" ADD (SINGLE RECORDS TO INPUT FILE)"0T" COPY (INPUT FILE TO ANOTHER DISK)"0^" DELETE (RECORDS FROM INPUT FILE) "1h" EXIT (PROU"2260/Z$"T"3000)/Z$"0"1980:/Z$"1"1950K/Z$"C"3500\/Z$"S"3700m/$Z$"Q"5000~/.Z$"M"5200/3Z$"H"İ12500:D$;"RUN HELP,D1"/8Z$"Z"İ12500:D$;"RUN CREAT.ADD,D1"/BZ$"P"ĺD$;"RUN CREAT.ADD,D1"0LZ$"F"1200:5030%.P12500:D$;"RUN MERGE,D1"8.pZZ$"E"6040Q.u:"COMMAND?";COM$:b.Z$(COM$,1)t.Z$"O"ī4500.Z$"N"4700.Z$"E":F$"NONE":ZZ$"E":12500:34,0:.Z$"L"1200.Z$"A"600.Z$"D"2000.Z$"I"2500/Z$"F2,K1))5100-5125'-RR1:40:R5-CHRBRM-I1NF:Q$(I,K1):^-RR1:40:Rv-I1NF:Q$(I,K0):-CHCH1:R6R1:RRE5065-I1NF:Q$(I,K0)Q$(I,K1)::R1RE5065- CHCH0:RER6:5050-KNKN1:KNKM1İ50:3480.5I1NF:Q$(I,K0):%,RR1:30:R=,I1NF:Q$(I,K1):P,SN(KN1)5090o,Q$(F1,K1)Q$(F1,K0)5125,SN(KN)5098,5096,(Q$(F1,K1))(Q$(F1,K0))5125,SN(KN)5098,Q$(F2,K0)Q$(F2,K1)5100,5125 -(Q$(F2,K0))(Q$(ER NAME OF SORT FIELD ";KN:S$V+"IS DATA NUMERIC? ";A$:(A$,1)"Y"SN(KN)1:5035c+SN(KN)0+FI1NF:S$HD$(FI)5042+FI+S$HD$(FI1)İ7000:"NAME NOT FOUND, REENTER":5030+F1F2:F2FI+RB2:RERT1:20+RRB+30:R,,D1":D$;"WRITE CURRENTFILE"3'0Z$:D:L9:SC:F$E'0D$;"CLOSE":z'81D$;"OPEN CURRENTFILE,D1":D$;"READ CURRENTFILE"'B1Z$:D:L9:SC:F$:D$;"PR#";SC:D$;"CLOSE"'G1ZZ$Z$:F$"NONE"8000'L14520' ********************(" * PASS13280& Z$"T"30200& Z$"Q"5005F& Z$"M"PASS5207W& Z$"M"5202a& 6000q&.SC312100&.CD0:I1NF:SKIP(I)1::D$;"PR#3":L980:SC3:8000&D/SC0:D$;"PR#0":L940:8000'0D$;"DELETE CURRENTFILE,D1":D$;"OPEN CURRENTFILE" SEARCH (INPUT FILE)"@%" TRANSFER (DATA TO A NEW FILE)"]%" UPDATE (INPUT FILE)"y%" Z: SUM OF A COLUMN"%"DOS COMMANDS:"%" 0: NOMON% " 1: MON% :6000%l Z$"X"8315%q PASS13580%v 3505%{ Z$"T"8325&MINAL)"$$j" HELP (INSTRUCTIONS)"P$r" INSERT (RECORD INTO INPUT FILE)"k$|" LIST (INPUT FILE)"$" MERGE (TWO FILES)"$" NEW (FILE CREATED)"$" OLD (FILE RETRIEVED)"$" PRINT (INPUT FILE)"$" QUICKSORT (INPUT FILE)"%:8000#X"": BEEP#b9#@:"VALID COMMANDS ARE:"?#Ek#J" ADD (SINGLE RECORDS TO INPUT FILE)"#T" COPY (INPUT FILE TO ANOTHER DISK)"#^" DELETE (RECORDS FROM INPUT FILE) "#h" EXIT (PROGRAM)"$i" FLIP (SCREEN FROM APPLE TO TERZ$"1"1950"Z$"C"3500."Z$"S"3700?"$Z$"Q"5000P".Z$"M"5200n"3Z$"H"ĺD$;"RUN HELP,D1""8Z$"P"İ12500:D$;"RUN CREAT.ADD,D1""BZ$"Z"İ12500:D$;"RUN CREAT.ADD ,D1""LZ$"F"12000""NOT A VALID COMMAND""7000#$"E"6040$!u:"COMMAND?";COM$:5!Z$(COM$,1)G!Z$"O"ī4500X!Z$"N"4700!Z$"E"F$"NONE":ZZ$"E":12500:34,0:!Z$"L"1200!Z$"A"600!Z$"D"2000!Z$"I"2500!Z$"U"2260!Z$"T"3000!Z$"0"1980 "I)1:I I1NF NC(I)% I- 505 R1= 20E 30L *RX 4I1NFd >HD$(I)k HI R50:PASSİ1300 W8300 \12500:D$;"RUN CREAT.ADD,D1" 6000 12500:D$;"RUN SEARCH.SORT,D1" P12500:D$;"RUN MERGE,D1" !pZZL0:RBRBXL1:35621tD$;"RUN SEARCH.SORT,D1">:D$""^:"DISK # ?";D::D0D:D1DhN130tZZ$"E":"OLD FILE NAME? ";F$:L940:D0D:D1DL100:R020:30RT:NF:L:MR1710Z$"T"4590 I1NF:SKIP(XL2:HLBLOCK2:1700: RERBXL:WB2(PASS1)XLPASS1O RERT1RERT1q PASSPASS1:NWNF:NRNF:NTNFz 415 PASSPX1İ800:TX0:N200:F$G$:D$;"DELETE TRANS":6000 2900::D$"":Z$"X":TX1:3200:F$FF$:770:SU1:4525 L0L:L1NTNF NQNF% LZ(8928(RT1))+ 7 :F$G$@ DD1H 20X F$FF$:DD0x RB2:RERT1:WB2:L0L:L1L LLZ3550 BLOCKRT1 HLBLOCK2 1700 415:800:6000 PX(LLZ)1 XL((RT1)PX)1 PASS1 BLOCK WB2XL(PASS1)(PASS1):RERBXL:L0L:HLXL3:BLOCKHL2:1700:3140j :L940:ZZ$"E":D$"":N191| :Z$"X":TX1 "NAME OF READ FILE, DISK # ?";F$,D0::DD0:4525 :"NAME FOR WRITE FILE, DISK # ?";G$,D1 FF$F$ TX1:NWNF:NRNF: D$;"OPEN TRANS"* D$;"READ TRANS"Q FF$:G$:RB:XE:PASS:NF:NQ:XLy PX:L1:D0:D1:SKIP(NF):DS1:DD0 I1NF:SKIP(I):I D$;"CLOSE TRANS": PASSPASS1:RBRBXL1:2900 :D$"" Z$"T" 3200:CD1:F$FF$:4525IXB:WB2:RERBXL)D F$FF$:REXEREXE?I NRNF:NWNQ:NTNFHN 415ZP REXEī3250kQ RTXE1:800Z D$;"OPEN TRANS":D$;"DELETE TRANS"[ K1:I1NF:SKIP(I)03165\ NC(K)NC(I):HD$(K)HD$(I):KK1] I:DD1:F$G$:N200:LL1:NFNQ:8000LL BE INCLUDED IN ";G$;"?"7 NQ0:I1NF:SKIP(I)0:C I1NF^ "INCLUDE ";HD$(I);"?"f Z$} (Z$,1)"Y"3120 SKIP(I)1! NQNQ1$ L1L1NC(I)10 :2 LL1CD14 L115L1155 F$G$:LL1:M1MR:MRXE3< MRM1? RB  BLOCKXL1:HLBLOCK2:1700O :"NAME FOR THE NEW FILE, DISK # ?";G$,D1 "WHICH LINES OF ";F$;" SHALL BE INCLUDED IN ";G$;" (BEGIN,END)? ":XB,XE XBXB1:XEXE1 XERT1XERT1 FF$F$:L0L L14 "WHICH FIELDS OF ";F$;" SHAz#?Xղ    ȮԠ3!ԠԠ"Ӯ٠# ՠɠŠ ŠˠϠŠҠԮŠ!Р&Š4͠Ҡ͠ҠɠϠҮʰ٠à*ΠŠԠҠҠ-ŮĠ!J?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ *.) * COPYRIGHT 1979 *I) * *d) ********************w) PROGRAMMER:) DR. GORDON BANKS) 5715 S. DREXEL #209) CHICAGO, IL 60637) (312)-324-6194L * (, * .;:-=-:;,. *;(6 * / " *V(@ * ! + *q(J * : ; *(T * "+,..., , *(^ * + ; *(h * ':;,..,:' *(r * *(| * CYGNUS ENGRAMS *) *䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pRD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    ̠ӬΠՠ̠ŠϠŠŠà٠En]ϠŠРӠĠԠҠ٠ԠӮ/x]ΠРҠҠӠΠӠîvQŠŠZP]ŠŠՠנԠէŠǠԠԠŠƠՠŠŠš%Z]ŠԠ͠ΠŠBd]ӠΠàŠϠŠŠàӠԠӠĮfi]ƠҠҠΧԠŠŠŠɬҠ ϠԠӬ٩o<]ƠՠŠŠ̠ΠҠŠҬӠ̠͠٠ҠŠӮvF]ˠРŠĬ٠ĠРӠϠŠҠӠƠŠŠɯϠΠҭŠàŠҠ͠ҠӠƠŠɬ¬M]͠Ҡɭ̠àҠ͠ҠӠƠŠɬ¬Y(]ˠϠŠҭӠ٠Ҡ̠Ӡ͠àϠŠŮI2]ӠԠŠƠȹ!]!]Ġ٠ŠҠ!]ǮӠ٠Ϡ!]ΠӠǠ!]ĠàΠ!]) ]ΠҠĠQ]͠    µԍɍ·ǍЍ˵Ѝ͍ЍɍƵԍ͍˰ɍЍdzЍ˰Ӎ²Ǎ³̍Ƹ̲Ѝ͵ɍЍ˴͍͍ՍЍ·Ӎ͍Ǹɍ͍ƵЍЍÍՍЮōҍ¹͍ͳԍ²Ս͍ͳԍ±ЍҍưԍՍ²Ѝ̍¸ԍɍϹЍɍ°ԍ̍˱ЍɍͲԍҍ·ԍЍǵ̍ɍϹЍЍư͍ɍϸԍɍϹӍɍ°ɍՍЍ¹ԍɍ¸ЍҍǸɍ°͍ɍ²ԍՍЍՍ˵ɍɍƶԍҍ˳ӍҍưӍЍ˵ҍ³ԍٱӍҍ°͍ɍͰЍԍǶӍՍ˰ōՍЍҍύҍʹԍҍ¸ЍҍƵ̍ҍµՍ·͍ɍͲԍҍ˲ԍɍɍԍ͍ԍōɍЍԍͲ͍ҍǸɍƶӍӍ³ԍɍЍɍư͍č˳ЍɍƸЍɍԍ˳ԍčͰ̍Ӎ͍ō˵ЍɍµՍԍǸЍԍ˰̍č˳ЍӍ˰ԍԍ˱Ӎǰ͍Ӎ°ԍōǸҍ΍ȍ΍Ǎ΍Ѝ΍ԍЍč¹ԍӍƲ͍Ǎ²ԍɍDZЍō                KXX(XX)N MON0D$;"MON I,O,C":6000F NOMON\D$;"NOMON,I,O,C"f600012500:D$;"RUN EDIT.FILE,D1"12500:D$;"RUN EDIT.FILE,D1" 12500:D$;"RUN EDIT.FILE,D1" 12500:D$;"RUN TRANS.COPY,D1" 12500:D$;"OCK2:1850:1:1:F312 TC((MR)(10))EF3ĺTC);"#";aI1NF:SKIP(I)01830xTCNC(I)(HD$(I))!XX);TC);HD$(I);&I+""::SUM0:I1NF:SKIP(I)01860?SUMSUMNC(I)DIIXX(L9SUM((MR)(10))1)NQFT" JIONTNFTS1%^CD16`Z$"P"1370@c1030MDR1705iR$(NF1,HL),R(HL):DR1vDW1710W$(NF1,HL):DW1DN1720HD$(NF1),NC(NF1):DN1DS1725SKIP(NF1):DS1BLOCK(N(1(LN).5)):HLBL1:1370::1800:1431):300:8S01630PI1NF:SKIP(I)0:VeEFL9ZI1n NQ0zI1NF"INCLUDE ";HD$(I);"?""Y$'Y$(Y$,1),Y$"Y"16006SKIP(I)1;EFEF(NC(I)1)>NQNQ1@EF;" SPACES LEW"PRINT RECORD NUMBERS (Y/N)? ";COM$:(COM$,1)"Y"F31YZNRNF:DILTLB:RBLB:PB1i_DIL81385dQ1:RELT:PEDI1:1390iRELBL8:PEL81n100sCB1:CEPExD$;"PR#";PS:1420}Q1ĺD$;"PR#";SC:6000D$;"PR#";SCLBRERE ARE ";NF;" FIELDS PER RECORD."'<lF"ARE ALL FIELDS TO BE PRINTED? (Y/N) ";COM$:(COM$,1)"N"1355HNQNF:CD0:1365K"ENTER WHICH FIELDS ARE TO BE PRINTED. MAKE SURE THE LINE IS LESS THAN ";L9"; CHARACTERS LONG."P1500VF30;DW0:12801700LL9ĺ"IN ORDER TO PRINT A ";L9;" CHARACTER LINE, IT IS NECESSARY TO SUPRESS SOME OFTHE FIELDS.":1500NQNF1030:"RANDOM FILE ";F$;" CONTAINS ";RT2;" DATA "#"RECORDS, EACH OF LENGTH ";L"."!2"THE::1800v300yQ111904~:"PAGE? ";Z$:J(Z$,1)"N"1190\LBRE1:1080vCV(37):CV16CV1634,CV:6000F$"NONE"760L819ZI(MR)(10)ZI(ZI)11730:NPNFDR1280DW1260 DW1:1700:NFRTLB1060a"LESS THAN ";(LB1);" RECORDS IN FILE, REENTER ":7000:1030q$RTLT1080}.LTRT18DILTLB=RBLB:PB1BDIL81110LQ1:RELT:PEDI1Q1120VRELBL8:PEL81`100eCB1:CEPEo34,0 aSKIP(I)0875 fNC(I)$ kI. p50:; K6000H IS2550R NWNF\ WBRTm WERTK1Q{ Qİ7000 200 RTRTK1 Q0600 850 6000 :"LIST: (BEGIN,END) ";LB,LT Q0: LBLB1:LTLT1 NWNF:NRNTRY TOO LONG, REENTER ":7000' 630. I8 KK1I KBLOCK620T :900 "ERROR *** NO INPUT FILE":7000:6000 R1:20:40 %R *I1NF /SKIP(I)0825 4HD$(I) 9I >50 RR0:20:40 WRT:NF:L:MR \I1NFT"" YLINPEı ^KK1+ hLINLIN14 m310H XZZ$"E":L760P bK1c dBLOCK25:HL27y g:DT1:1705:DT0 lI1NF v"ENTER ";HD$(I) W$(I,K) W$(I,K)"QUIT"660 :Q1:KK1:900 C(W$(I,K)) CNC(I)700 "E:40:R I1NW:W$(I,K):( KK1. 6 50J 21:36:"DONE"P 'd ,F31:K1:LINPB 6R(K)R(K)1:TC((MR)(10))((R(K))(10)) ;F3ĺTC);R(K); @I1NF:SKIP(I)0335 ETCNC(I)(R$(I,K)) JXX);TC);R$(I,K); OI i22:36:"NOW " n20:K14 xRRBRE:30:R(K)K I1NR:R$(I,K):U KK1[ c 50q Z$"P"ı 22:36:"DONE" 21:"WRITING TO ";(F$,6);" LINE ";WB1;" TO ";WE1:868 21:36:"NOW " DD1 20:K1 RWBWE.$D$(4):F$"NONE":34,0:126005 D$"":8000WD$;"OPEN";F$;",L";L;",D";D:yD$;"READ";F$;",R";R;",B";B:(D$;"WRITE";F$;",R";R;",B";B:2D$;"CLOSE";F$:dZ$"P"110e22:"READING ";(F$,9);" LINE ";RB1;" TO ";RE1:868           ōō10TYPE42240(" ";:2300J ---BINARY START ADDRESS---mKBUF:600:NB:BSN:800:" "; ---BYTE LENGTH--- OFF0:TYPE4OFF2 KBUFOFF:600:NB:BLN:800:" ";` ---NAME---j JI33I41t DBUF(J)1602440$,TYPE1,1);" ";=\ ---SECTORS USED FROM SUB-DIRECTORY---Ff110VpJ122552vz(BUFJ)(BUFJ1)02200}JNJ25:BN:830:SCN:" ";:TTSECTTSECBTYPE02220" ";:2400TRACK(BUF12):SECTR(BUF13):1F(I2):TYPEDBUF(I3):TRACK02500: END OF DIRECTORY`TRACK2552470: DELETED PROGRAMr LINE02100*500:70004 ---PROTECTION---9NAME$"">TYPE1272115@" ";:2120C"*";:TYPETYPE128H ---TYPE--- R(TYPE -16295,0";Q$SSNSN5:SN;"PRINT";Q$;"BSAVE";NAME$(JJ);",A";BS;",L";BL;",D1";Q$^"":t ---MAIN BODY---}JJ0DSECTR1211TRACK17:SECTRDSECTR:100I0255:DBUF(I)(BUFI):II1022035 TRACKDBUF(I1):SECTRDBUE256);Q$aSNSN5:SN;"PRINT";Q$;"POKE -16292,0";Q$:SNSN5:SN;"PRINT";Q$;"POKE -16291,0";Q$SNSN5:SN;"PRINT";Q$;"CALL -259";Q$SNSN5:SN;"PRINT";Q$;"MON I,O,C";Q$ SNSN5:SN;"PRINT";Q$;"POKE -16296,0";Q$:SNSN5:SN;"PRINT";Q$;"POKE0RSNSN5:SN;"PRINT";Q$;"POKE 60,";((BS256(BS256))256.05)(BS256);Q$SNSN5:SN;"PRINT";Q$;"POKE 61,";(BS256);Q$SNSN5:SN;"PRINT";Q$;"POKE 62,";((BE256(BE256))256.05)(BE256);Q$ SNSN5:SN;"PRINT";Q$;"POKE 63,";(B((BS256(BS256))256.05)(BS256)@|"POKE 61,";(BS256)x"POKE 62,";((BE256(BE256))256.05)(BE256)"POKE 63,";(BE256)"POKE -16292,0":"POKE -16291,0""CALL -307""POKE -16296,0":"POKE -16295,0"F$"MENU":4"POKE - 16296,0";Q$:SNSN5:SN;"PRINT";Q$;"POKE -16295,0";Q$s;SNSN5:SN;"PRINT";Q$;"SAVE";NAME$(JJ);",D1";Q$~?"":@ BINARY FILE TO TAPEJF$"TAPETRANSFER":40T"BLOAD";NAME$(JJ);",D1"Y"MON I,O,C"hBEBSBL&r"POKE 60,";$;"INT";Q$15697SNSN5:SN;"PRINT";Q$;"FP";Q$a!SNSN5:SN;"PRINT";Q$;"MON I,O,C";Q$"SNSN5:SN;"PRINT";Q$;"POKE - 16292,0";Q$:SNSN5:SN;" PRINT ";Q$;"POKE - 16291,0";Q$,SNSN5:SN;"PRINT";Q$;"LOAD";Q$>6SNSN5:SN;"PRINT";Q$;0:2000$  BASIC PROGRAM TO TAPE> F$"TAPETRANSFER":40Z "LOAD";NAME$(JJ);",D1"k "MON I,O,C" "POKE -16292,0":"POKE -16291,0" "SAVE" "POKE -16296,0":"POKE -16295,0" F$"MENU":40 TYPE21565 SNSN5:SN;"PRINT";QE$(80),BS(80),BL(80)) Q$(34):D$(4)S $HEX$"0123456789ABCDEF":TYPE$"TIA B"] .6000i 8H$(8)t B33,40 GTTSEC0 L ---INTRO--- VCLR [NUMOUT800:OUT1 `SL6:DR1 jIOB2,DR:IOB16,DR tIOB3,0: EXPECTED VOL# ~700(HEX$,B1,1);(HEX$,B2,1);:9  ---VARIABLE INIT'S---b CHRBB1B2IJKNUMOUTTRACKSECTR CLR936:CM50:CMI63:CMN255 KB16384:KBC16368:LINE1 K999:600 KB:600:IOBB KIOB8:600:BUFB SC(80),TYPE(80),DBUF(256),NAM >N100ĺ" "; HN10ĺ" ";2 RB0ĺH$;"-";< \N;:S  ---HEX NUMOUT---e K0:N0910{ N32767N1:K128 B(N256)K:" ";:950 BN256(N256):950 BN:" ";:950 B1(B16)1:B21((B16(B16))16.05)(B16) ı "DISK ERROR: ";(IOB13)& > ---TAB SPACES---T K1B:" ";:K:g  ---KEYIN---w CH$:CH$: X ---NEG>32767--- bB(K1) lB256B(K):  ---DECIMAL NUMOUT--- %BN:N(B) *N10000ĺ" "; 4N1000ĺ" ";% D$""B16290,0:16291,0:16296,0:16295,0:16289,0L8000V1000n"OPEN";F$;",D2":("WRITE";F$:2"CLOSE":d ---SUBROUTINE TO CALL RWTS--nIOB4,TRACKxIOB5,SECTRIOB12,1935 (IOB13)0          C" 6000 ZZ$"E":L760&G"DELETE (BEGIN,END) ";DB,DESN2025q1730:1700:CD0:IS0:Q0DEDE1:DBDB1DIDEDB1RT1DB2060DERT121102070 "LESS THAN ";(DB1);" RECORDS IN FILE, REENTER":7000:01830TCNC(I)(HD$(I))5!XX);TC);HD$(I);<&IF+"":h:SUM0:I1NF:SKIP(I)01860z?SUMSUMNC(I)DIIXX(L9SUM((MR)(10))1)NQKXX(XX)N MOND$;"MON I,O,C"6000 NOMOND$;"NOMON,I,O,NF1,HL),R(HL):DR1 DW17106W$(NF1,HL):DW1CDN1720`HD$(NF1),NC(NF1):DN1mDS1725SKIP(NF1):DS1BLOCK(3600L):HLBLOCK11850:1:1:F31 TC((MR)(10))F3ĺTC);"#";I1NF:SKIP(I)HE FIELDS." EFL9ZI1) NQ05I1NFP"INCLUDE ";HD$(I);"?"X"Y$g'Y$(Y$,1)y,Y$"Y"16006SKIP(I)1;EFEF(NC(I)1)>NQNQ1@EF;" SPACES LEFT"JIONTNFTS1^CD1c1030DR1705R$(NDOM FILE ";F$;" CONTAINS ";RT2;" DATA "N#"RECORDS, EACH OF LENGTH ";L"."y2"THERE ARE ";NF;" FIELDS PER RECORD."<:S01630I1NF:SKIP(I)0: "IN ORDER TO PRINT A ";L9;" CHARACTER LINE IT IS NECESSARY TO SUPRESS SOME OF T"PAGE? ";Z$:$(Z$,1)"N"11906LBRE1:1080PCV(37):CV16CV16a34,CV:6000tF$"NONE"760~L8191730:NPNFDR1280DW1260DW1:1700:DW0:12801700LL91500NQNF1030:)"RA(LB1);" RECORDS IN FILE, REENTER ":7000:1030K$RTLT1080W.LTRT1d8DILTLBs=RBLB:PB1BDIL81110LQ1:RELT:PEDI1Q1120VRELBL8:PEL81`100eCB1:CEPEo34,0::1800v300yQ11190~:p50:K6000"IS2550,NWNF6WBRTGWERTK1QUQİ7000^200lRTRTK1yQ06008506000:"LIST: (BEGIN,END) ";LB,LTQ0: LBLB1:LTLT1 NWNF:NRNFRTLB1060;"LESS THAN ";0IKK1#KBLOCK620.:900Y"ERROR *** NO INPUT FILE":7000:6000i R1:20:40p%R|*I1NF/SKIP(I)O8254HD$(I)9I>50RR0:20:40WRT:NF:L:MR\I1NFaSKIP(I)0875fNC(I)kI ?KK1 D N" XL760* bK1= dBLOCK25:HL27S g:DT1:1705:DT0_ lI1NFt v"ENTER ";HD$(I) W$(I,K) W$(I,K)"QUIT"660 :Q1:KK1:900 C(W$(I,K)) CNC(I)700 "ENTRY TOO LONG, REENTER ":700063DUBLOCK1:WBWE1:RBRE1:420> RERBDU1:WEWBDU1:400D L K1Z LLTBTEx I1NT:W$(I,K)R$(I,K): KK1   K1 LLCBCE:I1:J1 SKIP(I)0550 R$(J,K)R$(I,K) !JJ1 &II1 0INT1575 :530 YLINPEı ^KK1& hLINLIN1/ m310K F$FF$:TBWB:TEWE:LL0b CBWB:CEWE:NTNF:s TXSUSU0 100:CDİ500:NTJ1:NWNT 450 LL1 F$G$:200: DURERB1 DUBLOCK430 RERBBLOCK:WEWBBLOCK 400:DUкR I1NW:W$(I,K):# KK1) 1 50E 21:36:"DONE"K '_ ,F31:K1:LINPB 6R(K)R(K)1:TC((MR)(10))((R(K))(10)) ;F3ĺTC);R(K); @I1NF:SKIP(I)0335 ETCNC(I)(R$(I,K)) JXX);TC);R$(I,K); OI T""i22:36:"NOW " kDD0& n20:K1= xRRBRE:30:R(K)T I1NR:R$(I,K):^ KK1d l 50 22:36:"DONE" 21:"WRITING TO ";(F$,6);" LINE ";WB1;" TO ";WE1:868 21:36:"NOW " DD1 20:K1 RWBWE:40:G|P]X|plqb|zzbijnhhbklthXmPRX|z\zbakhk[ RNX}c{ {b}b{u{bb{u{bcX!PFX|cz zc|czt zc cztzcbXPpX|cz  xb}byu x` `xvxa`ZRhZ~ax xc|bXP COMMAND ALLOWS FILES TO BE COPIED FROM ONE DISK TO ANOTHER. THE PROGRAM WILL ASK FOR THE NAME OF THE FILE TO BE COPIED AND FOR A NAME FOR THENEW FILE (MAY BE SAME)."W99X:37:"<9>"]"6.0 SEARCHING AND SORTING"_b"6.1 SEARCHINFIELDS IS TO BE 'CONTRACTED' SO THAT SOME OF THE FIELDS""ARE EXCLUDED FROM THE NEW SMALLER FILE. THE PROGRAM POLLS THE USER CONCERNING WHICH FIELDS ARE TO BE INCLUDED IN THE NEW FILE.":"5.1 COPYING FILES TO ANOTHER DISK" " THE 'COPYECORDS, ITINSERTS THEM PRIOR TO THE SPECIFIED LINE";99N:37:"<8>":k"5.0 TRANSFERING FILES"9" DATA FROM ONE FILE MAY BE USED IN AN-OTHER USING THE 'TRANSFER' COMMAND. THIS IS USED IF, FOR EXAMPLE, A FILE WITH A LARGE NUMBER OF FILE APPROPRIATELY. LINES TO BE DELETEDARE ENTERED IN THE SAME FORMAT AS 'LIST'COMMAND."d99w:37:"<7>"::"4.3 INSERT"3" THE 'INSERT' COMMAND FUNCTIONS SIMILARLY TO THE 'ADD' COMMAND EXCEPT INSTEAD OF APPENDING THE NEW R" THE 'UPDATE' COMMAND ALLOWS USER TO CHANGE THE DATA WITHIN A RECORD. THEFIELDS ARE STEPPED THROUGH SEQUENTIALLY AND USER IS ASKED FOR CHANGES.":"4.2 DELETE"\" THE 'DELETE' COMMAND DELETES REC- ORDS FROM THE FILE AND CONTRACTS THE REC-ORDS STARTING AT RECORD N+1. DATA IS ENTERED IN THE SAME FORMAT AS EXPLAINED IN SECTION 1.0 (PAGE 3)."u99:37:"<6>":"4.0 EDITING"" THERE ARE THREE EDITING COMMANDS: UPDATE, DELETE, AND INSERT.":"4.1 UPDATE"OUTINE RECALLS THE FILE PARAMETERS SUCH AS FIELD NAMES, LENGTHS,ETC. FOR FILES PREVIOUSLY CREATED.l+99,:37:"<5>":/PAGE2601"3.0 APPENDING NEW DATA "m6" THE 'ADD' COMMAND APPENDS NEW DATA TO THE INPUT FILE CONTAINING N "2.0 RETRIEVING OLD FILES":" OLD FILES ARE RETREIVED USING THE 'OLD' COMMAND. THIS INITIALIZES THEINPUT FILE TO THE FILE SPECIFIED. SOME OF THE ROUTINES (LIST,DELETE,UPDATE,ADD,INSERT) REQUIRE AN INPUT FILE TO WORK."d" THE 'OLD' R THE BUFFERS."}" ALL DATA FOR A FILE NEED NOT BE EN- TERED AT ONCE, AS THE 'ADD' COMMAND WILLALLOW ADDITIONAL DATA TO BE APPENDED TO ANY FILE."" DATA MAY CONSIST OF ANY LIST OF NUM- ERIC OR STRING CHARACTERS."99:37:"<4>"N ASKED FOR IN ROTATION BY FIELD NAME. WHEN ENOUGH HAS BEEN ENTERED, THE WORD 'QUIT'IS ENTERED, WHEREUPON THE PROGRAM ADDS"x"THE DATA TO THE FILE. THE PROGRAM WILL OCCASIONALLY PAUSE AND WRITE DATA WITH- OUT RECEIVING A 'QUIT' TO AVOID FILLING UP::"PAGE"::CV(37):CV:5:PAGE$:3000< d:37:"<3>"Z i"1.0 CREATING NEW FILES" n" NEW FILES ARE CREATED USING THE 'NEW' COMMAND. THE USER ENTERS THE NUM- BER OF FIELDS, AND THEIR WIDTHS AND THE" s"NAME OF EACH FIELD. DATA IS THE . . . . 10"< H"8.0 SUBPROGRAM MODULES . . . . . . . .11"l K"APPENDICES . . . . . . . . . . . . . .12" P" I. GENERAL INFORMATION . . . . .12" U" II. DEBUGGING . . . . . . . . . .14" Z" III.INDEX OF COMMANDS . . . . . .15"+ c 823:" CONT'D NEXT PAGE>":22:999 ;99L <:37:"<2>":| A"6.0 SEARCHING AND SORTING. . . . . . . 9" C" 6.1 SEARCHING . . . . . . . . . . 9" D" 6.2 SORTING . . . . . . . . . . . 9" F"7.0 MERGING . . . . . . . . .. . . . . . 6"> *" 4.1 UPDATE. . . . . . . . . . . . 6"n ," 4.2 DELETE. . . . . . . . . . . . 6" ." 4.3 INSERT. . . . . . . . . . . . 7" 2"5.0 TRANSFERING FILES. . . . . . . . . 8" 7" 5.1 COPYING . . . . . . . . . . . 8"1\$ 2500 :37:"<1>":N" CONTENTS PAGE"~"1.0 CREATING A NEW FILE . . . . . . . .3""2.0 RETRIEVING AN OLD FILE. . . . . . .4""3.0 APPENDING NEW DATA . . . . . . . . 5" ("4.0 EDITING . . . . . . .                    Z$"T"4590%I1NF:SKIP(I)1:I1I1NF<NC(I)C IK50SR1[20c 30j*Rv4I1NF>HD$(I)HIR50:PASSİ1300W8300\12500:D$;"RUN CREAT.ADD,D1"12500:D$;"RUN SEARCH.SORT,D1"gP:ZZ$"E"::D2500:D$;"RUN TRANS.COPY,D1"? 12500:D$;"RUN TRANS.COPY,D1"ct12500:D$;"RUN SEARCH.SORT,D1"w:D$"":Z$"E"N130:"OLD FILE NAME, DISK # ";F$,D:D0D:D1D:L940:ZZ$"E"L100:R020:30RT:NF:L:MR1710 F:SKIP(I)01860#?SUMSUMNC(I)*DINIXX(L9SUM((MR)(10))1)NQ[KXX(XX)aNk MOND$;"MON I,O,C"6000 NOMOND$;"NOMON,I,O,C"600012500:D$;"RUN EDIT.FILE,D1" 12500:D$;"RUN EDIT.FILE,D1" 1F1):DN1DS1725+SKIP(NF1):DS11PBLOCK(3600L):HLBLOCK1Vk1850:1:1:F31 TC((MR)(10))F3ĺTC);"#";I1NF:SKIP(I)01830TCNC(I)(HD$(I))!XX);TC);HD$(I);&I+""::SUM0:I1N$'Y$(Y$,1)",Y$"Y"160006SKIP(I)1D;EFEF(NC(I)1)P>NQNQ1g@EF;" SPACES LEFT"nJIxONTNFTS1^CD1c1030DR1705R$(NF1,HL),R(HL):DR1DW1710W$(NF1,HL):DW1DN1720 HD$(NF1),NC(NERE ARE ";NF;" FIELDS PER RECORD."(<9:S01630QI1NF:SKIP(I)0:"IN ORDER TO PRINT A ";L9;" CHARACTER LINE IT IS NECESSARY TO SUPRESS SOME OF THE FIELDS."EFL9ZI1 NQ0I1NF"INCLUDE ";HD$(I);"?""Y00ZZ$"E":F$"NONE"760'L81971730:NPNFDDR1280QDW1260kDW1:1700:DW0:1280u1700LL91500NQNF1030:"RANDOM FILE ";F$;" CONTAINS ";RT2;" DATA "#"RECORDS, EACH OF LENGTH ";L".""2"THLTLB=RBLB:PB1$BDIL81110:LQ1:RELT:PEDI1DQ1120YVRELBL8:PEL81b`100qeCB1:CEPEo34,0::1800v300yQ11190~:"PAGE? ";Z$:(Z$,1)"N"1190LBRE1:1080CV(37):CV16CV1634,CV:60 RTRTK1Q0600#850-6000O:"LIST: (BEGIN,END) ";LB,LTYQ0:m LBLB1:LTLT1} NWNF:NRNFRTLB1060"LESS THAN ";(LB1);" RECORDS IN FILE, REENTER ":7000:1030$RTLT1080.LTRT18DI1:20:40 %R *I1NF0 /SKIP(I)O825< 4HD$(I)C 9IK >50[ RR0:20:40n WRT:NF:L:MRz \I1NF aSKIP(I)0875 fNC(I) kI p50: K6000 IS2550 NWNF WBRT WERTK1Q Qİ7000 200 v"ENTER ";HD$(I)" W$(I,K); W$(I,K)"QUIT"660P :Q1:KK1:900a C(W$(I,K))s CNC(I)700 "ENTRY TOO LONG, REENTER ":7000 630 I KK1 KBLOCK620 :900 "ERROR *** NO INPUT FILE":7000:6000 R YLINPEı ^KK1& hLINLIN1/ m3107 K1M LLCBCE:I1:J1` SKIP(I)0550t R$(J,K)R$(I,K)~ !JJ1 &II1 0INT1575 :530 ?KK1 D N XL760 bK1 dBLOCK25:HL27 g:DT1:1705:DT0 lI1NFR I1NW:W$(I,K):# KK1) 1 50E 21:36:"DONE"K '_ ,F31:K1:LINPB 6R(K)R(K)1:TC((MR)(10))((R(K))(10)) ;F3ĺTC);R(K); @I1NF:SKIP(I)0335 ETCNC(I)(R$(I,K)) JXX);TC);R$(I,K); OI T""i22:36:"NOW " kDD0& n20:K1= xRRBRE:30:R(K)T I1NR:R$(I,K):^ KK1d l 50 22:36:"DONE" 21:"WRITING TO ";(F$,6);" LINE ";WB1;" TO ";WE1:868 21:36:"NOW " DD1 20:K1 RWBWE:40:2$D$(4):F$"NONE":12600:34,05 D$"":8000WD$;"OPEN";F$;",L";L;",D";D:yD$;"READ";F$;",R";R;",B";B:(D$;"WRITE";F$;",R";R;",B";B:2D$;"CLOSE";F$:dZ$"P"110e22:"READING ";(F$,9);" LINE ";RB1;" TO ";RE1:868                           ) d6?e `.?6@r$d6?e[&] X]­ԠجرϠ]à]dedeر [R]] Ԡؠ!]ӠϠحŠ]ر]Lرq.?rq.Ҡӽ)FQjUV WX#UVW;@r`<@*rr.?r$dY.2UV;@rW`.?r$dY[dY!q.?r`$ q[],]ԠҠ٠^]a(Ԡ٠٠Ϡɮ]qUVWDde.?rYvde.?r[] ]ĠƤΠ>]!p] ҠƠԠ٠]ϠƠԠqq q\&`$j8a(ĠϠ]$]ŠƤϠŠŠ]$]ƠŠV]qUVW;@rde<@*rrYUV;@rWPde]Y[]#]ŠŠŠŠϠƤJ]|]ΠŠ8hq.?rq.?rq\&]ԯӠ,q.? rq.? rqded e-r\]ŭŠԠ0Yb`$`$q\J_a@E()Q*]\]r\tq]ԠƠŠ$q-r]Ƞ`.?r%q$ a@E(Š)E@E()FE()F<]n]ŭŠԠ]\]ԠԠde-r$6q\&]ŠԠ ] ]ԠϠ٠H ] R KM6 z a(Ԡ٠)\ UVW \J]Ƥ\]ĠΠ`$8$a(Šź)E@.S(ٯΩ)&@`@:()$03a@E(Š)E@8a(Ǡ)E@Bرqq- -rq)( qq`$ Z \ ]Ġ `$  qq_  -rqq" q-r$ d!e d e' PT a(κ)F-rE@ Y q %R@`@9()$`@9()%Q q`;@r$4 q6q_ 4\]ĠΠf`$>a(ŠԠ)UVWYM6a()_?-rq.?r \V]ŠŠq%@q8Jr]Šrq.?r)a(ŠŠŠҠ)"a(ԠҠ)\M6a()q:UVW <d!ed e.?`%c`%o`%a()Gl`a(ɯϠҠӽ)Fa(˽)FE(ҽ)FQL]~]Π]q.?Jr.?Krq qqFMxq.?rرq.?r\ q*q.?rرq.?rqرq\ ]ԠŠĠҮO4 rD4 rD4 r@p()]̭\_L&]įŠX]ded edede d eRdeMq.? r`%[><q>`$B@q6[BY$Dq.?rq.?rF`$,J[ d]ŠŠŠ]ͮ] KM6,]Š 6q]ԠŠԠ^N@"r]ŠϠ] ] (q *q.?rq.?r ,q.\&]ĠԯӠ0UV WX$2q.?rq.?r4`%[6ded e8q\:qW]ǭ]Π٠_d ] ]ŠǠ] ]Ժ"] ҠƠǠ%]ҠŠƠԠƠ$]ӠؠƠӠϠ ]Ժ ]ԠƠӠ       ٠٠Ϡ) d6?e `.?6@r$d6?e[&] X]­ԠجرϠ]à]dedeر [R]] Ԡؠ!]ӠϠحŠ]ر]j8a(ĠҠӽ)FQjUV WX#UVW;@r`<@*rr.?r$dY.2UV;@rW`.?r$dY[dY!q.?r`$ q[],]ԠҠ٠^]a(|]ΠŠ]qUVWDde.?rYvde.?r[] ]ĠƤΠ>]!p] ҠƠԠ٠]ϠƠԠqq q\&`$)Q*]\]]$]ŠƤϠŠŠ]$]ƠŠV]qUVW;@rde<@*rrYUV;@rWPde]Y[]#]ŠŠŠŠϠƤJ]ŠԠ8hq.?rq.?rq\&]ԯӠ,q.? rq.? rqded e-r\]ŭŠԠ0Yb`$`$q\J_a@E(@Bرqq-r\tq]ԠƠŠ$q-r]Ƞ`.?r%q$ a@E(Š)E@E()FE()F<]n]ŭŠԠ]\]ԠԠde-r$6q\&]rE@ Y q  ] ]ԠϠ٠H ] R KM6z a(ǬIJ) UVW \J]Ƥ\]ĠΠ`$8$a(Šź)E@.S(ٯΩ)&@`@:()$03a@E(Š)E@8a(Ǡ)Er \V]ŠŠ -rq)( qq`$ Z \ ]Ġ `$  qq_  -rqq" q-r$ d!e d e' PT a(κ)F-%o`%a()Gl`%R@`@9()$`@9()%Q q`;@r$4 q6q_ 4\]ĠΠf`$>a(ŠԠ)UVWYM6a()_?-rq.?FMxq.?rرq.?r\ q*q.?rرq.?rqرq\ q%@q8Jr]Šrq.?r]]M6a(Ǭı)q:UVW <d!ed e.?`%c`de d eRdeMq.? r`%[>a(ɯϠҠӽ)Fa(˽)FE(ҽ)FQL]~]Π]q.?Jr.?Krq qq] KM6,]Š 6q]ԠŠԠ^N@"r]ԠŠĠҮO4 rD4 rD4 r@p()]̭\_L&]įŠX]ded eder4`%[6ded e8q\:q<q>`$B@q6[BY$Dq.?rq.?rF`$,J[d]̠ŠŠ]ͮԠƠ$]ӠؠƠӠϠ ]Ժ ]ԠƠӠ]ŠϠ] ] (q *q.?rq.?r ,q.\&]ĠԯӠ0UV WX$2q.?rq.?h]έ$]Π٠»Ġ٠MM6a(̠ŠŠ)a(ԠҠΠŠŠΠ)\_d ] ]ŠǠ] ]Ժ"] ҠƠǠ