L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` OCCURS% ^M1=THE ROLL THAT OCCURS? h THE MAXIMUM TIMES\ rI=MISCELLANEOUS COUNTERu |P$=PRINTER ON (Y/N) A$=THROW-AWAY RESPONSE === === =====================  :  === INTRO === " DD=NUMBER OF DICE( (ALSO, D=LOWEST? POSSIBLE ROLL)W N=NUMBER OF TOSSESk T=TOSS COUNTER R=ROLL OF THE DICE " (R=SUM OF ALL , A() VALUES) 6Z(R)=COUNTER FOR TIMES @ R IS ROLLED JM=MAXIMUM TIMES A ROLL T  x- -1 -------------------7 R =====================m === VARIABLES === === === A()=HIGHEST NUMBER ON EACH DIE B=HIGHEST POSSIBLE ROLL X()=ACTUAL ROLL OF EACH DIE  **** DICE TOSS ****1 REV 1986/7/177P(-------------------i2- -<- A SIMULATION OF -F- THE TOSSING OF -P- DICE -Z- -d- BY -n- BILL HOOPER -     ՕϿӃ™Ղ ⨷ɪ ŐՀՕ ⪪ ɲE Ձ7殮7Ձ8թ 8Հ ՀɎ  ՀՑ ªճՕՕ Օժ 殪榮 ˧ϳϼ ""յՁՀϪɕ!ʪ֫!ՄՀр!!5*Հ5*5Օ!Ձ56ՁՕ  ճՕյ ԽϰժՀ՟ƀΪʒIJ矪ШΟώՀʊՀՕ Ͽ8&Հ8'6ՕՕՕ5ժ5 ՀՕԔչ' ‘յՅՑՕՕ߿חյͫʪܰ榮 ڪ剈 ՅؕՕ Յ  8 88󳳳8ծ榮 9%8& ճճՕՀȀՀ Հŕժ  杻ハוՅ Օ痔"ʊ難 ՅЕ)5*Մ5)5"47ճՕՀ ՁՕ   ܃Հ ՔԁՁ̲д̳ ՑŕՅ # a $Ԁ9&9&Ք8'7ՕՕ66 ՔՕŹ( ՕЁՕՕߟ񀀀ꪮʪ     1,133111,136114,136114,128114,128114,127Z 115,136115,128117,126121,126122,127p191,136:122,127123,128123,134129,134137,130137,101151,101151,131151,131158,135161,135161,133164,133164,135164,135 164,134164,135 MCALLEN SKYLINE Y7:0,0279,0279,1590,1590,0g1:1,14631,14641,14455,14481,146101,140105,140167,140185,140199,142223,144237,144261,144265,142278,1445:107,139-107,13311147,100163,147:193,100175,147I159,108167,147:180,108172,147hP160180:P,148P,158:P23:1:"STRAP IN YOUR AIRCRAFT...IS YOUR FUEL URNER FULL?";:K$K$"N"ĺ"I'LL WAIT FOR YOU...";:K$::165:15 5,56,62,60,62,60,62,60,62,60,223,39j 191,53,53,33,53,37,53,14,44,45,45,45,45,53,14,4,45,53,0,7,0,53,0 :2:0:2:135,94 6:1:130,30 C((1)7):C4C0C5 C:45:R063:R 4170,65:R 125,70160,148:215,70180,148#4,21 9 86,109,57,63,32,28,36,36,36,44,32,36,12,77,50X 54,53,54,54,246,246,54 p CRASH SHAPE 0,45,45,45,45,45,45,228,228,60,62,60,62,45,45,74,45,45,228,0 45,45,173,63,63,63,63,78,105,21,45,45,69,54,54,7,56,63,63 # 39,5 Ք ' -4ǟ: ( 1ԑ߿ŕՕՕՕՕ ՕՕꪪՕՕ &၉)64Յ 4 5"```````瀘 ԀÏЀՀÿÏʪ៟  ͍ !  "Ï Ϗ% $!$!$"% Օ '  % ՁՕ ₂Յ  0      "Ͽ Ͽ &ᙹ)64Ձ 4 4"````````````)+$Յ&!   Ѐ󃿿Ͽ ЏǷ  a`````(+#Յ' % $ $ %"& Օ '  % ՅՕ₂ 1a4+*4+U*+*(*U & )*$(Uݝ͝ (*Ԋ%EUU*(*"* * Հ򢪨   `XN堷󮠠OӰQǠĠŠR蠱S묠Š場UV宠WǠҠHI뮠̠JKLMPQU BϠՠŠԠпCDҧӠ٠ԮEGՀՀ 8``````` ՁА͍ !խՅ" Օŕ" "Յݝ! Հ{   ܍݄݆ Օó݀ ՕՔ̃ Օժ ՕՅ i խִՅՕ̌#$‚!Յ' )ՅЇ Յ &  %܁ & #Օ "憆 Օ ݝ  ՅՀݍՀ݁  7```````/Օ0.0-ՁՅ&Օ#فՕե ݍխ ՅЀǷ  耎" Օ܀!Ձ!Օ!݁ ݀"І憆㛛 Յ̌÷ ªՅԀ Յՠ Յک ̬ յҕa`-1-Օ'Օ#ŠĀ$#"& )Ѐ Ņ %ホ % 𷷷 & #Ձ     $$)% "LF`,K,L󄝨L:=G^GG`HIϠӠĠΠӠS ԠנˠϠT ҠӠŠϠI ӠŠK L NO(*))+`FFH)***iBhH ;F FhFF`H$h FH F VFh`+i,F *i,F*iPII*if*+`$,B F FȭF$20I*`$,B$` W ,G ,G ,G ,G F G 5G6G G` FLF@ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*** &၉)64Յ 4 5"``````` @ 0, ?A?! p@8p?8|x@ C`@B@>0h    l L 瀘 ԀÏЀՀÿÏʪ៟  ͍ !  "Ï Ϗ% $!$!$"% Օ '  % ՁՕ ₂Յ  0      "Ͽ Ͽ &ᙹ)64Ձ 4 4"````````````)+$Յ&!   Ѐ󃿿Ͽ ЏǷ  a`````(+#Յ' % $ $ %"& Օ '  % ՅՕ₂ 1    "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "詷 H` % " L%%MN&M#Mi#%M$Mi&M%M&M` %M&M %M&M`8` KBHBh   Z 8i i4`\\\@@@   KKK#K$K &B A` hA&K&L'K'L A$ %L$K#K$K RB%L#ޭ$Ki %M&M$K`KK% KK!K"KLA&LK'LK% KL!K"K A`8`0)!ȱ`8`K鷭K귭K뷭K췭K"K K!K@" X @ @KK RB A I@KKK F G F GKɛ,QLKȱK A %LK%LK K !K A%LK%LK !K A%LK%LK !K A jB @KK `K GKɛ`hhLC@KB$B% " F` ,R FLG%w g>8$  P P H D` CH @H @Ј@@ @ # $  $( "` @  $fx@ @`  @AO@8b@@ `@@@@@8>HD x@0ix0 ` @  0,`(H"HD|?| x N 2@°@ 8 C$x@`@ pPhH! @P"8W @  `@   Sxd@?? 0???d@@X?P@@` 08@@@8D ?x@<@0@@@!p!"!$ `@@H@@@q@@ p@q(P&pP@@D@.@* + (H ' D , * )((?(@(8   x@0($1 @@A<>`%"` ^@ `@ P0@t@@     p088@||B" ? `!J$!N$x@|kǀ `@@@ @   @0Id xB<>?p(  `:`E@E h& T@T  TxH  ` @@0@A @@A@ AA AB@@@! !?x@` @0 p0  @ @ @  |`  ,@* wّ7`| 0PH@@3`  p   @ "@8 $  Dc0AL4@" C>4 t$$># $@$@$@x@?| @@@ @ @  `   @@` @@@@!  B    a `` @` @`x ?x@?0$D"р ` ?0   lx<(((((((((((((((((((x@))@ `0?D  DD 8& Ab@~HD$@dRNED <D #D 0D 8 DD$$DD$$$ $Ȉ@x@WLt@@0@`@`p@s0I8`2~0@x@`@@@ @   ">!!D !p D@" #D@$ jH$pH$I$$$$@$@$ R$ R$r2 HDx@;x ?   p   p pp.;$< 0 < \@   ?@@0Ǡ0 D8?|~  @ pC @` $  @@x@  0 >PP @   @@@  1 >@  $ X @2@>@ @@  @@@@@ @@"@$@H@x@~@0  ` @BL@0    @  0{ `@@""#""舉"#"#""#"" >""""~ ㈈ǐ'#h"`$h8h$($,,$$.:Ll"~dhj~N<#)Lj>$"~(((f"x""x@8#h##~0~#ÈÉ#NzNzh8XAp A0 Xh1(.xt#(#)È(Ì~"$f""~(H ""#""0   4R R  Ì@ `9 `^pA` @0@B@"@! @D b\$xx@?x b8@@0 @@7@@   @@&@@%@@% |@      $ D  @ X@ G@ 0`    !@!@B@@B@x@! ` BCBxp p0?@ $ $$$` $W$H$@$@$@$ $ $ $ $P $P @$P $H,<4P$ x@`  @0 ~ $$)$)$g?@$$$$  ıˍЍűˍЍȲˍЍîԍˍЍîōˍЍîӍˍЍîˍˍЍîԍˍЍî΍ˍЍî̍ˍЍîβˍЍîōˍЍ ,128,54,96,64,32,64,96,72,32,72,255,43,96,43,32,43,96xHg4 48,32,43,96,40,32,36,128,48,96,48,32,48,96,54,32,48,96,43,32Hl4 40,128,36,96,43,32,48,96,54,32,54,96,48,32,43,128,54,96,64,32Hq4 64,96,72,32,72,255 57,180,1,90,86,90,64,255,57,90,51,255,48,90,43,90,38,90,57,255lG+4 38,90,43,248,51,22,48,68,57,22,64,255GX4 72,96,72,32,72,96,86,32,72,96,64,32,54,128,64,96,64,32,64,96G]4 72,32,64,96,57,32,54,96,48,32,43,96,43,32,48,96,72,32,72,965Hb4 48,32,435,64,90,68,45,64,45,57,180,1,90,57,90,54,135,54,45uF4 57,45,54,45,48,45,43,45,57,180,1,90,54,45,57,45,64,135,64,45F4 64,45,54,45,57,45,64,45,64,45,68,45,68,90,1,158,43,22,43,248F!4 43,22,51,68,64,22,57,255,1,68,43,22,43,248,43,22,51,68,64,22@G&4,90,48,68,51,22,51,45,57,45,57,135,1,45iE4 57,68,51,22,48,90,48,90,48,90,43,68,48,22,51,180,1,90,43,68E4 43,22,43,90,51,68,64,22,43,90,51,68,64,22,86,180,1,68,86,22E 4 86,45,68,45,57,180,48,90,57,45,68,45,64,90,64,90,72,180,76,902F4 64,45,64,47,255,72,64_D3 72,64,54,192,48,64,43,64,40,64,36,255,54,64,48,64,43,192,40,64,48,128,54,255D3 86,22,86,68,86,22,64,90,64,90,57,90,57,90,43,135,51,45,64,68D3 64,22,51,68,64,22,76,90,48,180,57,68,68,22,64,225,1,45,64,68'E3 57,22,51,90,51,90,5128,40,128,36,128,36,255,40,64,43,64,48,128,43,128zC3 40,128,40,255,40,64,40,64,43,192,48,64,54,128,57,255, 64,64,57,64 C3 54,128,86,128,76,128,72,255,72,128,54,128,54,128,54,64,57,64,64,128 D3 64,128,64,128,48,128,40,64,43,64,48,64,54,64,54,128,564,57,64 UB3 54,128,54,128,72,128,86,128,108,128,72,96,86,32,108,128,86,128,72,128B3 54,255,43,96,48,32,54,128,86,128,76,128,72,255,72,64,72,64,43,192B3 48,64,54,128,57,255,64,64,57,64,54,128,54,128,72,128,86,128,108,1281C3 43,64,43,64,43,128,48,192,51,64,57,128,51,128vA;3 48,64,51,64,57,64,64,64,51,192,48,64,43,128,38,64,43,32,48,32,51,128,57,128,64,255A3 72,96,86,32,108,128,86,128,72,128,54,255,43,96,48,32,54,128,86,128 B3 76,128,72,255,72,64,72,64,43,192,48,64,54,128,57,255,64, T,TM:5@2I1PLAY:PT,TM:PITCH,PT:TIME,TM:768:;@2@,3 64,128,64,128,57,128,68,192,64,64,57,128,51,128,51,128,48,128,51,192@13 57,64,64,128,57,128,64,128,68,128,64,255, 1,128,43,128,43,128,43,128 A63 43,192,48,64,51,128,48,128,48,128,48,1(P%(P,0)100)(P%(P,0)10):P%(P,0);:P4?+E10ıB?+1:100:?.POK$"173,048,192,136,208,004,198,001,240,008,202,208,246,166,000,076,000,003,096"?.PK018:768PK,((POK$,PK41,3)):PK?.PITCH0:TIME1:?2:SKIP013020@2I1SKIP:PPHPP%(P,E):WNRP>p+P$>z+TYE1F>+P1NP:P%(P,E)HPTYETYE1X>+P:TYE11200>+SKIP17:PLAY26:C(WNR)2SKIP117:PLAY28>+C(WNR)3SKIP145:PLAY18>+C(WNR)4SKIP261:PLAY27>+13000>+22:A$:"TOTAL";6);C$;(?+P1NP:7P7%(P,E)0P%(P,E)01= +P%(P,0)P%(P,0)P%(P,E):PE=+" * EVENT * ";f= +P1NP:7P5)NAME$(P);:Pp=*+:A$=4+I1E:E$(I);:12)C$;=>+P1NP:8P7(P%(P,I)10):P%(P,I);:P=H+:12)B$:I=R+NP111200=\+HP0:WNR0>f+P1NP:P%(P,E)H:*HP0:2(A2(BIN$):PX10:30G:<(100Y:F(S(P)010400:P(:4:DEC((1)12S(P))4S(P):D1DEC:10100:B1$BIN$:Z(DEC((1)12S(P))4S(P):D2DEC:10100:B2$BIN$:DECD1D2:10100:B3$BIN$G;d("ADD THE FOLLOWING TWO NUMBER INTOA REGULAR DECIMAL NUMBER:":::18)BIN$Y9'::14:"YOUR ANSWER: ";AN$::n9(A2DEC:PX10:30}9 (100:PROB9(:8:DEC((1)122S(P))2(S(P)2):10100:("CONVERT THE FOLLOWING DECIMAL NUMBER INTO A BINARY NUMBER:":::19)DEC 8`'10200!8t'II1:BIN$"":DDEC>8~'D2II1IIII1:10110t8'III101:D2IBIN$BIN$"1":DD2I:101408'BIN$BIN$"0"8'I:8'PROB12:S(P)0PROB28':8:DEC((1)122S(P))2(S(P)2):1010049'"CONVERT THE FOLLOWING BINARYRS HAVE PLACE VALUES OF 1'S, 2'S, 4'S, 8'S, ETC."78'"THUS, THE BINARY NUMBER 1010 EQUALS TEN --ZERO 1'S, PLUS ONE 2, PLUS ZERO 4'S, PLUS ONE 8."7B':"IN THIS EVENT YOU WILL HAVE THREE PROB- LEMS DEALING WITH BINARY NUMBERS."7L'907V'NXT10410100:PROB,P:11000"6'E10:NXT026'P1NP:106$'"BINARY NUMBERS ARE WRITTEN USING ONLY THE DIGITS 0 AND 1, INSTEAD OF THE TEN DIGITS THAT ARE USED IN DECIMAL NUMBERS."27.'"INSTEAD OF HAVING PLACE VALUES OF 1'S, 10'S, 100'S, ETC., BINARY NUMBE:"YOU WIN, ";PL$(P);"!":P%(P,E)P%(P,E)10:9190\5#RNUM(NUM(MAX1))(MAX1):N2R1n5#N21N2MAX5#((1)(S(P)1).4NUMMAX2)N20N2((1)MAX1)5#NUMNUMN2:"I TAKE ";N2;", LEAVING ";NUM:NUM1ĺ:"I WIN!":91905#:91206#((1)1020):MAX((1)43)C4#NUM(NUM(MAX1))(MAX1)190804#:3:"WE'LL BEGIN WITH A STACK OF ";NUM;" PENNIES."::"YOU MAY PICK UP FROM 1 TO ";MAX;" OF THEM.":4#"YOU TAKE HOW MANY? ";N1$:N1(N1$):N11N1MAX912045#NUMNUMN1:NUM1ICK UP AT LEAST ONE PENNY ON EACH TURN, BUT NO MORE THAN THE MAXIMUM WHICH I'LL SPECIFY."3P#:"I'LL GIVE YOU THE ADVANTAGE BY LETTING YOU PICK UP FIRST."3Z#903d#NXT100003n#PROB13:NUM23:MAX33x#S(P)1NUM((1)1020)4#S(P)2NUM";:AN$92 A2(((N1N2N3)N4N5)N6N7N8)N9:PX10:30Q2 100:PROB,P:11000_2(#E9:NXT0o22#P1NP:102<#"IN THIS EVENT YOU AND I WILL TAKE TURNS REMOVING PENNIES FROM A STACK, AND THE ONE WHO PICKS UP THE LAST PENNY LOSES."Z3F#:"YOU MUST P14)"MULTIPLY BY ";N6K1M1M1.59:M:N7((1)5)5::10:17)"ADD ";N7k1M1M1.50:M:S(P)181901N8((1)10)3::10:15)"SUBTRACT ";N81M1M1.4:M:N92::10:14)"MULTIPLY BY ";N91M1M1.3:M2:10:11)"THE ANSWER IS: :10:14)"MULTIPLY BY ";N2Y0M1M1.9:M:N3((1)42)2::10:15)"SUBTRACT ";N30M1M1.83:M:N42::10:15)"DIVIDE BY ";N40M1M1.75:M:N5((1)10)5::10:17)"ADD ";N50M1M1.67:M:S(P)081901N6((1)2)2::10:NSWER."r/h:"BEWARE!! I'LL START OUT SLOWLY, BUT THEN I'LL START SPEEDING UP, SO BE SURE TO PAY ATTENTION!"z/r90/|NXT9000/PROB13:N61:N70:N80:N91:N1((1)7)3::10:9)"START WITH THE NUMBER ";N10M1M1:M:N2((1)32)2:;:M210ĺ"0";. M2..100:PROB,P:11000<.@E8:NXT0H.JM12000X.TP1NP:10/^"IN THIS EVENT I WILL START BY GIVING YOUA NUMBER, AND THEN GIVE YOU A SERIES OF MATHEMATICAL OPERATIONS TO DO, ONE AFTERTHE OTHER. THEN, I'LL ASK YOU FOR THE AM110ĺ"0";|-M1:::" WHAT TIME WILL IT BE IN ";M;" MINUTES?":::"(TYPE HOUR, COMMA, MINUTES, 'RETURN'.)":16368,0-20:18:H$,M$:HH(H$):MM(M$)-HHH2MMM2PX10:50:7190.:"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";H2;","S(P)2)1):M1((1)MOD):M((1)MODMODM1)(S(P)1)a,H((M1M)MOD):H2H1H:M2M1MMODH,M2MODM2M2MOD:H2H21:7110,H212H2H212 -:5:" IF THERE ARE ";MOD;" MINUTES IN AN HOUR,":::11)"AND THE TIME NOW IS"::18)H1;",";:ERTAIN NUMBER OF MINUTES FROM NOW."+"TYPE IN YOUR ANSWER WITH THE HOUR AND MINUTES SEPARATED BY A COMMA--SUCH AS 2,15 OR 12,08."+90+NXT8000+PROB13:MOD50:S(P)1MOD10((1)54)+S(P)2MOD5((1)204)7,H1((1)(8N AN HOUR! (THERE ARE STILL 24 HOURS IN THE DAY, DIVIDED INTO 12-HOUR PERIODS.)"#+v:"IN EACH OF YOUR PROBLEMS, I WILL TELL YOU HOW MANY MINUTES THERE ARE IN AN HOUR, AND WHAT THE PRESENT TIME IS. THEN, I'LL ASK YOU WHAT TIME IT WILL BE A C:50:6280B)j:"SORRY, ";PL$(P);":":" X = ";SQ(X);:Y06280b)t" Y = ";SQ(Y);:Z06280x)~" Z = ";SQ(Z);)100:PROB,P:11000)XE7:NXT0)bP1NP:10Q*l"IN THIS EVENT YOU ARE TO IMAGINE THAT THERE ARE NO LONGER SIXTY MINUTES IXIYIZĺSQ(I);:62001(67II:IXĺ"X"?($IYĺ"Y"M(.IZĺ"Z"T(8I(BX$"0":Y$"0":Z$"0"::18:"VALUE OF X = ? ";X$:Y06240(L"VALUE OF Y = ? ";Y$:Z06240(V"VALUE OF Z = ? ";Z$ )`SQ(X)(X$)SQ(Y)(Y$)SQ(Z)(Z$)PX10_`' 'ȑ`' ȱ ` eiii  @`'`H)Dž h f &f & fi ` `,P,R,T,W H hS]lLLޔLL) L\ i(ii  `,U W,T`  ` ȥ (`` H̔8  h` H8 h (7)AC:SQ(8)ABC:SQ(9)AB-'X0:Y0:Z0L'X((1)9)1:S(P)06140h'Y((1)9)1:YX6110y'S(P)16140'Z((1)9)1:ZYZX6130':II0'I19:25((I1)3):IIII1:II4II1(67II(SQ(I)0)(SQ(I)9)(SQ(I)9):IҍˍЍ΍ˍЍıˍЍűˍЍȲˍЍîԍˍЍîōˍЍîӍˍЍîˍˍЍîԍˍЍî΍ˍЍî̍ˍЍîβˍЍîōˍЍI `ayLqHɵrims`aiȱȄ詷 ,詷 `iHhLꢩLҦ& ` `(0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ`  `(0 Z`нй`)JJ & & f)`  (0 Z` H  ` ` ` `h$``ɀ  ARD 2353 S. 8TH ST.. OMAHA, NE 68108P6384,128:A$::"PICTURE "N::"NAME : "A$(N,0):"DELAY (P/K) : "A$(N,1):"TRANSITION (1-9) : "A$(N,2) ("SPEED (1-255) : "A$(N,3):"PACKED (U/P) : "A$(N,4):"DRIVE (1/0)~A$"Q"Ĺ22816,14:22817,48:::31030OE(222):E0E152020Y2030:768:" ERROR IN LINE "(218)(219)25616384,128:A$:1030166,222,189,96,210,72,32,92,219,232,104,16,245,96 H. R. P. L.  PAUL PRITCH:" QUIT"G.:6:3:"V"::3:"L"::3:"S"::3:"A"::3:"E"8:3:"P"::3:"Q":::" CURRENT FILE : ";::F$::" RECORDS : "RB20:A$"V"İ100LA$"L"İ300VA$"S"İ400`A$"E"İ700jA$"A"İ600tA$"P"İ80AR";::2039,4:34,2:35,23X:4:1:"COMMANDS:"::" VIEW CURRENT PICTURE FILE"z:" LOAD A PICTURE FILE":" SAVE A PICTURE FILE"::" ADD TO CURRENT PICTURE FILE"::" EDIT CURRENT FILE"$:" PRINT CURRENT FILE":F$"UNNAMED":D$(4):UN24576:D$"BRUNTRANSITIONS.AMP":D$"BLOAD PACK/UNPACK"fA$"SLIDE SHOW":310X114:A:767X,A::22816,234:22817,234:20001::"PICTURE DISPLAYER.......................":24:".......................BY PAUL PRITCHLY "R" RECORDS IN FILE":50::725/N1725=500:725c:"PICTURE NAME? ";A$:A$""705A1R:A$(A,0)A$İ500:745::A$" NOT IN FILE":50:745 :N1R:30:N2(N2)İ20:*:N2(N2)İ204M37888:::A$(50,5):00:FRN1:bRR1:600&Rı:"SELECT BY P) PICTURE NUMBER":13:"N) NAME":(37)1:11:A$:A$:A$"P"A$"N"A$(13)705A$(13)ıA$"P"725A$"N"745:"PICTURE NUMBER? ";A$:A$""705"N(A$):NRĺ:"ON(37):540E &9:20:"";A$(N,3):Z(A$(N,3)):Z1Z255Ģ(37):550 010:20:"";A$(N,4):A$(N,4)(A$(N,4),1):A$(N,4)"P"A$(N,4)"U"Ģ(37):560 :11:20:"";A$(N,5):A$(N,5)(A$(N,5),1):A$(N,5)"1"A$(N,5)"2"Ģ(37):570 D XNR1:5$(Z,4):A$(Z,5)::D$"CLOSE":( :F0U 30:6:20:"";A$(N,0):A$(N,0)""F1:~ (A$(N,0))26A$(N,0)(A$(N,0),26) 7:20:"";A$(N,1):A$(N,1)(A$(N,1),1):A$(N,1)"K"A$(N,1)"P"Ģ(37):530 8:20:"";A$(N,2):Z(A$(N,2)):Z1Z9Ģ(Z,0),A$(Z,1),A$(Z,2),A$(Z,3),A$(Z,4),A$(Z,5):@ TD$"CLOSE":J Rı} ::"PICTURE FILE NAME TO SAVE? ";A$:A$""ı F$A$:A$A$".PICFILE":D$"OPEN"A$:D$"DELETE"A$:D$"OPEN"A$:D$"WRITE"A$:R:Z1R:A$(Z,0):A$(Z,1):A$(Z,2):A$(Z,3) A1:60:NN1& A$(N,1)"P"İ210:160. 20@ :16303,0:V 16384,128:A$:k (16287)127ı (16286)127ı 210 ,::"PICTURE FILE TO LOAD? ";A$:A$""ı 6F$A$:A$A$".PICFILE" @D$"OPEN"A$:D$"READ"A$:R:Z1R/ JA$2) : "A$(N,5):! 2X11000::5 <A$(N,4)"P"80e F:D$"BLOAD"A$(N,0)".PIC,A$4000,D"A$(N,5): P:D$"BLOAD"A$(N,0)".PAC,A$6105,D"A$(N,5):0,5:1,97:230,64:UN: dRı nN1R:N1İ60 xTR(A$(N,2)):SP(A$(N,3)):,TR,SP NRNN/ PICTURE DISPLAYER VER 1.0* 1000@16384,128:A$::"PICTURE "N::"NAME : "A$(N,0):"DELAY (P/K) : "A$(N,1):"TRANSITION (1-9) : "A$(N,2) ("SPEED (1-255) : "A$(N,3):"PACKED (U/P) : "A$(N,4):"DRIVE (1/    THIS'MAGIC NUMBER' YOU CAN FIGURE OUT THE MISSING QUANTITIES."S&90:NXT7000&PROB13:A((1)7(S(P)1))1:B((1)4(S(P)1))1&C((1)3(SILL(P)21))1:CB6070'SQ(1)AB:SQ(2)ABC:SQ(3)AC:SQ(4)ABC:SQ(5)A:SQ(6)ABC:SQMAGIC SQUARE WITH ONE OR MORE NUMBERS MISSING.YOU ARE TO SUPPLY THE MISSING NUMBERS."%:"A MAGIC SQUARE IS A SQUARE ARRANGEMENT OF NUMBERS IN WHICH EVERY COLUMN, EVERY ROW, AND EACH LONG DIAGONAL ADDS UP TO"A&"THE SAME TOTAL. ONCE YOU DETERMINE 1":15)"--- ---":16)A;:23)B:LCDDW$ID221:(IA)IA(IB)IBLCDI^$(I$216:" LOWEST COMMON DENOMINATOR = ? ";AN$::A2LCD:PX10:30$<100:PROB,P:11000$pE6:NXT0$zP1NP:10V%"IN THIS EVENT I WILL PRINT OUT A ))3:AB5070#S(P)05130?#C((1)4)2:CACB5090#DABC::10:13)"1 1 1":12)"--- --- ---":13)A;:20)B;:27)C:LCDD#ID221:(IA)IA(IB)IB(IC)ICLCDI#I:5170*$ DAB::10:16)"1 5:NXT0"P1NP:10""IN THIS EVENT I WILL SHOW YOU A SET OF FRACTIONS, AND YOU ARE TO FIND THE LOW- EST COMMON DENOMINATOR. THERE WILL BE THREE SETS IN ALL.""90"NXT6000"PROB13"A((1)(4S(P)3))3#B((1)(4S(P)3X$;:!!NUMNUM7:I12000:IL!:8:"HOW MANY STARS? ";AN$:AN(AN$)u!P%10(20(NUMAN)NUM):P%0P%0!":"THE ACTUAL NUMBER WAS ";NUM;";"!,:"YOUR SCORE IS ";P%;" OUT OF 10."!6P%(P,E)P%(P,E)P%!@100!JPROB:P:11000"EYOU ARE TO GUESS HOW MANY STARS THERE ARE. THE CLOSER YOUR GUESS, THE MORE POINTS YOU'LL GET."r 90:NXT5000 PROB13::NUM0:X$"" R(1).09(S(P)1).03.02S(P) I1137:(1)RX$X$" "::4090 X$X$".":NUMNUM1:!I17: A((1)10(S(P)21))5:B((1)(A3(S(P)1)))3:CAB:F$"-":} A((1)10(S(P)1)):B((1)6.9)3:CAB:F$"X":E4:NXT0P1NP:10"IN THIS EVENT I WILL BRIEFLY SHOW YOU A BLACK NIGHT SKY WITH A NUMBER OF STARS"` "IN IT. DI)(D$):DI43170"D PSNPSN1)N TCX ::"TIME'S UP. . ."ib K1DI:A1A1NUM(K)10(DIK):Kl A2C:PX10(10T(600S(P)100)):40v 100 PROB,P:11000:4000 A((1)10(S(P)21))1:B((1)10(S(P)21))1:CAB:F$"+":D):F$;" ";B:17)"------":21)"?"::::10)"ANSWER:";Y DI0:A10:PSN20:T1300:T T1600S(P)100:PSN:(16384)1273150 D$:16368,0:(D$)83120 PSNPSN1:DIDI1:DI0DI0& 31500 (D$)133170: DIDI1:(D$);:NUM( CORRECT ANSWER, THE HIGHER YOUR SCORE WILL BE." :"IF YOU TYPE IN THE WRONG ANSWER, OR RUN OUT OF TIME, YOUR SCORE FOR THAT PROBLEMWILL BE ZERO." 90:NXT4000 PROB13:PROB3210,3220,32308 :5:19(A10)(A100):A::17(B10)(B10020z"TOO HIGH"::2120]"SORRY, ";PL$(P);", NO MORE GUESSES.":"THE NUMBER WAS ";NUMu100:PROB,P:11000 E3:NXT0 P1NP:101 "IN THIS EVENT I WILL GIVE YOU A SERIES OF THREE MATH PROBLEMS. THE MORE QUICK-LY YOU CAN TYPE IN THET3000 P%(P,E)31A*PROB13::3:PL$(P);" -- #";PROB::W4NUM((1)LIM)1_>I0uHP%(P,E)P%(P,E)1RII1:I112180\"GUESS # ";I;:": ";AN$:AN(AN$)fANNUMĺ"YOU GUESSED IT, ";PL$(P)"!":2190pANNUMĺ"TOO LOW"::21 YOUR GUESS AND PRESS 'RETURN', AND I WILL TELL YOU IF YOUR GUESS IS LOW, HIGH, OR RIGHT ON!"{LIM10:S(P)1LIM30S(P)2LIM100 :PL$(P);", IT'S YOUR TURN.":"EACH OF YOUR THREE NUMBERS WILL BE BETWEEN 1 AND ";LIM;"."100:NX*SE(0)((1)30)9:INCR((1)3)3MI15:SE(I)SE(I1)IINCR:IaX((1)5)1:oE2:NXT0P1NP:10"IN THIS EVENT I WILL CHOOSE A NUMBER AT RANDOM, AND YOU MUST TRY TO GUESS IT IN AS FEW TRIES AS POSSIBLE."a:"TYPE IN1)5)1:PSE(0)((1)9)1>ZI15:SE(I)SE(I1)2:IRdX((1)5)1:yxSE(0)((1)9)1:INCR((1)5)3I15:INCRINCR1:SE(I)SE(I1)INCR:IX((1)5)1:SE(0)((1)4)1I15:SE(I)SE(I1)I:IX((1)6):I1)I:IX5:9SE(0)((1)10):INCR((1)5)3ZI15:SE(I)SE(I1)INCR:IdX5:SE(0)((1)15)5:INCR((1)3)2 I15:SE(I)SE(I1)IINCR:IX((1)6):(SE(0)((1)9)12I15:SE(I)SE(I1)2:I <X((, ";:1110LSE(I);", ";"VIa`". . .":12:"MISSING NUMBER = ? ";AN$:PX10:A2SE(X):30rj100:PROB,Pt11000:2000SE(0)((1)10):INCR((1)5)3I15:SE(I)SE(I1)INCR:IX5:SE(0)((1)10) I15:SE(I)SE(N YOU ARE READY FOR THE NEXT SERIES, PRESS THE SPACE BAR (THERE WILL BE THREE SERIES FOR EACH CONTESTANT)."90:NXT2000PROB13$(((1)3)1S(P)3)1160,1200,1240,1280,1320,1360,1400,1440,1480.:8:58I05 BIXĺ" ? z#?X±îˮà  îԮàîήà  î̮àîβà îŮà خԠ Š׮Šıà  űàȲà îԮàîŮàîӮà ϠΠ ŠҠ˯ˠ ҠӮР ԠԠԠŠ ŠϠΠ̠ Ԡ ̠  נ Š Ǡ ٠ ˠ ιӮŠנ Š Π Ϡ ٠ϠŠӠ" ȠέBŠԠ(ԲРED FORMAT."5000:SPL,36,31,"THIS MONTH'S GRAPHICS COME FROM TWO SOURCES. THE ORIGINAL DRAWINGS WERE DONE ON KOALAPAD BY DOM MAINO. DOM ALSO USED MINI-PIX FROM BEAGLE BROS. THE DIGITIZED PICTURES WERE DONE BY TOM MC CORD OF IAC."?R IS LOADED, PRESS 'V' TO VIEW THE SLIDE SHOW." 5000:SPL,36,31,"IT WOULD BE GREAT TO SHOWCASE YOUR ART HERE EACH MONTH. JUST SEND YOUR FULL-SCREEN GRAPHICS ON YOUR RETURN DISK. THEY CAN BE PACKED USING THE MODULAR GRAPHICS SYSTEM, OR REGULAR UNPACK5 POSTPAID."SPL,36,31," HERE IS ANOTHER SLIDE SHOW USING THE DISPLAY MODULE FROM THE MODULAR GRAPHICS SYSTEM. WHEN PICTURE DISPLAYER IS RUN, A FILE CALLED SLIDE SHOW WILL AUTOMATICALLY BE LOADED.":/SPL,36,31,"AFTER THE PICTURE DISPLAYE6,31,"SEVERAL DISKS OF PRINT SHOP GRAPHICS ARE AVAILABLE FROM BRAC (DISK VOLUMES H13, H14, H15, H16, H17, H18, & H19) AT $2.50 EACH.": SPL,36,31,"PRINT SHOP LOVERS WILL ALSO WANT P.L.U.S., THE PRINT SHOP LOVER'S UTILITY, AVAILABLE FROM BRAC FOR $24.9WITH THIS WITH MY KIDS. TRY IT!"'wxSPL,36,31,"ONCE AGAIN, WE HAVE A SELECTION OF PRINT SHOP (TM) GRAPHICS FOR YOUR ENJOYMENT, CONTRIBUTED BY NETWORKER JILL MILETTE. THANKS, JILL!"::SPL,36,31,"ESPECIALLY FEATURING ANIMALS."}5000SPL,3 OF SIDES ON EACH ONE."SPL,36,31,"HERE IS FUN FOR THE WHOLE FAMILY. MATH DECATHLON PRESENTS TEN 'EVENTS', EACH ONE A MATHEMATICAL PROBLEM, FOR UP TO PEOPLE. EACH PERSON CAN SPECIFY A DIFFICULTY LEVEL.":!SPL,36,31,"I'VE HAD A LOT OF FUN "NETWORKER BILL HOOPER, INSPIRED BY THE PROGRAM 'PROBABILITY SIMULATOR' ON DN #18, HAS SENT US THIS PROGRAM WHICH RECORDS, AND GRAPHS, THE RESULT OF REPEATED TOSSES OF DICE.":SPL,36,31,"AS BONUS, YOU CAN CHOOSE BOTH THE NUMBER OF DICE AND THE NUMBER,31,"AS A BONUS, THIS PROGRAM, CALLED 'THE CAT' IS A FULL DATABASE FOR YOUR DISK CATALOGS."`5000:SPL,36,31,"FOR FULL INSTRUCTIONS, SELECT THE HELP OPTION FROM THE MAIN MENU. THE BACK ISSUE INDEX IS STORED IN THE FILE 'DN9.16'."SPL,36,31,K ISSUE INDEX,DICE TOSSER,MATH DECATHLON,PRINT SHOP GRAPHICS,SLIDE SHOW[ EXIT TO BASICaLVSPL,36,31,"BECAUSE YOU ASKED FOR IT! HERE IS THE SECOND INSTALLMENT OF A BACK ISSUE INDEX FOR DISK.NETWORK, COVERING ISSUES 9 THROUGH 16.":[[SPL,36900,4000,4100,4200,4300! :70+ +::C ,(21(A$)2):A$:v 21:3:"M = MENU R = RUN PROGRAM ";:A$:A$ A$"M"A$"R"Č198:400 3:: 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;::  6G BAC0,2700,2800,2850,2850,29750 PK15PKWĉ:70x 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO RUN "; A$:(A$)96A$((A$)32) A$:A$"M"A$"R"Č198:162 A$"R"ĉ::PK3000,3100,3200,3300,3400,3500,3600,3700,3800,3PK((A$)):PK1PKWČ198:1301 PKWĉ::_ 2::A$" ":300:y 2::A$A$(PK):300: 34,3:35,22:32,1:33,33:5:10::32,5:6 PK1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,260TWORK #19 ":300::23:A$" THE BIG RED APPLE CLUB ":300Y ZXT1T2:5:4X1T1:s dX9ĺ(64X9);:120{ nX; x:10);A$(X): 21:10:"ENTER SELECTION ";:A$:A$ (A$)96A$((A$)32) A$"A"A$"Z"A$((A$)649)! "THE BIG RED APPLE CLUB":300:A$"1105 SOUTH 13TH, #103":300:A$"NORFOLK, NE 68701":300h <8:5000~ F::A$" ":810: H2:2::X15:" ";::35:X15:" ";:: K1::A$": :":300:3:300:= P2::A$" DISK.NE8 (175)(176)25655'D$(4)L(21):D$;"PR#0":D$;"NOMONCIO"T:rW:A$(W):X1W:A$(X):T11:T2W:A$"+":800:(8:A$"CONTRIBUTED PROGRAMS":300:14:A$"DISTRIBUTED BY":300:6:A$"DISK.NETWORK #19":300[ 216:A$          1p`pp|dDuw}}}G?@{qYqUt @PDPuww_| _~\zs{x@Csw{zz` ~n  ( ~~~~~//#89 #!xp~ w?}o(" `x }wq}UDoOWOg gWgy_PUD@PE@EPU||DTp (Xa:x{ ~{Og@@DDTT@ w_\|}|pP@{s~bxxhc#G@`@BBBbXxPz@@`2P/ /c2??/ " ??/C( ( ""b>2"a (xz8.;~~ b+``ph|(0xx|`0CG 01w]\}~t}g?Q@A A^_~__v]|G_oo}||wt8~ w|~~~ |_x`C?~`@U OOgcw>^sr{x]x|~ } ~~~;#:8`00 .ph??333?~~ o?oko????y@&l`@aG<~z|~__sw__ go >>8``x<>?_Oo?=gggssw????? y?{o?l  ` ppp<<~~#1 Ogogg>}yq?yy|~Ocy}~pc@@p|> jz`o}xxoO?{nnwsssy|o~|x~} x>zag?>~ao?? 0@> ``p|< /?'O=scK?~jGoooy|}?? _eG 3o~tqco?| :0  q}};<~f<|@Dowwy}?_OOw__~}}?_\|08\(a0   ?}p@O }||_aX `y~Owy;|u}_q}p@G?tz7~pcpqtxG@ @08|u@puW~ydOy_Og|| }|~{ygq~x`=<~@A@< oG@g|@@ ?|sO~~~|xs|~_ 2{B;x     :"IS NOT OVER 100."D?N"FOR MORE DICE AND/OR LARGER"kX"MAXIMUM, CHANGE THE FOLLOWING LINES:"tb650}l660v770860"PROGRAM TERMINATED."h lSPL F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کLH8ưhHiRhi`* D$;"RUN PS.HELLO.MODIFIED"<<D$;"RUN PICTURE DISPLAYER"]D$;"RUN PALM CITY BALLOONS"|D$;"RUN BALLOONS & WINGS"21::"PRESS ANY KEY TO CONTINUE ";::A$:A$::6:P$ѸȱȱeLޱ, 8Hȥ GIVEN IN THE PROGRAM."#_ ) 8 T116:T2WI T11:T215:_ D$;"RUN THE CAT"w D$;"RUN KRAMPRINT" D$;"RUN YARDAGE" D$;"RUN WALL"H D$;"RUN STUDS" D$;"RUN SIMULATION"D$;"RUN NOTE"tD$;"RUN FOUR IN A ROW"AND ADJUST THE HEIGHT OF THE BALLOON. WIND SPEED AND DIRECTION VARIES AT DIFFERENT LEVELS."p>:"GOOD LUCK!"vSPL,36,31,"ANOTHER BALLOONING PROGRAM BY ARTHUR FLORES. THIS ONE IS MORE DIFFICULT THAN THE HOT AIR BALLOON RACE. INSTRUCTIONS ARE`* ;LL! کLH8ưhHiRhi`*Y TOM MC CORD OF IAC."t3\4SPL,36,31,"ARTHUR FLORES OF MCALLEN, TEXAS HAS SUBMITTED THIS BALLOON RACE PROGRAM. USE THE 'B' AND 'N' KEYS TO CONTROL YOUR BURNERS LH8ưhHiRhi`* { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کLH8ưhHiRhi$:A$::6:~$ѸȱȱeLޱ, 8Hȥh lSPL F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کk 3"_ ( 7 T116:T2WH T11:T215:^ D$;"RUN THE CAT"v D$;"RUN DICE TOSS" D$;"RUN MATH DECATHLON-6" D$;"BRUN PS.SLIDE SHOW"H D$;"RUN PICTURE DISPLAYER" 21::"PRESS ANY KEY TO CONTINUE ";::A^|c8 o> ~n&&xbxx `;soi{~?zgcqyx?>x8}q{g@` AGA@@@`11QL~|?G_@aG?}c>fCA ?|]]CGaxx#x^v!=|={68 .coN()x{[o~p<8p`cG__@Pq",bP0`A@VP \Upwp_@DPTT]u}T\@X `` `x(x8xx``H rx^zxss|?o` ` =*|@`y wgGO?G9}@@apUUweQ~x ~{|_yBQ`~>zj> ":o~~~~~o&|r ?c ?`{x{z+ h ",zko/ ?>}qqy@{yT0j@|TE}} GSUPQQ}~p]H@j~P@@@@ @p~ ~sm~zb"??#C#o ook~ .> ?b   8#||} >0p^1 }||<|' z{oi~>{|}|p ? yqw}yyacg5@  $ |,$ Eaf7WG ?}OOD\ PQQ@EuEGDPQx}\w~T@GFGGAA``ppxt|||~\x@|x|p0@{ cb `frn:z{zz~~zo# ; H```hhjf{zx~~~ >oOOk=}n8;~ o}~~{o???`k8lAO_ggs~wsyY|v} }}~}G4tp0'_|q^?57qs-_ ?_g?w_ `@~``aC<sc? {|8yooON~~|y_oo  ( 8~~sppsfyyy|wpx{}q{____G`@8<|<0aq? ?^|}}O ?ww__og E?5p@a88~__GOGg_=wggwww?? ~s_oooG~`@`00`ppp|~{{@8^_gO~ys{y}z|/Osy|~? ??`@2xcNx|f?wp@~|pmGO7gewssy}}}|} }~~p|qgp0@@A At|<O?__wswGO_~NwG_s}|obOxpcc~<@A <00@@{3?|~>>xx`^jOCO>?{rz_OOowsk~ o~~y{O_~888<0 c(x|~~~@@? J{_|@C  b?xx~~Cx`Bj|_~}k~>z{jb/}|qO`kbx{h@`@888(Wz xqg(\|##g^x;c??O~~?o{xMo~{>o~8!o?|g} A"8>(+p`?}}oO~|~~~~ _ }Uo}pa \QY Y}G~cxaPP0`qywcsq~Aw>Ocsyx0^={o|CwCGCAaxXy<3yq 0 @4WGGFy}fOxa\x`egg < L@=A8 A 8< h`  @;_Nq||;  #8  (`~A/?c~{(Hj:j:3b`@@@@ ?po???o{~|^~~wwy{~|pW@s/Dxy"{ Ppx00`a' ,{ey~~eP@ PUqDEGwWG@@px@Xp|~q?o bkcr`. 8 *  ` (":o?^g{gG|~~xxz_'+ :|je~y_cWAAT p@@\APQ@ULgCWAPWTU??}_?8 |ww|uETU\\UP@x\~w~s~@R/_~~ ~nn/ b.( +  xh~~n~onokU;*??@A@ppwuw@UESDGQ@(Hx?? c``xp~(* . "**???o_?333//~|x{~* ( b::~*><|**+o?o{{{_?}p 0X~Q(~}}q_} }|P @Ewo~zP~p`zw~~~oO_O{/  "`h(*/~.+<;} }_sg?` Mw}q}|p@}7m_AAa6z_@p@|srpv~'>=ww/?TP \` 0tP /x` ~}!^hhp%^@@@` p@@Wp<hh"!??? ??#@0@ >/=( 0@8`~ud5( ~|xpm{w??``@`ppP@84py?pc~~ 1~??G`mwnwg~|8@PT||}}}  `~|xp@b|p`@.;3}f`|~~|xp``@-`pxp``P8x|~???ooGSwwws{{+kSQs{(PPpx((@X~|x|~`_|{1`PT}_>^wo~~_~_Wwo,h~7Oi8z_ ? ?P~uz{^sw^u}}/~s{w_@}y;vl};~_}t`h >~"/~||xxppiF&.9;/?o7;y~?{owgn^zsC Px@p`W?/????<00  3wNy?_>s^y;n bpp~@: f[}?O|~~x`@{`$/;???????|q`( hP ``xpp`pP x~{~@(E  OCU> `x/`php~~~||xps`$`P_mMxYsT@`XP`d=}PpP`pw xCt=@@ iOOo?{_~_{@  ```xxrv0xx``hH8hxAp(~o??\xz~v` |pp``FO?|p`@ "  4}yH  YRD_;E?;+ [/~~@|xD ! jz~|t`A!@ B`CtO}Xp* ]ut45=?/oo~|}~|rPPpp{OO/Gga<(_ ?? ~|||p~? @} OC`x~g|@?@p|~?~|xp``a@? ~|? O?_?y~ |~|pxtx~~??@q_?a@CGB@`@ `@ @PRx`@@ z@p @@`y8' jsw0 ??O???> @H Nk (p 0 zB 28J   t?P@pxxxqacaAAA9/????O#??Pxo3Ay x~/`x~~~x~~?g?}wyxl,~|tpRt@C`#~?~ug _z< A_|P 0 0 0(LxpB????OOGgaca!@``.~>`Arypvgy/WkkO76 +/! Hj~tl`pP0xh4w~wE_?Nzyq HP@a rh({`hb|xxXp|~xxT~|x|xg"MoM-no$?o ?}7!$4}o? ?_s}? }so?`t |x|xd>~ }5n_7}}?7  @` @ ? ~?????} >~~~sgcx|}??Zx Z  @~|a``pp`@@w|?000=?_v}|U*y`h 7]|?@}|`@@ p`%  <?}x|||~\ `x~|xp`@`~xp@-?y???;@x|~|xpp``@#0pxxp@@@``8x|~?{{}}{{yPt|n8z~?~|y}ws>_o|~~\4```@:_?? w!}, C #  A Gw9)@p}~@G`y3x2!!\NYIRzt|@h0d@X0dBs H0@cG ho >~]8`|~|zx|zvfZ7?y}=~_is6]{}>_z~yvyXfJxyKH?xxppa??t??~~<,?__7??~~|yycg  )94"vWy~pC/p;}@Q5=??+aQt~aw/GgaG`>@ %9ikhz]T`h``%`px|px| @C9m'|Tx(` R[cB:rr|~?zrptp GDtxa~}z{w@ `};<|~?tpyw??!????!GcAagr` ~_@ $  B0 @`@@ B(z\ x@ |xpp``F||xp@ rxpsgX<|<:xpPPX}|x; ~3  ~_x~<~ @??? ~~~|}?? p?w??@p|oh??@p|_~xxp`aaA?  x~?e }~ ~|ppxp       CW***EHQWo~m}[[ "H={nnm5XQQ**e4IHQQ *  Pnnm55XSU*nm}{{ujLuzQUo~m}{n~m}{{wW**m4H@ P(hl4XXP((`(Em}{{{n~m}{.~mH{jjm}{o~m}{o..M5{w**D  [wjnm5[[oo~m}{o~E[o~m=[_Wo.M /~m}5Aw*.m=[{u**P @Q@Q**EQS"*E '@Pphh`0X@P @hP @  L4JSW*.m=K[W..M[S" DAQP3 (M  M SW M4H@A(@Qtn~m}{}n~ltXXW*.M5HPP @)*",m  4{WW*.MPun~m}[/~m}{W**E SU**MM ( @ @ *E_/Q*.M5 SWU*.M SW*"AHQWn~m=[[W*.M5K[W*.MM5 SQ** D4 QQ*jm= E **E4IQU*.m5 SU**M5 S**M @ *M Q #**M @"*@(L4XPQ((`4OT**@0K[W**E Q u@jm}{on*E}{[U*nm}{{w** hm}{ E h={oo~m}{w*mn*m}{o~m}{o~m=xwnnm=[{W*.MQU"(m}{  Y{wonmm=[onl5[{"m5Yo~m}{onm=[{QW/nm5[[W**@QU*bm}{o~  [W*.m5[[[W..m=[[W.*@[Qo~m}{wn.m=[[wn*nm5[SU*"E@QQ*jm}{[j*E5[[wjnm4XP@ Wn~m=@}{o~m}{o @K[Wjjmux{n@Ao~mE{U*.m}{{wj.D @Ho~~m}{o~m}{o~m}{o~m=@Po~m}{ QonD5[o~m=H$wo~m}}{o~m}[_/nm}{o~m}{[*~m}{wU*~m5Qwo~m}[[U `@@ ~m}{o~m}{{ [o~m}{n* E SQ"*@"HQQ M5KSQQ**D={o.M A/~m}{{uj*d4HSQ** @S4{{U***m5Y{o~mtun.E={o~m}{{wnnm=5YQQ( @ ((L4XXT((h0XPPQSo~mm}{o~m=[Ujm}I{o~m}{o~m=[_[.~m5YQP .m5[{W*.*~m}{{o~m}{{/*M}{{/.m=[_ a @X@Q S"DQQ**DQ@**E& `0XPp( @ @@ `p@@E"@PT**e5[{W.jm= M%@@T""D!Q [Q"m5 U" @P *l|{n~m}xxth(l5[[W*(`0@(H"X[  n~m=5X[" l}{o.M[onm=KS @? ?O/S@ `>\ Wo ~#_og"`_    rx *`@A`@0`" ``??pv1? #\|r`??@wC4]' f"oX||~|xp@OP GC&8~|xx~p`}'@pxF|lx8ppp?U8/~~?__>+_C?~u;O?w?/? + K[e J@` Gp@ " ``px||~| `@@ z 8@f|~|w ~|xx`@p_|}p@w~|xxpp`P00Dt~!@  ~~?~~|t`A0|/ ? ???GOoOw?XpyOoo?_ aG3'` _}.~ /?(@o///   P?4?^ @x-!0,@?P(  |Cpp ! x`H@ @` L ~~~x``@x~D ??GOwq(Gx}`Y |`?G`?3 _ &||~xq@A}"_!|~xx|~tp@?C`p|/|xp?._ ~/-5 >w'-) za@`@```L@ @9K@ ! @1@8 DB``pxx|~ x` `@@` 8 ~~~~r?B@C7uq0p#:_9   bA@AxP~iUi~?~~ah_4?e~z@o'`|~ {Zc(hAp|BOn|?}/?@//p?@am?to}\~Y?xLN@1`p~=~`U< ?~`- B~ajf`z ~{e`p|p>C|G}t/t@C@{z}T} 8Qp@}Ph| Cl@ x|/0M w.Q6?O#o  f 8Cx`x~`"~y~!p@0q~> t(H4={tqNg,@  @0C@ d~t~prx?C~ @4E| (VhW`{|w_>7IwOJ sp@@``>@<|S|?@<<~|0|p1&J&p_J    `~~~"X`~x @TbV@ _yK@ 4@@@|?t@~?0@|#t $` @`x@0I phVb!d p@ @8x@`7~~`h@@`~mx=p@`x.Aa0`xG?d@ p s&/F@N?q~?Oq~_{>o| CH4jqppxxx|||~?A4_oo .!~|?;>????w@h @ }@C<@|?@X|@<8(nXh@8Wh`|Axwx `x`nhh|??P5; gROGo7.7w7_S ??_9   Q ?+B1 `?@0`@  @ @ op/'Oo _ 05rax~gyxpp}~oogcaa`fCF@@`` ax`8@ s\~}|}}_}O|~O_oi|@@oHF_L@${?{{?}_{~?y||O #{ =_ {{{ ??8` `ppxxx`zCw~xFp``@@?L }(@nbb/OoDgN``@@p|~bp!x'&,GgffCg~v0@`p|~Ov~a|?n?>|xt`h`@@ ?DU*x axZm||zp@ 0i8_qh_?axnq~fONp@<@ 0@>|lP@ * ftDgw~|x`oc~>gcvngq|o3?@?}#z`< ` @f`@?~d   :b@'p`??/~|w``zp@``@? #?~t"<}c?||P ???~_OT|/P|||p gff@ ~ `Gw"ej~x@%.  b pX>>~~v~pnv&w.b~*`&po?@t@&' 0sp 20 00?5 2"2:w w0 :3/@p~?? ?x " /? V~`BF"@T @~?t|~|j~t+@& 3w0020#03 0  aAa,,ld< >>~$$< <0~~~ D.@L ff`@f&ff @dfff &d' @w>hb`fa~@`pwe`@p>t*gus(0> 042 0:d01 7p|||p`@<`        @5[SW**EM SW*.MIAQ"*e=[o.m5KSW*.M5[[[W*.MPQ**E4I{/ E Q**M5[[W*.M SU*.M ** EH[W**E#  * @+@PP((`4HQQ((P@SP".m5 S R gam}{Kwo.m4Yonm5 @Hn  wo~m}}{o~m5[w*m}Y[o~m}{wo~m}{U ~m=[{wonm5[[ (Myo~m  (.m=[w/nm}{{Q/~h[*~m}{o~m}{on*e5[{w*.m5  (M5Iqo~m}{  *m5[[W**.m5[w..M=[*.m}{o~m=[{wn.m==[{W*.E @P EIyo~m= @ M=[Wo~mm}{o~m}Y@Q".MuKsujjm}Xm}{[Q*~m {n~m=[Q   P~m}{{o~m}{n~m}{o~m}{* @t{oj*m}{[Q*~m}{w**@ L}{o~m}{o.m=[o~m}{o~E{o~mm{**M}{o.M@@@Xo~~m}{onMHo~M}{o~m}{qo~@ BCGgcpx|~6~|xxp`c`pxx`??9_??_{w?4+|>|c??/GcO*&_~'2 _A# ~?w?@ @${wgW!_ K~_  ayC @- LOo`Pzn_|O?~_?@|p Is Hptx|~{;A~~y7G.~~|||p`@jz`@1yjPo?.`=g@` ~~x`@||qC`#W>GE@9Ct`@?O @@ ~#~|pg_8u`y~ x ?_ A`p|*|xxsa@ ?W ?|~^h@~st xozaY txppx| p~p@`@ y< @@@L0/  P/~}v~?~|@p``E~~~|`8  4!! @|n~_dnoQ(B!/????_?? ppx`@b~dA@@D`pofy945Obqp@ ~x@ `@B~? D``|>nbB`@|?s?x@????zxtG ??OA@px=@?~~|pCDC' +_|@8!?`8 ~}?/p? c<sO;sG>sW91?   Pptvwr``po~~ggF@@`b``@`p`@`@  @pppxxx|xx0 0ba``@@`by =>\yaG #Gtx|~~~aJ O_!C /O5P? \y?Cca_y_1C}@|~~WDJp*w H  p0@k0 sp?px?p `  F" 2UG ^`~^x ^`AX``v@gx@@0@Opc` @[>x? "{c?xq~w~4?@p8DB$@@@`pqs$1:u?wo~ze}'}az`zpp}}O?'$`'~wgco~wov p~w t|T/e~go"_M2}n/?_Q __///?8?? % owlOg~GF"ggG@'dA!/@ D  y8Ck;m{{npqOXmY|?q#{q" 1::"P";::" PRINTER OPTION ";:SLOTPRĞ:"ON";::"/OFF" SLOT0ĺ"ON/";::"OFF": 1::"Q";::" CHECK FILE LENGTH" 1::"R";::" ::"X";::" EXIT"7 81::"G";::" SORT BY TYPE"V B1::"H";::" HELP !!!"~ L1::"I";::" LIST BY PGM. NAME" V1::"J";::" LIST BY DISK#" `1::"K";::" LIST BY PGM. TYPE" j1::"L";::" LIST ENTIRE FILE" t1::"M";;::" REMOVE DISK#"_ 1::"C";::" ADD PGM. TYPE";:22::"V";::" REMOVE PGM. NAME"; 1::"D";::" DELETE FILE";:22::"W";::" REMOVE" $1::"E";::" SORT BY NAME";:27:"'FREE SECTORS'"; .1::"F";::" SORT BY DISK#";:228 n(28)1ĺ"TN$ ERROR":, xNA$(1500)? 0:SLOT0:PR1G : 15:"-----------":2:15:"! THE CAT !":3:15:"-----------" 1::"A";::" ADD DISK CATALOG";:22::"T";::" " 1::"B";::" ADD A PGM. NAME";:22::"U"% THE 'CAT'37072:a1013,76:1014,208:1015,144: SET UP '&' HOOK. $3F5:JMP $90D0( TN$ MUST BE 1ST VAR & LENGTH 302TN$"CAT2 "<D$(4)FN1PD$"NOMONC,I,O"ZD$"BLOAD CAT2,A$90D0" d3788                }xFH?/ ?@ dy@`~|x @csqu@gomnY[n]=oL 1 __ x``@__HD@{|@@@N }nyGN}oO @+@@? En*@Ht23=x|?;}_?yC@@`@p@`@t@`@@@`px TO CLEAR MEMORY ?":A$*%:A$"Y"ī10009%:N1:1000L%> -O-V%>1000o%hB PRINTER ON/OFF -P-%rBSLOT0SLOT0:1000%|BSLOTPR:1000%PF CHECK FILE LENGTH -Q-%ZFLN1%dF:"COMPUTING FREE MEMORY":.&nFF(0):"TOTAL NO. OF ENT0:16384,128:A$((16384)128):16368,0:A$(27)ĺ"CLOSEHELP"::1000S$04:Y$:4s$6 MERGE TWO FILES -M-~$630300$6D$(4)::D$;"CATALOG":$6"ENTER MERGE"$619070$: INITIALIZE FILE -N-$:N01000%::"ARE YOU SURE YOU WANTS"/#3"INT FP TEXT MACH 'R' TOTAL"r#3TI;:36,6:TA;:36,12:TT;:36,19:TB;:36,26:TR;:36,33:TN#30:SLOT0#3:"TYPE '0' TO GET MENU."#31300#4(37)21SLOT013370#4#4"'RETURN' FOR MORE. 'ESC' TO MENU"K$&416368,13230+"|3(NA$(I),6,1)"A"TATA1:13230Q"3(NA$(I),6,1)"T"TTTT1:13230w"3(NA$(I),6,1)"R"TRTR1:13230"3(NA$(I),6,1)"B"TBTB1:13230"3(NA$(I),6,1)" "13230"313320"3I"3TNTITATTTBTR#3:11:"NUMBER OF PROGRAM!213110!230200(!2D$;"READ ";FL$2!2NN1>!3NA$(N)I!313050]!3216,0:X(222)z!"3X5İ30000:NN1:13110!,3!63:SLOT!@3TI0:TAO:TT0:TB0:TN0:TR0!J330100!T3N013250!^3I0N!h3NA$(I)"r3(NA$(I),6,1)"I"TITI1:0:13300$ . LIST BY PGM. TYPE -K-/ .30300Q ."TYPE ? ";TP$:(TP$)01000e .(TP$)412020x /:SLOT:30100 &/I0N:(NA$(I),35,4)TP$ĺNA$(I):12090 0/12100 :/13320 D/I N/0:SLOT0:13300 2 LIST ENTIRE FILE -L- 230300 J- +303000 +"DISK# ? ";DN$:(DN$)01000D+(DN$)411020o +(DN$,1)"A"(DN$,1)"Z"DN$DN$" "*+(DN$)4DN$("00",4(DN$))DN$4+:SLOT:30100>+I0N:(NA$(I),1,4)DN$ĺNA$(I):11090H+11100R+13320\+I f+0:SLOTЊSLOT8'30100B'10130/L'D$"READ ";FL$8V'FI$X`'PN$(FI$,8,L)ĺFI$:13320cj'10070{t'SLOT:30100:I0N~'PN$(NA$(I),8,L)ĺNA$(I):13320'I:0:SLOT0:13300'216,0:X(222)'X5İ30000:13300'* LIST BY DISK# - HELP !!! -H-2#95007#0<#"OPEN HELP"BF#"READ HELP"MP#"";A$\Z#A$:13320fd#9040y%"CLOSE HELP"&%216,0:13300' LIST BY PGM. NAME -I-'30300'"PROGRAM NAME ? ";PN$:L(PN$):L0ī1000$'N010100.'302003'TING"N%N/SRT#(NA$,0,N%,8,23,A,1,4,A)91000QX SORT BY DISK# -F-bb:"SORTING"klN%NvSRT#(NA$,0,N%,1,4,A,8,34,A)1000@ SORT BY TYPE -G-J:"SORTING"TN%N^SRT#(NA$,0,N%,35,39,A,8,34,A,1,4,A)h1000 (# DELETE ? ";FL$:FL$""10009:"TO DELETE '";FL$;"'"c"ENTER ' Y'; ELSE "kA$A$(25)10005100D$"DELETE ";FL$;",V0"1000216,0:X(222)X61000p SORT BY NAME -E-z:"SORIEW ALL FILES WITHOUT TYPE DESIGNATION (Y/N)?";:A$GA$(13)ī1000YA$"N"ī4360lA$"Y"ī1000wI0N(NA$(I),8,1)" "ī4570(NA$(I))38İ4070I:F0:1000 DELETE FILE -D-D$(4)::D$;"CATALOG"::"FILE NAME TO):SP$""Y1SP$SP$SP$" "+YENA$(I)NA$(I)SP$TP$PF1ıWIa1000iF1:"ENTER PROGRAM NAME: ":PN$:L(PN$)L0ī1000&I0N0PN$(NA$(I),8,L)İ4070:I:F0:1000F13:"DO YOU WANT TO REV"GAME":4280&A5TP$"UTIL":4280@A6TP$"BSNS":4280ZA7TP$"SND.":4280q(C$)0C$" "A6ĺ"ENTER UP TO 4 CHARACTERS OF YOUR CHOICE":C$(C$)4ī4250TP$C$(NA$(I))33NA$(I)(NA$(I),33)SP34(NA$(I)YOUR CHOICE"W6:"TYPE TO SKIP THIS RECORD":"TYPE TO RETURN TO MENU"y@:A$:A(A$):A$(13)ī4335JA$(27)IN:4335TA1A8ī4060^A1TP$"DEMO":4280hA2TP$"EDUC":4280rA3TP$"INFO":4280 |A4TP$ TYPE TO ADD OR CHANGE:"9:"1. DEMO (DEMONSTRATION)"V"2. EDUC (EDUCATIONAL)"{"3. INFO (INFORMATION STORAGE)""4. GAME"""5. UTIL (UTILITY)","6. BSNS (BUSINESS/FINANCE)"."7. SND. (MUSIC/SOUND)" 0"8. ANY 4 CHARACTERS OF РŠԧӠĠϠĠōˠӠ٠͠ŠˍϠŠȠ٠ŠčΠҠƠӮҠӠƠӠ٠ŠĠĠčȠŠԧƠŠӠŠ     ȭ  hh`ɺɠ @)`L L=LiTȱiȱi`ȱiȱi ``ȑ Ŕ8 Đ0ȑ Ŕ 0/# `i!LȭLL ޘи8ޥ߰ L,L L4Hȥؑȥّڥݑօوܑօ؈ڑh`Н(kٓlړPӓ`(ٓkړlӓP`PJ TuVTvP`SRT#(VARIABLE NOT FOUNDlnLۓLKkiRliSޅP߅QTU qPХQFf N`8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]0 ܰ Lڒܐ@ Lڒ6 А4H +hݏ%  , ۓʽۓ$LZ ܓܓ g RPޥQ g RP8ޅQ߅Y  NLޠ ʬꓖ ꓖ D0Ȍ ),л гkۓȱkܓ+kekHȱkellhkmA$::A$"Y"20000-a,-0uD$"CLOSE ";FL$2-:uh-u::"DISK L PROGRAM TYPE"::-u"FILE NAME? ";FL$-v(FL$)0ġ:1000- vD$"OPEN ";FL$;",V0"-v-\vN0ė:12:11::"NO FILES IN MEMORY":I11000:I::1000-fvLNA$(I)"":,PZA$"N"23110%,ZZE,] REMOVE 'FREE SECTORS' -W-P,]30300p,]:2:"REMOVE FREE SECTORS",]I0N:(NA$(I),9,9)"FREE SECT"İ23100,]I,]1000,a EXIT -X-,aN0Ā-a:12:"DO YOU WANT TO SAVE FILE TO DISK (Y/N)?";:YPE @ TO REVIEW ALL ENTRIES)"::"";VI$:VI(VI$):VI01000Z+YVI$"@"āI1N:23100:I+ZI1N:(NA$(I),8,VI)VI$İ23100+ ZI+Z1000+Z216,0:1000+)N1000Q)R -T-[)R1000r)U REMOVE DISK# -U-})U30300)V:2:"DISK# TO REMOVE ? "::"";DN$:DN(DN$):DN01000)V(DN$)422020)V(DN$,1)"A"(DN$,1)"Z"DN$DN$" "!*"VFL$""10005(>N:"INSERT DISKETTE W/'";FL$;"' FILE"K(HN"AND HIT RETURN"U(RNA$:a(\N20090|(fND$"DELETE ";FL$;",V0"(pN20120(zN216,0:X(222)(NX620120(N(NN01000(ND$"OPEN ";FL$;",V0"(ND$"WRITE ";FL$(NI0N )N(NA0 'tJN1'~J19130!'J302005'JD$;"READ ";FL$?'JNN1K'JNA$(N)V'J19100j'J216,0:X(222)'JX5İ30000:NN1'J1000' N SAVE FILE TO DISK -S-'%N30300'*NFL$""ĺ"SAVE AS ";FL$;"?";:A$::A$"Y"20030 (4N"FILE NAME? ";FL$:RYS = ";L:"ROOM FOR APPROX. ";(F40);" MORE"9&xF13300W&8J READ FILE FROM DISK -R-e&BJD$(4):y&LJD$;"CATALOG":&QJN0ī19070&VJ"FILE IN MEMORY WILL BE OVERWRITTEN !!!"&`J"DO YOU WANT TO ENTER A NEW FILE (Y/N) ? ";:K$:'jJK$"Y"ī100Ҡ̠Ԡ٠͠ǠȠЧŠԠŠĠˠƠՠԠϠŠԮ׭ŠŠӧ̠ԠȠƍŠŠҧӠŠԠōĠŠՠŠΠƠǠԮŠˣӠҠˣΠӠ̠ӠΠ٠ǠōˣՠĮ֭Š͠ŧӠҠ͠Ůՠ٠ҠŠҠ̠ŮƠՠҠ̠ŠȍӠЧŠͭٮŠƠӠΠӠϠˠӠՠԠӠή̠ŠҠӠȠԠōՠϠŠŠŠΠ٠̠ՠӠήԭľխĠ̠ŠŠŠΠ٠ՠŠΠΠŠ٠ϠŠΧĠΠϠŠΠծӭŠŠϠ˧Ӡ٠ŠԠΠƠ̮Ӡ͠ĠϠŠŠŠΠŰӍҠ٠ӠخϮƠ̠ӠĮҭĠŠ͠˧ӠǠƠŠˠĠӠƠՠȠϠĠŨٯΩŠŠŠՠԠ٠ŠΠҠˠҠŠŠōӮӠҠϠŠԠƠҠҠĠӠԠΠԠҠҠҠӠԭ̠ΠŠţΠԧͮѭˠŠȧӠԠŠ٠ĠĠΠӠՠϠĠ٠ƠŠԧӠΠˠϠŠŠ΍ٮέŠŧӠٍϭľЭҠΠίƧӠԠҠӠŠˣՠҮ˭Ԡ٠ͮŧ̠ԠӍĠ٠ŠȠӠŠî̭ԠŠŧƭٮͭŠŠׯ٧ӠՠԭǠ͠ŧӠҍ͠Ůՠ٠ҠŠҍ̠ŮƠՠҠ̍ŠȠӠЧŠҠ̠٠͠ǠȠЧʭԠ٠ˣ̠Ԡ̠ӍĠ٠ȭРӠΠӠΠӠΠԠŠΠˮŠĠǠӠŠŠӠύŠŠԧ͠ŠٍǠŠ͠Π٠ҠӮɭԠ٠РĭŠŧ̠Š٠Šŭ٠ĠϠˮŭԠ٠ŧƭٍƭԠ٠ˣƠٍǭԠ٠ŧƠٍӠîíĠͮŧӠՠϠĠҍŠ͠ŠΠΠǠϠŠƠŠĠӠϠŠϠĠ̮ՠ٠ϠϠҠҠΠӠРϠӮӧǍΠȠˮ­ĠͮŧӠՠϠŠ΍٠ŠˣĠŠŠŠŠϠԠՠ٠ŠԭĠӧˠȠԠӠҠŠ٠נŠҠӠՠˠϠŠΠծӠĠˠǧӠՠϠˠĠΠӠŠŠǠƠŠˠՠԠϠŠŠΠٮϠĠӠ΍٠ϠנŠŠڧӠōŠƠŠͮŠ͍Š٠ŠȠРϠӮŠӠՠϠŠҠ͠ӠŠ٠îƠԠ٠ԠΠŠ͠ՍԠŠǠΠξ̠٠ō٠ĠŠԧԠӠĠϮŠԧŠ̠ҠӠӠ٠ڠ͠ŠŧŠاӍĠҠŠˣϠŠ٧ӠՠϠĠҠϠŠȠŠƠˠŠĠîŀ"" Qu U ݝՕQ؜ ^ 槡 @@  *. (  * <@*+( ?E1 @ UX`AEQDPE @0OM_ (**?E @WT|v8) (#(( s cABah060B,၍ UT_(N8@`h *0ãP@P<7 $ח **j** *@!`@D@U]t|PPP@@@T@~E@WFXaw &D@@UVAݝb H `""p pc D`UUC¤Ѐ(* **(.* *Ã<0(" *(x$! x ??TUPX~Ȉ / LJQT|@^@P P@A  U^ (pL XpNP3r @H K  " P )$&  !;G~|:$h  @ b( j? 0 //@PAy|@>]puTUUUUUĤ*  ( h ~( (>*h:k .L)%2!j"O|>a, *` +}5=ʼn35J9|Ae`<_5Eёw\G`j@PU_XUёБѕYpED@ p aJn#b?/n/ !5/ t@ /Ps!Aaaqpx~7|xxxp`fe`px|`??@Q}A@@cPa{pc~DF{l va@ ?#P|@3??}0`|x|ww~z<~||`` x`Eo xtH6b{A  ~zx ppa@OG @x@< `?WH? P@h~#~xaG{!i ! @`@@@@@??|u ??_PawHz/?~ pqx@ p~/uv@@$ X`xppx~w~|`@`@z~?\ @`@ sW@b@|?mD=/?<__X`~|p@ xF@@|>_&K,93A _W??? p@ x`xx||x0`@E`@99>~>~xqgOCexx|~~~ ppxa?}?@y>GBBp\YwO~~ }`@  E@pp~3`?>><|s!W ?Ph~@> p7 `<@j| @|oop|O,fˮՍ̠ŠӠŠΠǠŮحԧӠՠΠԠîŠΠǠӠ͠ŠŠԠӠƠŠŠ̍נˠӠŠӠōĮŠˠӠŠɭĠ͠ŠŠĠa*p/?+x)?'#@pxp` |#?/G'"? "s* _W:??~/C??;)"4x||pp@ 7?'4GGOp@?wG@8P?|s^x`_C ;h_O~nx`! J.o" ?  Z鱑Pz?(: `GB3PXA t X(PT`  x@0Cj+|p@A# ~=NuT8!@A_@r`Cs!B><@ _Aꢢ⢢yhxj$P( $Ą/+ĤPx +~s;:u9w@T ` ĀĤԄJ0p̌?P`^Ʉ}؈ʩ@R}_+pu`0 |1@Q6jp.2pa;o+..ݝ " _@ `11 L0! D O PT@@PP P$ah(&@@ll\ @@` (0HL2kR|c  3*++***(*(*(*/h**+*( @Bx@@D@0pppUUUUUU U_}UWUUTT:wp 8, \pP@PPP@PP@P@P@@P@`@@@@ * z> * *q4A|  j "* @T @p@0,< *)*(* (*? *( (* . o#0  %UUUEUUUU_UUTAUT";z @@p|p`pPTPPUTPDPTPPT\TXUЀ@pP@ P :h" .(**"(r 3TPUU1Ā 1 oSQP@PQf )040ب+Ň5( *+*+<AXDP@@@Ew0! ( !  ((흝 UTUUUTTUTPTPP  2 8`0`@*ˊ>8l(`  z 8#ha . LFN`y  ?裷緷gD@OVpF(Ą@¤Ĥʬ(:`b i *' '/)Q=-y`0 TPuP }C>|A1蘈xtA}p| ɒ0@!~(B}sWwAxS h @сᑃXpcv |z@FX~x ⢢#0[piab` ~0 [  zg|A7 <  dxR.<`&`*  @@0B~[ C_a@ 0 0:zp@ ;~(=a;{ox. 'o~Gq\5 TURN":55 <TI$(120) F5953 n400: MENU = xP1N1G 100k (4);"BLOAD";TI$(P1);",A$6000"t 360 22:10:TI$(P1) 24:" PRESS SPACE TO CONTINUE.";:K$:K$" "Ė1:170 :::" PRINT SHOP IMAGE DISPLAYER ":: 110 & (175)(176)256558CL868:CB958:BE$(7)g::::" PRINT SHOP IMAGE DISPLAYER "::("PLACE GRAPHICS DISK IN DISK DRIVE"2:"AND PRESS ."7"";R$:::"PRINT SHOP IMAGE DISPLAYER": 8R$""Ģ(20):"PLEASE PRESS RE   o_]] 1 ?  O[~~CUg;T{y ||or{S 0 W(~~O 2o(@~||ww;g;?wbpt?8 _gc} 10p{@`Q` u~~tc /?;|>@p| ? z}?w  |8?vO !Sg? #gEp~o~ (||~plxp`` p ~ w~~|!(\~!E@ @ppx?Io?}T??p~/>?grx|~?_gsx}p`x||~gs >~~@}{~2?{|~~?Gy~L? ?I H_FzF`?8D@@`pppx =@px~~@~|~?Vx|xxppp`@@p||u l ||yyzR@px~x`||z~mw0? ~~ @pvr~??r7} ?  Nww{ONGws' `~="  }?| o`@px8L `@p| pgu ~/OIb`88```p|~}?_xx| @@pt{}wo?`pxzxx|@Ffpx@@|~p~( T{s?*p`x|~~|~~~~~|~~~?>d|xxxpp`@@p|??  |}ys`"`x|~oB@Z@px|Ww x@g{ + 8~,/ @agU  \F n b|o@8s?      |a ;z!+=?t/@~_xD ???? ?z0G wP]~NV|p`@?q Uw_tW;o??jYppU@@@Rp~~ZH`p ??c7/||p@?_?/ 'C}_w|pyAw^?{|`<Qo*~` R ?u |pQ~@p|~~|qG~pQ?~~r?x`Np |b?|p`I`}pG?|pp@@C~xe_~~~xxx```;|C/ P9|a :??{: W@osV_~x@`~U;o?~zHWw_U@Y(x:~ @@S|>Z t|/O*`~(_GGppx` @'Ow#".~!;++ + P???&#9/G=7T1PX