8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ۍw!x! c&Эb)0I0 ( d!N)Gi/ h!4 i2 C-CATALOGER.TXTt  /NEWSLETTER.HEADMIIC.PORTS57%BREAD FREEWRITERORIG' &PRODOS< ,BASIC.SYSTEM'(! 'STARTUP<(# 3(.FREEWRITER.SYSQ*i ! q'PRINTERh i  #IACp >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-q(qR9B}PBiB  !"#$%@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@1vȱ@Hȱ@Ah@Q@c1e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`L!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠ­ԠũԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 0ōҍJJJJ ɺi) ɺiL9Ҏ )?qr  Ұ Ӱ   |Ґ `l@Hȱ@IHXATjjȱH ɯȩj5H)/@a)_ .0 :A[8@`,j𪭄Б` Ґ L` א@>+)I38j%k&P'Q+)7+I0 ('*A ܰ7<=FG ݰ( ְLݩI* mIH` LI I%0(F)G ݰ ֬+H&F'G ݰ&FF@ 0 [ gLթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHyHȘI ݰLԩ` ՠ @;@ C@Ю+)m+ʈ@i ]`^C8` @ x3N@) Wڎ ԭi`0 iڰ0GF ݰ#]0 ڰW,0 ] ۩.H hȑNWȮNW8`N΄0NN` װG8`h)N$%^vywz LL⭦ L x L ;ް  0pzJ{ )@~NJOK ;ްiKKzzww xxIJ{ y zJФ̭xJwjHFIH ~HIG~xKE а((H hH h8`8y@ȭz@L;ެ^8NvNO 8} |vJLy`zRzʱLN.MOwxMEKP/zMEKzLCL-}M| Owx,vpyeNNO(`JNKO^L ;ް/  0P L8 | Zߠ^J`L@yȱ@z^ LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @,,L:,LĠԠhhhhIL@Ae \{**ӂӹi|wWIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠ9X(K iXXK^ Ko`V8`no` 2 on iI9XX`)HJJJh`OeNeO࿰ i9XАO`@ȭ@` ON ONJKO`HHHHхFG ݐ ` }ͬ ݰFG ݐ` * }% L`FGLݮ 'ܰ8`FHGHi 'ܰihGhF`@Bɼ>K@J5 i`O WݰIha?+JJJJ+)+@` װ%I -I) 0@+`N8`  ) N^ȢV@vVv^@ʈL\ 簞KIJH^Ȣv^vvw)xJn 8 ΐ^ nH8^ ^i 8`L Ӑ L Ӱ )ܹ0 )p )@ )  ^$0&F'G ݰ ح()&'FG ׬^>?@ ; R+) R+ ְ^)%r ݰ`H@h`h`^ IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5^͔ M @B^i ׭` .^ @#^0 iڮ])`L@.^ 簪HIRH^  PLzEzʱNLMOwxMEKP%zMEKzL2 Owx,vy PveNNO \(` R  F .AxJRHISHI^ HIHI`  .` .A^ HR HS`@Nȱ@O^`^vY}RIR` tVYR t 3 tVR` ^` H  ^h)N@ N; L  ;ް$ )bJ`a f۰ ) H BhL ) . )xJwjISLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONxH ):):.hHhhhhh)h .hh(`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`FGV 8``8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| . .V  JJJJH 8h Ei 8EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BkJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X>` +>ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRESĺ"":700%DD10ĺ"0";2DD;"-";@MM$;"-";QYY10ĺ"0";YYY_{" TIME: ";HH12MI0DD0ĺ"":790HH10ĺ"0";HH;":";MI10ĺ"0";MI;PM1ĺ" PM" PM0ĺ" AM""-"("00"(YY),2)C TIME$("00"(HH),2)":"("00"(MI),2)` &PM1TIME$TIME$" PM "} 0PM0TIME$TIME$" AM " : D" THE CURRENT SETTINGS ARE:" N: X: b - PRINT DATE AND TIME l: v" DATE: ";DD0MM31,3) :-  - REAS SYSTEM TIME -3 :C MI(49042)S HH(49043)Y :y  - CONVERT 24 HOURS TO 12 : HH11PM1 HH12HHHH12 HH0HH12 DD0DT$"":TIME$"": DT$("00"(DD),2)"-"MM$1$:S2$ S2$ S2$:S1$? "2:3:DT$;:17:"PROMENU"V ,2:29:TIME$;" ";` 634,5f @l Jr T: ^ - READ SYSTEM DATE - h: rDD(49040)((49040)32)32 |YY((49041)2) MM((49041)YY2)8((49040)32) MM$(MO$,FIX( BL$" ":I238:BL$BL$" ":IK S1$"*":I239:S1$S1$"*":Ie S2$"*"(BL$,37)"*" MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 340: GET CURRENT TIME AND DATE 1920 : - DISPLAY HEADINGS - : ::255 S;=>?@ABCDEFGHIJKLMNOM9(X)X(((X1)9)9): MOD 9, ZD$(4)M _(17):- RESET TO 40 COLUMNh dFALSE(01):TRUE(11) nSUB$(51): SUBDIRECTORY NAMES xPGM$(51): PROGRAM NAMES BELL$(7) 3540: GET FIRST LEVEL PREFIX L1$PREFIX$: SAVE HIGH LEVEL PRE ***********************= * PROMENU *[ * BY ROYCE BACON *y * SEPT. '84, PG 73+ *( * COPYRIGHT (C) 1984 *2 * MICROSPARC, INC. *< * LINCOLN, MA 01773 *F ***********************K4000 PL5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E184 " UPDATE SYSTEM DATE AND TIME? (Y/N) ";<*A$Y4(A$)90A$((A$)32)>(A$"Y")(A$"N")ĺBELL$;:810H18:2:BL$RA$"N"A$"N"1880\12:f" ENTER DATE: DD-MMM-YY";p:z - READ DAY INTO DD -:20:"DD";:200A$:(A$"0")(A$"3")910BDD(A$):A$;aA$:(A$"0")(A$"9")910yDDDD10(A$):A$;DD31DD1910: - GET MONTH INTO M1$:(A$)2786023:"MMM";:23:COUNT1:M1$"" A$:(A$)96A$(FIX$SUB$(WINDEX)-D$;"PREFIX ";PREFIX$39:n READ A DIRECTORY & SAVE SUBDIRECTORIES IN SUB$t::12:5:"...READING DIRECTORY FOR...."::PREFIX$I150:SUB$(I)"":ISUB$(0)PREFIX$J21D$;"VERIFY ";PREFIX$RUE:: NO SUBDIRECTORIES EXISTDHINDEX1:PG1:NPG((SUB9)10)[RINDEXSUBINDEX1~\2460: DISPLAY SUBDIRECTORIESfOP$(21)INDEXINDEX10:2130: NEXT PAGEpOP$(13)OP$(27)DNTRUE:: WANTS CURRENT DIRECTORY OF ESCzPREFIX$PREIT TO BASIC-"ĉ::5::12:1:"RUNNING ";PGM$\ MAKE THIS A STOP TO SAVE PROGRAMD$;"-";PGM$: RUN THE PROGRAM SELECTED : SUBDIRECTORY ROUTINE :*2230: READ DIRECTORY44:10:"PROGRAM SUBDIRECTORIES";:!>SUB0DNTE ROUTINE%D$;"PREFIX ";PREFIX$2DNFALSE`2090:DN1960: DO SUBDIRECTORY ROUTINEOP$(27)PREFIX$L1$ĉ::OP$(27)ė:3570:1940DNFALSE2840:DN2000: DO DIRECTORY ROUTINEOP$(27)ė:3540:1940PGM$"-EX$;"IN$0"@&:"IS ";T$;" THE CORRECT DATE AND TIME? (Y/N) ";e0YN$:(YN$)90YN$((YN$)32):YN$"Y"YN$"N"ĺBELL$;:1840DYN$"N"ī1760NXb:l *** MAINLINE ROUTINE ***v:250: DISPLAY HEADINGS 580: DO DATD=DAY, HH=HOUR, MI=MIN, SS=SEC"R:" MM W DD HH MI SS":A$"P"HHHH12S$("0"(MM),2)" W"("0"(DD),2)" "("0"(HH),2)" "("0"(MI),2)" 00""TIME? ";S$;:7:"";S$ D$;"PR#";CS$:D$;"IN#";CS$:"!";S$:"%";T$:D$;"PR#0":DT-ENABLE POSITION"x:"WHAT SLOT IS YOUR CLOCK CARD IN? ";CS$:(C$)1CS$"2"CS$"7"ĺBELL$;"INVALID SLOT":1770!:"ENTER DATE AND TIME AS MM W DD HH MI SS,WHERE MM=MONTH, W=DAY OF THE WEEK (0=SUN1=MON, 2=TUE, 3=WED, 4=THU, 5=FRI, 6=SAT), DUNDERCLOCK PRESENTJ(FLAG2)FLAG21870: IF BIT=OFF THEN NO CLOCKu"UPDATE CLOCK/CALENDAR CARD? (Y/N) ";}U$(U$)90U$((U$)32)U$"Y"U$"N"ĺBELL$;:1730:"SET THE PROTECT/ENABLE SWITCH ON THE CLOCK CARD TO THE SE32DD T:9^ - UPDATE SYSTEM TIME (24 HOUR CLOCK)?h:OrHH12HH0k|A$"P"A$"p"HHHH1249043,HH:49042,MI340:2:3:DT$;:29:TIME$;18:" SYSTEM DATE AND TIME UPDATED":FLAG(49048): GET FLAG INDICATING IF TH? (Y/N) ";P$1(P$)90P$((P$)32)X(P$"Y")(P$"N")ĺBELL$;:1500h18:2:BL$yP$"Y"86015:8:" ":" - UPDATE SYSTEM DATE -,:649041,YY2(MM7)@MM7Ĺ49040,(MM8)32DDJMM8Ĺ49040,MMʭMI591320n:+x - GET AM OR PM -1:D(A$)271190L26A$:(A$"A")(A$"a")(A$"P")(A$"p")(A$" ")(A$(13))1420(A$"P")(A$"p")ĺ"P";: - REPEAT UNTIL CORRECT -: 18:2:" CORRECT"0")(A$"9")1230-HH10HH(A$):A$;BHH12HH11230H :g - READ MINUTE INTO MI -m:((A$)271190223:"MM";:23<A$:(A$"0")(A$"5")1320FMI(A$):A$;PA$:(A$"0")(A$"9")1320ZMI10MI(A$):A$; d1120~YY(A$):A$;8A$:(A$"0")(A$"9")1120OYYYY10(A$):A$c13:8:" "15:8:"ENTER TIME: HH:MM AM";: - READ HOUR INTO HH -:20:"HH";:20A$:(A$"0")(A$"1")1230HH(A$):A$;A$:(A$(A$)32) M1$M1$A$::MM4?M1$(MO$,MM,COUNT)ī1070XMMMM3:MM39ī1040b$1000.A$;:COUNTCOUNT1:COUNT4ī10208MM(MM1)3B:L - READ YEAR INTO YY -V:`(A$)27860j27:"YY";:27tA$:(A$"0")(A$"9")D$;"OPEN ";PREFIX$;",TDIR"5D$;"READ ";PREFIX$CREC151g REC$: READ A DIRECTORY RECORD{ (REC$)52390 (REC$,12)"BLOCKS FREE:"BF$(REC$,40):REC100:2390$ (REC$,18,3)"DIR"2390. SUB$(J2)(REC$,2,15)/ 8 (SUB$(J2),1)" "SUB$(J2)(SUB$(J2),(SUB$(J2))1):2360I B SUB$(J2)SUB$(J2)"/"U L J2J21^ V RECw ` D$;"CLOSE ";PREFIX$ j SUBJ21: NUMBER OF SUBDIRECTORIES t ~ : DISPLAY SUBDIRECTORIES : :"PREFIX: ";PREFIX$! 8:1:BF$;: BLOCKS files press the ";::"-->";::" key to see the next page."_. :"Press the ";::"ESC";:. " key to return to the volume directory". 24:10::"PRESS ANY KEY TO CONTINUE ";::GB$:. . . REDUCE PREFIX TO FIRST LEVEL. :'/ :"This display lists all programs and files in the current directory and allows you to run a program."- :"To run a program press the number assoc-iated with the desired program (";::"1-9";::")">. :"If there are more than 9 programs/:OP$, OP$(27)ı5,* OP$(21)ı: NEXT PAGEV,4 OP$"?"OP$"/"İ3470:3170y,> OP$"1"OP$"9"ĺBELL$;:3350,H WINDEX(OP$),R WINDEXWINDEXINDEX1,\ WINDEXMPGMĺBELL$;:3350,f ,p :,z DISPLAY HELP FOR PROGRAM DISPLAY, :s- J3MPGMĖ2:M9(J3);" ";PGM$(J3)++ J3K+ 21:1:COL140:"-";:COLv+ " PRESS A NUMBER TO RUN A PROGRAM"+ NPG1ĺ:3340+ 8:"OR --> TO SEE PAGE ";+ PG(INDEX9)2:PGNPGPG1+ PG;" OF ";NPG+ 13:"OR ? FOR HELP";, 24:27IC-" *X *b :5*l DISPLAY PROGRAM NAMES & INFO;*v :U* :"PREFIX: ";PREFIX$s* 8:1:BF$;: FREE BLOCKS* COL140:"=";:COL* "NUM PROGRAM TYP MODIFIED"* " - -----------------------------------"* J3INDEXINDEX8#+ ,12)"BLOCKS FREE:"BF$(REC$,40):REC100:3120q) (REC$,18,3)"DIR"(REC$,17,4)"TYPE"(REC$,1)"/"3120) PGM$(J2)(REC$,21)(REC$,31,15))& J2J21)0 REC): D$;"CLOSE ";PREFIX$)D MPGMJ2: NUMBER OF PROGRAMS*N PGM$(J2)"--EXIT TO BAS"::PREFIX$(( I150:PGM$(I)"":I1( J21K( D$;"VERIFY ";PREFIX$k( D$;"OPEN ";PREFIX$;",TDIR"( D$;"READ ";PREFIX$( REC13:REC$:REC: BYPASS DIRECTORY NAME( REC451( REC$: GET DIRECTORY RECORD( (REC$)531202) (REC$DISPLAY PROGRAM DIRECTORY:'T OP$(27)DNTRUE:: ESCi'^ OP$(21)INDEXINDEX9:2880: NEXT PAGE'h PGM$(PGM$(WINDEX),2,15)'r DNTRUE'| ' :' READ A DIRECTORY AND SAVE PROGRAMS IN PGM$' :( :12:5:"...READING DIRECTORY FOR....TINUE ";::GB$:& & :7& DIRECTORY ROUTINE=& :X& 2980: READ DIRECTORY&" 4:10:" PROGRAM DIRECTORY ";:&, MPGM0DNTRUE:PGM$"":: NO PROGRAMS IN DIRECTORY&6 INDEX1:PG1:NPG((MPGM9)10)&@ INDEXMPGMINDEX1'J 3200: e are more than 9 subdirectories press the ";::"-->";::" key to see the next page."z% :"Press the ";::"ESC";:% PREFIX$L1$ĺ" key to exit to BASIC":2790% " key to return to the volume directory"& 24:10::"PRESS ANY KEY TO CON directory."{$ :"To select the directory for the current prefix (";PREFIX$;")":"press the ";::"RETURN";::" key."$ :"To select a subdirectory, press the number associated with the desired sub- directory (";::"1-0";::")"Y% :"If therZ WINDEX(OP$):WINDEX0WINDEX10?#d WINDEXWINDEXINDEX1]#n WINDEXSUBĺBELL$;:2600c#x i# :|# DISPLAY HELP# :$ :"This display lists all subdirectories for the current prefix and allows you toselect the current directory or a sub- "OR ---> TO SEE PAGE ";<" PG(INDEX10)2:PGNPGPG1O" PG;" OF ";NPGi" 13:"OR ? FOR HELP";z"( 24:27:OP$"2 OP$(13)OP$(27)WINDEX0:"< OP$(21)ı: NEXT PAGE"F OP$"?"OP$"/"İ2700:2430"P OP$"0"OP$"9"ĺBELL$;:2600%#FREE! COL140:"=";:COLM! " RETURN = DIRECTORY FOR CURRENT PREFIX"c! J3INDEXINDEX9! J3SUBĖ7:((J3),1);" = ";SUB$(J3)! J3! 21:1:COL140:"-";:COL! " PRESS A NUMBER TO SEE ANOTHER DIRECTORY";! NPG1ĺ:2590" 8:(4);"PREFIX,D1":(4);"PREFIX":PR$9/ LP(PREFIX$)h/COL2LP: CHOP PREFIX OFF AT FIRST LEVEL/(PREFIX$,COL,1)"/"PREFIX$(PREFIX$,COL):COLLP/COL/$/49153,0:49237,0/1144,159/1145,11/1146,64/1147,00114 JȌ `0- I))`Ȅ .! p8 ʠO$0' 6 , 68!79 E) , .! L) #L#Ư` !$0H q5h` #ȹ"J)$iL "L L! # !./A:0` 2,+`8宍,寍, h'$ ,LA, - N,,L,i,j,̢,,h,j,䌞,,,8,,,,, ˚,L(,L,,` ̾,,` , (,,,`,, ,,,, ,L(,ɥ"iLS# *$0 m#LS#+q 4 *? N6 4L+ `鹀+,+0ȹA./0": % , 2+L1 -Ȅť $;ȦŽ  )ߠ8Ū $ , 2 1L4ȹ ' r$ x $ !`L2)$ 2L{)@G )& % ]!L9[ %) )&GHGH`"i#LS#rIr` *L|! * q!? `= ưȹ, 􈈄ȩ` + " :Lq5 /)$)------")` ,` =)LL(`) dȐi iLQ)`8j) ` # #Ȅzxr` )  M% 2% 2wyq !$p 3 ! &L) )L)$p095$r0 )(L(`H '(hL)M6ƭ , , + ]!HH^I "$0  (LX(: " ( "Lk(# " q" "L ` %łŃ )` 2% `$w0 -#)Ȍ$)` (`$wL(潤$)$) J  e '` 'LD'$0H$PH 46 |!? N6L'` $0hh`ȹ ` +( 'F ' ' (',,,-` ($0 +ȹ0H$ 'L' q5L' |! 1J ,L)Hȹ 1 q5h`' , '`  , h` % Hh`HƇƆh`HƉƈh`HƁƀh` 3Hp'©8…8岐 8 Lu&ʐ 8ʰh , 4зeiL%Ƭ 1$L2 % )欘L2 #L2 % 8 "` &L( o5΢G 46 |! 1 $ $L %`ĩ $ $L$` #e慠` # ƇLP%e懠` % ƇƅLo% %L% % &uL$H8儥h``` %`````HƅƅL&$H -$h$`$0H䱰 ɍ 4hĠ$ q5`ń ŅL1))%H$ȱ)  %h % %` %L#$ {3 &Hh` %L#$ {3 %L$$PL&$ $PL&$ %$$$$L$ĩ $槥p榥#AƦ"H U#(&)'hi#"H U#T'(&$ܠ'U(&0Π # #(#)`l6"H U# #hi#LS#"LU## C"#p`((((PPPP #` L% #`aj),`$`$JTL*"U(I`@@((T`$HJhT(`U(`$JT(`U(`HJJJJ z"h) ii0 Hh,M6L $H45 "54Th` ɜɌLe#ɇL]! ɍ=ɓ9,0,ɈƧ Ʀ S#p` ɠ)%2 A"PRSTUVWXYZ[\]^_`abcdef S#pʩ_ "`H dȈ8h8` ," #P$ p LR!Jp 2 o5` d!,0`H 46hLt5HH !H)?h@hh``54)?@45`4545 !¤45T`L! "``,0 "L! !b .`--ȹ2 1/-LD-DS - --L - -8JjL.--)p - --- -)-Ƚ/ȹȌ`)`- ũ-L( ƶ-L( +(' , ' ('>),, ,---` -L(!/ ȄȄȄ`q 4Ą *鹀 1\? N6L!. L/#wȹ4A./0: -Hh ȹȹ 1!J J (Cģ (L/ $ 0t. If you make a mistake, press the Delete key. As you type, some of the words will move above the top of the display. You can bring these words into view by moving the cursor. To move the cursor, use the arrow keys. After you move the cursor, you may begi the File Beginning [E] = Jump to the File End [N] = Erase memory [Q] = Quit FreeWriter [V] = Accept commands as letters ESC = Change the page top line.%FreeWriter Typing: The white square is called the Cursor. When you type, the cursor moves to the righFreeWriter, press the control key and a letter key. Here is a list of control-letter keys and what they do: [T] = Show this Tutor [S] = Save from memory to diskette [L] = Load from diskette to memory [F] = Find words [W] = Choose page width [B] = Jump to9 9 8L8 +9HH +9 +9hehe`&`ȹ+- 0:- 8Hh`I0H 9 9 9eeheL99&` e#ԅ9 % " 9 H e#hL9`G 46L!FreeWriter Control: If you want to control  /)Hh`j8ȱJHHjJJJJ 7h) _8h _8 "j8j8j8ȱ 7: "j8L7H/ "hL7)|8ȱ "|8`I "`„ 8 0`&&*  `&&*ŀ`8 8凅8 e JJ * " k8 7! 8 " "ȱHh 7ƂL6,M60 ! "L[7L6 , ")86666 7I ",M60I "L|!M6L2 80Hh 8L7 8  "`ż H "hL7`i' `U+`ͪ `ip`;6<6:6 q5;6<6`M6 '#M6  &L6#:M6Ln6 6 , ė6L(  , - 666 - 8,M60 o5 k8 }8 " 7LL[7 􈈄ȩ`ȹ 1 ` - q5I 8 q5 Lq5$0Hn5m5 "n5m5h`L" ʩ q5 ! Z") i@ٝ  ]!H  W5h $0H #h q5  L5 ` *  09 6+ +I 46Lː䱐Tʥp$0ɠ)(ʈ0/Jɠ)(ʈʥpJʍUɠ)(ʈŋ S#L3TLS# "Lo4 !`8岅`  8H$JhU(`T(`@Ȫ`@Ȫ`=ư`  r3)   ʆť r3 )豮0 $L2`` JA$p {a L3[i (j`$ 2$` 4&peˠΩ" S#$ $2, 4$0! 4L4  ɍ$䲅 ) 󄮥宅寅`$p5 1ȽJ36,HFHYLRV\C$""cfL$""ırpC$(L$,1)~zC(C$)C96CC32C$(C)  THESE ARE THE DEFAULT VALUES  "File Name(?=Catalog,Q=Quit)",""  "on the second, and so forth.":A "(Press Return) :";L$G P 440_ M$(1,X)L$f Xl  "Here are your Selections :"; X7:780 : "Are The Selections Okay (Yes/No) :";L$ 860 C$"Y"400 1140 Y0Xptional) Top Line entry is placed"S N"at the top of each page. If you include" X"a '#' in your entry, the page number" b"will be printed at that location." l"Example: 'Page #' will be printed as" v"'Page 1' on the first page, 'Page 2'"&"";L$ X2490+ L$""L$M$(1,X)9 X0550J L$"?"540P f D$;"CAT,TTXT,D1"o 440 L$"Q"L$"q"ė:(4);"-/FREEWRITER/FREEWRITER.SYS": originally was "-/FREEWRITER/STARTUP" &X2680 0L$"?"680 :$ D"The (o07 M$(0,X):M$(1,X)# X) "> , INSTALL ERASERD 6N @A768U JB^ TA,Bh ^AA1w hB96330~ r | TAKE USER'S INPUTS  (27);(17) X07  "*** Prepare for Printing ***"; 780 Q$M$(1,X)  Gentlemen; We here in Lincoln, formally known as APPLE-LINC, an Apple computer oriented club, have lost contact with you in the I.A.C. The last contact was a letter received in July, 1984 by our Secretary-Treasurer of 1983. That letter was passed ooqr1 THEN RETURN 0560 ?PR$;" ";FMAX;" FILES";:HTAB(25):?"SUBDIRECTORY" 0570 FORI=1TO40:?"-";:NEXTI 0580 POKE34,3:? 0590 FORI=1TOFMAX 0600 T=T+1 0610 A=21:SP$=" ":IFLEFT$(A$(I),1)="*"THENA=22:SP$=" " 0620 Y=LEN(PR$):A$(I)=LEFT$(A$(I),20)+SP$+MID$(A$(I),A+Y,1N$ 0440 HOME:VTAB2:B$="" 0450 SP$="" 0460 ?D$"OPEN ";N$ 0470 ?D$"READ ";N$ 0480 INPUT PR$:INPUTFMAX 0490 FOR I=1TO FMAX 0500 INPUTA$(I) 0510 IFA$(I)=CHR$(13)THENI=FMAXGOTO520 0520 NEXT I:B$="" 0530 FORI=1TO40:GETA$:B$=B$+A$:NEXTI 0540 ?D$"CLOSE" 0550 IFMF=====>> 0360 ? 0370 ?D$"PREFIX";VOL$;DIR$ 0380 TEXT:HOME:T=0 0390 ?D$"CAT" 0400 INPUT "READ WHICH CATALOG (E=EXIT) ?";N$:IFASC(N$)<65 OR ASC (N$)>90 THENV=PEEK(37):VTABV:CALL-868:GOTO400 0410 IFN$="E"THEN200 0420 IFN$="MASTER.FILE"THEN1880 0430 ?D$"VERIFY";DELETE A DISK CATALOG" 0300 ?:HTAB10:?"(7) = EXIT PROGRAM" 0310 ?:HTAB10:?ENTER SELECTION (1-7)-> ";:GETA$ 0320 A=VAL(A$):IFA<1ORA>7THEN240 0330 ON A GOTO 730,360,1460,1880,2090,1380,340 0340 ?D$"PREFIX";VOL$:HOME:END 0350 REM<<======== SEE DISK FILES ==== FORI=1TO40:?"=";:NEXTI:? 0240 VTAB6:HTAB10:?"(1) = CATALOG A DISK" 0250 ?:HTAB10:?"(2) = READ A DISK CATALOG" 0260 ?:HTAB10:?"(3) = UPDATE MASTER FILE" 0270 ?:HTAB10:?"(4) = READ MASTER FILE" 0280 ?:HTAB10:?"(5) = PRINT MASTER FILE" 0290 ?:HTAB10:?"(6) = suvwxyz{|}~========== MENU ===============>> 0160 ?CHR$(21):D$=CHR$(4) 0170 VOL$="/CATALOG/":DIR$="VOLUMES" 0180 DIM A$(75),L$(50),SD$(25),MF$(500) 0190 ONERR GOTO 2280 0200 TEXT:HOME:MF=0 0210 FORI=1TO40:?"=";:NEXTI 0220 HTAB14:INVERSE:?"DISK FILER MENU":NORMAL 02300100 REM================================================== 0110 REM *** PRODOS FILER *** 0120 REM BY ED VERDELOTTI 0130 REM 5/1/85 0140 REM================================================== 0150 REM<<=A.C., and would like to know how to do so. Sincerely yours, Hubert Paulson, Jr. Member, APPLE-LINC B.O.D. .organization. I have more recently, through my contacts with APPLE-SAUCE of Omaha, found that you are still active, and providing services and program disks to affiliated clubs. We here in Lincoln would like to re-establish our affiliation with the I.n to the then active Sec./Treas. I now assume that that letter may well have been our renewal notice (albeit a few months late). We did not pursue renewal of our I.A.C. affiliation at that time because of the rumored turmoil and possible collapse of the 4) 0630 IF I<10 THEN?" "; 0640 ?I;":";: IF LEFT$(A$(I),1)<>"*"THEN?" "; 0650 ?A$(I) 0660 IF T=18THEN?"ANY KEY TO CONTINUE":GETA$:V=PEEK(37):VTABV:CALL-868:T=0 0670 NEXT I 0680 ?:?SP$ 0690 ?"ANY KEY TO CONTINUE 'E' TO EXIT";:GETA$ 0700 IFA$="E"THEN200 0710 GOTO380 0720 REM<<======== SAVE DISK CATALOG ========>> 0730 HOME:VTAB10:HTAB5:?"PUT DISK TO CATALOG IN DRIVE #1";CHR$(7) 0740 VTAB20:INVERSE:?" ANY KEY TO CONTINUE OR 'E' TO EXIT ";:NORMAL:GETA$ 0750 IF A$="E"THEN200 0760 ?D$"PREFIX,D1":? 0770 ?D$"PREFIX".lm0 .rm79 .pm0 ******************************************************************************* AAAA PPPPP PPPPP L EEEEEE L IIIII N N CCCC A A P P P P L E L I NN N C C A ITE MASTER.FILE" 1810 ?PR$:?FMAX 1820 FOR I=1TOFMAX 1830 ?MF$(I) 1840 NEXTI 1850 ?D$"CLOSE" 1860 GOTO200 1870 REM<<============ SEE MASTER FILE ================>> 1880 ?D$"PREFIX";VOL$;DIR$ 1890 ?D$"VERIFY MASTER.FILE" 1900 HOME:?D$"OPEN MASTER.FILE" 1910 MID$(MF$(A),2,14)>MID$(MF$(L),2,14)THENA$=MF$(A):MF$(A)=MF$(L): MF$(L)=A$:A=A-1:IFA>0THEN1730 1750 VTAB14:HTAB10:?"PASS ";P;" SORTS/PASS ";F 1760 NEXT :P=P+1 1770 GOTO1690 1780 HOME:VTAB10:HTAB10:?"SAVING MASTER FILE" 1790 ?D$"OPEN MASTER.FILE" 1800 ?D$"WR1650 NEXTF:FMAX=N 1660 REM<<============= SORT ROUTINE ================>> 1670 I=1 1680 I=2*I:IFI<=FMAXTHEN1680 1690 I=INT(I/2):IFI=0THEN1780 1700 HOME:VTAB10:HTAB12:?"SORTING ";FMAX;" FILES" 1710 FORF=1TOFMAX-1 1720 A=F 1730 L=I+A:IFL>FMAXTHEN1760 1740 IFN$ 1580 GOSUB 450 1590 FORI=1TOFMAX 1600 IFLEFT$(A$(I),1)<>"*"THENA$(I)=" "+A$(I) 1610 Y=LEN(A$(I)):IFY>39THENA$(I)=LEFT$(A$(I),38)+"-" 1620 MF$(N+I)=A$(I) 1630 IFI+N=>500THENN=N+I:F=L:I=FMAX:?"CATALOG FULL":FORI=1TO1000:NEXTI:GOTO1650 1640 NEXTI:N=N+FMAX TER.FILE" 1500 ?D$"DELETE MASTER.FILE" 1510 GOSUB 770:HOME 1520 L=FMAX:FMAX=0:N=0:P=0:SP$=" " 1530 VTAB2:HTAB10:?"UPDATING MASTER FILE" 1540 FOR I=1TO40:?"-";:NEXTI 1550 FOR F=1TOL 1560 N$=L$(F):IFMID$(N$,18,3)<>"TXT"THEN1650 1570 N$=LEFT$(N$,15):HTAB15:? THENV=PEEK(37):VTABV:CALL-868:GOTO190 1410 IFN$="E"THEN200 1420 ?D$"VERIFY";N$ 1430 ?D$"DELETE";N$ 1440 GOTO200 1450 REM<<============== UPDATE MASTER FILE =========>> 1460 HOME:MF=1 1470 ?D$"PREFIX";VOL$;DIR$ 1480 ?D$"OPEN MASTER.FILE" 1490 ?D$"CLOSE MASR (Y/N) ";:GETA$:IFA$="N"THEN200 1350 IFA$<>"Y"THEN1330 1360 GOTO720 1370 REM<<============ DELETE A VOLUME FILE ============>> 1380 ?D$"PREFIX";VOL$;DIR$:TEXT:HOME 1390 ?D$"CAT" 1400 INPUT "ENTER VOLUME TO DELETE (E=EXIT) ? ";N$:IF ASC(N$)<65OR ASC(N$)>90"OPEN";A$ 1240 ?D$"CLOSE";A$ 1250 ?D$"DELETE";A$ 1260 ?D$"OPEN";A$ 1270 ?D$"WRITE";A$ 1280 ?PR$:?FMAX 1290 FORI=1TOFMAX:?L$(I):NEXTI 1300 IFMF=1THENRETURN 1310 ?L5$ 1320 ?D$"CLOSE" 1330 HOME:VTAB8:HTAB9:?" CATALOG ANOTHER DISK ? " 1340 VTAB11:HTAB14:?"ENTE I 1130 INPUT L5$ 1140 ?D$"CLOSE" 1150 NEXT T 1160 GOTO1190 1170 FOR T=1TO16:B$=MID$(L$(I),1+T,1):IFB$=" "THENX=T-1:T=16 1180 NEXT T:RETURN 1190 N=1 1200 ?D$"PREFIX";VOL$;DIR$ 1210 N=0:IF"/"+A$=VOL$+DIR$THEN1290 1220 HTAB8:?"SAVING ";A$;" TO DISK" 1230 ?D$T) 1040 INPUT L1$ 1050 INPUT L2$ 1060 INPUT L3$ 1070 FOR I=F TO F+25 1080 INPUT L$(I):IFL$(I)=""THENI=F+25:GOTO1120 1090 L$(I)=LEFT$(L$(I),20)+" "+PR$+SD$(T) 1100 REM X = LEN (L$(I)): IF X > 39 THEN L$(I) = LEFT$ (L$(I),39) + "-" 1110 FMAX=FMAX+1 1120 NEXT3)="SYS"THEN890 0930 FMAX=FMAX+1 0940 NEXT I 0950 INPUT L5$:REM READ BLOCK COUNT 0960 ?D$"CLOSE" 0970 ONMF GOTO 1190 0980 IFN<2 THEN1190 0990 FORT=1 TO N-1 1000 F=FMAX+1 1010 IF LEFT$(SD$(T),7)=DIR$THEN1150 1020 ?D$"OPEN";SD$(T)",TDIR" 1030 ?D$"READ";SD$(EAD TITLE 0870 INPUTL3$:REM READ BLANK LINE 0880 FORI=1TO50 0890 INPUTL$(I):IFL$(I)=""THENI=50:GOTO940 0900 L$(I)=LEFT$(L$(I),20)+" "+PR$:REM READ FILES 0910 IFMID$(L$(I),18,3)="DIR"THENGOSUB1170:SD$(N)=MID$(L$(I),2,X):N=N+1:GOTO890 0920 IFMID$(L$(I),18, 0780 HOME:VTAB8 0790 INPUT"VOLUME NAME";PR$:HTAB15:INVERSE:?PR$:NORMAL:? 0800 A$=MID$(PR$,2,LEN(PR$)-2) 0810 HTAB5:?"CATALOGING VOLUME : ";A$:? 0820 FMAX=0:N=1 0830 ?D$"OPEN";PR$",TDIR" 0840 ?D$"READ";PR$ 0850 INPUTL1$:REM READ NAME 0860 INPUTL2$:REM R A P P P P L E L I N N N C AAAAAA PPPPP PPPPP L EEEE ===== L I N N N C A A P P L E L I N N N C A A P P L E HOME:VTAB10:HTAB7:?"NO SUBDIRECTORY PATH FOUND":VTAB15:HTAB10:?"ANY KEY TO CONTINUE";:GETB$:GOTO190 2320 IFPEEK(222)=8THEN HOME:VTAB10:HTAB7:?"NO DISK FOUND IN DRIVE #1 ":VTAB15:HTAB10:?"ANY KEY TO CONTINUE";:GETB$:GOTO190 2330 IFPEEK(222)=13THEN VTAB10:HT$"CLOSE":HOME 2290 IFPEEK(222)=6 AND N=1THEN HOME:VTAB10:HTAB7:?"INSERT CATALOG FILER DISK ":VTAB15:HTAB10:?"ANY KEY TO CONTINUE";:GETB$:GOTO1200 2300 IFPEEK(222)=6THEN VTAB10:HTAB10:?" PATH NOT FOUND ": FOR I=1 TO1500:NEXTI:GOTO190 2310 IFPEEK(222)=7THEN 39-LEN(MF$(F)):IFP>1THENMF$(F)=MF$(F)+LEFT$(SP$,P) 2230 ?" ";MF$(F);" ___________________________________":REM 35 '_' 2240 IF L>59THEN?:?:?:?:GOSUB 2160 2250 NEXT 2260 ?D$"PR#0":PR=0:GOTO200 2270 REM<<============ ONERR ROUTINES ===============>> 2280 ?DINUE":GETA$ 2150 ?D$"PR#1":REM ACTIVATE PRINTER (SLOT #1) 2160 ?" FILE NAME TYPE VOL.DIR./SUBDIR. NOTES" 2170 FORI=1TO79:?"=";:NEXTI:? 2180 IFL>1THENL=0:RETURN 2190 FORF=1TOFMAX 2200 L=L+1 2210 IFLEFT$(MF$(F),1)<>"*"THENMF$(F)=" "+MF$(F) 2220 P=TER LIST ================>> 2090 ?D$"PREFIX";VOL$;DIR$ 2100 ?D$"VERIFY MASTER.FILE" 2110 HOME:L=0:PR=1:GOSUB1900 2120 SP$=" ":REM 20 SPACES 2130 VTAB10:HTAB13:INVERSE:?" PRINTER ON !! ";CHR$(7):NORMAL 2140 VTAB12:HTAB10:?"ANY KEY TO CONTE:?"ANY KEY TO CONTINUE":NORMAL:GETA$:V=PEEK(37):VTABV:CALL-868:L=0 2040 NEXTI:?:HTAB10:?"***** ";FMAX;" FILES *****":? 2050 INVERSE:?"* END OF LIST * SCROLL AGAIN? (Y/N) ":NORMAL:GETA$ 2060 IFA$="Y"THEN1980 2070 GOTO200 2080 REM<<=============== PRINT MAS?D$"READ MASTER.FILE" 1920 INPUT PR$:INPUTFMAX 1930 FORI=1TOFMAX 1940 INPUTMF$(I) 1950 NEXT 1960 ?D$"CLOSE" 1970 IFPR=1THENRETURN 1980 HOME :L=0 1990 FORI=1TOFMAX 2000 IF LEFT$(MF$(I),1)<>"*" THEN?" "; 2010 ?MF$(I) 2020 L=L+1 2030 IFL=21 THEN HTAB10:INVERS======================================================================= .cj i6 June ======================================================================= .pm3 The next meeting of the club's board will be Mon., 10 June, in room 110 of Olin Hall on the Nebraska Wesleyan campus. The club meeting for July will be on the 8th. .pm0 k Vogt. . . . . Sec/Treas . 464-4452 Mel Thornton . . . . . . . . 477-7597 Maurice Mausbach . Data base . 489-9019 Brian Schwinck . . . . . . . 466-8955 Mail>> 1209 Garber Ave.,Lincoln,NE 16821 Deadline for material for next newsletter , Wed.,2lj @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .lm3 .rm74 Tracy Pettit . . . Pres. . . . 421-2825 Kent Krueger . . Librarian . 488-7521 DeForest Nesmith . V/Pres. . . 489-7213 Hubert Paulson . Newsletter. 435-1507 Dic L I N NN C C A A P P LLLLLL EEEEEE LLLLLL IIIII N N CCCC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .cj The club for APPLE afficianados in Lincoln, Nebr. .AB10:?"NOT A TEXT FILE ":FORI=1TO1500:NEXT:GOTO190 2340 IFPEEK(222)=53THEN VTAB10:HTAB10:?"ILLEGAL QUANTITY ":FORI=1TO1500:NEXT:GOTO190 2350 ?"ERROR # ";PEEK(222);"AT LINE # ";PEEK(218)+PEEK(219)*256:END 2350 ?"ERROR # ";PEEK(222);" AT LINE # ";PEEK(218)+PEEK(219)*256:END 240 VTAB6:HTAB10:?"(1) = Catalog a disk" 250 ?:HTAB10:?"(2) = Read a disk catalog" 260 ?:HTAB10:?"(3) = Update MASTER FILE" 270 ?:HTAB10:?"(4) = Read MASTER FILE" 280 ?:HTAB10:?"(5) = Print MASTER FILE" 290 ?:HTAB10:?"(6) = Delete aered jar in the refrigerator. .lm-5 .pm3 One thing that I noted at several places, was that for sourdough bread, that no metal utensils, bowls, or other devices be used in preparing it. Metal is supposed to have some bad effect on the dough. .ff The breawater 2 cups unbleached white flour Dissolve the yeast and honey in the water in a LARGE glass, plastic or crockery bowl. Stir in the flour. Cover with a towel and let it sit in a warm place for several days or until foamy and soured. Store in a covs which concluded with several homemade starters to try. The starter which sounded most appetizing was one that called for honey. It is as follows: .lm+5 .pm0 1 tablespoon dry yeast [ I used one package of Fleishman's ] 2 tablespoons honey 2 cups warm st, of the information that would be of interest to you about the bread starter I was talking about. I had picked up a copy of The Garden Way Bread Book - A Baker's Almanac, which written by Ellen Foscue Johnson. In it was a section about sourdough bread.tl**Page #** .rm70 .lm40 .pm0 1209 Garber Ave. Lincoln, Nebr. 68521-2268 DATE .lm10 Dear .pm3 I goofed last month after the dinner in Lincoln, and forgot to get my name and address to you. I hope that this letter will provide you with some, or moE1145,R1:POKE1146,L1+E1+M1:POKE1147,C1:REMSET PORT 1 63720 POKE1148,B2+D2:POKE1149,R2:POKE1150,L2+E2+M2:POKE1151,C2:REMSET PORT 2 63725 POKE 49236,0:POKE 49152,0:RETURN 63697 : 63698 END 63699 : 63700 M1=0:D1=0:B1=30:R1=11:E1=0:L1=64:C1=132: REMPORT 1 SETTINGS 63705 M2=1:D2=0:B2=24:R2=11:E2=0:L2=0 :C2=0: REMPORT 2 SETTINGS 63710 POKE 49153,0:POKE 49238,0:POKE 49237,0: REMACCESS AUXILIARY MEMORY 63715 POKE1144,B1+D1:POK8,2201149,1101150,1,01151,40B049236,0:49152,0H0e0-- THIS ROUTINE IS FROM0-- INCIDER,JULY,19850"-- PP28-36Ltinue 'E' to exit";:GETA$ disk catalog" 300 ?:HTAB10:?"(7) = Exit program" 310 ?:HTAB10:?"Enter selection (1-7)-> ";:GETA$ 510 REM- TO CORRECT TYPO 510 IFA$(I)=CHR$(13)THENI=FMAX:GOTO520 660 IF T=18THEN?"Any key to continue":GETA$:V=PEEK(37):VTABV:CALL-868:T=0 690 ?"Any key to cond that I have made using this starter that I like best is from a recipe from a R. Bolt, of the 6666's Ranch, Guthrie, Texas. I had forgotten to note the source for this recipe. .lm+5 .pm0 1 cup milk [ I used Carnation dry, using 3 Tbspn in 1 cup water ] 1/3 cup sugar [ I substituted 1/3 cup honey ] 1/3 cup shortening 1 teaspoon salt [ I left this out ] 1 package active dry yeast or 1 cake compressed yeast 2 tablespoon lukewarm water 1-1/2 cup sourdough starter 5 cups all-purpose flour [ I nutes. .lm-5 .pm3 I found this combination of starter and dough base to be a quite tasty bread. I only hope that you might find it the same. .pm0 .lm40 Yours, .lm4 .lm40 Hubert Paulson, Jr. .lm5 .tl .ffwith a towel and let them rest for about 10 minutes. The next step is to shape the two balls into two loaves and put each in a greased 9x5x3 in. pan. Let the loaves rise again, until double, about 1 hour, and then put into a 400 degree F. oven for 40 miace the dough in the bowl, turning it to grease the whole surface. Let the dough rise, now, until it has doubled, about 1-1/2 hours. Then punch it down, and let it rise again for about 1/2 hour. After the second rise, divide it into two balls, and cover the yeast, the starter, and 2 cups of the flour. Next add the remaining flour to make a stiff dough. Now turn the dough onto a floured surface, and knead for 5 to 10 minutes, adding only enough flour to keep it from sticking. Grease a large bowl. Plused the unbleached white flour ] Scald the milk; then add sugar (honey), shortening (& salt). Stir to melt the sugar/honey & shortening. Cook to lukewarm. Dissolve the yeast in the warm water. When the milk mixture has cooled, beat it together with