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`AAA**ժժժժ"A**A]]A"]]">6>6UU**c*******  ~ZZ$f>kI>*II>I***I>I>]"ccw*c>c>>kkI********6  UUUUUUUU>IA""AIIIIIIAAAmmmcIIOHH yUU>>>>]]]]ݔ****wwwwww>"cI6"*kI]6*I]k>>>IIIA>I*]kI!!!0k*>>>c6>k*U`xx|JN)9UUUUc>>wA*k>c****>I6"AIA"A"IIII@`pxp`@"""{{{{_AAAAAAAAA""A>"AAA"UUU***@`px|~?>>@@@@@@@@AcwwcAAAAAAA>{{A  ** $$I>>I"AwwwwwwwwwwUwwUwwAIIAwwAAAAwwAAAAw"A"~|xp`@"I]I"?>cUIUc>xxxxxxxx !BDHP`@! @`PHDBA***AA*>*AA]UQ_@ @>"k">@ "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>">>>">>"$" j,**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> ""**<"">""""""""""""">>><2""<""">""" ""  ">"6*""""""&*2"""""""""""".<"" "" ">"""""""""""""""*6"""""""> > "<("$" j,**>> "2*&" " >>  ">> """> """"""<  >> "H hjeee` "H j!hi# H j0i@` |e }``((((PPPP % j$)!i@`  x `LfH % je$ih ` P @67R`LH JhɍɊ8預* $! ?L%# 0$H$ h$iɑɗɅɒɁ L?ɓ $Лɚ  ?ɏБELM?І Lt `L2 HHH % j$Ii@hhh`>> ɝɞɋ08 9ɍ `HHH hhh` .WSP.)`` < `VWL VWL  Lp   HX$p %I1P 1%  ȅf fмжОh`*2<  RTSU 8SRuRRuSSȕSSU  S ΥU`S U`L* T U@PPWP ` p ` p I1` p 1`H)JJh & & f)P` @ D   ff  h `*UU* ՠՅ P ȥ `VXȱVVk"& 2"""""x]]**] `````````````` ```` ` ``````````````  `````````````` ( `````````````` ` " "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>"N LsҠ͠Ǎ**>**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> "                         002l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@ Fhh=hh H73`<.= >hh gHLHhh HLHhh H0pPPͩ`>%= hh HLHhh H0pPP jHI`+ hheHeh`- hh8H坪h`* hhLNI+ F0`# FLjH% F`'3 FHH = H TGhh Hi`"ȱ`$) )HLKH )Hh & & & &LwG`?HHH K Fhhh`(LF H: GLG G` GeHehL"H(- G H*hLG :STAL:4000:NXPR:NYAL:14000:ALNXO.FMH%(T%(T%(FC))):9000:5000:ALST:Y2PRNLf2P1NLı2CHH%(P1):CTH%(P2):3000:CHCR:CTPR:3000:PRCR:P1T%(P1):P2T%(P2):130104P1H%(GL):P2H%(T%(GL)):13000:EVPR:6NXH%(GL):NYH%(T%(GL)):E+STT%(EL):4000:FMH%(EL):STEP:4000:STVL:4000:9000k+CHEV:CTNL:3000:5000:VLST:5000:T%(ST)CR +EPCR:5000:ELST:11020*+STT%(EL):4000:FMH%(EL):9000:CHEV:CTNL:3000:VLCR:11040.FCH%(GL):P2H%(T%(GL))%.P1H%(T%(FC)):13000Π٠ϠĠŠҲdede`[H]ԠŠҠàΠ٠ϠĠŠŠ̬ŠŠT}dede0dededededed ed e_ }d ed ed ededededeLdedede`[H]ԠŠҠàנ)Ga(ҠŠҠҠƬϠŠŠ)GL'a(ԠϠԠƠơՠŠ)Ga(ҠŮĠˡ)c0(a(ϠάӠή)Gd2eR@[/*R@d2e_d}]ŠŠĠŠϠ٠ŠŠɠӠŠĮϠԠӠ΢)c]'a(ǠӠĠ٠ŠҠ)Ga(ŠˠՠԮŠ٠)GH'a(ŠŠŬĠ٠ԠӠ)Ga(ŠҠš)_'ca(ΠӠĠΠҠŠӠa(Ӡ٠ҠԠ͠ΠŠǠ)GZ'a(ĮŠΠƠҠŠΠ)Ga(Ġ͠ŠĠǠ)]'a(ӠբҠЬĢҠά̢Ҡ)Ga(ԬĠҢҠԮӠâ)GH'a(Ԡũ̠Ҡˠ)(~'oP S(ӿٯΩ)&@'`@9()%[`@*#r9()%['d2e?\-'oPa()cV'a(ԠӠàŠŮŠԠƠŠŠӠϠ)['a(Ӡ٠ǠŠҠ)130 ,4810,(PF0:4810",2F,<*** APPLESOFT ONERR CORRECTIONd,FI10131022:PP:I,PP:Il,PI0r,Z,d104,168,104,166,223,154,72,152,72,96,nD$"PR#1",x" K":,D$"PR#1"," K 80N",,D$"PR#1"," K132N", "10 QUIT"+*+"WHICH ";S$:S(S$)=+S1S104810v+S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170|++"PRINTER OPTIONS:"+"1 40 COLUMNS"+"2 80 COLUMNS"+"3 132 COLUMNS"+ :"WHICH ";PF$:PF(PF$),PF1PF35 DATA BASE"/*V"2 SEARCH AND/OR CHANGE DATA"G*`"3 ENTER RECORDS"`*j"4 DELETE RECORDS"q*t"5 REPORT"*~"6 SORT (TAKES APPROX. "(.0005NR2.03NR)" MIN.)"*"7 TURN ON PRINTER"*"8 TURN OFF PRINTER"*"9 LIST ALL RECORDS" +****"+):" APPLE COMPUTER INC"1)Q)"CURRENT DATA BASE: "DB$:)"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS")$).PF1ĺ"THE PRINTER IS ";::"ON"::4930)8"THE PRINTER IS OFF")B *L"1 SELECT0,5250,5280(\4620(f;(p *** INPUT ROUTINES ***E(zI$""_(COMMA$"NO"Ą"";I$:g(A$v(A$(3)ij(A$;(A$(13)ı(I$I$A$(4750(*** MAIN MENU ***(4840(1013()"******* DATA BASE MANAGEMENT I ***$(J,I)'LL1'I#':LL15'LNH204660<' JJ'D$"PR#0"k' "HIT RETURN FOR MENU...";L$u'*4810'4D$"PR#0"'>"PRESS RETURN TO CONTINUE, ESC FOR MENU";'@L$'B(L$)274810'D(L$)134680'F4672'H:L0 (RPF523" &DFF0&N1&X*** SAVE REPORTNAMEFILE ***;&bNRNNO&lF$"RPTFMTNAME"k&vI1NR:R$(I)RN$(I):Iu&4280&NRNS:& *** LIST ***&L0&&J1NR&PF5230,5250,5280&" "H$(0)": ";J:LL1&I1NH'I" "H$(I)": "N%R$(J)%J%D$"CLOSE"(%FF0.%F%*** SAVE FILES ***\%F$"INDEX"FF1x%D$"OPEN"DB$" "F$"FILE"%D$"WRITE"DB$" "F$"FILE"%NR%J1NR%FF4390%I1NH%N$(J,I)%I%4400%&R$(J)%0J&:D$"CLOSEEHKKh IH 0h0` g @ꆡHȱ$Z.h][ȹȹȹ[LF@ Ȅ FLFhL@ {KLF/ KLF F Iꥠ$ȱА`H XJh[`H F Fhh`=LI$Z= FH$Z),h CHLF$h` E- FL[`Ў D0Bš:ȱŠ3 DeŦ L&ET轠eHŮ寰?hƔƕŐ呰ȥȽL>DL,D:0``8` K E)e腙H Eh & &eHeh &LʰM?Lp@Lf@ԅPՅة߅Z[K K EJ K F D0ܱ  Fȱ0̘e摠 DLND D0Ő呐Ű0L@ D K DLD0ȘH Jh yKe`ȱ`ԤՅŠ0塰 DeȰ5DR XD LN C1 C2 C3 PDASWAMUAIKAILBCU/BHI PL XP SC HC C4 WHSBWVBTRBNTBXLSDMRCgBIVNRCLXHT6BTXBSLSS????WABST SF:LSGWLLFLLDLLGMPGBGMB????????????DAPMNS000:T%(FM)RL:J:N 50)"0$@CH$" ":J052h$JLI$:R0:LT(LI$):2000:FMIX:6000:T%(FM)RL:J:I","<=(SUBR 35)","<>(SUBR 36)",">(SUBR 37)","<(SUBR 38)"#;"NOT(SUBR 42)","AND(SUBR 43)","OR(SUBR 44)","NUMBERP(SUBR 46)","LITATOM(SUBR 47)","CONSP(SUBR 48)"#<"SAVE(FSUBR 49)","LOAD(FSUBR 50)"#@CH$" ":J052$JLI$:R0:LT(LI$):2000:FMIX:6SUBR 20)","NCONC(SUBR 21)","SETQ(FSUBR 22)""6PAIRLIS(SUBR 23),PROGN(SUBR 24),SET(SUBR 25),GC(FSUBR 26),RPLACA(SUBR 27),RPLACD(SUBR 28),"READ(FSUBR 29)""8"+(SUBR 30)","*(SUBR 31)","=(SUBR 39)","^(SUBR 40)"7#9"/(SUBR 32)",SUB(SUBR 33),">=(SUBR 34)`!$CONS(SUBR 1),CAR(SUBR 2),CDR(SUBR 3),"ATOM(SUBR 4)",EQ(SUBR 5),QUOTE(FSUBR 6),COND(FSUBR 7)!4 DEFPROP(FSUBR 8),REMPROP(FSUBR 9),'(FSUBR 6),PROG(FSUBR 10),"GO(FSUBR 11)","RETURN(SUBR 12)"+"5"PRINT(SUBR 17)","EVAL(SUBR 18)","APPLY(SUBR 19)","GET(I)NL: H%(FZ)NL:NFMI1( 63000S 06000:FMRL:9000:PLEV:7000::62000y VA2:FS3:SU4:EX5:FE6:T7:LA8 LO(1):LO(0)NL:LO(1)T ""NIL(VALUE NIL)","VALUE NIL","FSUBR NIL","SUBR NIL","EXPR NIL","FEXPR NIL","T(VALUE T)","LAMBDA NIL"PCNL:P1NL:P2NL:PRNL:CNLyFZ(((IJ)((IJ)0)32767((IJ)0))8):SZ100:NN100:MI100:"LIST ELEMENTS= ";FZHS%(SZ):SP0RH%(FZ),T%(FZ)\ID$(MI):NI1hNU(NN),BT%(NN)I1MI:H%(I)TT:T%(I)NL: IMI1FZ:H%(I)I1:T%(,(116)-EVNL:ST49ĺ"SAVING...":307:Gij"LOADING...":259:`:"MICROLISP/16-JUN-78":"COPYRIGHT 1978 APPLE COMPUTER INC"j"IT WILL TAKE APPROXIMATELY 1.5 MINUTES"{"TO INITIALIZE THE ARRAYS."~NL1:TT1:GLNL:ALNL:EVNL:BONL:&VNX6NXNLNXNY:!6NMNX<6T%(NM)NLT%(NM)NY:Q6NMT%(NM):14020z NT%(MG)0H%(MG)1:BT%(T%(MG))TT:*NH%(MG)0ı4NSTT%(MG):4000:H%(MG)H%(MG):MGH%(MG):20000:5000:MGST:20000>NR"GC":J1NN:BT%(J)0::MGAL:200A`0,)`HH KhhP`% "$`A[LK;LILI 8!`HHLI$%`` rBL& rBL| BL ,`/L `H h8` 9 LPVHWSFR`,T,U`"#`,`4ȱފCB%LIHChhC߽CC#ȱ FHHhhטH sAhLFlPST" 6` `Ld,L-L( q` `ai``0L00؆ۄ$0%,0ئۤ`ɃɁ J@Lf@ : J@ Ƀɇ˩ KȘHL@h yKLKL,DݩLf LML@/LD? D M@L,D-LD-LD D H M@e摠0h8hL,D$ 0 JLZ@h`"LqF%LxFȱ2l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@kkkkkkkk"*U*U*U*"""U*U*U*22>222*>IIII********""2AAA*U*U*U*"A**A]]A"]]">6>6UU**c*******  ~ZZ$f>kI>*II>I***I>I>]"cck>*U>>kkI********   UUUUUUUU>IA""AIIIIIIAAAmmmcIIOHH yUU>>>>]]]]ݔ****wwwwwwxxxcI6"*kI]6*I]k>>>IIIA>I*]kI!!!0k*>>>c6>k*U`xx|JN)9UUUUc>>wA*k>c****>I6"AIA"A"IIII@`pxp`@"""{{{{_AAAAAAAAA""A>"AAA"UUU***@`px|~?>>@@@@@@@@AcwwcAAAAAAA>{{A  ** $$I>>I"AwwwwwwwwwwwwwUwwUwwAIIAwwAAAAwwAAAAw"A"~|xp`@"I]I"?>cUIUc>xxxxxxxx !BDHP`@! @`PHDBA***AA*>*AA]UQ_@ @>"k">@ "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>">>>">>"$" j,**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> ""**<"">""""""""""""">>><2""<""">""" ""  ">"6*""""""&*2"""""""""""".<"" "" ">"""""""""""""""*6"""""""> > ">><("$" j,**>> "2*&" " >>  ">> """> """"""<  >> "H hjeee` "H j!hi# H j0i@` |e }``((((PPPP % j$)!i@`  x `LfH % je$ih ` P @67R`LH JhɍɊ8預* $! ?L%# 0$H$ h$iɑɗɅɒɁ L?ɓ $Лɚ  ?ɏБELM?І Lt `L2 HHH % j$Ii@hhh`>> ɝɞɋ08 9ɍ `HHH hhh` .WSP.)`` < `VWL VWL  Lp  W HX$p %I1P 1%  ȅf fмжОh`*2<  RTSU 8SRuRRuSSȕSSU  S ΥU`S U`L* T U@PPWP ` p ` p I1` p 1`H)JJh & & f)P` @ D   ff  h `*UU* ՠՅ P ȥ `VXȱVVH@( HH h0hH@hH@ `X``hH@@ HH(h Hب@ pHH0@@H(`hH@h H@HxHH@@hH@H `p`hH8 ȸH0HH@H𠸸hH( #@%.5#<BP (PhHH0(H` PX X@`XHX (08@HPX`hpx `````````````````` ````` ` ``````````````````  `````````````````` - `````````````````` `  "**<<"""\&"&"" ,2"2,">$""< ",$$$    wIIII&""""""""<""< `4L (,"""""**"""2, ">>"N LsҠ͠ǍӮŠӠЮҠŠנѠӠĠƠǠȠʠˠ**>> >""""">> >>> > >"""> >> >>>"">> >"">"">>""> >> "                                          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/[҅n3pJ?>ʊ:>Ș;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ΰ` Δ䮥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  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$:)  :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$  z#??Xα   ҠPӠԠ РϠŠŮ٠!Š"Šà* ՠ ɠŠ ǠΠP ŠԠɠ&ҠӠԠéРéԠéРϠŠŠé РϠŠŮؠϠ ҮʰŠŠˠ̠̠ҠéԠŠéŠé /BX" KLXY"lmedee᥎lmefegnLYi腀tu8ʅ񥌦 /BX" KLX "lmedeelmefeg /BX" KLX "novwxy /BY" KLOWtu8ʅ񥌦 /B3W" KL7W "lme^e_LY|}e~eॎno /BW" KLW "nono HLWlme^e_LYno( H H|}|}e~eॎno ,G gHLVLVLYlmedeelme`ealmefeglmebecilme^e_df Mlmedeeⅎlmefegnono( H H|}|}e~e( gH HLU ,Gvw ,Gxyxyxy HLMU ,Gvw ,Gxyxy( Hvw H|}|}e~evwxy /BU" KLUT"lme^e_ gHLULVlme\e] gHLV|}|}mlme\e] gHL*TLYlme`eavwlmebecxyxy( Hvw H|}|}e~e( gHLTlme\e]LDXvwxy /BT" KLT "|}e~evwvwlm /BS" KLSV"lmilmŰ 0pPpLR  /BjS" KLtSCVCVCVC"  /BS" KLSCVCVCVC"lmHHȄ Hhh HlmilmŰ 0pPpLSllmilmŰ 0pPpLCQWe~e2 /B_R" KLiRHIT A KEY"pq Ap HLRLRLiR ! /BR" KLRSCORE"lmlm /BR" KLRV"'e~elmilmŰ 0pPpLPlm lme\e]lme^e_lmereslmeheilme`ealm Hlmeelm Hlmebeclmee ii\]\]i `a`ai bcbci ^_^_i dedei fgfgi rsrsi 腄i 腆i hihii jkjki 腈jki pqpqi~tuz{ Ahlmlmժժժժ"2"** 2""""" ժժժժ***ժժժժ"""&2*"*"""*""* ApN gHLhL8hpY gHL5hLPLg B X  /Bfh" KLqhASTEROYDER" /Bh" KLhT -------- ALIEN (20)" /Bh" KLhY -------- BEAM "  /Bg" KLg6" 2 Mz{ /BRg" KLVg?"2 MnoinoŰ 0pPpLf /Bg" KLgGAME OVER"  /Bg" KLgTRY AGAIN ?"pq gHLfL3Qlm < MlmilmŰ 0pPpL*f /Bf" KLfALIEN GOES AWAY!!" /Bf" KLfYOU WIN !!"L8hLSno z{ /B|}e~e(! /B JȄ gHLHeLeꄜ gHL`eLe\ gHLxeLe. gHLeLeP gHLeLe„ gHLeLfLf Mi 腀i腂ie~e(|}8e~e(Le( H H|}|}e~eॊ񥌦 /Bd" KLd "8ʅ HLdtuLe񥌦 /Bd" KLd+"( H H|}񥌦 /Bc" KL!c "8ʅ񥌦 /BLc" KLNc "8ʅ HL{ctuLei񥌦 /Bc" KLc+"8ʅ񥌦 /Bc" KLc+"( H H|}|}Bb" KLb "tu gHL)bLbpq Ap HLRbLUbLez{tu  M\ HLbL.d( H H|}|}ie~e|}8e~eॊip HL:az{8ʅz{z{ HL:az{z{ /B_a" KLca2"Hz{ H|}|}e~e2z{ /Ba" KLaW"lmdlmilmŰ 0pPpLaz{ /lmeexlmilmŰ 0pPpLZHz{ H|}|}e~e2 HLr`Lf|}e~ez{ /B`" KL` "pq Ap HL`z{z{ HL`z{L_ "novwxy /B9_" KL=_5" 2 Mvwxy /B}_" KL_@" MnoinoŲ 0pPpL_vwxy /B_" KL_ "lmeev}e~eॎno /B3^" KL7^Y"lmejek᥎lmeenL_ 2 Mi腀tu8ʅ񥌦 /B^" KL^ "lmejeklmee /B_" K|}e~e( gHLm]tu8ʅ񥌦 /BQ]" KLU] "lmeheiL_|}e~eॎno /B]" KL] "nono HL]lmeheiL_no( H H|}| gHL2\|}|} ,G gHL2\L5\L_lmejeklmeelmeelmeeilmeheidf Mlmejekⅎlmeenono( H H|}ʅvwvw HL4[ ,Gi vw ,Gxyxyxy HLk[ ,Gi vw ,Gxyxy( Hvw H|}|}e~evwxy /B[" KL[T"lmehei gHL[L\lmeresLTlmlmeres gHL4ZL_lmeevwlmeexyxy( Hvw H|}|}e~e( gHLZlmeresLb^vwxy /BZ" KLZ "|}e~evw8LY5" 2 Mvwxy /BDY" KLHY@" MnoinoŲ 0pPpLXvwxy /BY" KLY "lme`eavlmebecxlmilmŰ 0pPpEHKKh IH 0h0` g @ꆡHȱ$Z.h][ȹȹȹ[LF@ Ȅ FLFhL@ {KLF/ KLF F Iꥠ$ȱА`H XJh[`H F Fhh`=LI$Z= FH$Z),h CHLF$h` E- FL[`Ў D0Bš:ȱŠ3 DeŦ L&ET轠eHŮ寰?hƔƕŐ呰ȥȽL>DL,D:0``8` K E)e腙H Eh & &eHeh &LʰM?Lp@Lf@ԅPՅة߅Z[K K EJ K F D0ܱ  Fȱ0̘e摠 DLND D0Ő呐Ű0L@ D K DLD0ȘH Jh yKe`ȱ`ԤՅŠ0塰 DeȰ5DR XD LN C1 C2 C3 PDASWAMUAIKAILBCU/BHI PL XP SC HC C4 WHSBWVBTRBNTBXLSDMRCgBIVNRCLXHT6BTXBSLSS????WABST SF:LSGWLLFLLDLLGMPGBGMB????????????DAPMNSA`0,)`HH KhhP`% "$`A[LK;LILI 8!`HHLI$%`` rBL& rBL| BL ,`/L `H h8` 9 LPVHWSFR`,T,U`"#`,`4ȱފCB%LIHChhC߽CC#ȱ FHHhhטH sAhLFlPST" 6` `Ld,L-L( q` `ai``0L00؆ۄ$0%,0ئۤ`ɃɁ J@Lf@ : J@ Ƀɇ˩ KȘHL@h yKLKL,DݩLf LML@/LD? D M@L,D-LD-LD D H M@e摠0h8hL,D$ 0 JLZ@h`"LqF%LxFȱ2l A(0)=$658A A:2)=X+1 A=A+3 A(0)=$E385 A=A+2 ] ;=H<>"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` K`@"(" #=4600 !=3000 ;=G:0)<>")" #=20000 G=G+1 ] ;=H<>"'" #=4700 !=4000 H=$472C #=4900\ ;=H<>"%" #=4800f !=4000 H=$92p A:0)=$A6 A:3)=H A:2)=$A5 A:1)=H+1 A=A+4 ] H=$4BDF #=49I H?ŝ0&L Nh HNNO&&`Ff HNNO&&FfLNNO8H坪h`ƝLNHhLNhH) j(jhj`LN `eHeh`F H&F H&F H&F H&礘`>=m?8>>??LLԅՅ LHH Dhh`=? / "AD]_\^L0HhI `хM X {K@ L D** GAME-APPLE VER.1.2 '79 ** BY NAOYA SUZUKȢ`<>=?L<=>?0L L LL!L LԍՍ LL!L<>=?  K   L  L tL<=>?LLK= < L? > L tL<mLJL,D>h KLKlHH H: Ghh` Ghh`? $ h JLmK SKhH ]Kh)LaKJJJJ 0ii0LK K`ś KL,D`d '.YDAER* LK KLKLK3 jO ) P`X` )` ` h K`@TPPP100HY5305`^ SET UP APPLE HIGHzh RESOLUTION GRAPHICSm(110)32PICTUREFLAG1:"PLEASE PRESS ANY KEY WHEN THRU VIEWING":I12000:I:nSELECT PAGE 1 OR PAGE 2 oHIRES BUFFER M""CAMBER, IN PERCENT OF"M"CHORD (0 TO 25) ";MM$:(MM$)0MM$"6"[MM(MM$)pMM0MM255350}MMM100MM15305":'"WHAT IS THE POSITION","OF MAXIMUM CAMBER, IN"6"PERCENT OF CHORD"@"(1 TO 99) ";PP$:(P0) ";SSdSS5SS2005200(nS1SS25350::U"WHAT IS THE MAXIMUM"r"THICKNESS, IN PERCENT""OF CHORD? (0 TO 30) ";TT$:(TT$)0TT$"12"TT(TT$)TT0TT305305TTT1005470:"WHAT IS THE MAXIMU9"STANDARD SCREEN FORMATTING? (Y OR N) ";A$:YFLAG1PA$"Y"A$""5300X :u"GIVE CHORD IN PERCENT""OF SCREEN WIDTH (10 TO 100) ";WW10W1005130(CC(W100)P:U"HOW MANY STEPS ACROSS"Z"CHORD? (FROM 5 TO 20C,YLC90XXS12304 ROUTINE TO INPUTL WING SECTION DATA[ DEFAULTSq CHORD IN SCREEN COORDINATESC279 STEPS ACROSS CHORDS15016368,0:YFLAGĺ:"ANOTHER WING SECTION? (Y OR N) ";A$:(A$,1)"N"ė:: XUXYTST YUYCYTCT- XLXYTST= YLYCYTCTY  DEPENDING ON COMPUTERq  PRINT OR PLOT THE  POINTS FOUND. XUC279XUC0YUC90159YUC9002035 XUC,YUC90 XLC279XLC0YLC90159YLC9002200 XLSECTION (YT)9 YT(T.2)(A5X5A1XA2X2A3X3A4X4)M  CHECK IF DONE\ YT0YT0t @ FIND CO-ORDINATES J OF UPPER AND LOWER T SURFACES, (XU,YU) ^ AND (XL,YL). h CALCULATE SINE m AND COSINE OF TH. rST(TH) |CT(TH)  CALCULATE POWERS OF X( X5(X)3 X2XX? X3XX2L X4X2X2b x CALCULATE THE Y|  COORDINATE (YC) AND  ANGLE (TH)  OF THE MEANLINE  FOR EACH X. XPİ6000 XPİ6500  FIND THE THICKNESS OF  HALF THE `A5.2969 jA1.126' tA2.36164 ~A3.2843B A4.1015]  SEE "THEORY OF WING"n  "SECTIONS"  BY ABBOT ET AL  *********  INPUT THE DATA PICTUREFLAGĹ16368,0:A$: 5000  STEP ALONG CHORD X0 X11200IN RESPONSE TO EACH QUESTION."& 237 K12500:KJ  A PROGRAM TO_  CALCULATE NACAp  FOUR DIGIT  WING SECTIONS  BY JEF RASKIN  AUGUST 1978 $ ********** L ********** V CONSTANTS FOR THE W THICKNESS POLYNOMIALG 216,0Z d:10:17/n"AIRFOIL":x12:9\"A HIGH-RESOLUTION GRAPHICS"g14:5"PROGRAM FOR AIRCRAFT WING SECTIONS"18:5"COPYRIGHT 1978 APPLE COMPUTER INC" 20:" FOR DEMONSTRATION, PRESS THE RETURN KEY      X 14075 ** GAINESVILLE, FLA. ** 32604 *****************************D 1************************* ** PROGRAM: HOWIE MITCHELL ** 7823 SW.55 PL. ** GAINESVILLE,FL. ** 32601ĠϠҠΠ`.?r@$F  _F<٠٠ϠΠϠ)\vu_u?bud6?ed2e?a(Ӡ٠٠ϠŠ),lua(ӠŠâ٠ϠΠϠ) vud2e5uq.?6@r`$u`$ud6?eM6[ud6?ewu[4u]ӠҠ٠ŠϠ).OUVWYM6)8O\<KM6d6?ed6?e_ N0u]ԠŠ3:uM6UVdW]ŠƠӠϠŠDutINu`.?%r%\bu]ƠŠӠ̬̠ҠĠˠҠ>XuYcd2e?a($Na(ӠŠ΢)GM6NP.?$rR@GN]٠ǠҠΠŠҠԠ٠ N`;@r$NN`@9()$ON`@:()$O\0u_ N O`@9()%QO_NOM6oP&$Oa(Ӡ٠٠ϠΠ\Na(Š)4fNoPa(ԠŠҠ)c1pNca(Š͠ӠҧӠĠ)!Nca(ŠԠ͠պ)Nca()Nca()Nca()Nca(ӠҠ)No]ǠͧӠŬ]͠ӠҮ]Ԡ]ŠҠ]Š N]*NKM6oP&4Na(Ƞ٠Ƞ)>NP&HNa(ҠΠǠԩ) RNcP Ơ]Ӡӊ]ŠͧӠĠ]ԠԠĠƠՊ]ӠŠӠ]ŠǮ٠]Π͠Š]ҠӠ ]ŬԠӠԠ]ŠΠ]ŠӠ]ԠŠĠԠ ]ϠŠ͠Į]ҠӠ]ŠǠƠ]ŠϠĠŠ]Ơ٠ΠŬ]ӠŮ]ŠӠӠΠƠĨϊ]ŠӠנϭ]ӠĠҊ]ŠӠ̠έ]ӊ]ŠӠ]Ġ٠͠ҠӬ ]Š͠ΠҠ]ԠǠƠ ]ŊŠӠȠt]ȠȠƠŠv]ӬĠӠx]ǠŊz]ŠӠΠ|]٠ӠĬ~]ԠƠӠ]ҠϠŠΠ]ĨӠĠ ]ŠϠŠŠӠZN@"r_ N d]ӠĠנf]ΠϠӬرh]ٱزٲȠj]ΠԠؽٽl]ŠӠȠn]Š̠Ϡֱp]ֱֲĠֲr]زr_MFذqٰ]ԠӠԠ͠ĠӠϠĠΠԠ'K`.?Mr %dMe@]ŠZPرqٱزٲֱֱֲֲ]ԠӠϠ٠Š٠ΠҠ̠ҠؠJUq60q6,q6,]Ԡزq6ز\ ٱq6ٱٲq6ٲ\ رq6رزq6ز\ 0(`.?6@r%[`7/?r%\2`7/?r$<_[2ֱq/? rֲq/? rֱq/? rֲq/? rq/?rq [L<Md6?eqرq/?_rزq/?_rٱq/?رrٲq/?8 _J ذq8ر_r#ٰqٱ_Mذq8ز_r#ٰqٲ_MLذq8ٱ_r#ٰqر_Mذq8ٲ_r#ٰqز_M[Cرq8رֱr`ٱq8ٱֱr`زq8زֲr`ٲq8ٲֲr`Oٱq6ٱٲq6ٲ\ رq6ر      ** (NOV.13,1979) ***************************** N*********************** ** DONATED TO ** APPLE PI USERS GROUP ** DENVER - COLORADO ** *********************'*,,,,3----$????'$% #`6.-%-%$??????46.---$?-/5?->/&5>%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,->%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,-/=$/=$------------''''TU/T8ePT ?UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` L# !" #`#&/TeRTUU+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)PIȄR-Q?eQ _$ .WS.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- 8gh dYY fo[%h`$joPd6?eM6dKid2e?Pa(Ӡ΢ϠР)d2eqd6?e:jq.?6@r`$jd6?e`%[_Gd6?eLf UVW'Xij'kYKM6Kd6e-\oPa(Ӡ͢Ҡ̠)*]Pa(ӠâϠԠ)G[Q^-rq-rq -rq -rq-rq]Π)_UVWUV W ]נ`q81? rr81?rrbf-r_5 Lq,PqUVWX`P%qxR\q\Y-TM6oa(ޠ)GPa(Ԡ)KV@p(ŠΠҠԠ)2Xoa(ҭŠϢŠ) Zd"q@q00<q88r88@rrrqLq'>q88rr880rr@qu\9Aq.?6@r`8r8r %\h`%_B` %\D``%\F`@%\H`78 r%\ JY\q\q\]ŠU2q/UVW\Yq0q\q1\q2UVW\Y3d6?eL\^)4qdqdqqdq 5qqUVWpX"8qd ed!e:P a(٠̠)oa(ԠŠҠ)UVWY&d,eO4rN@"Hr-(qqq3qqq*M,q\L.qhqc\0qqq\I1qqpq"\q|)UVWq.?6?8rrY[d2e?o5 q88 rrP a@*#rGd2e[3"d ed!ed"ed,eM[V$qq"qqKM6o a(̠ΠŠ)Y%oq\q\qqq[/qqvq\q6q\[q(\\[/qqq\q6q\[q(\\[Nq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r _d"ed,eM[0d&ed$ed%ed'eM[#qqq\q\ qq\q\9 qq\q\qq\\q*q\qq\qq0q     LETE A DATA BASE ***8n :"DELETE WHICH : ";S$:S(S$)cx S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE BASE"  % "WHICH ";S$:S(S$)5 SJ12660\ S1SJĺ(7);:(37):868:2540j DB$R$(S)y SJ1140 ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DERECORD NUMBER "DR" DELETED!":4 "MORE (Y/N) ";L$E L$"Y"2360h NRNR1:F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATAI" "H$(I)": "N$(J,I)!I'4 LLNH2B D$"PR#0"H b$ ***DELETE RECORDS***h. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V I1NH` N$(J,I)N$(J1,I)j It J~ :"1SNH2130f/p"FROM "H$(S)": "N$(J,S)5zV"TO "H$(S)": ";:"";N$(J,S)b:2240h" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250" "H$(0)": ";JI1NHL$(L$)274810,(L$)1320648L0::O ***CHANGE DATA***v*" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";R"";S$:S(S$) \S"THAT'S ALL OF THEM. ";+"NOW YOU MAY:"E"1 DO MORE SEARCHES"["2 MAKE CHANGES"|"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070"PRESS RETURN TO CONTINUE, ESC FOR MENU";I" MAKE CHANGES"D1N"WHICH ";S$:S(S$)FXS0SNH11870WbSNH12080]lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ2240LNH20İ2060JI1NH)H$(I)":";:4720:N$(NR,I)I$0I6L"MORE (Y/N) ";L$]L$"Y"1640lF$"INDEX"v42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU MAY"::OR COLUMN NUMBER "NR": ";:"";R$(NR)> "R$(NR)""NR201600J ,NRNR1T 61560` @NRNR1p J4280:1160 T***ENTER RECORDS*** ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1 "YOU ARE ENTERING RECORD # "NR ):S1SNH14500 :"DO YOU WANT TO SORT:":H "1 ALPHABETICALLY"] "2 NUMERICALLY"c | "WHICH ";L$:L(L$) :"SORTING ";:1240 1013:*** CREATE HEADERFILE *** NR1 :"PRESS 'RETURN' TO EXIT TO MENU" $ "HEADER F$(R(J),I)N$(J,I):N$(J,I)Z$(I):ID xZR(R(J)):R(R(J))R(J):R(J)ZN 1370 "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280 4810 MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$,S)R(I)R(I)1 1300A (N$(I,S))(N$(J,S))R(I)R(I)1K J:I\ "SORTING ";v (INR11:JNR11 2IJĭR(I)R(J)R(J)R(J)1 <J:I F"SORTING " PJ1 ZR(J)JJJ1:1370 dJNR1420" nI1NH:Z$(I)N$(R(J),I):N$"HEADER":1520 ~41106 I1NR:H$(I)R$(I):IN NHNR:NR0:MEM(0)c B(MEM(13NH))v N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** I1NR:R(I)0:I I1NR:J1NR L1270,1290 N$(I,S)N$(J$ 216,0"MAXFILES1"1D$"":CTRL DFD$"NOMON,I,O,C"N:X5180^$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#"VDB$"":F$"BASENAME":2610`4110j2470 tF               ******** svyN|yvspmjgc`]ZWTQOLIFC@>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&    ))8'a())B'a()L'd ed!e( `'ccc!j'P a(ˠŠɠà)c-t'a(Π٠ϠĠŠ)c+y'a(ԠŠ2#q?<#oP8r8dr8 r8ra()FE()G Z#`$n# d#\_#n#\ #[!'KoPd ed!e&*'a())$'a()).'a(l qرqٱqXv UVW fgرhٱرq/?rٱq/?rfñgرhٱq/?Pr\`"Y[ qq_`""4!qUVWPX\`"Y[%!q q0\`"qq_`"%`"dedeM[]Š(#]Ǡ+2 UVW`-r$< Yq/?r< qq1?rP UVW\(#YԱqd `%\n `%\ls `%\x Աqfñgرhٱ [@]Ϡ UVWq\`"Y[) UVWX6q(\`"Y[a`$fرqٱqf`$]kY!pرqررٱqٱٱ]נzq=ر>ٱr`$ fñgرhٱ\ ][ ]Π `$(  \4!UVWY  wq`$_d( ]ӠҠ٠ο)GoPR@#`@9()$Z`@*#r:()$Zd6?ed2eKM6KQ4]ĠĠ>UVWHq.?6@rR`$Wرq6ٱqW`$\رqٱq\`$aرqٱq6>r$YZ'fijkijk `Ա%\![]ĠƠ d6?eE`.?r.?r$dede]Šɠ2q `%qq.?r.?rHoPa(ĠՠŠϰW`=>r$YZ'fijkijk `Ա%\![]̠ŠӠ`$qq_,q-/?rr`$qdq/?$rq/?r/UVWUVW`=>r$&YZ]Р̠Š-:fijkijk] D`Ա%\!N[X]ŠӠb`$lqq_,q-/?rr`$qdq/?$rq/?r/UVWUV`$qq`7/?r%\`7/?r%\X`7/?r%\"_]Ӡ`$qq_:,q-/?rr`$qd&q/?$rq/?rE0UVWUVW`=`ر%رq`8ررr8ررr$Fٱq8/?rr87رr`8ٱٱr8ٱٱr$-qqqqqq"qqԱq]Π\4`$qNPa(Š)GP8r8dr8 r8ra()FE()GPa(Π)GPbGnoPa(ɠź)GP"8r8dr8 r8ra()FE()Gd2e`%[d6?eñq\l Jرq/?r'Zqqd]ΠiM6Lf7nlm nij'klm n'ij'k =xUVWf-rqijk%ijk&YCd2e?oPa()Gd"eo@"dr7`.?r.?r $;8dede 9dede;q.?r.?r[<-rq -rq-rq -rq-rq -rq -rq-rq .Fq<()rq<()rq<()rq<()rqP\}\@\ ]ŠŠ]]ϠŠ$(KM6d6?ed6?e_2H-oPUVWa()GYD.oPa()Gde [2O4rC     FE:8000:RGNLĺ"EVAL:UNDEF'D FUNCTION: ";ID$(H%(FM)):i#FCH%(RG):CHT%(FM):CTNL:3000:P2CR:12000$"EVAL:INVALID FUNCTION":'SRAL'SRNLı$'H%(H%(SR))SASRT%(SR):10010.'SRH%(SR):*ELNL11050+VLNL +ELNLı9ST48ĴST41940,900,920,945,950,955,960<#ST5046000X#GPSU:8000:RGNL9180#STRG:4000:ELT%(FM):11000:GLVL:5000:STNU(T%(H%(ST))):9120#GPEX:8000:RGNL9200#STH%(RG):4000:ELT%(FM):11000:P2VL:5000:FCST:120008#GP9220/#GPFS:GST%(H%(FM)):8000:RGNL9140P#GLT%(FM):STNU(T%(H%(RG)))#ST16ĴST100,150,200,250,300,350,400,450,43000,40000,41000,42000#ST29ĴST166990,8990,11990,8500,13990,730,13500,260,740,21000,700,710,6700#ST41665*#T%(GL))):8000:EVRG:$#FMH%(GL)7(#EVNL:FMNLıW2#TTH%(FM)T%(FM)0EVFM:l<#H%(FM)TT9070F#GPVA:GST%(FM):8000:RGNLEVH%(RG):Z#SAFM:10000:SRNLEVT%(SR):d#"EVAL:UNDEF'D: ";ID$(FM):n#T%(H%(FM))0TTH%(H%(FM))";:STT%(PL):4000:PLH%(PL):7000:5000:PLSTAPLNLĺ")";:fH%(PL)TTĺ" . ";:7000:")";:STT%(PL):4000:" ";:PLH%(PL):7000:5000:PLST:7050@RGGSJRGNLıOH%(RG)GPRGT%(RG):TRGT%(RG):80104!GPH%(GL):GST%(H%(000:T%(ST)CR:RLCR:6510CxSTRL:4000:6000:2000:TI$")"6540c"READ:')'EXPECTED;ASSUMED"5000:T%(ST)RL:5000:RAST:,6000:EVRL:NEVH%(GL):PLEVXH%(PL)TT7040bT%(PL)07030lNU(T%(PL));:vID$(PL);:."(2000!zTI$"("İ6500:RLRA:6TI$" "RLIX:c"READ=NIL;'(' OR ATOM EXPECTED":RLNL:~d2000:TI$")"RANL:i6010:CHRL:3000:RLCR:STCR:4000n2000:TI$")"T%(RL)NL:5000:RAST:sTI$"."STRL:4000:6010:CHRL:3000:5!";: 3000Z I1NN:BT%(I)Ă:21000:I1NN:BT%(I)Ă:"NO NUMBER SPACE!":EVNL: BT%(I)TT:NU(I)GN:CHTT:CTI:3000:IXCR:SPSZS%(SP)ST:SPSP1:"STACK OVERFLOW";:0SPSPSP1:STS%(SP):"STACK UNDERFLOW";:pCH$"0"CH$"9"GN(BU$):3500:2500MRI1NI1:ID$(I)BU$IXI:2500{\I:NIMIĺ"READ:IDENT TAB FULL!":EVNL:fID$(NI)BU$:IXNI:NINI1 CH$" ": NFNLCRNF:NFH%(NF):H%(CR)CH:T%(CR)CT: 21000:NFNLĺ"CONS:NO LIST SPACE:RLTCH$(LI$,R,1):5 LI$:R0:LT(LI$):1000N CH$" "İ1000:2000y CH$"("CH$")"CH$"."TI$CH$:2500 TI$" ":C1R RR1:LTR2100 L$(LI$,R,1):L$" "L$"("L$")"2100 *2060 4BU$(LI$,C1,RC1):RR1(>CH$"-"GLNLEVT:& H%(GL)NLEVNL:9 GLT%(GL):900L GLNLEVNL:h H%(GL)NLEVH%(GL):{ GLT%(GL):920 IH%(GL)NL:627 IT%(H%(GL))0H%(H%(GL))TT:627 IT%(H%(GL))0H%(H%(GL))TT:627 IH%(H%(GL))TT:627 RR1IL":EVNL:F ST29600,610,615,620,625,630,635,640,645,650,655,660h EVH%(GL):H%(EV)H%(T%(GL)): EVH%(GL):T%(EV)H%(T%(GL)): STGL:4000:FMH%(T%(GL)):9000:5000:GLST SAH%(GL):10000:SRNLĺ"SET: NO VAR":EVNL: T%(SR)EV:  vIA1A2:627$ {IA1A2:6275 IA1A2:627F IA1A2:627W IA1A2:627i GNA1A2:605 GLNLA1H%(GL):T%(A1)0H%(A1)TTA1NU(T%(A1)):GLT%(GL):GLNLA2H%(GL):T%(A2)0H%(A2)TTA2NU(T%(A2)):675 "NON-NUMERIC ARGS;=N:STC:4000:9000:5000:CST:EVNLCT%(C):410M FMH%(T%(H%(C))):9000: NXT%(H%(GL)):NYT%(GL):14000:T%(H%(GL))NX:EVH%(GL): XGNA1A2 ]3500:EVIX: bGNA1A2:605 gGNA1A2:605 lGNA1A2:605 qIA1A2:627 sEVLO(I): 216,0 60000GdCHH%(GL):CTH%(T%(GL)):3000:EVCR:[EVH%(H%(GL)):oEVT%(H%(GL)):ITTH%(H%(GL)):627,IH%(GL)H%(T%(GL)):627^EVH%(GL):CGLCNLĺ"COND: FAILURE WARNING":EVNL:0 FMH%(H%(C))          VWYB$cP a(ŠԠӠϠ)P a(ŠҠ٠))P a(ǠŠ)G.UVW YoPa(ŠŠӠԠϠ)UVWY3qq8d6?eL_ &]ԠŠҠded ed e]d ed ed ededededeLdedede`!oPa(Ԡ)3cP a(٠Šʮ)Pa(Š)@oPa(ԠŠҠ)U()Gc19a(ŠΠΠ)FE()G`%a()Gc >`%a(ŠΠ) H`%a(ΠΠ)#R`%a(ԠӠŠ)\oPd6?eQKM6N@"rTdede0dededede L]ĠƠ/%UVWUV Wf/?rghYZI*f ijkijkijk ijk!ijk"<+f ijk#ijk$ijk%ijk& ,M664oa(ΠΠΠ)FE()G`%aeMdeZdeMdeZMdeddenMMdeidenMdedM1`%q`%qqq?S(٠οٯΩ)&@`;@r$`@*#r9()$ M6L_ ijk 8fijk&ijk%ijk$gh#(UV WXf gh'gh&Yf i jk'%qddedeM]dedeMdedeMdedeMdeUdghlf`%ghmYgh+n`$`$`$_^6qUVWUVW q.?6?rYY_mL]Cf UVWlm'nYUVWXfijkY"flmn$N_^6NqUVWUVW q.?6?rYY_m(X`&$^q]ΠΠ3YUVW q.?6?r.?6?r.?6?r.?6?rY[fgh&\UVWX68]`$b`=>r $bfgh_^bf q]ŠΠ3UVW q.?6?r.?6?r.?6?r.?6?rYfgh&UV W"8`&$`=>r $fgh_^fghf` %gh Ygh+ `$N`$N`ҠΠӠ!Rq.?6?r`%_Xd!Sq.?6?r`%_d^q#2?rcq#2?re`.?6@r$ !h`&%_qqmM6Pa()nUVWY|_ (`$^@lmn%Jf ij kghqK`$M0, IN WHICH CASE THE CHARACTER WILL BE CONVERTED TO A CONTROL OR LOWER CASE. THE SUBROUTINES AT LINES 10 AND 1000 ARE USED IDEN-TICALLY. LINE 10'S IS MUCH FASTER BUT DIFFICULT TO UNDERSONTROL CHARACTER.|(A$,J,1)"@"JJ1:L0:IF AN @ IS FOUND, INCREMENT J AND ALLOW NEXT CHARACTER TO REMAIN UPPER CASE.K0:((A$,J))64((A$,J))91KL:IF AN ALPHA CHARACTER, MAKE K= L INSTEAD OF 0 (SEE NEXT STEP)I$I$(((A$,J))K): WILL PRINT OUT A$1 IN UPPER-LOWER-CONTROLG CHARACTER FORMAT I$"":J1(A$):L32:I$= NULL:LOOP:DEFAULT ON ALPHA CHARACTERS IS LOWER CASE(A$,J,1)"&"JJ1:L64:1040:IF AN & IS FOUND, INCREMENT J AND CONVERT NEXT CHARACTER TO A C976::LEAVE USER IN HIRES CHARACTER MODE WITH DOS (IF BEING USED) ENABLED.j * CONVERT UPPER CASE * A$= DESIRED STRING WITH AN "@" BEFORE EACH CAPITAL LETTER AND AN "&" BEFORE EACH CONTROL CHAR. GOSUB 10 OR GOSUB 1000CTION @Y=SIN(@X) FROM 0&O TO 2.5&O.":10:LOWER CASE IS DEFAULT MODE. PRECEED UPPER CASE WITH A "@" AND CONTROL CHARACTERS WITH A "&". THEN GOSUB 10 TO PRINT 20:6:A$"&C 1978 @APPLE @COMPUTER @INC.":10 :"LIST THIS PROGRAM TO STUDY ROUTINE"N Y(X31.415)50 X,68Yk X50(X50)210:IF X IS NOT A MULTIPLE OF 50 THEN JUMP TO END OF LOOP X,18X,118:DRAW VERTICAL LINE 188:X71 X100;(15);:PRINT X/100 (CTRL-O) X:LOOP UNTIL GRAPH DONE 18:1:A$"@SINE FUNE MODE <:936 FD$(4)C PD$;"BLOAD UP LO CASE ROUTINE.X"h ZD$;"BLOAD UP LO CASE ROUTINE.Y" d:TURN-ON HIRES SCREEN n0:0:54,0:55,96:INITIALIZE HIRES CHARACTER MODE x0,68250,68:DRAW ZERO LINE 3 X0250:MAIN LOOP 5 216,0604** CASE CONVERTER SUBR. **N I$"":J1(A$):L32L$(A$,J,1):L$"@"L$"&"JJ1:L064(L$"&")I((A$,J)):I("A")I("Z")L0#(IL);:J::(I$I$(IL):J:I$: -REMOVE LINE 35 FOR LINE-AT-A-TIM     5`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$!