' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH 20 LDIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR THIS DISK CONTAINS A HIGH-SPEED OPERATING SYSTEM CALLED DIVERSI-DOS. TO LEGALLY USE DIVERSI-DOS, PLEASE SEND A ONE-TIME FEE OF $30 DIRECTLY TO: DSR, INC. 5848 CRAMPTON CT. ROCKFORD, IL 61111 815 877-1343 (VISA/MC) YOU WILL RECEIVE A UTILITY DISK, DOCUMENTATION, AND A VALIDATION STICKER AS PROOF OF PAYMENT. YOUR HONESTY WILL ALLOW DSR TO DISTRIBUTE FUTURE PROGRAMS THIS SAME, LOW-COST WAY. <> Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-p  Ơ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L ` `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`ŠĠΠϠŠŠĠԠԠŠŮŠĠ̠͠٠ĠԮҠ٠Ŭ̠Ġ̠ŠĮŠĠΠĠ͠٠ĠĠҠԠ٠ĠΠԠΠŠӮŠΠΠĠɠ̠ŠՠǠϠԬŠĮŠĠΠĠ٠Į٠ĠԠϠŠŠĠΠϠԮΠĠΠŠϠŠҠĠĬϠӠǠ٠ſ̠Ġ̠Ġ٠Š٬Ԡ٠Š٠ٮ̠ŠϠǠĠנŮ٠ĠԠŠҠӮŠŠӠŠƠĮŠƠӠŠƠӠĠŠӠŠŠȠҮ٠ŠԠΠŠԮ٠Ş̌ӠĠĠĠϠˮ٠Ġ̠٠Ġ̠Ԯ٠ŠŠǠŠ٠Š٠ĠĠ٠ٮ٠̠Ӡ٠ĬԠ̠ĠҠԠŠĠĠĠӠΠŠȮΠ٠ĠϠנŠ̠ƠӠ٠ĠԠŠӠĠΠͮ٠נ٠ŠϠ̠ͮΠҠҠˠ͠РϠŠԮŠԠŠҠͮŠӠ٠ĮŠĠĠԠͮ٠ĠϠŠҠŠƠŠŮ٠ŠϠҮ٠ĠŠҠĠנ̮Į̠ĠԠŠӠϠРΠŠȮ̠ĠҠŠΠϠРĠӠӠ٠Į٠Ġ٠ŠǠŠĠčŠͮ٠ĠŠͮ٠ĠǠŠŠƠŠŮ٠ĠΠŠȠҠŠ٠ĠԠˠРŠӮŠԠ٠٠ŠȠΠ̠ŠƠĮҠҠˠ͠ˠϠŠԮԍԠŠΠԠŠΠϠŠԠήӠŠ٠ԠϠΠҠϠŠԮŠĠŠҠϠԠ̠٠ĠŠӠŮҠҠӠ٠ϠŠͮҠҠӠٮΠŠΠԠϠĬŠҠĠŠҠ٠̠ŠŠϠŠŠӠԠŠĠǠŠȮŠΠĠҠ٠šΠŠΠŠР٠ĠŠōӠǠΠŠȮΠ٠ŠРԠӠˮ̠ΠϠ٠Š٠ŠŠΠŠԮ̠ĠҠԠϠŠĮŠĠҠԠΠŠΠӠԍ̠ĠŠӠӠ٠ԮҠҠԠŠҠͮŠĠ͠ϠԠŠŠԠϠŠԠϠԠĮΠ٠ŠĠЮ250 G$SW$251% :G$SW$240m 3086:(4);"BLOAD HG";G$;",A30600"::36352,136:36353,119:36400 :G$"41"202 Q$(63)II2 SW$G$ EX4G$SW$II1:300 EX2260 ST((TXT$,40,1))128:TXT$(TXT$,39) T$""( G$(T$(I),2):TXT$(T$(I),40)4 EXEX2H G$"35"GAME1b G$"35"GAME1ī450s G$"DT"400 G$"XX"200 PA12000 PA (G$,1)"X"ĉ::"THE END": 210 L15000 L G$"XX":200 G$SW$EX4ҠϠŠΠĠĠĠϠנ̠ԠŠΠӠǠȮӠŠȠĠҬ̠ĠҠϠŠΠĠԠŠҮŠȠӠĮAVAILABLE":::"ENTER YOUR CHOICE (1-2) ";:Q$:Q$K @Q$"1"XX$"0":40c AQ$"2"XX$"1":40l B310{ JXX$Q$:40 TTP$TL$ U(4);"OPEN PARFILE,L5,D1":(4);"WRITE PARFILE,R";1 ^PN$ _TL$ `TP$ aXX$ h(4);"CLOSE PARFILE";:Q$:Q$ Q$"1"300" :- I09C A$:I;". ";A$:J IP  ::"ENTER YOUR CHOICE (0-9) ";::"PRESS RETURN";::36,24:"";I I0I9230 "TL$(I):40 ,Q$"2"403 6:"1. GAME IS NOT AVAILABLE"::"2. GAME IS 3","TEXT LEVEL 3 AND YOUR TEXT"> n "TEXT LEVELS 1,2 AND 3"m xXX$"0"ĺ"2. GAME IS NOT AVAILABLE":140 "2. GAME IS AVAILABLE" ::"IS THIS CORRECT? (Y/N)";:Q$:Q$:Q$"Y"340 Q$"N"140 :"ENTER ITEM YOU WISH TO CHANGE (1-2) " (:"THE PARAMETERS ARE NOW SET FOR:":4 FI09S PA$:TL$(I)ĺ"1. ";A$:Z ZI` [ d "NO TEXT", "TEXT LEVEL 1 ONLY", "TEXT LEVEL 2 ONLY","TEXT LEVEL 3 ONLY ","YOUR TEXT","ALL TEXT LEVELS AVAILABLE","TEXT LEVELS 1 AND 2","TEXT LEVELS 2 AND (4);"OPEN PARFILE,L5,D1"=(4);"READ PARFILE,R";0EX$_(4);"CLOSE PARFILE"X$"XXXX"ĺ(4);"RUN INTRO,D1" 216,0::(4);"OPEN PARFILE,L5,D1"(4);"READ PARFILE,R";1PN$,TL$,TP$,XX$(4);"CLOSE PARFILE") ȬנΠɠԠŬԠӠϠ̿ĠĬĠŠȬŠǠӠǠȠԠΠɠĠԠήŠȠĠ̠ϠŠΠĠŠƠԠӠԠȠϠŮ̠נԠŠĠȠӠǍϠŠŠҠĠŠҠϮ̠ĠŠǠŠҠҠŠǠĠ̠Šخ̠ĠӠŠӠĮŠנŠԠ٠ϠŠ̮ΠŠŠӠ٠ԬŠȠĠ̠ϠŠĠȠŠӮŠȠŠ̠ˠ̠٬ԠŠҠŠϠԮŠǠŠĠ̠Ԡ٠ӠϠŠ̠ٮŠŠŠԠŠ̠ˠŠԠƠӠϠΠ̮ҠҠӠŠȠŠ̠Ϡ̠ƠŠӮŠĠϠǠŠҠҠŠǮŠĠϠΠŠǠϠΠ͠РϠŠĠԠ̠ͮĠ̍ננԠŠӠȮŠȠŠ̠ԠĠҠŠŮŠȠŠРΠŠǠҠĮΠ٠ŠЬ̠ӠĠΠŮŠĠΠĠĮנŠӠήŠĠ̠ŠӠΠΠΠĠɠ̠ŠՠǠϠԬŠĮŠĠΠĠ٠ĮŠĠ̠͠٠ĠԮ̠Ġ̠ŠĠҠ٠Ů؍؍؍؍ϠͮŠӠ٠ϠŠͮ٠Ġ͠ŠӠĠĮҠҠĠĮ٠̠Ġ٠ҠҮĬɠˠŠΠĠҠ٠Š͠ŮΠŬ٠ŠϠŠҮ٠ĠŠ٠Į٠ĠҠҠǠĮ٠Π٠ĠĠĠӠΠŠŮ٠ˠ̠٠ĠٮΠ٠ŠϠŠԠŠҠҠĠԠ̠ͮAT A PICTURE":"5. RETURN TO STORY":"6. QUIT"Y e:"ENTER YOUR CHOICE. (1-6) ";:T$a fT$ nT$"1"ĺ(4);"RUN PAR,D1" xT$"2"ĺ(4);"RUN EDIT,D1" T$"3"ĺ(4);"RUN TXTPRINT,D1" T$"4"ĺ(4);"RUN PICPRINT,D1" T$"5"150 T$ (4);"OPEN PARFILE,L5,D1"=(4);"READ PARFILE,R";0EX$_(4);"CLOSE PARFILE"X$"XXXX"ĺ(4);"RUN INTRO,D1" 216,0::0 d:"1. CHANGE PARAMETERS":"2. ENTER OR EDIT YOUR OWN TEXT":"3. PRINT ANY LEVEL OF TEXT":"4. LOOK  ȠĠҠϠŠήŠȠĠҮ̠ĠҠϠŠΠĠԠŠҮŠȠӠĮ̠ĬנŠԠĠҠ٠ŮŠĠ͠ԠŠ٠ŠԠҠҠĠĮ٠̠Ġ٠ҠҮ؍؍؍ǠĮ٠ΠϠͮŠӠ٠ϠŠͮ٠Ġ͍ԠŠȠĠĠ͠ŠӠĠĮŮ٠ĠŠ٠ĮΠ٠ŠϠŠ͠ԠĠϠҠŮΠ٠ŠϠŠǠŠ٠ĠҠҠԠŠҠҠĠԠͮɠˠŠΠĠҠ٠Š͠Ţ̠ĮΠ٠ŠϠŠҮΠ٠ŠϠŠ̠̠Ġ̠ˠ̠ƠŠӍĠĠԠ٠Ġ٠ĠΠҠ٠ŮΠ٠ŠϠŠ̠ĬɠŠĠӠƠӠĠĬŠΠŠ͠ŠϠҠҮŠ̠Š٠Ϡ٠ĠĠŠ̠ԠŠϠĠӍ٠ή̠ΠϠŠŠĠԠ̠Ԯ̠ĬנŠԠĠҠ٠Ů"::"PRESS ANY KEY WHEN READY";:Q$:Q$J Q$(20)ĉ:(4);"RUN ID,D1"e Q$(17)G$"XX":200 (4);"OPEN SIDE,L2,D1" (4);"READ SIDE,R";0 S$ (4);"CLOSE SIDE" S$"2"ĺ(7):140 TP$"0"500 EX0 I1250 TXĮŠĠ͠ԠŠ٠ŠԠҠҠĠĮ٠̠Ġ٠ҠҮŠǠŠ٠ĠҠҠǠĮ٠ΠϠͮŠӠ٠ϠŠͮ٠Ġ͠ԠŠȠĠč͠ŠӠϠŠҮΠ٠ŠϠŠŮ٠ĠŠ٠ĮΠ٠ŠϠŠ͠ԠĠϠҠŮΠ٠ŠϠΠ٠ŠϠŠԠŠҠҠĠԠ̠ͮĬɠˠŠΠĠҠ٠Š͠ŮΠ٠ŠĮŠΠŠ͠ŠϠҠҮ̠Ġ̠ˠ̠ƠŠӍĠĠ٠Ġ٠ĠΠҠ٠Ůh; 216,0:::"ENTER YOUR IDENTIFICATION CODE ";:CO$""FJ13RI112g(ID$:CO$CO$ID$n2I<(CO$,12)"BLYTHEVALLEY"100F:CO$"":"TRY AGAIN":(7):(7)PJZ(4);"RUN INTRO,D1"dX$"XXXX"eID$: x(4);"OPEN ŠŠĠԠ̠ԮנŠԠĠҠ٠Ŭ̠Į̠ĬɠŠĠԠƠӠĠ̠ȮӠŠȠĠҬ̠ĠҠϠŠΠĠԠŠҮŠȠӠĮ̠ΠĬĠŠȬŠǠӠǠȠԠΠɠĠԠήŠȠĠҠϠŠΠĠĠĠϠנ̠ԠŠΠӠǠ̠נŠĠȠӠǠϠŠŠҠĠŠҠϮ̠ĬנΠɠԠŬԠӠϠ̿ĠĠӠŠӠĮŠנŠԠ٠ϠŠ̮ΠŠŠӠ٠ԬŠȠĠ̠Ϡ̠ϠŠΠĠŠƠԠӠԠȠϠŮŠȠŠ̠ˮŠȠŠ̠٠ҠĠΠŠŮŠǠŠȠŠ̠ĠҠŮ̠ɠӠήŠĠ̠ŠӠǠϠŠ͠ԠĠԠ̠ͮĠ̠נŠӠȮŠȠŠ̠ԠĠҠŠŮŠĠΠĠ͠٠ĠŠРΠŠǠҠĮΠŠǠ̠ӠĠΠŮנŤnyY yYPY0HY+@Y  E@PYLإ`myY yYPY0%HYi HY@Y  E@PYL`v}`~ŀ~} `Z^)`0) Q Ɗ`ƊƋ`L_ ^祙mn8=[[`^L^LELLE u H`H)(h e~~}i}) L `h ~8 ~}8}~})٥L u H`H)(h ei) LH `h 8 8)٥Lpv>:(YE L`' $(,048< @ivA' א`ZL1ZL1 ZL10ZL1@Z[[`Z[0H L[i[ e [[܆L,0, Ы`Z[[8CLOSE PARFILE", (4);"RUN STORYPRINT,D1"9 E(222)? ~ "ERROR # ";E;" HAS OCCURRED":"CONSULT YOUR APPLE MANUAL" (4);"CLOSE" P160 TTP$Q$c ^:"HANSEL AND GRETEL":::"LEVEL ";Q$:::"IS THIS CORRECT? (Y/N) ";:Q$:Q$;s rQ$"Y"390 |Q$"N"160 }Q$TP$:350 (4);"OPEN PARFILE,L5,D1" (4);"WRITE PARFILE,R";1 PN$ TL$ TP$ XX$ (4);" Q$"3"340 Q$"4"160- V91606 340< R V6A1:B2:290h V7A2:B3:290y V8A3:B4 "IAB ,I;". TEXT LEVEL ";I: 6I @::"ENTER YOUR CHOICE (";A;"-";B;") ";:Q$ JA(Q$)340 KB(Q$)340 L72 V5172 250# I14? I;". TEXT LEVEL ";I:M V9200_ I3I4:210f I ::"CHOOSE ONE (1-";I1;") ";:Q$:Q$ Q$(20)219 (4);"RUN ID,D1" Q$(17)ė:"END OF PROGRAM": Q$"1"340 Q$"2"340 216,0::4409d(4);"OPEN PARFILE,L5,D1"Vn(4);"READ PARFILE,R";1_xPN$hyTL$qzTP$z{XX$(4);"CLOSE PARFILE"V(TL$):PN(PN$)V5ĺ(4);"RUN STORYPRINT,D1"::"HANSEL AND GRETEL":: V91ni`E H 5L   5L   L  u `H) ``)(`H) !IIްIpY I Ihh`I I u H`vLw Y4Y+-nyY yYY  YE  Lw¥`(Y1Yʐ*myY yYY :  r(Y#YY (YLćӥ   Y#YY  YLć`miL\i !mL\miL\`E H L niL( nL  L   L  yHHHY`Ґ`HPYL y0H@Y<`hh`)@m}I@Y@YL@YL)@n}I@Y@YL@YLH0]HXpY0HyYyY L0HyYyY L0HyYyY }HHHH Й`vL HYHY@YL @YHYHYL HYHYL@YHYHY@Y<HY԰`PYhhL~^PY ިYPYɽBC0Y}8Yi`HLa)IHLa)IH6HH8HY`Ԑ`pY L L LpY̠Ġ̠ĠԠŠŠƠ̠Ġ̠ĠԠŠŠƠz ؍؍؍؍؍؍؍@@ @@ `@@`@p @@ @@ժժ @@@ @@ "READ SIDE,R";0 S$. (4);"CLOSE SIDE"= S$"2"7H 30599N  ::"PICTURE DISPLAY"::"ENTER NUMBER OF PICTURE. (0-47)" "PRESS RETURN AFTER YOU MAKE YOUR CHOICE." ("ENTER CHOICE. ";::"PRESS RETURN";::15:"";I 2@ @ @@ժժ ժՀ`@ @|Gx @@~@ժՊ@|@@ @A@@HH @ P@@ժժ @@ 8@@@`@@ 5::"PLEASE WAIT":::$ KTXT$""B Z(4);"READ T";TP$;",R";IP dR$,G$,L$\ eJ140q fO$:TXT$TXT$O$x gJ hT$(I)G$TXT$ w: yR$"XXX"128 zI (4);"CLOSE T";TP$ : (4);"BLOAD PICDRAW"( :"TURN OVER DISKETTEN 3059916384A 216,0:::(4);"OPEN PARFILE,L5,D1"^(4);"READ PARFILE,R";1sPN$,TL$,TP$,XX$((4);"CLOSE PARFILE")TP$"0"1302T$(250):SW$"X"<I1250A(4);"OPEN T";TP$;",L51,D1"EI1250 F::::12:1 B u H0H`H)`⥚) 恥 悥晩*`@@ @ @ u0`ɒꅙhhLɍhhLxJ&Hɻq`ɠt`K"r`u`ɛɓLIL`JIJ`KIK`J ` qq` `ɻ qqt`u``gg k0 _rI _rI __I_I _ILILILI в`I@ivxAI IA&I IA9I `yBwCLIILLILLILLI`I1w`II挽IאI`JatbtuLK bH)Ƞݠȅb`I)IGebb Ge`GHehebb`H)xxb`I)IGebb Ge`GHehebb`H)<<b`I)I Gebb  Ge` GHehebb`IIpYII`k`i8hjigLii8jig8hL0ighLg8hAHehe`wfFg@h<@ bebLPaivxbebbI1`w`bebbeb?i9j5@ eLe eeL` )`LHHdLdRcL cb i  FeFfLLi DeDfLLi 7EeEfB}CeBc}CcfG G&G&G"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPЀ@ժ @ @ ( $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $ORD# PICTURE# LINE# TEXT LEVEL ";Q$;" CONTINUED"::J (4);"PR#0"S 170Y j (4);"PR#0"| (4);"CLOSE" 60 ,E(222)::(4);"CLOSE" -(4);"PR#0" 6" ERROR #";E;" HAS OCCURRED.":"CONSULT YOUR APPLE MANUAL" @Q @@ xA @D@ @@@@ @ @ @@@@DD @ @ @|Gx @ @@@ @@ @@@@@ @@ժժmv`@ @ @?p@@ ߪժՀ@@ @@ ժ@D@ @@@ @ @ @@*U*U*@@BB @ 0@ @D@ @@@ @@ @@@ @@@ @@`?ժՀ@@ @@@`@@ @@ ժ@D@ @@@`@ @ @@@@ AA @  @`@D@ @@"   " 33333  ?30 ?30038<63?00?0333?3 333333>0 |           |ЂЊܺŪՂѮŀԈ8 HR4HRTHRT8RTHRHRHR8 E"E"EEEEp8ĀĀĀĪ(@( A A( A(@A(ĊЀĠĠĠĊЀĠĀĠĀĀЀ  " "Q("Q("QG"Q"Q"QN`@``` 0 ţţģp8E"E"E"EEEEp8p8E"( @( @(tq@(@(@(Gx pxXX NG"Q("Q("Q("QG"Q"Q"QN`NG"Q( E E =      `q>66"cAGsq@( @( @( @(tq@(@(@(GxGsq@( @"QD"QD"D"D"D"8A@@ @ @` ǂǂ`q<< E E E =      `q`q<< EQ(Q(QhcQ(Q(Q('p@@@`p00р߀рЂЂЂ8D"QD"QD"QD"D"D"D"8A8D"QD    z8  @  @  @@c <8|llDFииԀԀԀgcQ(Q(Q(QhcQ(Q(Q('pgcQ(    @1@ @cyx       z8  @  @  @@c <@cyx    CKCAAAA3AAAAAA1BBBACCHJH2d,+Hfu3\~!mCQ=CjOS?f`J_c@E>I^c`@kpv|rl}xü     'shpxm`hpxp`h)h?x4 *WWW9uMMMMC99aa  *?Ti(P< BJ+Hfu3\~!mCQ     !!!!"""####$$$%%%%&&&''''qLr0 h?8埝Y`heY`BC0Y}8Yi`@ivxAw`挢PY 6`` PY0]HY@Y   PY)@PY>PY HY@Y y 0# PYY @ PYYPY Д` HYHYL HYHY@YY  (Y(YLYeYӐ(YLY y  (Y ŇЦ`  ZI1wZI1w`  w +ZZک`)w`y) ˩`yĭ~^`~^`H)q0 h?8埝Y`heY`h`H)0Q4Q8`t3t+ Y8#YmiY Y LץuAu9(Y-*i Ѱ!Ym)YniY(YL` YJYY  Y YLY僝Y YLY vy 0  Y ŇЧv (YKY` 2$  $(4 ' v  ivLL   Qi<`} h~ h# h% hvQ `Q Q ` HJJJJQ h)Q `Q Q$Q(Q,Q`zL朥!L Ɓ L{zL {L{L{Lq0 mŕmLmňm0ij LĴȄm{ 6i zLIJ}CB H`)H` zװ z损h@ivaAe `%`pdd e J qJK  r`J` ` ``vL [ƅ) L Lz 来!LZ Ƃ L|La |Lz |Lz |Lz r0 nŗ nLz nŖnn| 6 * IYƄ' .$  挠 y}^ HH0HL 0HL. L. L. HHEL^^^^^^^^vd{tuqr}~|z`JK`HH) HLf HJJJJLx HinHH`)`)H H HhhLf @)HHxHhHHYHL ) `H) I IL HL #nmi0HL HH HL xHHYHL HT F 8  ^L`yyH0š pY  yy` 8``8`8 `   e 0HeHHH`HHLQ L7 H HH L7 0HZH HH HH)L7 HLf L] X  `  . s t 0   s  . < s   . , 0 ?ƞL$L I)y GY`  [|L}Ġ٠ҮíΠӠšL}' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBXT$"" R$,G$,L$ J1407 TT$:TXT$TXT$TT$> JP (4);"CLOSE"Y ::j (4);"PR#1"| R$"XXX"250 LF$G$ĺ::LF$G$:LNLN2 " ";R$;" ";G$;" ";L$;" ";TXT$ II19 LNLN1:LN55LN3:(12):"REC::"ENTER CHOICE (1-2) ";:YN$:YN$. zLN3? YN$"1"161O YN$"2"60X 120` I1s (4);"PR#1": "RECORD# PICTURE# LINE# TEXT LEVEL ";Q$ (4);"PR#0" : (4);"OPEN T";Q$;",L51,D1" (4);"READ T";Q$;",R";I T:"5. QUIT":::"ENTER YOUR CHOICE. (1-5) ";:Q$:Q$Q PQ(Q$):Q49Q5460} Z:"IS THIS CORRECT? (Y/N) ";:YN$:YN$ dYN$"N"60 nYN$"Y"90 oQ$"5"ĺ(4);"RUN MENU,D1"% x:"MAKE SURE PRINTER IS READY"::"1. PRINT"::"2. QUIT":"6"150 1000 (4);"OPEN PARFILE,L5,D1"> X$" "\ (4);"WRITE PARFILE,R";0d X$~ (4);"CLOSE PARFILE" T$"5"ĺ(4);"RUN INTRO,D1" :"END OF PROGRAMS": "                                                                YY g湭: 808`OR!!!!!!!!!R! !!!!!!!!!!! =====     YURP8 xgޕޕ((#vC˕˕!!U!Ld!ޔהhpxMp`h)h?xyG`hpxP`hpxMp`h)h?x4 *WWWMsMMMMC99aa4 *WWWMsMMMMC99aa4 *WWWMsMMMMC99aa4 *WWWMsMMMMC99aa4 *WWWMsMMMMC99aaĀ 0@0H`   yG`hpxP`hpxMp`h)h?xyG`hpxP`hpxMp`h)h?xyG`hpxP`hpxMp`h)h?xyG`hpxP` 05@0PP<<ЀЀ```` 0000@@@@ĀĀcDRmRURUNUREREREcD}}}DC))w (08paP*P*|**Np|ՊՊ΃pȂՊՊ H<=<<gAp8@ T*T*gB@!@*@*@s!|BՂՂ!|ҀՂՂgB( @@ @ |NpU U ՀC@ @@@`@`ph``8 @`@@@@@@`(@@s!|B U U2Ъ@a@a0xpPP@44T?T*ET:X>Up?@,,l?,uJ,} 8}J`@,,?ʁʁ`@*p` ݁ԪЪɌԪ00 ``ઃ PmMuU*1U.AV/5|`pkK{+]2+_B._2x`pkKݲ߲x`p@|@ժԪժ  `ЪЪ@T@  s } U* U+@u+ x@``r`~`*W `jW@kW ~8@r׌א׌~8P ` ``ժCCa?p`Ԋ֚Ԋ֚  0hh((U (u 0}*`0XXXXjXzpz@0XXꕃ@T@кպՒՊ`0`0@8Ղ@ՆՂ@Ն@(( Zj*Ub*],_jx@` VvV:eV>\>ep?@` Vֺ־ܾp@`xКаծdՂ  @?0 (@6@f@z@*U@*W kW~p8@5@e@}@U.@U/!W/|p8@5@e@@ծ@կׯ|p8 @@@@Ԇ@@՛ի<`, w_ _IL_0Ja0 `bhh`L_`ks`P P9P~P*Pj`zU@<`0 0900U+0u+`u+`0 000ի0`(Ձ00Ъ1[ @U A*P@ TA@$A@(P A P@ A@((@"U (@* _ i "RUNHANSEL AND GRETEL"=B2B2B2BBBBBBBBBBB2rV66666666666666""""2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2B2BrRRRRRBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBRFFFVFFFFFFFFFFFB2B2B2B2B2B2B2B2B2B2B2B2B2B2B22222bbbb2222222222222222222222222222222222222222222222222222222222222222222222222222222""B2B2B2B2B2B2B26666fff6f6f6&&&&666ffFFFFFFFFFvvVVVVBBBBBBBBBBFFFFVVVVFFFvvFFvvvvFFFFFFFFFFFFFFFFFFFVFFBBBBBBBBBBrrrrrOOOOOOOOOOOOOOOOFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFOOOOOOOOOOOOOOOOOOOO`9@`0P*P*p @ЪЪ@` `9@OOOOOOOOOOOOOOOOOOOODDDDDDDDDDDDDDDDDDDDDDDDDDD8x T T `ԊԊx`8@8x<zxxN8000008*`ЈЪЪp @0(U(UI0I47ī10/ <I$(I):I$"00"I$:I$(I$,2) F(4);"BLOAD PICDRAW":(4);"BLOAD HG";I$;",A30600"::36352,136:36353,119:36400 O:22:"PICTURE # ";I;".": P"SEE ANOTHER? (Y) RETURN TO MENU. (N)";:Q$:Q$ ZQ$"Y"10 dQ$"N"79H nN>CUUgBxՂՂ>BxNP@, !@xԊԊ` **@s!@` U U`9@>ՀՀ!@@ЪЪ@>ЪЪ@s!T@ @`P@@p @@P>ՂՂgBx@*@*):L$"XX"(13):TXT$"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"(13)b h(4);"WRITE T4,R";(RN1)j rR$r |G$z L$ TXT$ (4);"CLOSE T4" : R$"000"(RN):R$(R$,3) (4);"WRITE T4,R";0 R$,G$,L$,"XXXXX"(13) (4);"J1RN5 GX$(T$(J),4,2)GX$(T$(J),4,2):L0X LL1:L$"000"(L):L$(L$,2)u R$"000"(J):R$(R$,3) G$(T$(J),4,2) TXT$(T$(J),40) "(4);"WRITE T4,R";J ,R$ 6G$ @L$ JTXT$ TJD ^R$"XXX"(13):G$"XX"(13 I RN3ĺ::424' RN34258 KRN111A SW0J ::x :" ";::"SORTING"::: J1K (T$(J),3)(T$(J1),3)200 X$T$(J):SW1:T$(J)T$(J1):T$(J1)X$:X$"" J SW0230 K GX$"X" (T$(250):RN0. (4);"OPEN T4,L51,D1";I1250`:::12:15:"PLEASE WAIT"::lTXT$""((4);"READ T4,R";I2R$,G$,L$<J140FO$:TXT$TXT$O$PJZR$"999"160d(R$,1)"X"164RNRN1:T$(RN)R$G$TXT$   ! 綐}! 綐 `i:` 9`m  ( (<Bw}}}.an ww=` =(P*ЪP @ @ @@ @@ @@ @ @ (P*ЪP*FTbp`@A'א跖ꮷޗϧӵܮ֮ }}}ɶ}}}~Lګޫڮ۽ժުڭժ֚쟬쟖ߧ٫ӯ͝흹󖖖ִޖ봛ߚηڝݚښӼݵ뻻ݵݵ뵵޵߶ھ뮷ޭݷ۷׿߭ݵݵݵݵ߫֫췠詷 xzyYyyay` X hy :hh yLxx`޷ڶݯժժ֫֫߷߫֫ݵ֫ݵ֫뫮֫뻵ՠŠȠŠ̠įŠįŠŠŠΠ 2222ZZZ  AP6Hf*Ԡͮ yz xLy ߼詷 ,R,Q X lxɍ ɱɹɸL8x x syxP]ghxSyikmZyjln eLע8yByx轖x `ΠOOOOOOBBBBBBBBRBRBRBRBRBRrOOOOOOOOO?????????222b2b2b2b2b2br??????22222OOOOOOBBBBBBBBRBRBRBRBRBRrOOOOOOOOO?????????222b2b2b2b2b2br??????22222BBBbbbB2B2B2B2B2B2222222222222222222222r222222"""""222222bbbbbbbbb22222222222222"""2"2222222bbb2b2b22222b2222222222222222222222222222B2B2B2B2B66666666666666666666666666666222rrrrrCS MAGICIAN"I :37,21:36,0:"COPYRIGHT 1985 BLYTHE VALLEY SOFTWARE" 1:7::"*";:33:"*";::9:"KRACKED BY MR. KRAC-MAN" 37,22:36,2:"A DIVISION OF R. CRANDALL COMPANY" PAUSE17000:PAUSE  D$;"RUN TEXTCHOOSE" FN D G R E T E L":::37,11:36,4:"C O M P U T E R V E R S I O N":37,13:36,17:"B Y" "SUSAN CRANDALL AND THOMAS E. HALLIDAY"::" GRAPHICS BY RICHARD CRANDALL" :37,18:36,9:"GRAPHICS CREATED WITH ":37,19:36,1:"PENGUIN SOFTWARE'S GRAPHI *** INTRO 30599,::D$(4)2=3086Pd DISPLAY LOGOjs(4);"BLOAD PICDRAW"pwx(4);"BLOAD BV LOGO,A30600"36352,136:36353,11936400PAUSE13000:PAUSES :::8:4:"H A N S E L A N D G    20,21,22,23,24,25,26,27,28,29,30,28,29,31,32,33,34,35,36,17,37,38,39,2,40,41,,2080cI1145nT$(I)vP$} I $z #??   Ԡ̠ Ҡ֠ϠŠԠԠ ԠϠ ԱԲ"ԠԠŠĠՠƠ ̠Ġ̠נ Գ(Š!ĠԴw??K?qqqqqqqq6=AFKNTVXWU~RuQnNgK]FQDJEBH?LZZ]cgiqqnqqk|fqca`]ZMDL?Hm0M='+l> /+l   d]@ŵLҦ]]LF L}BB@A j )  __ w_  _L5LL XPRW  > v   qZZy^ yy^HP[0H[HHP\I\HH`H% HHâ Y(YPYpYvY<Y<<Y<``@` `,,PLТPY `(Y0 Y&" ~Y@PY(Y1 L* Y, Y" ~Y@PY Y L*ćЕ`HYi8 `@Y8i`hh [z   ?&&&2< &7woi(13 N3`Є(13 ư͍͍ C >Zp!|!!||~ %|%1.|777@|E|Q|I|IV|Ve|ee|Vek|kyy|k|ky}|||||͖|ϖۖ|ߖ얀||߉쉀}{||`FDC;5>2B0F/R E T E L":::37,11:36,4:"C O M P U T E R V E R S I O N":37,13:36,17:"B Y" "SUSAN CRANDALL AND THOMAS E. HALLIDAY"::" GRAPHICS BY RICHARD CRANDALL" :37,18:36,9:"GRAPHICS CREATED WITH ":37,19:36,1:"PENGUIN SOFTWARE'S GRAPHI̠ӠĬԠŠĠΠԠԠŠĠԠӠΠŠԮŠԠǠҠҠˠ͠ϠŠԮԠĠϠŠŮ̠Ġ̠ĠԠРŠ٠ŠϠٮ٠ĠҠҠӠǮ̠ĮŠҠĬŠΠԠϠ٠ҠŠ̠̠Ůנՠ̠Š͠ϠŠԠĠŠͬŠĮҠҠӠ٠ĮŠנԍ٠ĠȠҠҬĠҠҮҠҠӠҮ٠Š٠Ү٠ĠԠŠ٠Ϡ٠Į؍؍؍̠Ġ̠ĠԠŠŠƠŠԮ                @@@``@`pppp``xx||||xx``|~~~???~~~|`???@  ( $@h`+'bH"(@ "h `o ސdmiei mponȌojikn j*.k.j.iLE8jl.k8nklk8nj.i8nihJqLr oLHmi) of -llL-kkhɀ M lLɀ M ko hihL` *LHmh*l wLekL/e 8ei8fgjk80L;ig iȩLLjiLё` qȹragbfch h mp mimiHiih8h mimhihih mimiiih8 o8jp*0jLȌfj0LjjjjL.Ȉ*L6g*lJ*m,lPnik wnLki(Lkmdei pjfjHnhjl wLfkeikmLk8Lkmdei p**ʐLgJJmddeeeh) mee`fg 8 Ȱiij` ސdmiei pjjjLfj``pMl)pk) ol 9f p`` qȹragbfch hh Fhi h F`gfhJqLr        U*U**U*Uժժժ3fL̙L3f̙"DĈD"Ĉ"DĈ"Dɤ$I$wn];ݻ];wnݻn];wݻ;wn]ݩeh)8 .e .edh)Jbca L-ɠcba :L- qL- iiLZii`@@           p)ȱȱL:   `hL-))  A`_ ALZ@ h ALZ`ȱ` A ALZ aȱbȱc48bbaabmbama8cmcɀ     ؍::"PLEASE TURN OVER DISKETTE"::"PRESS ANY KEY WHEN READY ";:Q$:Q$d x(4);"OPEN SIDE,L2,D1"~ (4);"READ SIDE,R";0 S$ (4);"CLOSE SIDE" S$"1"ĺ(7):110 (4);"RUN MENU,D1" I؍؍؍؍CLOSE" :& (4);"RUN MENU,D1"̠ĬנΠɠԠŬԠӠϠ̿ĠĬĠŠȬŠǠӠǠȠԠΠɠĠԠήŠҠŮŠŠӠ٠ԮŠȠĠ̠Ϡ̠ϠŠή̠נŠĠȠӠǠϠŠŠҠĠŠҠϮŠӠǠϠŠ̠ԠĠԠͮŠȠŠ̠ԠĠҠŠŮŠȠŠ̠ˮŠǠŠȠŠ̠ĠŠĠΠĠ٠ĮŠĠ̠͠٠ĠԮΠŠǠ̠ӠĠΠŮŠĠΠӠȮȢϠӠǠ٠ſ٠ĠҠԠ٠ŠԠĠٮŠάήɠ̠ŠՠǠϠԬŠĮԍ٠Ġ̠٠ĠԮ٠ŠϠŮԠӠŠƠĮŠƠӠŠƠӮ٠ΠϠŠŠĠΠϠԮΠĠΠŠϠŠҠĠĬŠӠ٠ĮŠԠ̠ͮӠĮ̠ĠҠŠĠĠĠӠΠŠȬԠӠĠΠŠӮ٠ŠԠΠŠԮ̠ĠĠӠΠŠȮ٠ĠŠҠĠנ̮ҠҠˠ͠ϠŠԮŠԠŠҠͮҠҠˠ͠ˠϠŠԮ٠Ġ٠ŠǠŠĠčŠͮ٠ĠǠŠŠƠŠŮҠҠӠٮŠҠĠŠҠԠ٠ԠŠΠˠϠŠԮŠԠ٠٠ŠȠΠ̠ŠƠĮ٠ŠŠΠŠԮΠŠΠŠР٠ĠŠŠӠΠŠȮ٠ĠŠӠŮҠҠӠ٠ϠŠͮΠŠǠҠҠˠ͠ϠŠԮҠҠԠŠĠԠ͠ΠŠԮ̠ΠϠٮٮŠΠԠĠͮҠҠӠ٠ĮŠנԠĠϠŠŮԠԠ̠ĠԠӠΠŠԮ٠ĠȠҠҬĠҠҮҠҠӠҮ٠Š٠ҮҠҠĬ٠ԠŠΠ؍؍؍̠Ġ̠ĠԠŠŠƠŠԮ     ΠϠŠŠĠΠϠԮΠĠΠŠϠŠҠĠĬϠӠǠ٠ſ٠ĠҠ٠ŠԠĠٮ٠ŠϠǠĠנŮ٠ĠԠŠҠӮŠŠӠŠƠĮŠƠӠŠƠӠĠŠӠŠŠȠҮ̠ƠӠ٠ĠԠŠӠĠΠͮ٠ŠԠΠŠԮ٠ĠϠˮ٠Ġ̠٠Ġ̠ԮŠӠ٠ĮŠĠĠԠ̠ͮӠĮ̠ĠҠԠŠĠĠĠӠΠŠȮΠ٠ĠϠנŠ٠ĠŠҠĠנ̮Π٠ŠϠ̠ͮάҠҠˠ͠РϠŠԮŠԠŠҠͮȍ̠ĠӠƠĠӠ٠ĠǮ٠ĠϠŠҠŠƠŠŮ٠ŠϠҮŠͮ٠ĠŠͮ٠ĠǠŠŠƠŠŮ٠ĠΠŠȠҠŠ٠ĮŠԠ٠٠ŠȠΠ̠ŠƠĮҠҠˠ͠ˠϠŠԮ٠Ġ٠ŠǠŠĠč٠ĠŠӠŮҠҠӠ٠ϠŠͮҠҠӠٮŠҠĠŠҠԠ٠ԠŠΠˠϠŠԮΠŠԮ̠ΠϠٮ٠ŠŠΠŠԮΠŠΠŠР٠ĠŠŠӠǠΠŠȮΠŠԮŠԠǠҠҠˠ͠ϠŠԮ̠ĠŠӠӠ٠ԮҠҠԠŠĠԠ͠٠Š٠ٮ٠ĠҠҠӠǮ̠Į̠ӠĬԠŠĠήԠԠŠĠԠӠŠҠĬŠΠԠϠ٠ҠŠ̠̠ŮҠҠӠ٠ĮŠנԍԠĠϠŠŮ̠Ġ̠ĠԠЮ٠ĠȠҠҬĠҠҮҠҠӠҮ٠Š٠Ү٠ĠԠŠ٠Ϡ٠Į؍؍؍؍̠Ġ̠ĠԠŠŠƠŠԮ          :36352,136:36353,119:36400223:40:Q$:Q$MQ$(20)G$"TP":600h&Q$(17)G$"XX":2000Q$(47)Q$(63)II2:I0500DING$"XX":200 X::"1. DISPLAY MENU"::"2. RETURN TO STORY"::"3. QUIT":::"ENTER CHOICE (1-PARFILE,L5,D1", (4);"WRITE PARFILE,R";04 X$N (4);"CLOSE PARFILE"f (4);"RUN MENU,D1" CS MAGICIAN"I :37,21:36,0:"COPYRIGHT 1983 BLYTHE VALLEY SOFTWARE" 37,22:36,2:"A DIVISION OF R. CRANDALL COMPANY"::37,23:36,9:"OAKHURST, CALIFORNIA" PAUSE17000:PAUSE  D$;"RUN TEXTCHOOSE" ؍؍؍̠ϠԮŠҧӠ̮؍؍؍؍ r(4);"RUN MENU,D1" 3) ";:Q$:Q$(bQ$"2"đ:G$"TP"510GcQ$"2"II1:SW$"X":340`lQ$"3"G$"XX":200qvQ$"1"600:"TURN OVER DISKETTE AND PRESS ANY KEY. ";:Q$:Q$:(4);"RUN ID,D1"L 0,1,2,3,1,4,5,6,7,8,9,10,2,4,11,12,13,14,15,16,17,18,19,9,5,$:"ERROR # ";E;" HAS OCCURRED":"CONSULT YOUR APPLE MANUAL"P.(4);"CLOSE"d/SW5E254630j8 (4);"OPEN T4,L51,D1"9R$"000"(NG):R$(R$,3)R(4);"WRITE T4,R";0lR$,G$,L$,"XXX"(13)~(4);"CLOSE":(4);"RUN SORT,D1"E(222):E254SW150E254SW2Q$"N":80SW3E254490SW4E254500> mQ$"3"ĺ(4);"RUN MENU,D1"@nQ$"2"ĺ(4);"RUN EDIT,D1"QoQ$"1"620vSW5::"ENTER RECORD# ";::"AND PRESS RETURN";::36,14:"";RwR0R250630x:"IS THIS CORRECT? (Y/N) ";:Q$:Q$yQ$"Y"49zQ$"N"632{6304,R";0]R$^G$_L$(`TXT$:a(4);"CLOSE"Bb:WcNG(R$):NGNG1cdTXT$""reR$(R$,3)l:"ADD MODE":::"1. ADD NEW LINE"::"2. RETURN TO EDIT MENU"::"3. RETURN TO MAIN MENU":::"ENTER YOUR CHOICE. (1-3) ";:Q$:Q$D PRESS RETURN";::36,17:"";G:G0G47490=N$"2"330FSW4N$"3"ĺ:"ENTER NEW LINE # ";::"AND PRESS RETURN";::36,17:"";L:L1L100500N$"3"330N$"4"ė:I0:280470X(4);"OPEN T4,L51,D1"Y(4);"READ T700Q$"Y"410"NGNG13TXT$"":630s:"ENTER NUMBER OF ITEM YOU WISH TO CORRECT(1-4)";:N$:N$N$"1"ĺ:"ENTER NEW RECORD # ";::"AND PRESS RETURN";::36,19:"";R:330SW3-N$"2"ĺ:"ENTER NEW PIC. # ";::"AN YOU WISH TO DO ANOTHER (Y/N) ";:Q$:Q$9Q$"N"419R$"XXX"(13):G$"XX"(13):L$"XX"(13):TXT$"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"(13)(4);"OPEN T4,L51,D1"(4);"WRITE T4,R";II1R$,G$,L$,TXT$(4);"CLOSE T4"Y"380dQ$"N"TXT$"":620(e330E|R$"000"(R):R$(R$,3)b}G$"000"(G):G$(G$,2)~L$"000"(L):L$(L$,2)IING(4);"OPEN T4,L51,D1"(4);"WRITE T4,R";IIR$G$L$TXT$(4);"CLOSE T4"(:"DO6I76:140@fJ:"1. RECORD # ";R:"2. PICTURE # ";G:"3. LINE# ";L::"4. (TEXT)"::yTTXT$:::::^"IS EVERYTHING CORRECT? (Y/N) ";:Q$:Q$_Q$"N"470`Q$"Y"350c:"DO YOU WISH TO ADD THIS? (Y/N) ";:Q$:Q$:Q$"J039 TXT$TXT$A$(J)$ J2 T$:T$""Q 6:36,0:868:9:868:5 6:TXT$:7:868:8:868:8:36,0:"DOES THIS LOOK OK? (Y/N) ";:Q$ Q$"N"I0:6:36,0:TXT$;:36,0:TXT$"":6:150 Q$"Y"270 "320,A$(I)T$:A$(I); T$(60)190 A$(40)" ", JI39F A$(J)A$(J1):A$(J);M J_ 36,I:6:150r T$(94)230 J40(I1)1 A$(39)" " A$(J)A$(J1) 6:36,J:A$(J); J A$(I)" ":36,I:6:" ";:36,I:150 T$(13)300 I039 T$:I34ĺ(7);:SE11 T$(7)150K T$(8)T$(13)150f T$(13)T$(21)150 T$(21)T$(32)150 T$(94)150 T$(8)170 II1:I0I0 36,I:150 T$(21)180 II1:I39I39 36,I:150"Ģ5:868:7:868:4:70W QQ$"Y"Ģ5:868:" IS THIS CORRECT? (Y/N) ";:Q$::80p YL1L99Q$"N":80 Z:"RECORD# ";R;" PICTURE# ";G;" LINE# ";L: d"ENTER TEXT (ONLY ONE LINE ACROSS SCREEN)" m nI039 xA$(I)" " I 17:"";G::"IS THIS CORRECT (Y/N) ";:Q$:Q$< <Q$"N"50r =Q$"Y"Ģ2:"IS THIS CORRECT? (Y/N) ";:Q$::60 >G0G4750 ESW2 F:"ENTER LINE # ";::"AND PRESS RETURN";::36,14:"";L::"IS THIS CORRECT? (Y/N) ";:Q$:Q$ PQ$"Nl  FP*(4);"OPEN PARFILE,L5,D1"G(4);"READ PARFILE,R";0OX$i(4);"CLOSE PARFILE"X$"XXXX"ĺ(4);"RUN INTRO,D1" 216,0:::A$(40) 1000 6001SW1- 2:"ENTER PICTURE # ";::"AND PRESS RETURN";::36,!! ! ! ! ! !!!!!!!!!$,40):330&E(222):E254SW150AE254SW2Q$"N":80USW3E254490iSW4E254500$:"ERROR # ";E;" HAS OCCURRED":"CONSULT YOUR APPLE MANUAL"%SW5E254635.(4);"CLOSE"8 "CHOOSE ANOTHER(Y/N)";:Q$:Q$:Q$"Y"635;Q$"N"660D620PTXT$""k(4);"OPEN T4,L51,D1"(4);"READ T4,R";QRR$,G$,L$J140O$:TXT$TXT$O$J::(4);"CLOSE":RQR:G(G$):L(L$) TXT$(TXTD# YOU WISH TO EDIT"?|OP$"2"ĺ"RECORD# YOU WISH TO DELETE":"CHOOSE (1-";NG;") ";::"AND PRESS RETURN";::36,15:"";QRQR1QRNG635:"(";QR;") IS THIS CORRECT? (Y/N) ";:Q$:Q$;:Q$"N"660Q$"Y"670650*::::"2. DELETE LINE"::"3. ADD NEW LINE"::"4. RETURN TO MENU":::"ENTER YOUR CHOICE. (1-4) ";:Q$:Q$mQ$"3"ĺ(4);"RUN ADD,D1"nQ$"4"ĺ(4);"RUN MENU,D1"oQ$"1"630pQ$"2"630q620vOP$Q$wSW5{:OP$"1"ĺ"RECORPRESS RETURN";::36,17:"";L:L1L100500<N$"3"330SN$"4"ė:I0:280\470wX(4);"OPEN T4,L51,D1"Y(4);"READ T4,R";0]R$^G$_L$`TXT$a(4);"CLOSE"b:cNG(R$)ml:"EDIT MODE":::"1. EDIT LINE"N$"1"ĺ"ENTER NEW RECORD # ";::"AND PRESS RETURN";::36,19:"";R:330YSW3N$"2"ĺ:"ENTER NEW PIC. # ";::"AND PRESS RETURN";::36,17:"";G:G0G47490N$"2"330SW4,N$"3"ĺ:"ENTER NEW LINE # ";::"AND TXT$(4);"CLOSE T4"L:"DO YOU WISH TO DO ANOTHER (Y/N) ";:Q$:Q$eTXT$"":Q$"N"419m:(4);"CLOSE"::(4);"RUN SORT,D1"620RR1TXT$"":49"ENTER NUMBER OF ITEM YOU WISH TO CORRECT(1-4) ";:N$:N$PRRECT? (Y/N) ";:Q$:Q$'hQ$"N"4708rQ$"Y"350U|R$"000"(R):R$(R$,3)r}G$"000"(G):G$(G$,2)~L$"000"(L):L$(L$,2)IIQR(4);"OPEN T4,L51,D1"TXT$(TXT$,40)(4);"WRITE T4,R";IIR$G$L$76:140@\J:"1. RECORD # ";R:"2. PICTURE # ";G:"3. LINE# ";L::"4. (TEXT)"::TTXT$(TXT$,40):TXT$:::::OP$"1"350UOP$"2"ĺ"DELETE THIS LINE? (Y/N) ";:Q$:Q$:Q$"Y"R999:380VQ$"N"620W341^"IS EVERYTHING CO8:5N 6:TXT$:7:868:8:868:8:36,0:"DOES THIS LOOK OK? (Y/N) ";:Q$^ Q$"Y"320o Q$"N"270 6:36,0:TXT$(TXT$,40):TXT$;:36,0 J039 A$(J)(TXT$,J1,1) J TXT$"":6:140 "320 ,A$(I)T$:A$(I); 6I  36,I:6:150% T$(94)2308 J40(I1)1G A$(39)" "Y A$(J)A$(J1)n 6:36,J:A$(J);u J A$(I)" ":36,I:6:" ";:36,I:150 T$(13)300 J039 TXT$TXT$A$(J) J T$:T$"" 6:36,0:868:9:86 T$(13)T$(21)1504 T$(21)T$(32)150F T$(94)150X T$(8)170k II1:I0I0z 36,I:150 T$(21)180 II1:I39I39 36,I:150 T$(60)190 A$(40)" " JI39 A$(J)A$(J1):A$(J); JCT? (Y/N) ";:Q$::80/ YL1L99Q$"N":80V Z:"PICTURE # ";G;" LINE # ";L: d"ENTER TEXT (ONLY ONE LINE ACROSS SCREEN)" m nI039 xA$(I)" " I I039 T$:I34ĺ(7);:SE1 T$(7)150 T$(8)T$(13)15017:"";G::"IS THIS CORRECT? (Y/N) ";:Q$:Q$= <Q$"N"50s =Q$"Y"Ģ2:"IS THIS CORRECT? (Y/N) ";:Q$::60| ESW2 F:"LINE # ";L::" IS THIS CORRECT? (Y/N) ";:Q$: PQ$"N"Ģ4:868:6:868:3:70 QQ$"Y"Ģ5:868:" IS THIS CORRE  FP*(4);"OPEN PARFILE,L5,D1"G(4);"READ PARFILE,R";0OX$i(4);"CLOSE PARFILE"X$"XXXX"ĺ(4);"RUN INTRO,D1" 216,0:::A$(40) 1000 6001SW1. 2:"ENTER PICTURE # ";::"AND PRESS RETURN";::36,"" " " " " """""""""