8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L  D$(4)(27):(17)%+(W2"CHOOSE A PROGRAM WITH THE ARROW KEYS"]<F"THEN PRESS RETURN TO RUN IT."PZD$;"PREFIX /MASTER/PROGRAMS"dD$;"CAT"nD$;"PREFIX /MASTER"x260(V)L$"" A(40)(41)256+JUNIOR.DISK FILERA /JUNIOR.WRITER.E 'STARTUPNCCTEXTALKER~! JUNIOR.FILER&PT.OBJ/` JUNIOR.DISK' "STx&PRODOS<3 !,BASIC.SYSTEM4(3 oUTILITIES A A WRITERw"-JUNIOR.WRITERL >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(8R X115& L$L$((AX)128)- XC (L$,1)" "220L VOVU 130^ OVVd r (2):L$;z : V9 OVV 130 "410 ,(2):L$; 6Q141390 @Q139VV1 JQ138VV1 TQ136VV1 ^Q149VV1 h  THE AUTHOR WOULD LIKE : TO HEAR FROM USERS OFV ANY BUGS THAT THEY MAYp DISCOVER, AS WELL AS COMMENTS/SUGGESTIONS FOR ALTERATIONS TO THE "PROGRAMS. , 6WRITE TO THE AUTHOR AT @ J PICTON PRIMARY SCHOOL T(4)"BRUN TEXTALKER"4dTHE JUNIOR WRITER &HnFILER DISK IS:NxgB U T L E R W A R EmAND HAS BEEN WRITTEN BY GREG BUTLER.THESE PROGRAMS MAY BECOPIED AND DISTRIBUTED,BUT MAY NOT BE SOLD.  This is the first story on the junior writer. I am so glad that I can use this for some of my workshops. Getting students involved in word processing is the best use of a computer. ame it, "UTILITIES". An Apple //e, //c, IIGS, or Laser 128 are required to run Junior Writer. Volume W07 Junior Writer & Filer W07 contains a simple word processor and data base. Both are intended for use by children. On line-help is availabe. To use the utility option on the title page you must add your favorate utility program to the disk and nES." 2:"GOOD LUCK"2 <10000:D$"-STARTUP"I '16368,0:21:7:n '"PRESS ANY KEY TO CONTINUE ";:} $'PT$:::d  D$(4)_:"TO HAVE A FUNCTIONING UTILITY OPTION, YOU MUST DELETE THE BASIC PROGRAM"UTILITIES AND REPLACE IT WITH YOUR FAVORATE UTILITY PROGRAM. APPLE'S FILER OR COPY II PLUS WILL WORK FINE. (:"BE SURE TO NAME THIS PROGRAM UTILITIV24V24 rV1V1# |280@ D$;"-/MASTER/PROGRAMS/"F U Q(49152)d Q128410q 49168,0w  ARGYLE ST, PICTON. ^ NSW AUSTRALIA 2571.4 hO rHAPPY WORD PROCESSINGe |AND DATA BASING.k  LAST EDIT 2/85.   (1101)6Ģ(11):"SORRY BUT YOU NEED AN APPLE //E OR //C":"COMPUTER TO RUN THE JUNIOR PROGRAM DISK.": D$ 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 *  !"#$%&'()*+,-./012n!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-e(eR9B}PBiBCe! 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  Easy to Use." ,15,10 W\ "This Disk is Public Domain Software.",19,2f "You are Free to Copy and Distribute it.",21,1p "Press 'Return' to Continue ....",24,2LER","UTILITIES"\  "The Junior Writer & Filer Disk." ,5,6* "Ver 1.0 (ProDOS)",8,13 4 "The Beginnre Word Processor",11,8 > "er",11,18H "and Data Base,",13,14#R "That are-A$(10)A$(21)İ760:II1::760:WA$(11)A$(8)İ760:II1::760:A$(13)N$(I)(N$(I),15):::D$;"-";N$(I)700I1ININI1 (I25):(12):N$(I): "JUNIOR.WRITER","JUNIOR.WRITER.EPSON","JUNIOR.FI(20):"----------------------------------------" "Use the 'Arrow' keys to highlight the":"program that you want to use, and then":"press the 'Return' key."; I1N:760::I1::760: X(16384):X127A$(X128):16368,0:72070055650 0A$(PR$,I,1)# :A$;A DA$(32)āK150:K:600[ NS(16336)(16336)j XK120:Kq bI lK1300:K vJ A$:A$(13)A$(27)640 :9);"Please select a program." "========================================"5 (4):D$;"PREFIX/JUNIOR.DISK"( N4< I1N:N$(I):q (2):"========================================" (23):"---------------------------------------" K1500:K J19 PR$ X,Y (X):(Y) I1(PR$) &(16384)18f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' ЭG ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͮͯ)` װ H` /ٰR(*؅IHHЍ@`[8W ؐeXW Y* Y=ȱ@/ȱ@9;<2DE)7I0 '*5 ܰ701FG ݰ( ְLݩI mIH` @= t=0FG ݰ ֬HFG ݰFF@ 0 [ [LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI m IHHyHȘI ݰLԩ` ՠ @/@ 7@Юz)mzʈ@i Q`RC8` @ l3Nz@) Wڎ} ԭziz}`0 iڰ0GF ݰ#Q0 ڰW,u0 Q ۩.H hȑNWȮvNuW8`xzNxz0NN` װG8`^x}z}Б|` Ґ L` א@>)I3|8^_0`1a`K8`@Nȱ@O@ lIiNȽN)/ȩ/N`@[ WHJjjjRhA &'KI0JH0ōҍJJJJ ɺi) ɺiL9Ҏw s)?ef t Ұs Ӱ s  |Ґ `l@Hȱ@I|HXAT^^ȱH ɯ|ȩxz^5H)/@a)_xx .0 :A[8@`,xx@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@%vȱ@Hȱ@Ah@E@c%e 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)` (8T2hU3JJJJ)@` װ%I -=) t 0@)N8`*L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| FGV*& .V  JJJJH :h Ei :EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BiJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X` +>P8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONLL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LhhhhIL@Ae P o**ӂӹ]|wKIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠ ]XXKR Ko`V8`no` & on ]I9XX`)HJJJh`OeNeO࿰ ]9XАO`@ȭ@` ON CNJKO`HHHHхЅG ݐ ` ~ qͬ ݰFG ݐ` ~* q% L`FGLݮ 'ܰ8`FHGH] 'ܰ]hGhF`@Bɼ>K@J5 ]9X(KI0F1G ݰ:%&N  ݰ# 'ܰFG ݐ`J HHR hh` 0 @ LFL q[̄T 0̄ȩF𸽒G ݰ 0` ݰF0F1G ݰy &밀L֢ȹLݠ@ȅH@ILҠ,|0` װJ WP8`TU fېH8,=)N 0 [01)@L` b讀 'ܰݩ ݰ L֬Qyy`O Wݰ @LL א=@ 5ȹQP8` &iQ` C0 5B C)yz( ȹ`y8myz8mz@8` װG8`F  װ P=)@N8`)@J 5yy)0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`% ʽ  ٚ,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 ŠϠŠà͠ӠàԠŬ356789:;<=>?@ABCDEFG! !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`8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% IBT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gS ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=a 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"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢켼 `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pS[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@E(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ }ȾȾI>Ie 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` L5LLL"L  KN)_ `@S8` ԠŬLL<:(13)4 <"TECHNOLOGY FOR LANGUAGE AND LEARNING": AT F(12):"P.O. BOX 327"Z H K(5):"EAST ROCKAWAY, NY 11518-0327" P(8):(22):"PRESS ANY KEY TO BEGIN" ZA$ d:(4)"RUN JUNIOR.WRITER"MO,0,136,208,245,198,1,208,239,96,0 X165908 :D I139Q (1)16e 0,39I:0,39I 0,3939I:0,3939I !0,((1)255):1,10:300 "I #: ((9):(7) *"TALKING JUNIOR WRITER" -(13):(11) 2"ADAPTED BY" 7(2) ** HELLO- ** ADAPTED BY **J ** TECHNOLOGY FOR **g ** LANGUAGE & LEARNING ** P.O. BOX 327 ** ** EAST ROCKAWAY, ** ** NY 11518-0327 **X300319:C:X,C:"  166,0,160,0,202,208,5,173,48,192,166J11T Z(F$(J),I,1)(32)F$(J)(M$,I1):JJ1:F$(J)(M$,I1,255)" "R$:110 dI:F$(J)(M$,39):JJ1:F$(J)(M$,40,255)" "R$ n(1):F$(J1);41);:(F$(J))3970 xF$(J);:JU1:(J2):(1) I139:(F$(J),I,1)(32)Ė(I):1340 I(4)"BRUN TEXTALKER"7 I09:ZZ:768I,ZZ:Ia104,168,104,166,223,154,72,152,72,96F$(21):J1:NO1:D$(4):1060( WORD WRAP AROUND2J201340<UJ:F$(J)F$(J)A$FJ20F$(J)(F$(J),39):120 PM$F$(J):R$F$(J1):I405 NAME STREET CITY STATE AND ZI TELEPHONE 0 ONCE UONAJDKJHSJLAHLSDKHKSII JKJHKHKSA - )i#U8頪 z2* r)r`r r8`*420U8  z i Uy y y`X yLvE yLv Uy yr)}r `LvO JJJJ8Lv7Lv?Έ8`` y$?  8L`8`e \u)q q e`8`fqDuf`íX8``X`fHq)h9~Hfh`LUɠ۰ u u` vv :v v #wr)rLpu`Uɺ#ɰ)r)*r)r 8` `t`r)U2q^ \u`8`@ \u@` \u` \u ` \u^ee`@ \u^8`q^eq/q;cOq*Lt5)q40q(q ccqc s8`e` \u&cqq e`ȱ0ȱeМʈ08`Ȉ)08`ɜɛi@q`f sRt^ s`ȱ08`cȱ)08`ɜɛi@q`f sʌRtc^ s`Lt\t5tt`)sHsHfe`%-DcT.JUstttttttutuuurqcbЫbc`0 :;A[3Xr)0') SJQ0ʽQʽQ8``r)`M,;?.! :0q!ȌqpqN rp`bȱɠ_ȱqɠ`d_b sd`ʈ osIUELNESTIONETIOUCIOUMENGIOTEESIOCIALIOCIANIOTIALESLANWARTIOMAFUAAAOOOOIEEEEOUUSHSPTHTBDGPSWCDGPTWCFKPBCTFKSccqbbq)fbX r  ar rdbqȱ0kj8kikL)pkjkLom p`lkq)Qɀj$L8pjL:pȌi8illLp0Lppȱ eЬl`lkj p)cj LplLplj`hcqșqhhqcn`q)~`SOMOUSUDISUCOHI. I am Hunt. I like this program. b wEzmuOz` `;ɓ Uy Uy yɠc Uy Uy Uy` ~YzYz4  w YxΎ~`ȭ)9'9$^^[aaȏaadÉ[\[ÛaÛa_5ac.___c՛e(ĕe_)/.ś@҄H./9қ/қF6қI9>>'59>9>)9999>>>)5>)N??%?)I.K)OқI+?))>)$)$%I9AŠȊˊ1&8.q!1qSfW`m܅܇ 2Y0FP)9󄉛>>^&[&[[c&R5)Շ$Y)Ʉ&55>>&5))HHHHHHHHHH`Pa@p@q@a`a@@aQA``Pq ! "'()*,-.":(;2?=[H\d^i_q`|abcdeϊ ֊ ܊ F" flUXXXXssssseeeeeew g,V9uXzвe8TT TKfKfKf'@XIwfq'qq QԥAF#j3ou%jww Hg,V9uXzВe8TT T mftsttttԥAF#j3ou%j#j3LSGLPزIv\вIv\в fLSGLSGLyHpyHp fLSGLSGL(ifY|7iH7iHSJНSJK*eK*eK*eJ9xJ9xJ9xkk Xe XeDeEjDeEjmJHmJHIdJгIdJIdJгIdJsș̦̦̦̦ KE GfGfGY+jزZJJتeyXJءh\ಌz|z|z|pزIv\вIv\в/S*/S*/S*pزfzfzfzSGLSGL/S*/S*SGLSGLgYlв fLSGLSGLSGLSGLSGLиUYUYUYSGLSGLfzfGSGhyijвhyijвhyijЀyv|yv|UYUYCiCifzfG/S*/S*Iv\вIv\в fL fLyHpz| fL fLmJHmJHY+jزZJJتeyXJءh\yHpyHpyHpItlItlItlItlhehehefM`(  ) 7?O_o *0+ %,& 1-.'/!$"#zzzz{"{={X{s{{{{{{|*|?|`||||||})}J}W}d}q}}}}}}}}}}~~"~5~<~F~S~]~g~q~~~~~~~~~~~಍fzfzfz/S*/S*/S*/S* `)t#mm @?IiA  uy` uyΑ`n".MM y)@ y)` Q` y)`8Hh` uy` Uy y y` y)"` Qt;ό)ό;ό5ύ)ϓ;τ)?Փ)KGKLՇ(7Ռ;Ȕ5;!CY՛Cc&r @rcU jLgb k>rɘ h+rH @rI g YgLbE 2ghr h =fɈ hɌLe bhEHLmb [hr>) rcfq k +fɠHLf gLbɟɀeghijklmnopqrstuvwxyz{|}` ` aL"bH a``h`8293` ` :aL_aH å6`7`8`9` ` ah`HͲbƏŏ bƏŏhɀ,c%ɘrH @rcU jhrLaHďϏhLaɰɺ ې Ï0 i`` X``WU0`H`HU`baaa`!^0Ԡb`!b ! ` aU)2I멾 \ ]W :a U)ɀJb!bLa````HL h` ` `L_aH ```h`6071_۾m%%&֍|v |П}LԮʬ΍ō}뮀LX}}}}쎀}8`L)00`LҠͩΠЍԠԠӠЮŠΠǠōҠŠčΠ٠Ԭج٬Ġ΍ X. Bf L ׾ؾپھо־ p#۾ ..?G'.9?GPv )`Lhh`H)h`)΃`8`44b*RcbNC[[cE_5N.[ Rb[&Rc$R_6aPNW[$cN@[T$R`O9c.T$R[N$\RCQ^.[ R󍃏LJJJJ P ) ` ``L@  &jjjj` ` 8,'  & & L &ɍ` L`c&a[aNQ9\)RaP;cN@Ycb. RO:cb. Ra;NR[@Qa!NRaP@[dRQ+aN@Yc^O$ac^>a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cNUO_Q)UUU_)^#ȏZPגBP&a[\&a[a[P VGՎVC#V:ٛ:ٛ:ٛٛAٛ ٛٛ:'[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQb,_b*R[cȏTԔȅTT'[ȁ]ȁT]dԉc\\)d.՛d(c##&[+ՔՔB՛B՛CՔ':#P'W՛A՛#՛#՛B՛7՛C՛#-V-.ɎB'('((C#Վ#fbcfq kbi@qrc kLe# [h%? |g g@(A)BLcٰ8?(A)BLecfq k?iqrc k? |g +fc0zdHcH`ؠԬױ:%; &EEEEEEEEEEdddedeefdeedhhhhhhhhhhhhhhhhhhhh eLcrI@rLcH ghLcHZ ,g=C YgF 2g Ygɠ` LMd 2gC0LcFLd Yg 2gGLc gHLc,aP 2hL;dL1d̫,a  hȐ gLc ,g̫ YgɠCLJd Yg 2gLc? g?rqcbЫbc`0 :;A[3Xr)0') SJQ0ʽQʽQ8``r)`M,;?.! :0q!ȌqpqN rp`bȱɠ_ȱqɠ`d_b sd`ʈ osIUELNESTIONETIOUCIOUMENGIOTEESIOCIALIOCIANIOTIALESLANWARTIOMAFUAAAOOOOIEEEEOUUSHSPTHTBDGPSWCDGPTWCFKPBCTFKSccqbbq)fbX r  ar rdbqȱ0kj8kikL)pkjkLom p`lkq)Qɀj$L8pjL:pȌi8illLp0Lppȱ eЬl`lkj p)cj LplLplj`hcqșqhhqcn`q)~`SOMOUSUDISUCOqp qB>opoqʽq omLoXqokpj 0pl\pqq qc=oq*q"pq qLoq omLopm p`opʽqPpL)pokjpjwq 0plm ʎn pLqm`opmknj plok plp`pqjccpʽq$q cFʽq9ovLnpcjq'ʽqTPLNʽq@r`Lmb@W${?%(Ecfq k fLe)s hVW`ȱ0ȱeМʈ08`Ȉ)08`ɜɛi@q`f sRt^ s`ȱ08`cȱ)08`ɜɛi@q`f sʌRtc^ s`Lt\t5tt`)sHsHfe`%-DcT.JUstttttttutuuuq^ \u`8`@ \u@` \u` \u ` \u^ee`@ \u^8`q^eq/q;cOq*Lt5)q40q(q ccqc s8`e` \u&cqq e9Ɏ&9>9'9$^^[aaȏaadÉ[\[ÛaÛa_5ac.___c՛e(ĕe_)/.ś@҄H./9қ/қF6қI9>>'59>9>)9999>>>)5>)N??%?)I.K)OқI+?))>)$)$%I9AŠȊˊ1&8.q!1qSfW`m܅܇ 2Y0FP)9󄉛>>^&[&[[c&R5)Շ$Y)Ʉ&55>>&5))HHHHHHHHHH`Pa@p@q@a`a@@aQA``Pq ! "'()*,-.":(;2?=[H\d^i_q`|abcdeϊ ֊ ܊ F" flUXXXXssssseeeeeew g,V9uXzвe8TT TKfKfKf'@XIwfq'qq QԥAF#j3ou%jww Hg,V9uXzВe8TT T mftsttttԥAF#j3ou%j#j3LSGLPزIv\вIv\в fLSGLSGLyHpyHp fLSGLSGL(ifY|7iH7iHSJНSJK*eK*eK*eJ9xJ9xJ9xkk Xe XeDeEjDeEjmJHmJHIdJгIdJIdJгIdJsș̦̦̦̦ KE GfGfGY+jزZJJتeyXJءh\ಌz|z|z|pزIv\вIv\в/S*/S*/S*pزfzfzfzSGLSGL/S*/S*SGLSGLgYlв fLSGLSGLSGLSGLSGLиUYUYUYSGLSGLfzfGSGhyijвhyijвhyijЀyv|yv|UYUYCiCifzfG/S*/S*Iv\вIv\в fL fLyHpz| fL fLmJHmJHY+jزZJJتeyXJءh\yHpyHpyHpItlItlItlItlhehehefM`(  ) 7?O_o *0+ %,& 1-.'/!$"#zzzz{"{={X{s{{{{{{|*|?|`||||||})}J}W}d}q}}}}}}}}}}~~"~5~<~F~S~]~g~q~~~~~~~~~~~಍fzfzfz/S*/S*/S*/S* `)t#mm @?IiA  uy` uyΑ`n".MM y)@ y)` Q` y)`8Hh` uy` Uy y y` y)"` QtJȱ)J) 8ȱ)J) ȱ)J) ȱ)J) `+)ɀv))ɀv x x`  uy y Hxh uy `m ) uy /y}Hxh uywEzmuOz` `;ɓ Uy Uy yɠc Uy Uy Uy` ~YzYz4  w YxΎ~`ȭ)a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cNUO_Q)UUU_)^#ȏZPגBP&a[\&a[a[P VGՎVC#V:ٛ:ٛ:ٛٛAٛ ٛٛ:'[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQb,_b*R[cȏTԔȅTT'[ȁ]ȁT]dԉc\\)d.՛d(c##&[+ՔՔB՛B՛CՔ':#P'W՛A՛#՛#՛B՛7՛C՛#-V-.ɎB'('((C#Վ#ϛbO;ba#aPa+śOAśOO殠[9Rc[cO6c&[ӕ[[\՛\7X.\H՛X(\X\[cW_[W[W[W[W[W[W[[[W[ӃΧW[RcW[Ӊ[W[;ό)ό;ό5ύ)ϓ;τ)?Փ)KGKLՇ(7Ռ;Ȕ5;!CY՛Cr`Lmb@W${?%(Ecfq k fLe)s hVWdddedeefdeedhhhhhhhhhhhhhhhhhhhh eLcrI@rLcH ghLcHZ ,g=C YgF 2g Ygɠ` LMd 2gC0LcFLd Yg 2gGLc gHLc,aP 2hL;dL1d̫,a  hȐ gLc ,g̫ YgɠCLJd Yg 2gLc? g?fbcfq kbi@qrc kLe# [h%? |g g@(A)BLcٰ8?(A)BLecfq k?iqrc k? |g +fc0zdHcH`ؠԬױ:%; &EEEEEEEEEEWLVWH$(Er);r>c&r @rcU jLgb k>rɘ h+rH @rI g YgLbE 2ghr h =fɈ hɌLe bhEHLmb [hr>) rcfq k +fɠHLf gLbɟɀw۰ Hqchې 8 ېiHDhHtDhUɧɰɺ ۰a a laUcqcak5r)@qD0$itpɾc `ɍɀ`c-Z[ q kcakZ[D0t`fr)rffqLlq ggrN  ugr4 8 N 84 ^84r)r uLkLkɳ'84sQɳ ԍU uLkU uLk) uLk uU`cʎnkm pkkqm +m ^m np @Jȱ)J) 8ȱ)J) ȱ)J) ȱ)J) `+)ɀv))ɀv x x`  uy y Hxh uy `m ) uy /y}Hxh uy"(F$(J),Y1,40)1 (1):F$(J);:(Y1):1340B  LEFT ARROWT J1Y01340x Y0JJ1:(J2):F$(J);:1340 "(Y):1340 , UP ARROW 6J11340 @JJ1:(J2):P(F$(J)):PYĖ(P1) J1340 T RIGHT ARROW ^J20Y391340 hP:F$(J);:1340 DELETE+ Y01340O Y1F$(J)(F$(J),Y1,40):190v F$(J)(F$(J),Y1)(F$(J),Y1,40) (1):F$(J);40);:(Y):1340 INSERT P(F$(J)):P381340 Y0F$(J)" "F$(J):250 PY1340 F$(J)(F$(J),Y)" wEzmuOz` `;ɓ Uy Uy yɠc Uy Uy Uy` ~YzYz4  w YxΎ~`ȭ)opoqʽq omLoXqokpj 0pl\pqq qc=oq*q"pq qLoq omLopm p`opʽqPpL)pokjpjwq 0plm ʎn pLqm`opmknj plok plp`pqjccpʽq$q cFʽq9ovLnpcjq'ʽqTPLNʽq@>'59>9>)9999>>>)5>)N??%?)I.K)OқI+?))>)$)$%I9AŠȊˊ1&8.q!1qSfW`m܅܇ 2Y0FP)9󄉛>>^&[&[[c&R5)Շ$Y)Ʉ&55>>&5))HHHHHHHHHH`Pa@p@q@a`a@@aQA``Pq ! "'()*,-.":(;2?=[H\d^i_q`|abcdeϊ ֊ ܊ F" flUXXXXssssseeeeeew g,V9uXzвe8TT TKfKfKf'@XIwfq'qq QԥAF#j3ou%jww Hg,V9uXzВe8TT T mftsttttԥAF#j3ou%j#j3LSGLPزIv\вIv\в fLSGLSGLyHpyHp fLSGLSGL(ifY|7iH7iHSJНSJK*eK*eK*eJ9xJ9xJ9xkk Xe XeDeEjDeEjmJHmJHIdJгIdJIdJгIdJsș̦̦̦̦ KE GfGfGY+jزZJJتeyXJءh\ಌz|z|z|pزIv\вIv\в/S*/S*/S*pزfzfzfzSGLSGL/S*/S*SGLSGLgYlв fLSGLSGLSGLSGLSGLиUYUYUYSGLSGLfzfGSGhyijвhyijвhyijЀyv|yv|UYUYCiCifzfG/S*/S*Iv\вIv\в fL fLyHpz| fL fLmJHmJHY+jزZJJتeyXJءh\yHpyHpyHpItlItlItlItlhehehefJ);101(RE$(I,J))):::L :"File :";:Z21(FILE$)2:(Z):FILE$;: "========================================":(19):"----------------------------------------":  REMOVE PAGE 200:(20)::"Are you sure that you want this page":"removed? (Yes or No):";ANS$G (ANS$,1)"Y"(ANS$,1)"y"İ200:1230 "COCO1:MICO:N1F:RE$(M,N)RE$(M1,N):N:M:200:1300 , ERROR ROUTINE 6D$;"CLOSE":(222)5ĺD$;"DELETE";FILE$ @240:(10):"Error #";(222);" occured. Press the 'Es"@"A$"2"A$"@":CN1:10901A$(27)700N$A$(13)II1:IFI1W.990l8 SEARCH ROUTINEBA$;:200:(20)::"Please enter what you would like to":"search for and then press 'Return'." LLI:(L31):(X1):" ";SE$:SE$(SE$,25):Sreater than,"::" @ contains, or ^ to put in order.";VEQ0:LTH0:GTH0:CN0:I1z(I31):X(CN$(I))4:(X):A$A$"^"A$"6"ĺ"^";:30A$"="EQ1:1090A$"<"A$","A$"<":LTH1:1090A$">"A$"."A$">":GTH1:1090A$:910200:(20)::"Press 'Esc' to return to the File Menu,":"or any other key to enter another page.";:B$:B$(27)700880 SEARCH PAGES INTRO8I0:220:(20):" Press 'Return' to move cursor, and:"::" = equals, < less than, > g20:210(21):"Enter your information for each category";:"and press 'Return'. If no information is";:"to be entered then press 'Return'."I1F:(I31):((CN$(I))4):" ";RE$(CO,I):RE$(CO,I)(RE$(CO,I),100):I1F:RE$(CO,I)""940 3304760>240:(20):"Remember to Save your work ";NAME$;".":(9):"Do you want to save your work? (Yes or":"No):";AN$HAN$""700R(AN$,1)"N"(AN$,1)"n"390\1400:390f ADD A RECORDpCO100ĺ(7);:760 zCOCO1:ICO:2rder/Change Pages."::" 3. Look at all Pages.":" 4. Save File to disk."::" 5. Return to the Main Menu."::"Please press 1-5:";A$:A$"5"830A$"4"İ1400:700 A$"1"880CO0ĺ(7);:760 A$"2"Ĺ216,0:970*A$"3"1CO0690-I1CO:J1F:RE$(I,J):J:I=D$;"CLOSE"[1620: MENU STARTS HERE240:CO100Ģ(1):(32):"File Full"CO0Ģ(1):(31):"File Empty"(4):"What would you like to do ";NAME$;"?"1:" 1. Add a Page."::" 2. Search/O0):"Is this how you want your Page set out":NAME$;:"? (Yes or No):";ANS$tl(ANS$,1)"Y"(ANS$,1)"y"550v330:1420:700240:(9):"Loading the file ";FILE$;".":330D$;"OPEN";FILE$:D$;"READ";FILE$F:I1F:CN$(I): CO:r a '-' to re do a Category Name.";>0(1):F0:CO0:I15:(I3):"Enter Category ";I"'s Name:":"=";CN$(I):CN$(I)(CN$(I),12):CN$(I)""600DCN$(I)"-"I1II1:FF1:570N(I31):I;".";CN$(I);":";41):FF1:XF0550Mb220:(20MFILE$"?"ė:330:D$;"CAT":8);"Press a key to continue.";:B$:500oFILE$(FILE$,12):A$"2"640%&240:(20):"Please enter the Category Names that":"you want information to be stored under.":"Press'Return' with no name to Finish.":"Ente.":B$::B$(13)ĺD$;"PR#6")350BA$"1"A$"2"460cFILE$"Enter File Name":240(8):" Please enter the Name of the File:":(14):5);"Enter a '?' to Catalog the disk."(11):(14):"____________";:(13):" ";FILE$:FILE$""40:" 2. Work with an Old Junior Filer file."\:" 3. Finish working with Junior Filer."x:"Please press 1-3:";A$:A$"3"490 :(11):"See you soon ";NAME$;"."::"Press 'Return' to start Junior Filer":"again, or any other key to reboot___";:(13):" ";NAME$:NAME$(NAME$,12):NAME$""370n|P((NAME$,1)):P96NAME$(P32)(NAME$,2,12)x310FILE$"Junior Filer Main Menu":240(6):"What would you like to do ";NAME$;"?":" 1. Make a New Junior Filer file."-c' key.";:B$:400> JD$;"PREFIX,D1 ":D$;"PREFIX FILER":O T START HEREx ^FILE$"Welcome to Junior Filer":240 h(6):" Hello there ....."::" Who am I working with today?"::" Please tell me your first name."8r(13):(14):"_________E$""970=VI0:220:(1):CN$(L);" ";A$;" ";SE$;40):I1]`210:X(RE$(I,L)):Y(SE$)wjEQRE$(I,L)SE$1230tCNY01200~LTHRE$(I,L)SE$1230GTHRE$(I,L)SE$1230CN1290X(SE$):K1(RE$(I,L)):(RE$(I,L),K,X)SE$1230K:1290%LTHXY12307GTHXY1230A1290230:(20):"Press: 'Return' to Continue...."::" 'R' to Remove. 'C' to Change."::" 'P' to Print. 'Esc' to cancel.";A$:A$(27)700A$"R"A$"r"270 A$"C"A$)UUU_)^#ȏZPגBP&a[\&a[a[P VGՎVC#V:ٛ:ٛ:ٛٛAٛ ٛٛ:'[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQb,_b*R[cȏTԔȅTT'[ȁ]ȁT]dԉc\\)d.՛d(c##&[+ՔՔB՛B՛CՔ':#P'W՛A՛#՛#՛B՛7՛C՛#-V-.ɎB'('((C#Վ#ϛbO;ba#aPa+śOAśOO殠[9Rc[cO6c&[ӕ[[\՛\7X.\H՛X(\X\[cW_[W[W[W[W[W[W[[[W[ӃΧW[RcW[Ӊ[W[;ό)ό;ό5ύ)ϓ;τ)?Փ)KGKLՇ(7Ռ;Ȕ5;!CY՛C9'9$^^[aaȏaadÉ[\[ÛaÛa_5ac.___c՛e(ĕe_)/.ś@҄H./9қ/қF6қI:1230 !N180:"=";:::2! CHANGE INFO!"200:(20)::"Enter the information that you want":"changed in each category and press":"'Return'. If the information is correct":"then press 'Return'.";",N1F:XN31:Y(CN$(N))4:(X):(Y):"200:(20)::" Press 'Return' when printer is ready.";X B$:B$(27)İ200:1230l B$(13)1500 :D$;"PR#1":"File: ";FILE$;67((FILE$)(DTE$)));"Date: ";DTE$ 1550::N1F:N;".";CN$(N);": ";RE$(I,N):::1550!D$;"PR#0":216,0$F:I1F:CN$(I):.CO:CO01460QI1CO:J1F:RE$(I,J):J:ItD$;"CLOSE":D$;"LOCK";FILE$:1620: PRINT ROUT.DTE$""İ200:(20)::" Please enter the Date: _____________";:(24):" ";DTE$:DTE$(DTE$,13):DTE$""1480; $"F"A$"f"āM1600::(16384)1281380IFA$:A$"F"A$"f"1340[PA$(27)700oZA$(13)1350d:(7):700nSAVEx240:(9):"Carefully Saving the file ";FILE$;"."330:D$;"UNLOCK";FILE$D$;"OPEN";FILE$:D$;"WRITE";FILE"c"1570#A$"P"A$"p"14807A$(13)1240A II1QICO1120`(7):700q( PRINT ALL2220:I1CO:210:230:(20):(1):"Press: 'Return' to continue...."::9);"'F' to Flick through pages."::9);"'Esc' to cancel.";-<Ac&a[aNQ9\)RaP;cN@Ycb. RO:cb. Ra;NR[@Qa!NRaP@[dRQ+aN@Yc^O$ac^>a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cNUO_Q44b*RcbNC[[cE_5N.[ Rb[&Rc$R_6aPNW[$cN@[T$R`O9c.T$R[N$\RCQ^.[ R󍃏LJJJJ P ) ` ``L@  &jjjj` ` 8,'  & & L &ɍ` L`0)400xA$(127)1603(16287)1281490JA$"?"A$"/"530hA$"S"A$"s"İ910:1310A$"Q"A$"q"670A$"T"A$"t"İ790:1320A$"P"A$"p"840A$"I"A$"i"210A$"N"A$"n"NONO1:1340 (A$)32(A$)1560: ERRORq(HE$NAME$"'s Junior Writer Story":480:HE$"Open Apple '?' = Tips Page":510:(3):(1)2I120:F$(I)::(J2):(Y1)<A$:Y(0):A$""1340FA$(13)440PA$(8)270ZA$(11)310dA$(21)350nA$(1G(24):HE$"ProDOS Error#"((222))", please press 'Esc'.":510_A$:A$(27)1260i1060(15):" I cannot find an old story on this"::" disk. Press 'Return' to start a new"::" story." A$:A$(27)1060A$(13)1290" old Junior Writer story of yours"::" ";NAME$;"."Nt1230: ERRORX~1040nD$;"OPEN ";NAME$D$;"READ ";NAME$I120A$:A$(13)1210F$(I)F$(I)A$:1190I:D$;"CLOSE":1310D$;"CLOSE"(222)51280ease tell me your first name."sB(12):(14):"____________";:(13):" ";NAME$:NAME$(NAME$,12):NAME$""1090LP((NAME$,1)):P96NAME$(P32)(NAME$,2,12)VHE$"Getting Started":480`(5):(1):" I am searching the disk for an";j:", please press 'Esc'.":5107A$:A$(27)1020C:1310mD$;"PREFIX,D1":D$;"PREFIX WRITER": PROGRAM INTRO$HE$"Welcome to Junior Writer":480.(5):(1):" Hello there....."::" Who am I working with today?" 8:" Pl(13)920N(24):HE$"I am now carefully saving your story.":510:(18)a1010: ERRORk1040D$;"OPEN ";NAME$D$;"WRITE ";NAME$I120:F$(I):D$;"CLOSE ";NAME$:D$;"CLOSE ":768:(24):HE$" ProDOS Error #"((222)) 'Return' when printer is ready.":510?RA$:A$(27)1320R\A$(13)850if(18):D$;"PR#1":pI120:(20):F$(I):IzD$;"PR#0":1320 SAVE STORY(24):HE$"Press 'Return' to save your story.":510A$:A$(27)1320 A$ reboot."+A$:A$(13)ĺ:D$;"PR#6"CNAME$"":820:1060U  THROW AWAY(24):HE$"Press 'Return' to Throw this story out.":510 A$:A$(27)ı*A$(13)8004I120:F$(I)"":I:J1:Y0:> PRINT STORY(H(24):HE$"Pressy."L:" Press 'Ctrl' and 'Q' to quit without":" saving your story.";cA$:A$(27)1320{A$(13)İ940:740A$(17)710:(11):" See you soon ";NAME$;"." :" Press 'Return' to run Junior Writer":" again, or any other key toel most options.";+A$:A$(27)64051320@ QUITHE$"Do you really want to Quit?":480:HE$"Remember to Save your story.":510(7):(1):" Press 'Esc' to go back to your story.":" Press 'Return' to Quit and Save your":" storD:" 'S' = Save your story to the disk."PN:" 'N' = Turn noise on/off."oX:" '?' = See this page."b:" 'Q' = Quit using Junior Writer."l:" Move the '' with the arrow keys.":" Use 'Del' to Delete letters."v" Use 'Esc' to cancess 'Esc' to return to your story.":510:(3):(1)}" Press these keys while holding down":" the Open Apple key to:"&:" 'T' = Throw a story out."0:" 'I' = Insert spaces into your story."::" 'P' = Print your story with a printer."-v )`Lhh`H)h`)΃`8`12613404A$(32)NO1S(16336)(16336)M(F$(J))39Y3950Y0(F$(J))0F$(J)A$(F$(J),2,40):A$;:1340Y(F$(J))F$(J)F$(J)A$:A$;:1340F$(J)(F$(J),Y)A$(F$(J),Y2,40):A$;:1340 ERRORS4(24):HE$" Program Error#"((222))", please press 'Esc'.":510L"A$:A$(27)1570l,I120:F$(I)(F$(I),39):~6J1:Y0:1320:A$(27)6401350& QUITyHE$"Do you really want to Quit?":480:HE$"Remember to Save your story.":510(7):(1):" Press 'Esc' to go back to your story.":" Press 'Return' to Quit and Save your":" story."2:" Press 'Ctrl' ory to the disk."6N:" 'N' = Turn noise on/off."UX:" '?' = See this page."b:" 'Q' = Quit using Junior Writer."l:" Move the '' with the arrow keys.":" Use 'Del' to Delete letters."v" Use 'Esc' to cancel most options.";A$r story.":510:(3):(1)c" Press these keys while holding down":" the Open Apple key to:"&:" 'T' = Throw a story out."0:" 'I' = Insert spaces into your story."::" 'P' = Print your story with a printer."D:" 'S' = Save your st DRAW PAGEF :510::"========================================" (23):"----------------------------------------";:  CENTRE STRINGS X(21(HE$)2):(X):HE$;:  TIPS PAGEHE$"Tips Page":480:HE$"Press 'Esc' to return to you rYPJJ1:(J2):(1):13702 |(Y2):1370C  DOWN ARROWR J201370z JJ1:(J2):P(F$(J)):PYĖ(P1) 1370  C/RETURN J201370 Y0F$(J)"":41);:JJ1:(J2):1370 F$(J)(F$(J),Y):41);:JJ1:(J2):1370 :F$(J);:(Y1):1370(  LEFT ARROW: J1Y01370^ Y0JJ1:(J2):F$(J);:1370m "(Y):1370| , UP ARROW 6J11370 @JJ1:(J2):P(F$(J)):PYĖ(P1) J1370 T RIGHT ARROW ^J20Y391370 hP(F$(J)):YPJ201370!E Y013705 Y1F$(J)(F$(J),Y1,40):190\ F$(J)(F$(J),Y1)(F$(J),Y1,40)} (1):F$(J);40);:(Y):1370 INSERT P(F$(J)):P381370 Y0F$(J)" "F$(J):250 PY1370 F$(J)(F$(J),Y)" "(F$(J),Y1,40) (1)2)F$(J)(M$,I1):JJ1:F$(J)(M$,I1,255)" "R$:110p dI:F$(J)(M$,39):JJ1:F$(J)(M$,40,255)" "R$ n(1):F$(J1);41);:(F$(J))3970 xF$(J);:JU1:(J2):(1) I139:(F$(J),I,1)(32)Ė(I):1370 I:F$(J);:1370 DELET I09:ZZ:768I,ZZ:IG104,168,104,166,223,154,72,152,72,96jF$(21):J1:NO1:D$(4):1090( WORD WRAP AROUND2J201370<UJ:F$(J)F$(J)A$FJ20F$(J)(F$(J),39):120PM$F$(J):R$F$(J1):I4011: Z(F$(J),I,1)(3 ..?G'.9?GPand 'Q' to quit without":" saving your story.";IA$:A$(27)1350aA$(13)İ970:740tA$(17)710:(11):" See you soon ";NAME$;".":" Press 'Return' to run Junior Writer":" again, or any other key to reboot.";A$:A$(13)ĺ:D$;"PR#6"*NAME$"":820:1090<  THROW AWAYy(24):HE$"Press 'Return' to Throw this story out.":510 A$:A$(27)ı*A$(13)8004I120:F$(I)"":I:J1:Y0:> PRINT STORYH(24):HE$"Press 'Return' when printer isxA$(11)310%A$(21)3507A$(10)400JA$(127)160b(16287)1281520yA$"?"A$"/"530A$"S"A$"s"İ940:1340A$"Q"A$"q"670A$"T"A$"t"İ790:1350A$"P"A$"p"840A$"I"A$"i"210A$ry."(A$:A$(27)109012A$(13)1320D<1590: ERRORFHE$NAME$"'s Junior Writer Story":480:HE$"Open Apple '?' = Tips Page":510:(3):(1)PI120:F$(I)::(J2):(Y1)ZA$:Y(0):A$""1370dA$(13)440nA$(8)270CLOSE":1340D$;"CLOSE"1(222)51310v(24):HE$"ProDOS Error#"((222))", please press 'Esc'.":510 A$:A$(27)12901090(15):" I cannot find an old story on this"::" disk. Press 'Return' to start a new"::" stoAEL 10 F 30 145 45 MICHELLE LAING SCOTTON NATALIE ON NATALIE E 31.75 1.42 TROY SULLIVAN 10 MALE 4 STONE 1 35 WILSON RACHAEL 10 F 30 145 PAUL VIHINEN 11 MALE 35 4FT DOWSE GARY 10 M 35 KGS 142 TAYLER MATTHEW 9 M 41 KGS 151 M 34 140 McDADE REBECCA 9 F 26 129 RODWELL MELISSA 9 F 26 140 SARHADIAN ADAM 10 M 37 136 SCOTTON NATALIE 1O F 32 140 SULLIVAN TROY 10 M 31 135 TAYLER MATTHEW 9 M 41 151 VIHINEN PAUL 10 M 35 140 VINCENT JENNIFER 10 F 26 133 WILSON RACHSON KAREN 10 F 33 144 GANN MELANIE 10 F 30 141 HANDCOCK NATASHA 10 F 29 133.5 HOWLETT LEA 9 F 26 132 LAING MICHELLE 10 F 35 140 MUIR FELECIA 10 F 30 133 McCORKELL SCOTT 9 5 NAME AGE SEX WEIGHT HEIGHT 24 APPS JOHNATHON 9 M 25 135 BEST DAVID 10 M 31 138 BOYCE JODIE 9 F 26 132 CASE TONI 9 F 31.75 142 CHADBURN MALCOLM 10 M 30 140 COCKERTON ANDREW 10 M 35 152 CONNOLLY CATHERINE ANNE 9 F 26 126.5 DOWSE GARY 10 M 35 142 FERGUS(1):" I am searching the disk for an"j:" old Junior Writer story of yours"::" ";NAME$;"."}1260: ERROR1070D$;"OPEN ";NAME$D$;"READ ";NAME$I120A$:A$(13)1240F$(I)F$(I)A$:1220I:D$;"" Who am I working with today?"OV:" Please tell me your first name."`(12):(14):"____________";:(13):" ";NAME$:NAME$(NAME$,12):NAME$""1120jP((NAME$,1)):P96NAME$(P32)(NAME$,2,12)tHE$"Getting Started":480*~(5):SE ":768:(24):HE$" ProDOS Error #"((222))", please press 'Esc'.":510fA$:A$(27)1050r$:1340.D$;"PREFIX,D1":D$;"PREFIX WRITER":8 PROGRAM INTROBHE$"Welcome to Junior Writer":480#L(5):(1):" Hello there....."::our story.":510)A$:A$(27)1350<A$(13)950}(24):HE$"I am now carefully saving your story.":510:(18)1040: ERROR1070D$;"OPEN ";NAME$D$;"WRITE ";NAME$I120:F$(I):D$;"CLOSE ";NAME$:ND$;"CLO ready.":510&RA$:A$(27)1350=\A$"I"A$"i"880PfA$(13)850gp(18):D$;"PR#1":zA$"I"A$"i"ĺ(27);(52)I120:(14);F$(I):(27);(53);D$;"PR#0":1350 SAVE STORY(24):HE$"Press 'Return' to save y"N"A$"n"NONO1:13709(A$)32(A$)1261370cA$(32)NO1S(16336)(16336)|(F$(J))39Y3950Y0(F$(J))0F$(J)A$(F$(J),2,40):A$;:1370Y(F$(J))F$(J)F$(J)A$:A$;:1370"F$(J)(F$(J),Y)A$(F$(J),Y2,40):A$;:1370, ERRORSc6(24):HE$" Program Error#"((222))", please press 'Esc'.":510{@A$:A$(27)1600JI120:F$(I)(F$(I),39):TJ1:Y0:1350E DOESN'T LIKE SHARING HIS BIKE. SNUGGLEPOT AND CUDDLEPIE MAY GIBBS MAY GIBBS 222 ABOUT TWO GUM BLOSSOMS AND THEIR ADVENTURES WITH MR LIZARD. THE SEARCH FOR CHAMP SHANNON GILLIAN ANTHONY KRAMER 50 TWISTAPLOT ABOUT A DRAGON BARNEY BOOFER AND THE CRICKET BOUT A WAX QUEEN AND GHOSTS. ELBERT THE MIND READER BARBARA RINKOFF PAUL GALDONE 112 ELBERT WANTS TO BE IN THE FOOTBALL TEAM BUT IS TOO SMALL. RUNAWAY RALPH BEVERLY CLEARY LOUIS DARLING 140 IT'S ABOUT A MOUSE THAT RUNS AWAY ON A MOTORCYCLE BECAUSE H43 ABOUT PEOPLE WHO SWIM AT NIGHT THE VIDEO AVENGER DOUGLAS COLLIGAN RAY LAGO 93 TWISTAPLOT ABOUT A BOY WHO GETS TRAPPED IN A COMPUTER. BOY GEORGE MERLE GINSBERG NO 170 BOY GEORGE AND POP MUSIC. THE MYSTERY OF THE WAX QUEEN CAROLYN KEENE NO 170 MYSTERY AB3 NAME AGE AREA 0 ND THERE WAS A SHOWER OF WATER.I COOLED MYSELF DOWN THEN WAS ON THE SAND AGAIN I LOOKED DOWN THE HILL THERE WAS PARADISE I WAS SO HAPPY I NEARLY FELL OF THE HILL. PARADISE. I WAS WALKING THROUGH THE DESERT ONE BOILING HOT DAY I COULDN`T FIND WATER BUT I FOUND A NICE COOL CAVE AND TO MY SURPRISE THERE WAS A DRIP OF WATER. THEN I WALKED AROUND THE CORNER A;NAME$:NAME$ = LEFT$ (NAME$,12): IF NAME$ = "" THEN 360 370 P = ASC ( LEFT$ (NAME$,1)): IF P > 96 THEN NAME$ = CHR$ (P - 32) + MID$ (NAME$,2,12) 380 ONERR GOTO 310 390 PRINT D$;"PREFIX,D1 ": PRINT D$;"PREFIX FILER" 400 FILE$ = "Junior Filer Main Men$ = "Welcome to Junior Filer": GOSUB 240 350 VTAB (6): PRINT " Hello there .....": PRINT : PRINT " Who am I working with today?": PRINT : PRINT " Please tell me your first name." 360 VTAB (13): HTAB (14): PRINT "____________";: HTAB (13): INPUT " " ";ANS$:ANS$(ANS$,100):"6ANS$"-"RE$(I,N)"":1610V"@ANS$""RE$(I,N)ANS$"J(X):(Y1):RE$(I,N);101(RE$(I,N)))::200:1230"TD$;"CLOSE":(222)6İ1420:700#^240:(10):"Error #";(222);" occured. Press the 'Esc' key.";:B$:700AT JUDITH WORTHY ELIZABETH HONEY 83 A BOY WHOSE MUM MARRIED SOMEONE ELSE AND HIS STEP BROTHER LOSES HIS REAL FATHERS CRICKET BAT. OSE MUM MARRIED SOMEONE ELSE AND HIS STEP BROTHER LOSES HIS REAL FATHERS CRICKET BAT. 0 1 HARRY EN POKE 36, P 330 GOTO 1340 340 REM RIGHT ARROW 350 IF J = 20 AND Y = 79 THEN 1340 360 P = LEN (F$(J)): IF Y = P AND J = 20 THEN 1340 370 IF Y = P THEN J = J + 1: VTAB (J + 2): HTAB (1): GOTO 1340 380 POKE 36, Y + 1: GOTO 1340 390 REM DOWN ARROW 340 260 REM LEFT ARROW 270 IF J = 1 AND Y = 0 THEN 1340 280 IF Y = 0 THEN J = J - 1: VTAB (J + 2): PRINT F$(J);: GOTO 1340 290 POKE 36, Y-1: GOTO 1340 300 REM UP ARROW 310 IF J = 1 THEN 1340 320 J = J - 1: VTAB (J + 2):P = LEN (F$(J)): IF P < Y TH, Y-1: GOTO 1340 200 REM INSERT 210 P = LEN (F$(J)): IF P > 38 THEN 1340 220 IF Y = 0 THEN F$(J) = " " + F$(J): GOTO 250 230 IF P = Y THEN 1340 240 F$(J) = LEFT$ (F$(J),Y) + " " + MID$ (F$(J),Y + 1,80) 250 HTAB (1): PRINT F$(J);: POKE 36,Y : GOTO 1-1: GOTO 1340 140 NEXT I: PRINT F$(J);: GOTO 1340 150 REM DELETE 160 IF Y = 0 THEN 1340 170 IF Y = 1 THEN F$(J) = MID$ (F$(J),Y + 1,80): GOTO 190 180 F$(J) = LEFT$ (F$(J),Y - 1) + MID$ (F$(J),Y + 1,80) 190 HTAB (1): PRINT F$(J); TAB( 80);: POKE 36LEFT$ (M$,79):J = J + 1:F$(J) = MID$ (M$,80,255) + " " + R$ 110 HTAB (1): PRINT F$(J - 1); TAB( 81);: IF LEN (F$(J)) > 79 THEN 70 120 PRINT F$(J);:J = U + 1: VTAB (J + 2): HTAB (1) 130 FOR I = 1 TO 79: IF MID$ (F$(J),I,1) = CHR$ (32) THEN POKE 36,IF J = 20 THEN F$(J) = LEFT$ (F$(J),79): GOTO 120 80 M$ = F$(J):R$ = F$(J + 1): FOR I = 80 TO 1 STEP - 1 90 IF MID$ (F$(J),I,1) = CHR$ (32) THEN F$(J) = LEFT$ (M$,I - 1):J = J + 1:F$(J) = MID$ (M$,I + 1,255) + " " + R$: GOTO 110 100 NEXT I:F$(J) = 10 FOR I = 0 TO 9: READ ZZ: POKE 768 + I,ZZ: NEXT I 20 DATA 104,168,104,166,223,154,72,152,72,96 30 DIM F$(21):J = 1:NO = 1:D$ = CHR$ (4): PRINT D$;"PR#3" : GOTO 1060 40 REM WORD WRAP AROUND 50 IF J = 20 THEN 1340 60 U = J:F$(J) = F$(J) + A$ 70 I I,M JENNY EMERY AND I HAVE 4 BIG SISTERS ONE IS ROZ .SHE IS VERY BAD. ONE IS DIE SHE IS VERY GOOD. THERE ARE SOME MORE BUT I CAN NOT TELL YOU ABOUT THEM. 400 IF J = 20 THEN 1340 410 J = J + 1: VTAB (J + 2):P = LEN (F$(J)): IF P < Y THEN POKE 36, P 420 GOTO 1340 430 REM C/RETURN 440 IF J = 20 THEN 1340 450 IF Y = 0 THEN F$(J) = "": PRINT TAB( 81);:J = J + 1: VTAB (J + 2): GOTO 1340 460 F$(J) = LEFT$ (F$(J),Y): PRINT TAB( 81);:J = J + 1: VTAB (J + 2): GOTO 1340 470 REM DRAW PAGE 480 HOME : GOSUB 510: PRINT : PRINT "===============================================================================" 490 VTAB (23): PRINT "-----------------------------_______";: HTAB (13): INPUT " ";NAME$:NAME$ = LEFT$ (NAME$,12): IF NAME$ = "" THEN 1090 1100 P = ASC ( LEFT$ (NAME$,1)): IF P > 96 THEN NAME$ = CHR$ (P - 32) + MID$ (NAME$,2,12) 1110 HE$ = "Getting Started": GOSUB 480 1120 VTAB (5): HTAB (1): PRINT " INTRO 1060 HE$ = "Welcome to Junior Writer": GOSUB 480 1070 VTAB (5): HTAB (1): PRINT " Hello there.....": PRINT : PRINT " Who am I working with today?" 1080 PRINT : PRINT " Please tell me your first name." 1090 VTAB (12): HTAB (14): PRINT "_____ ": CALL 768: VTAB (24):HE$ = " ProDOS Error #" + STR$ ( PEEK (222)) + ", please press 'Esc'.": GOSUB 510 1030 GET A$: IF A$ < > CHR$ (27) THEN 1030 1040 POP : GOTO 1310 1045 PRINT D$;"PREFIX,D1": PRINT D$;"PREFIX WRITER": RETURN 1050 REM PROGRAMully saving your story.": GOSUB 510: VTAB (18) 970 ONERR GOTO 1020: REM ERROR 975 GOSUB 1045 980 PRINT D$;"OPEN ";NAME$ 990 PRINT D$;"WRITE ";NAME$ 1000 FOR I = 1 TO 20: PRINT F$(I): NEXT 1010 PRINT D$;"CLOSE ";NAME$: RETURN 1020 PRINT D$;"CLOSER$ (27); CHR$ (53); 910 PRINT D$;"PR#0": GOTO 1320 920 REM SAVE STORY 930 VTAB (24):HE$ = "Press 'Return' to save your story.": GOSUB 510 940 GET A$: IF A$ = CHR$ (27) THEN 1320 950 IF A$ < > CHR$ (13) THEN 940 960 VTAB (24):HE$ = "I am now caref7) THEN 1320 850 IF A$ = "I" OR A$ = "i" THEN 870 860 IF A$ < > CHR$ (13) THEN 840 870 VTAB (18): PRINT D$;"PR#1": PRINT 880 IF A$ = "I" OR A$ = "i" THEN PRINT CHR$ (27); CHR$ (52) 890 FOR I = 1 TO 20: PRINT CHR$ (14);F$(I): NEXT 900 PRINT CH$: IF A$ = CHR$ (27) THEN RETURN 800 IF A$ < > CHR$ (13) THEN 790 810 FOR I = 1 TO 20:F$(I) = "": NEXT I:J = 1:Y = 0: RETURN 820 REM PRINT STORY 830 VTAB (24):HE$ = "Press 'Return' when printer is ready.": GOSUB 510 840 GET A$: IF A$ = CHR$ (2": PRINT " again, or any other key to reboot."; 750 GET A$: IF A$ < > CHR$ (13) THEN PRINT : PRINT D$;"PR#6" 760 NAME$ = "": GOSUB 810: GOTO 1060 770 REM THROW AWAY 780 VTAB (24):HE$ = "Press 'Return' to Throw this story out.": GOSUB 510 790 GET Ag your story."; 700 GET A$: IF A$ = CHR$ (27) THEN 1320 710 IF A$ = CHR$ (13) THEN GOSUB 960: GOTO 730 720 IF A$ < > CHR$ (17) THEN 700 730 HOME : VTAB (11): PRINT " See you soon ";NAME$;"." 740 PRINT : PRINT " Press 'Return' to run Junior Writerer to Save your story.": GOSUB 510 670 VTAB (7): HTAB (1): PRINT " Press 'Esc' to go back to your story." 680 PRINT : PRINT " Press 'Return' to Quit and Save your": PRINT " story." 690 PRINT : PRINT " Press 'Ctrl' and 'Q' to quit without": PRINT " savinhe '' with the arrow keys.": PRINT " Use 'Del' to Delete letters." 620 PRINT " Use 'Esc' to cancel most options."; 630 GET A$: IF A$ < > CHR$ (27) THEN 630 640 GOTO 1320 650 REM QUIT 660 HE$ = "Do you really want to Quit?": GOSUB 480:HE$ = "Remembour story with a printer." 580 PRINT : PRINT " 'S' = Save your story to the disk." 585 PRINT : PRINT " 'N' = Turn noise on/off." 590 PRINT : PRINT " '?' = See this page." 600 PRINT : PRINT " 'Q' = Quit using Junior Writer." 610 PRINT : PRINT " Move t GOSUB 510: VTAB (3): HTAB (1) 540 PRINT " Press these keys while holding down": PRINT " the Open Apple key to:" 550 PRINT : PRINT " 'T' = Throw a story out." 560 PRINT : PRINT " 'I' = Insert spaces into your story." 570 PRINT : PRINT " 'P' = Print y--------------------------------------------------";: RETURN 500 REM CENTRE STRINGS 510 X = INT (41 - LEN (HE$) / 2): POKE 36, X-1: PRINT HE$;: RETURN 520 REM TIPS PAGE 530 HE$ = "Tips Page": GOSUB 480:HE$ = "Press 'Esc' to return to your story.": I am searching the disk for an" 1130 PRINT : PRINT " old Junior Writer story of yours": PRINT : PRINT " ";NAME$;"." 1140 ONERR GOTO 1230: REM ERROR 1150 GOSUB 1045 1160 PRINT D$;"OPEN ";NAME$ 1170 PRINT D$;"READ ";NAME$ 1180 FOR I = 1 TO 20 1190 GET A$: IF A$ = CHR$ (13) THEN 1210 1200 F$(I) = F$(I) + A$: GOTO 1190 1210 NEXT I: PRINT 1220 PRINT D$;"CLOSE": GOTO 1310 1230 PRINT D$;"CLOSE" 1240 IF PEEK (222) = 5 THEN 1280 1250 VTAB (24):HE$ = "ProDOS Error#" + STR$ ( PEEK (222)) + ", p700 PRINT D$;"CLOSE" 710 ONERR GOTO 1620: REM MENU STARTS HERE 720 GOSUB 240: IF CO = 100 THEN VTAB (1): HTAB (32): PRINT "File Full" 730 IF CO = 0 THEN VTAB (1): HTAB (31): PRINT "File Empty" 740 VTAB (4): PRINT "What would you like to do ";NAME$0: VTAB (9): PRINT "Loading the file ";FILE$;"." 650 PRINT D$;"OPEN";FILE$ 660 PRINT D$;"READ";FILE$ 670 INPUT F: FOR I = 1 TO F: INPUT CN$(I): NEXT 680 INPUT CO: IF CO = 0 THEN 700 690 FOR I = 1 TO CO: FOR J = 1 TO F: INPUT RE$(I,J): NEXT J: NEXT I NEXT 600 IF F = 0 THEN 550 610 GOSUB 220: VTAB (20): PRINT "Is this how you want your Page set out": PRINT NAME$;: INPUT "? (Yes or No):";ANS$ 620 IF LEFT$ (ANS$,1) < > "Y" AND LEFT$ (ANS$,1) < > "y" THEN 550 630 GOSUB 1420: GOTO 710 640 GOSUB 24 VTAB (I * 3): PRINT "Enter Category ";I"'s Name:": INPUT "=";CN$(I):CN$(I) = LEFT$ (CN$(I),12): IF CN$(I) = "" THEN 600 580 IF CN$(I) = "-" AND I > 1 THEN I = I - 1:F = F - 1: GOTO 570 590 VTAB (I * 3 + 1): PRINT I;".";CN$(I);":"; TAB( 41):F = F + 1: SUB 240: VTAB (20): PRINT "Please enter the Category Names that": PRINT "you want information to be stored under.": PRINT "Press'Return' with no name to Finish.": PRINT "Enter a '-' to re do a Category Name."; 560 HTAB (1):F = 0:CO = 0: FOR I = 1 TO 5 570: HTAB (14): PRINT "____________";: HTAB (13): INPUT " ";FILE$: IF FILE$ = "" THEN 400 530 IF FILE$ = "?" THEN HOME : PRINT D$;"CAT": PRINT TAB( 8);"Press a key to continue.";: GET B$: GOTO 500 540 FILE$ = LEFT$ (FILE$,12): IF A$ = "2" THEN 640 550 GO340 480 PRINT : PRINT D$;"PR#6" 490 IF A$ < > "1" AND A$ < > "2" THEN 460 500 FILE$ = "Enter File Name": GOSUB 240 510 VTAB (8): PRINT " Please enter the Name of the File:": VTAB (14): PRINT TAB( 5);"Enter a '?' to Catalog the disk." 520 VTAB (11)INT : PRINT "Please press 1-3:"; 460 GET A$: IF A$ < > "3" THEN 490 470 HOME : VTAB (11): PRINT "See you soon ";NAME$;".": PRINT : PRINT "Press 'Return' to start Junior Filer": PRINT "again, or any other key to reboot.": GET B$: IF B$ = CHR$ (13) THEN u": GOSUB 240 410 VTAB (6): PRINT "What would you like to do ";NAME$;"?" 420 PRINT : PRINT " 1. Make a New Junior Filer file." 430 PRINT : PRINT " 2. Work with an Old Junior Filer file." 440 PRINT : PRINT " 3. Finish working with Junior Filer." 450 PRO 1320 1460 IF A$ = "P" OR A$ = "p" THEN 830 1470 IF A$ = "I" OR A$ = "i" THEN 210 1475 IF A$ = "N" OR A$ = "n" THEN NO = NO * - 1: GOTO 1340 1480 IF ASC (A$) < 32 OR ASC (A$) > 126 THEN 1340 1485 IF A$ < > CHR$ (32) AND NO = 1 THEN S = PEEK ( -IF A$ = CHR$ (127) THEN 160 1410 IF PEEK ( - 16287) < 128 THEN 1480 1420 IF A$ = "?" OR A$ = "/" THEN 530 1430 IF A$ = "S" OR A$ = "s" THEN GOSUB 930: GOTO 1310 1440 IF A$ = "Q" OR A$ = "q" THEN 660 1450 IF A$ = "T" OR A$ = "t" THEN GOSUB 780: GOTNEXT : VTAB (J + 2): POKE 36, Y 1340 GET A$:Y = POS (0): IF A$ = "" THEN 1340 1350 IF A$ = CHR$ (13) THEN 440 1360 IF A$ = CHR$ (8) THEN 270 1370 IF A$ = CHR$ (11) THEN 310 1380 IF A$ = CHR$ (21) THEN 350 1390 IF A$ = CHR$ (10) THEN 400 1400 A$ = CHR$ (27) THEN 1060 1300 IF A$ < > CHR$ (13) THEN 1290 1310 ONERR GOTO 1540: REM ERROR 1320 HE$ = NAME$ + "'s Junior Writer Story": GOSUB 480:HE$ = "Open Apple '?' = Tips Page": GOSUB 510: VTAB (3): HTAB (1) 1330 FOR I = 1 TO 20: PRINT F$(I): lease press 'Esc'.": GOSUB 510 1260 GET A$: IF A$ < > CHR$ (27) THEN 1260 1270 GOTO 1060 1280 VTAB (15): PRINT " I cannot find an old story on this": PRINT : PRINT " disk. Press 'Return' to start a new": PRINT : PRINT " story." 1290 GET A$: IF ;"?" 750 PRINT : PRINT " 1. Add a Page.": PRINT : PRINT " 2. Search/Order/Change Pages.": PRINT : PRINT " 3. Look at all Pages." 760 PRINT : PRINT " 4. Save File to disk.": PRINT : PRINT " 5. Return to the Main Menu." 770 PRINT : PRINT "Please press 1-5:"; 780 GET A$: IF A$ = "5" THEN 850 790 IF A$ = "4" THEN GOSUB 1400: GOTO 710 800 IF A$ = "1" THEN 900 810 IF CO = 0 THEN PRINT CHR$ (7);: GOTO 780 820 IF A$ = "2" THEN POKE 216,0: GOTO 970 830 IF A$ = "3" THEN 1330 840 GOTO 780 850 GOSUB 240:FILE$ 1430 PRINT F: FOR I = 1 TO F: PRINT CN$(I): NEXT 1440 PRINT CO: IF CO = 0 THEN 1460 1450 FOR I = 1 TO CO: FOR J = 1 TO F: PRINT RE$(I,J): NEXT J: NEXT I 1460 PRINT D$;"CLOSE": PRINT D$;"LOCK";FILE$: RETURN 1470 ONERR GOTO 1620: REM PRINT ROU$ (27) THEN 710 1370 IF A$ < > CHR$ (13) THEN 1350 1380 NEXT : PRINT CHR$ (7): GOTO 710 1390 REM SAVE 1400 GOSUB 240: VTAB (9): PRINT "Carefully Saving the file ";FILE$;"." 1410 PRINT D$;"UNLOCK";FILE$ 1420 PRINT D$;"OPEN";FILE$: PRINT D$;"WRITE";T : PRINT TAB( 9);"'F' to Flick through pages.": PRINT : PRINT TAB( 9);"'Esc' to cancel."; 1340 IF A$ = "F" OR A$ = "f" THEN FOR M = 1 TO 600: NEXT : IF PEEK ( - 16384) < 128 THEN 1380 1350 GET A$: IF A$ = "F" OR A$ = "f" THEN 1340 1360 IF A$ = CHR0 IF A$ < > CHR$ (13) THEN 1240 1290 I = I + 1 1300 IF I < = CO THEN 1120 1310 PRINT CHR$ (7): GOTO 710 1320 REM PRINT ALL 1330 GOSUB 220: FOR I = 1 TO CO: GOSUB 210: GOSUB 230: VTAB (20): HTAB (1): PRINT "Press: 'Return' to continue....": PRIN" 'R' to Remove. 'C' to Change.": PRINT : PRINT " 'P' to Print. 'Esc' to cancel."; 1240 GET A$: IF A$ = CHR$ (27) THEN 710 1250 IF A$ = "R" OR A$ = "r" THEN 270 1260 IF A$ = "C" OR A$ = "c" THEN 1570 1270 IF A$ = "P" OR A$ = "p" THEN 1480 128 K = 1 TO LEN (RE$(I,L)): IF MID$ (RE$(I,L),K,X) = SE$ THEN 1230 1190 NEXT K: GOTO 1290 1200 IF LTH AND X < Y THEN 1230 1210 IF GTH AND X > Y THEN 1230 1220 GOTO 1290 1230 GOSUB 230: VTAB (20): PRINT "Press: 'Return' to Continue....": PRINT : PRINT 210:X = VAL (RE$(I,L)):Y = VAL (SE$) 1130 IF EQ AND RE$(I,L) = SE$ THEN 1230 1140 IF NOT CN AND Y < > 0 THEN 1200 1150 IF LTH AND RE$(I,L) < SE$ THEN 1230 1160 IF GTH AND RE$(I,L) > SE$ THEN 1230 1170 IF NOT CN THEN 1290 1180 X = LEN (SE$): FORt you would like to": PRINT "search for and then press 'Return'." 1100 L = I: VTAB (L * 3 + 1): HTAB (X + 1): INPUT " ";SE$:SE$ = LEFT$ (SE$,25): IF SE$ = "" THEN 970 1110 I = 0: GOSUB 220: VTAB (1): PRINT CN$(L);" ";A$;" ";SE$; TAB( 40):I = 1 1120 GOSUB= "@" OR A$ = "2" THEN A$ = "@":CN = 1: GOTO 1090 1050 IF A$ = CHR$ (27) THEN 710 1060 IF A$ = CHR$ (13) THEN I = I + 1: IF I > F THEN I = 1 1070 GOTO 990 1080 REM SEARCH ROUTINE 1090 PRINT A$;: GOSUB 200: VTAB (20): PRINT : PRINT "Please enter wha 4: HTAB (X): GET A$ 1000 IF A$ = "^" OR A$ = "6" THEN PRINT "^";: GOTO 30 1010 IF A$ = "=" THEN EQ = 1: GOTO 1090 1020 IF A$ = "<" OR A$ = "," THEN A$ = "<":LTH = 1: GOTO 1090 1030 IF A$ = ">" OR A$ = "." THEN A$ = ">":GTH = 1: GOTO 1090 1040 IF A$ SUB 220: VTAB (20): PRINT " Press 'Return' to move cursor, and:": PRINT : PRINT " = equals, < less than, > greater than,": PRINT : PRINT " @ contains, or ^ to put in order."; 980 EQ = 0:LTH = 0:GTH = 0:CN = 0:I = 1 990 VTAB (I * 3 + 1):X = LEN (CN$(I)) +ess 'Return'." 930 FOR I = 1 TO F: VTAB (I * 3 + 1): HTAB ( LEN (CN$(I)) + 4): INPUT " ";RE$(CO,I):RE$(CO,I) = LEFT$ (RE$(CO,I),100): NEXT 940 FOR I = 1 TO F: IF RE$(CO,I) < > "" THEN 710 950 NEXT : GOTO 930 960 REM SEARCH PAGES INTRO 970 I = 0: GO ADD A RECORD 900 IF CO = 100 THEN PRINT CHR$ (7);: GOTO 780 910 CO = CO + 1:I = CO: GOSUB 220: GOSUB 210 920 VTAB (21): PRINT "Enter your information for each category";: PRINT "and press 'Return'. If no information is";: PRINT "to be entered then pr VTAB (20): PRINT "Remember to Save your work ";NAME$;".": VTAB (9): PRINT "Do you want to save your work? (Yes or": INPUT "No):";AN$ 860 IF AN$ = "" THEN 710 870 IF LEFT$ (AN$,1) = "N" OR LEFT$ (AN$,1) = "n" THEN 400 880 GOSUB 1400: GOTO 400 890 REMT. 1480 IF DTE$ = "" THEN GOSUB 200: VTAB (20): PRINT : PRINT " Please enter the Date: _____________";: HTAB (24): INPUT " ";DTE$:DTE$ = LEFT$ (DTE$,13): IF DTE$ = "" THEN 1480 1490 GOSUB 200: VTAB (20): PRINT : PRINT " Press 'Return' when printer is ready."; 1500 GET B$: IF B$ = CHR$ (27) THEN GOSUB 200: GOTO 1230 1510 IF B$ < > CHR$ (13) THEN 1500 1520 PRINT : PRINT D$;"PR#1": PRINT "File: ";FILE$; SPC( 67 - ( LEN (FILE$) + LEN (DTE$)));"Date: ";DTE$ 1530 GOSUB 1550: PRINT : FOR N = 1 TO F: P RE$(100,5):D$(4):3400 ORDER PAGES200:(20)::"Press: 'A' for Ascending (1-10,A-Z)"::4);"or, 'D' for Descending (10-1,Z-A)"((I31):(X1):AO0:DO0:A$:A$(27)9702A$"A"A$"a"AO1:80<A$"D"A$"d"DO1:80 F4KHJKSDFHJKLHASFDKJLHASDFJKHKJSDAFHKJHFDSAKJHDJSKAHKJFHDSFAKJHJDKSFAHKJHSADFKJHDFSKJHFD 1 ASJDF KLAJSDF ;' LKASJDFL;KJDFSLK;ASDJF JKLADSFHJLKHDSAJKLHFKJLHDSAFKJHASDJFKHDKJSAHKFJSAHFKJHSADKJHFKJHDSKJHFKDJSAHFKJSDHFKJDHSFKJHDSKJHFAK JHKASFDJKLHJASDFHKJLHASDFKJLHKJLSDAFHKJLHASDFJKHASDFJKHASDKJFLHKJSDAFLHKJSDALFHKJLSDAHFLKJHDFSALKJHF HJASDFJKHASDFJ = LEFT$ (F$(I),79): NEXT 1570 J = 1:Y = 0: GOTO 1320 1600 PRINT CHR$ (4);"OPEN JW" FT$ (F$(J),Y) + A$ + MID$ (F$(J),Y + 2,80): PRINT A$;: GOTO 1340 1530 REM ERRORS 1540 VTAB (24):HE$ = " Program Error#" + STR$ ( PEEK (222)) + ", please press 'Esc'.": GOSUB 510 1550 GET A$: IF A$ < > CHR$ (27) THEN 1550 1560 FOR I = 1 TO 20:F$(I) 16336) + PEEK ( - 16336) 1490 IF LEN (F$(J)) = 79 AND Y = 79 THEN 50 1500 IF Y = 0 AND LEN (F$(J)) > 0 THEN F$(J) = A$ + MID$ (F$(J),2,80): PRINT A$;: GOTO 1340 1510 IF Y = LEN (F$(J)) THEN F$(J) = F$(J) + A$: PRINT A$;: GOTO 1340 1520 F$(J) = LE IF ANS$ = "-" THEN RE$(I,N) = "": GOTO 1610 1600 IF ANS$ < > "" THEN RE$(I,N) = ANS$ 1610 VTAB (X): HTAB (Y + 1): PRINT RE$(I,N); SPC( 101 - LEN (RE$(I,N))): NEXT : GOSUB 200: GOTO 1230 ou want": PRINT "changed in each category and press": PRINT "'Return'. If the information is correct": PRINT "then press 'Return'."; 1580 FOR N = 1 TO F:X = N * 3 + 1:Y = LEN (CN$(N)) + 4: VTAB (X): HTAB (Y): INPUT " ";ANS$:ANS$ = LEFT$ (ANS$,100) 1590 RINT N;".";CN$(N);": ";RE$(I,N): PRINT : NEXT : GOSUB 1550 1540 PRINT D$;"PR#0": POKE 216,0: GOTO 1230 1550 FOR N = 1 TO 80: PRINT "=";: NEXT : PRINT : RETURN 1560 REM CHANGE INFO 1570 GOSUB 200: VTAB (20): PRINT : PRINT "Enter the information that y0) P" ";::"SORTING INTO ORDER.":Y ZL0:M1CO1:X(RE$(M1,I)):Y(RE$(M,I))j dX0Y0140{ nAOXY170 xDOXY170 160 AORE$(M1,I)RE$(M,I)170 DORE$(M1,I)RE$(M,I)170 N1F:RE$RE$(M1,N):RE$(M1,N)RE$(M):"Remember to Save your work ";NAME$;".":(9):"Do you want to save your work? (Yes or":"No):";AN$w\AN$""710f(AN$,1)"N"(AN$,1)"n"380p1400:380z ADD A RECORDCO100ĺ(7);:780COCO1:ICO:220:210y(21):"Enter . Look at all Pages."q:" 4. Save File to disk."::" 5. Return to the Main Menu."::"Please press 1-5:"; A$:A$"5"850A$"4"İ1400:710 A$"1"900*CO0ĺ(7);:7804A$"2"Ĺ216,0:970>A$"3"1330H780gR240:(20F:RE$(I,J):J:I#D$;"CLOSE"A1620: MENU STARTS HEREj240:CO100Ģ(1):(32):"File Full"CO0Ģ(1):(31):"File Empty"(4):"What would you like to do ";NAME$;"?":" 1. Add a Page."::" 2. Search/Order/Change Pages."::" 3your Page set out":NAME$;:"? (Yes or No):";ANS$Zl(ANS$,1)"Y"(ANS$,1)"y"550nv325:1420:710240:(9):"Loading the file ";FILE$;".":325D$;"OPEN";FILE$:D$;"READ";FILE$F:I1F:CN$(I):CO:CO0700I1CO:J1y Name.";$0(1):F0:CO0:I15}:(I3):"Enter Category ";I"'s Name:":"=";CN$(I):CN$(I)(CN$(I),12):CN$(I)""600DCN$(I)"-"I1II1:FF1:570N(I31):I;".";CN$(I);":";41):FF1:XF05503b220:(20):"Is this how you want $;"CAT":8);"Press a key to continue.";:B$:500UFILE$(FILE$,12):A$"2"640 &240:(20):"Please enter the Category Names that":"you want information to be stored under.":"Press'Return' with no name to Finish.":"Enter a '-' to re do a CategorR#6"340(A$"1"A$"2"460IFILE$"Enter File Name":240(8):" Please enter the Name of the File:":(14):5);"Enter a '?' to Catalog the disk."(11):(14):"____________";:(13):" ";FILE$:FILE$""4003FILE$"?"ė:325:Dnior Filer file."B:" 3. Finish working with Junior Filer."^:"Please press 1-3:";sA$:A$"3"490:(11):"See you soon ";NAME$;"."::"Press 'Return' to start Junior Filer":"again, or any other key to reboot.":B$::B$(13)ĺD$;"PE$(NAME$,12):NAME$""360TrP((NAME$,1)):P96NAME$(P32)(NAME$,2,12)^|310FILE$"Junior Filer Main Menu":240(6):"What would you like to do ";NAME$;"?":" 1. Make a New Junior Filer file.":" 2. Work with an Old Ju;"PREFIX,D1 ":D$;"PREFIX FILER":5 J START HERE^ TFILE$"Welcome to Junior Filer":240 ^(6):" Hello there ....."::" Who am I working with today?"::" Please tell me your first name."h(13):(14):"____________";:(13):" ";NAME$:NAM(ANS$,1)"Y"(ANS$,1)"y"İ200:1230m "COCO1:MICO:N1F:RE$(M,N)RE$(M1,N):N:M:200:1300 , ERROR ROUTINE 6D$;"CLOSE":(222)5ĺD$;"DELETE";FILE$ @240:(10):"Error #";(222);" occured. Press the 'Esc' key.";:B$:400$ ED$2 :"File :";:Z21(FILE$)2:(Z):FILE$;: "========================================":(19):"----------------------------------------":  REMOVE PAGE 200:(20)::"Are you sure that you want this page":"removed? (Yes or No):";ANS$- ,N):RE$(M,N)RE$:N:L1' :L1906 (7):710K SCREEN ROUTINESc (20):(1):200): (3):(24):"Page# ";I;" of ";CO;" ": 240:J1F:(J31):J;".";CN$(J);":":: J1F:(J31):((CN$(J))5):RE$(I,J);101(RE$(I,J))):::your information for each category";:"and press 'Return'. If no information is";:"to be entered then press 'Return'."I1F:(I31):((CN$(I))4):" ";RE$(CO,I):RE$(CO,I)(RE$(CO,I),100):I1F:RE$(CO,I)""955:930k200:(20)::"Press 'Esc' to return to the File Menu,":"or any other key to enter another page.";:B$:B$(27)710t900 SEARCH PAGES INTROI0:220:(20):" Press 'Return' to move cursor, and:"::" = equals, < less than, > greater than,"::" @ conta"6ANS$"-"RE$(I,N)"":1610<"@ANS$""RE$(I,N)ANS$u"J(X):(Y1):RE$(I,N);101(RE$(I,N)))::200:1230"TD$;"CLOSE":240:(10):"Error #";(222);" occured. Press the 'Esc' key.";:B$:710::! CHANGE INFO!"200:(20)::"Enter the information that you want":"changed in each category and press":"'Return'. If the information is correct":"then press 'Return'.";",N1F:XN31:Y(CN$(N))4:(X):(Y):" ";ANS$:ANS$(ANS$,100) eturn' when printer is ready.";> B$:B$(27)İ200:1230R B$(13)1500 :D$;"PR#1":"File: ";FILE$;67((FILE$)(DTE$)));"Date: ";DTE$ 1550::N1F:N;".";CN$(N);": ";RE$(I,N):::1550 D$;"PR#0":216,0:1230!N180:"=";:CO:CO014607I1CO:J1F:RE$(I,J):J:IZD$;"CLOSE":D$;"LOCK";FILE$:s1620: PRINT ROUT.DTE$""İ200:(20)::" Please enter the Date: _____________";:(24):" ";DTE$:DTE$(DTE$,13):DTE$""1480! 200:(20)::" Press 'R(16384)1281380/FA$:A$"F"A$"f"1340APA$(27)710UZA$(13)1350fd:(7):710pnSAVEx240:(9):"Carefully Saving the file ";FILE$;"."325:D$;"UNLOCK";FILE$D$;"OPEN";FILE$:D$;"WRITE";FILE$F:I1F:CN$(I):p"1480A$(13)1240' II17ICO1120F(7):710W( PRINT ALL2220:I1CO:210:230:(20):(1):"Press: 'Return' to continue...."::9);"'F' to Flick through pages."::9);"'Esc' to cancel.";<A$"F"A$"f"āM1600::XY1230GTHXY1230'1290230:(20):"Press: 'Return' to Continue...."::" 'R' to Remove. 'C' to Change."::" 'P' to Print. 'Esc' to cancel.";A$:A$(27)710A$"R"A$"r"270A$"C"A$"c"1570 A$"P"A$"):CN$(L);" ";A$;" ";SE$;40):I1C`210:X(RE$(I,L)):Y(SE$)]jEQRE$(I,L)SE$1230ptCNY01200~LTHRE$(I,L)SE$1230GTHRE$(I,L)SE$1230CN1290X(SE$):K1(RE$(I,L)):(RE$(I,L),K,X)SE$1230K:1290 LTH090A$(27)7104$A$(13)II1:IFI1=.990R8 SEARCH ROUTINEBA$;:200:(20)::"Please enter what you would like to":"search for and then press 'Return'."LLI:(L31):(X1):" ";SE$:SE$(SE$,25):SE$""970#VI0:220:(1ins, or ^ to put in order.";<EQ0:LTH0:GTH0:CN0:I1`(I31):X(CN$(I))4:(X):A$}A$"^"A$"6"ĺ"^";:30A$"="EQ1:1090A$"<"A$","A$"<":LTH1:1090A$">"A$"."A$">":GTH1:1090A$"@"A$"2"A$"@":CN1:1