@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$) BFDEIH T U VTLTWAUG : ISSUE No 9 d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"!GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G}}   $?}   $@}   UTUPP$A}PTT@ D@@@@ D@@P@ D@Q@$B} D@@A@ D@@@ D@@@$C} D@UQ@T @DD@@@AP@ PE@A@U@PP@P $D}PA@UP@P U@AUPPU@U@@T@@  $E}   $F}* $G} ( UAT$H}PPQU@PUATPPQU@PPQ@U@PQ@$I}U@TPPQUTTPPQUTPQ@$J}PQ@PQ@U@PPQ@U@P$K}UATPUQU@@UATPUQU@@$L}$M} $N}$O}UUUUUUUUUUUUUUUUUUUUU@@$P}@@??<?@<<<$Q}??<@?<???@<<<<@<<<<<$R}@??<?@@UUUUUUUUUUUUUUUUUUUUU@$S}$T}$U}?$V}?$W}TPQUE@PPEP@UPU@$X}@PPU@@PPP@PQUE$Y}$Z}$[}$\}$]}PPQUUPPPUTPQAEPQAEPPQAETUQAE$^}PQUPPQAETPQ@PPQAEPUQ@UPPU$_}$`}$a}??$b}@UPUPPAUEETUQUPU$c}PUTP@TP@EEPA@PAEUPAUUETUAA@PUAE@EQ@EPUQQ@P$d}PEUQ@EPEPQAA@@UPUPAUEETTUQA@P@UU?$e}?$f}$g}$h}$i}@UPPPPPP$j}PPPQA@PQ@P$k}$l}$m}$n}UUEATQA@EE$o}PQUUEPQ@EQA@E$p}UUEAT$q}$r}$s}$t}$u}$v}  TPUP$w}UTPQUEUPU@P P@QA@A@PPU U@UTUUTA@PQAE TPP@$x}U@PA@PQAE PP@QA@PA@PQUE UPUTPQU@PUTAAEP $y} $z} $;ER.BAS D:MENU.BASD:SUPERHOP.OBJz6-?:AUv,}%I"AdAU"%D:QT.BASN(AdAU(%D:INVERT Sd 1 +@A@H1A@6-@@ 6(@PLEASE FL(}}IP DISK ..0(@0(@ AND PRESS START( @p2 F:B2y,@@P< +% D:LD(~}R.BASFa-@@)A@H=-@@PA SA@W a @ D:LDR.BAS D:LD(xg( (c)1983 Action Computer Services  B JKIHiDiELV`Lg,} g BLV`0LWhShl LTh &` Fj`8冨凪` hEӅӥ,} h`ʆǪƩ Ɛee` hƦʆǢ &Ɛeǐ h hLh h'&&&8儨児,}祂*Lh&&*ń8&&Lh i`hihiHHȱȱLahc !#3`,}LThJJJJ`H ahh`Hȩh 0hLi 9hLi gLi gLi gH8,}`HhHh jLi BHI V䅠Li LTj gLiԆ ؠPIPP`,} jP gLi jLqj jLj jLjH- zj8塪墨hLj jLqj jLj jȹP`,}텠8堨塪 j芨Oȩ-`PP LjP棩 Ѥģ0-ģ6000:,80H ,}& &ehe&eģ0ʥ 8堅塅`$ sj&*i0:0i sjƦ`¢ 护,}°ڱ%ȱ%E sjLl担CS jLlI jLlH kLl jLl &B V iNLMȑ,}` MLN%B VLiS:lE:lH j ll i jh)0IllLi[\ZUVT` lll,}` mLj lLRj lLvj) ` mLj h` 0d Thҥ `2)2,}ҩ`p`0)9m`@0)ӈJJJJ)`Ѕ`ȱ`` mȥ`Hh,}ƣĢ`ƥĤ`Ѣ ~n`ȱѢĦ`膡`,}`ťƤe8夰Ln Ƥ8`ŦeѠe桊Ln LDAY c,}_hi HA "3DUfw"3DDDUUUfff#o !#&(*-/8o  No3 ) ,}ko,}oR,0,L2p,p+p.p-p+p]p,p^p]p-p^p.pLjpsp-p.pLLp` TLtpopp  ,}lLp̠̠̺p j  loo jLp p j lLp RATE OF INCREASE:p j lo jLq ,} q j mILps mMoLqopp  lLPq̠̠̺q; j lLxq RATE OF INCREASE:qc j,} mMoLqopp  lLqINITIAL SKILL LEVEL:q j lLqŠƠźq jppMoLrr mM oL,}rooLr8oopooo mM!oLOroɸo LOromopooio  loo jLhr rd jLr mM,} oLroLr8oo mM!oLrodLro lo jLr r j mM o mM!oLZskplpopd,}kplpL1snpmp ooL.soɮo L.sopLWslpkpN i8ȍmpnpLdslpkpnpmp /pL q8,}oo oo`Ls l Wo`C GenPLsLomoMoissoiLoeMoi8ssssssst,}stt͘stsLttP8ssss mco*(mdos mos*(mo8ssss mgo*(mho,}s m)ps*(m*pȱssLs8sso6omo7oioM`Ltoi(ooio o oott o o,}Lku o mco o*(mdooqooq oo o o mgo o*(mhooqooq oo oo o o,}Lt`Lou o oouu o oL.vG o mco o*(mdooqoqi(oi o o mgo o*(mhooqu,}oquuou oL#v o ooi(o oi oLu o oL}u`L2v o ooPvPv o oLvR o mco o*(m,}dooqoqi(oi o o mgo o*(mhooqvoqvvov oLvEro oLv`oi,}(o oi oLv o oL@v`Lw o ooww o oLwi o mco o*(mdooqoqi(oi o o ,}mgo o*(mhooqwoqwwow oLwo oooi(o oi oL~w o oLw`Lw mM o "oM o,}Lx lu8oooo /vLxoo v`L x mM!o "oM!oLIx luoo /vLFx8oooo v`=LNx m,}"oLx luoJxaomoboio s /vLxJxo s vooLx8o܅o h /p`L,}x l  ~IL2~L%~,} /p`TLC~( hXeYeioioXi_YiooL?~o ooooi ~oi,}~~o~ oL~RNo oL~?~o oL~?~IL~`8o(oooLs~`k = Ldoo i,}oeooeoomoooioo oLg oo8oo oooo  oȌ oF o oLQ o o z,}h o rm8 ȍo o o oLFDU oooi  oiL2E= Ҡ,}Loi(o oi oL o oL m o o i io oL5$8o oo o,}oн oLq8 ( XiwYi Ů寐LT`L x z a|L$ | |L } ~L @~L! L,}LL``н oLq8 ( XiwYi Ů寐LT`L x z a|L$ | |L } ~L @~L! L, THE THINKING MAN'S VIDEO GAME *8-bit public domain software* By Douglas Skrecky Once upon a time a compute0}r magasine published a basic program called Red Squares which bore a slight resemblance to a program marketed by another comp0}any. After finding out how unhappy this company was said magasine lost all interest in publishing my little creation, which b0}ears a much closer resemblance to a certain program than Red Squares ever did. The present author does not relish the pro0}spect of a visit by gentleman with pointy black shoes and hachet smiles arriving with a company of Schwarzenegger clones. In 0}order to avoid being dragged off to an institution populated by mildly deranged homicidal maniacs who eat computer nerds for 0}breakfast this author is taking pains to declare that his creation THINK.ACT is public domain. He neither assumes any respons0}ibility nor will accept compensation for this program. It's a freebee folks. Enjoy! Now to switch to a more pleasant topi0}c. Action! hackers may wish to alter this program as they see fit. Music buffs may want to improve the sound effects. Those w0}ith a knowledge of display list interupts may wish to combine the score screen with the game itself. The game could also be i0}mproved by either displaying the next shape that will start falling or by including a 2 player option. Here's a little st0}ory to help your family play the game well. Multicolored snowflakes are falling onto the ground. They will evaporate only whe0}n they are packed so tightly together that they form a continuous layer. Whenever this happens that layer will vanish and the0} snowdrift will subside somewhat. As a sorcerer's apprentice you are bound to do your master's bidding and old greybeard says0} to keep the ground clear. You can only do this by focussing your telekinetic ESP powers to nudge the snowflakes as they 0}fall, so that they form continuous layers and evaporate. As an aid to your mental concentration you are provided with a joyst0}ick to help focus your ESP powers. Moving the joystick left or right will nudge the snowflake sideways while pressing the tri0}gger will rotate it. Pulling the joystick down will help pull the snowflake to the ground so you can begin concentrating on t0}he next one. At first the going is easy. However the sorcerer will note this and soon the snowflakes will begin to fall f0}aster, thus requiring both more rapid thinking and faster reflexes. If a gap in a line is covered by a snowflake it can only 0}be uncovered by evaporating the line above. With many cleverly placed gaps the snowdrift will begin to mount...... There 0}are over 3000 skill levels ranging from slow motion at level 0 to impossibly fast at level 3000. (Try level 3000 for fun to s0}ee how fast!) Each time a line of snow is filled the skill level will be incremented by from 0 to 100 points. If this increme0}nt is set to 0 the skill level will not change. The score is dependant on both the number of lines filled as well as the skil0}l level. Have fun- don't break your joystick! The score is dependant on both the number of lines filled as well as the skil00<:O (c)1983 Action Computer Services  B JKIHiDiELV`LI<4} I< BLV`VL<L= BHI V䅠L= L> IP 9L> >L> ?L>H- >8塪墨hL? +?L> 2?L> >ȹP`4}텠8堨塪 >芨Oȩ-`PP >P棩 Ѥģ0-ģ6000:,80H 4}& &ehe&eģ0ʥ 8堅塅`$ >&*i0:0i >Ʀ`¢ 护4}°ڱ%ȱ%E >Ll@担CS ^>Ll@I +?Ll@H &@Ll@ >Ll@ &B V =NLMȑ4}` MLN%B VL=S:AE:AH X> AA !> X>h)0IAAL!>[\ZUVT` LAAA4}` SAL> FAL> LAL>) ` SAL> 2=` 0d <ҥ `2)24}ҩ`p`0)9 B`@0)ӈJJJJ)`Ѕ`ȱ`` ABȥ`Hh4}ƣĢ`ƥĤ`Ѣ B`ȱѢĦ`膡`4}`ťƤe8夰LB Ƥ8`ŦeѠe桊LB{n;m@4}ZC CLEAR,LARGER,SMALLER,UP,DOWN, LEFT,RIGHT,SPACEBLC A AC͂CLDC mVC*(mWCC4}( 2=XeYeCLCCC?͛CCLEDZCmC[CmCCC <CCLD`ZE_PL@ KDLX4}D =FDHD mVC*(mWCZCmFD[CmGDqIDȱiJDIDJDFD)GD)SDeTDe`ZCN RSH3(PX4})=PXLD A  A  A X>LED1:*.*D !>L:E$ˠ٠E K>Dĩ >DIS4}LEL\E%S%SDLfE EcĢEW O@Dĩ >LJELE%E%S%S%ELE EDąE O@ X>`ZCY FILES(20)LEL4}E==>E ^>C^ TBD_C1`C:aCsCE >EC^ C`LF DLGF$ŠΠŠϠĠŠF"4} K> E X>C^ !> A ARYUXTYX V X>sCM{CM~CM}C MrCLF C`;4}OLFYXFF }B DLG$ŠΠŠϠŠŠF K> E X>C^ !> RFUFTY4}X V X> CFFYX }B`LuG A AB  A  ALG&СG4} ^> > > > >LG Press To Return To THIS enuG K>LH Press To Turn emomode OnG K>LCH Press To reate a Fra4}ctalH& K>LpH" Press To oad a Fractal PictureHM K>LH" Press To ave a Fractal PictureHz K>LH% Press To Zoom-out4} For a Wider ViewH K>LH Press To Zoom-in Or MagnifyH K>L!I Use Cursor Keys To Move FractalI K>LMI! Press Spaceb4}ar To Toggle DisplayI+ K> > > > >L}I BY Douglas SkreckyIc K>sCMsCM|C MzCLILI C`LIsC4}}C:~C%rC7tC6uCvCwCxCyC{C>|C!zC"CCCC`LJMCCCCqCCCCCCC A4} 2=eeHH AhheCiC A 2=eeHH AhheCi4}C AeoC AepCC`CCCnC`LJCCLKnCCC <CeCCeCLQK8CC4}nC <8C嬍CC孍CCCLLoCCC <mCmCCeCCeC͏CC0LLCɿ4}C0LLnCCC <CeCCeC͍CC0LLC?C0LLCCC UDLL8CCpC <84}CCCeCCeC͏CC0LLCɿC0LL8CCnC <8C嬍CC孍C͍CC0LL4}C?C0LLCCC UD8CCCCCCqCCCCCqCLL8CCCCCMCL"MCC͙C:CL"M~C4}`L&MMrCL7M rG CMzCLcM/MCLVMC/L\MC/sC`M|CLrM F`M{CLM F I`M~CLMCC ILMC4}CM}CLM IMtCLNnCLN8nCnCCC 2=8颍CCCC 2=8`CCM4}uCL{NnCL{NnCmCmC g=CC`mCmC g=CCMxCLN8C CCC4}MyCLNCi CCiCMvCLN8C CCCMwCLNCi CCiCYX TBCCCCqCCCsC4}`LO I rG IMsCL3O JL"O #ML"O``OCCCMwCLNCi CCiCYX TBCCCCqCCCsC4,@00MOVEALIVEOFCHBRBIBTIMNBXYUULLCSCORBONUNNXIIIFBLBLLBASJUNINSECHANG8} 8}8} !"#$%&'(Q.T. BY BRIAN MCWILLIAMSANTIC MAGAZINE J8}UNE 1984 I;@2,;@,'6-@36-Ar?6-@I B:-F:A,-67<,.=:F:A%,8},1 :6-A:,2= @a,/@+,@!=/@@!7],@@'/@@9/@8}@ K/@@ ]/@@< Ab,@%/@ 7,@@I/@@ S@48}e,@@w/@@,@@/@@F @G,@@1/@@C/8}@@U/@@g/@@y,@@/@@,@@PC/@@8}',@@9,@ @CAuUg,@@',@@9-@@U(@antic m8}agazineg-@@Zw(@PRESENTS+-@@G(@programmed byY-@@ w(@9}BRIAN MCWILLIAMSdm Ap36-%+ @,&@$+"@,?6-%+",M6-@P$Y-@#m(@top9} i"@A}y6-@r$+",%@t$+"@,%@u$+"@,%@X$+"@,%@$+"@9},%@$+"@, Ap " A@M Ap @a,)/@;/@@"G/@"M/9}O Aq Aq/6-AP&+$@P,E6-@%@$O Aq0AAAP A9}% @G%-@u%@$Q6-P:@$H:,,%56-P:@ $H:,,%@=1Q@2A ,9} -@u6-P:@$H:,,%@;6-P:@$H:,,%@C1u!@6* @A)"@ *"@ 9}A@G@6%, %6-@B16-@ =6-@G Ape, (T:, A`6 6-R:,6-+"@9})"@)"@,%@$+"@,%@$+"@)"@ )"@,%@$+"@,APA 9}AA@@y1@%1@@91@@!G1@!y"@7*"@8*"@9*"@@9 }AT# As@w# A^ 6-66-h(1%%"@2% Ap0($r&"@G Ap9 }# Ap0&$|*(*!@6* @A)"A$?1%$@%$@+"@25 Ap@? Ap09 }$ 6-6- A`4"@C6-@B!6-'6-1 Ap04$ 6-6- A`4"@B9 }6-@C!6-'6-1 Ap04$ 6-6-6 A`9/6-@D$+"@B,%@$+"@C,39,89 }-@@E602@@4 8 F Ape-1&+"@C,%+"@B,C"@2)"@aF$9}"@BA --&61&&@2* -$H!2A&@@+@21,5=,&9}A E H$0-%@1%)@2- 0$H!2A%@@+@21,5=,%A 9}E H$XQ AqP!-@@!)1Q"@2)"@B)"@CA b - A@l91@99}"@2)"@B)"@CAPv#-@ A@# AP((@>:%A(,% Aq($ 6-9}%% $  @2,@%,@7,@@I,@@[,@@"m/@@"w9}@a,@/@@,@@*/@@',@@!9,@@!K,@@ 9}]/@@ g@4s,@,@4,@@',@@3,@?/@!Q,@9}@c/@@!u,@@/@@!,@@/@@!>O @,@9}@+%A(=,@@I6-@O6-R16-@ 6-@'6-@B1 Ape\T-@&9}6-R:,T6-+!@* @,%@$+!@* @,a7 @b,@-A A@7 Auf9}-@ k @,@ p6-P:@$H:,,%g6-@d$+"@,%@G$+"@,%@5$+"9}@,%$+"@,6-P:@$H:,,%@u--6-$+",%@P$+"@d)"@G,zww6-+"@d)"@X)9}"@r)"@t,%@$+"@u)"@G,%@$+"@5)"@)"@,36-P:@$H:,,%36-%A(9}$+"@,d-@@#,,6-R:,d6-+!@* @,%@$+!@* @,(9}-@ 'A A@!@2',g!2@W%@@ % /2=1@I@29}g"Ac)"@5Aqh,@%+"@2,--@1 96-&J6-6+@2,T Ap^@29}h,%%!!"Ac)"@5A`"@2A @2,@'-@%N(@>:%A9}(,>:@4, X@al,@%@/@%@! 6-% Aqp !6-%! Aq! @9 }A`[ 6-6--@' A + 5 AqPC-@M Aq`W Aq[  6-%$ A9!}`! Aq`! @A`q-@@b',@5-@S2AW&@@W 9"}a@m,@q 7-@ @2%,) - 7 Aqw @2,@"+/@@"9#}5@aA,@S/@@e,@@w/@@.16-@6-@'6-@B1 Ape9$}8AB-@&G ( $L)@w Aq)(T:,AQ-@% V 6-R:,6-+:d}/h`N|x>rx;d8?? .76 J8=&}TX?{@{,մ<7 ?? !lA*\`?@@='}?y  p>D ?` @ՈN@=(}? @0a>0`x|{a@=)}Ͽ?`898g߀8<Ü>?@=*}  ?<@  ~0G> p@ `F>0=8=+}`.@``π~?x1np8>?X=o=,}o?fyhp`q?@x``# =-}`Ap p0$  p<<  < =.}x߇`< X ` @ ?sx@ =/}?s?<A?>;<?'#?|??sr 3=0}9s99? ?~8|>=1}w|<??g~0??q?3?=2}ϰw ?`?0  `?@? x/`@=3}?<8Gs4<`0nx`W {<x f`??=4}o0P<0x?P <00=w?~`8`080;7?@=5} 00??O00<|>Gxx>s=6}0~? 0׿>3 |? S@?n8??ߏ|0@ <=7}t}3@ <~=}'>??b=8}?~?1Xxpfp~x <?@a~=9}?@|@x ??H? q?d@}80;=:} c`}0y @}0G |8@~9o=;}?<|>>|B@hώ,p@@o=<}f?`x`p$ ? >?@>>{s8?x>==}@~`s #7Gx8|=`?|x(` ?2l!0p =>}xp C6<c>0 pxxppÀ>~`pppx~`;|=?}?|?>=vyyy?S2`}y<3=@}#??<>3}y<`>?=A}z@{?{p @<>p<|0<=B}p<6<0=`86`?  ~>o>`>?8=C}0?#}8 x00??~ =D}>?7';?"\?&?|x>=E}~`??0>~|Ax<y=x<'|?yﹸOyG~? O?q=F}<6`~?}86 ?a}=G}0c`0!g?<|#0 ; >@|8~>  >=H} ~>`0<|8>0lp >>=I}xp >k<|ǀ_`>>?/;=烰=J}=w0=ps`}@`xp3=K}Hx3#@xp2?9?<@p/~ ?=L}@<p0{1`p c?x|@> w8?Ï@ =M}@ 6?`~??߇ƀ@B@o7lGC{l?| 0@|8?X?q?`L ?=O}H ?_ B@}x 38}`~a@}p9=P}>=#wp`1<b~6yϰ0g|@?8?~|0=Q}~0`> p?0n@;!@?|@8Dp@>=R}C@ ?O??1>?7?@?=S}G 8~<}?_00xg@?8=T}Fπpx `P!= p!~?ǟG =U}fx)><? l~00g3`0`p vl00?<y ` `?=V} 80?? p?00<80;??~`p n|8=0o8o4=X}<`?,7?`@?0>`@?p R8t `=Y}o8p8c13`0p88>ÿ??p3=Z}3c?~<@=[}  @|?|L x?9π8`8x?? >?x=\} ,~><??h`{???``?? =]}pn>5~7'󁃀?g=^}ǁ?P0ϟ `p`9<>|0@p=_}> ` !9@` `Xx8=`}}@8<sy!~?   |=a}= 0`aq1xx@|?~>`Ȏ@0=b} r1x@|?~>`Ȏ@0<7F0=\0 pxAd}{0_@h~8|pO(>88?^ v>8?Ae} _ (8 o4888Af}88h8p>:66x 'A<1_><rpAg}8:?(xx >_x9ˀAF~?~sAq}b***********b* TWAUG *b* ISSUE 9 *b***********b* SIDE B *b***********b%DOS SYSb)AUTORUN SYSb+MENU BASb>=TITLE PICb|LDR BASb5THINK OBJbTHINK DOCb(SUPAHOP OBJbaQT BASb>%PIC1 b>cPIC2 b>PIC3 b>PIC4 b1&THINK ACTb(WSUPERHOPACTbINVERTERBASbLDR1 BAS8[??|<?<p?~/} c>| þ_7@ǀAr}#=|? w`<?X ϲc0 :bx As}>8~8?`|?xr0?At}? p8~|׀? 0/|p:@Au};=:@^8.=l@?>}l8 Av}zx? :@.;| {~-x@p  g8Aw}@ ??(@ GG~<?08?8Ax}0>Ï???3~ yp?9|p Ol68!\cyAy}>0h?7>=`0{{w6?0~w gAz}o~7@{` >>x x@A{}` Ppp?P@8G ?@aA|}x]V<uA~} ||}XǏpÀ`' ?ń:`|? @z?&A}8 pp4`8 8~xw8`o0{A}? ϰ?g<7 > >x7@,?pA}ppi`@hp0po@@p0p ?@ 0pA} @0 0~ ` 0h:? |``xA}8?@?`pxp8??À`p8860/8A}p8! <xxq@ 0<gxX||@t <||A}~`m`0;~ߴ? /?8>b<||?1|P??2`>?sàlxx{ A}qc` <ap€8`=?Ax`A}>pt>>h.4,`A}$  t@|,_p??X>ϽA}x>hx>hm??? xxA}68^|<8@A h4o8x 8x,rP` q|;`A}~<x<r 0<@?7 ~>|  @pX`I!l _~8 ~#A}x`=aÎ!gؕ~y{ޛ?^0|x?|Q ??>?@?? ?A}>xx~ @0{`<pppn`0p0p߸@A}`0P@@ 0``>7p 0@p` A}` 8x@`px~?`p~t@@?A}p@x@>?<(*8@o,@X@y,` A}P > XPp??p/0?G? A}``x  ~x`|   ! 0`xA A}D<y `x @.8 ?p???Z?>oA};~???=˞Cwa=Ǐ>p7 ~`A}~w?? >@ 6 {x?z<@XA} 8@< l/>0|<ux@|x߿x` A}~?>  ~ : ?>?߀0 A}?> ?00:>?~A} @`pNv0 0 ` 9Wp8lA}|< 7~?>nϿ~8~A}=~|;~~f}_?6<\?; A}p|x|?`|}??z ;p0sz<\?x?(:0CXa9 <XxA}8`x9Ϡ8÷<80>PyCxy}v<<{8x`89A}8<8?(/x08?C8x>pA}| 6?||f`>@ (|x7n(`A}? x?;~'AAx?????A}? >C0<8G~p0<0~ pA}|5?x X +> C/o pqA}}[pp>|x'`|bG6s _|<5psA}8yz >By#`~ Gn.p??~~wX={ 7@?^|A}i ~G0ߐ} o?1? .>9 GA}<~1? .>9 G@7 + i@cܰH # E}?6@ <v?Àv\ p@~<?0?}E} @` ~>@O{<8 I8E}pX& l E}`}4@ P [`,*``@Fb E}@`< A|B0 A|@@x,`CE}u|Ak0@g|P0 C{`~   E}Kx  !!@w|*!P d|@_`@ @E}00p C@C8# G&G@  E}@^p`~f 8H9 8 `X?0  E}`i$29~ HOb0 7?>>o2 E}0P f4π X|8*@~a>ЇE}&!<@ .\<0 4`E}o@ 1 t~?6 ;a x7>ð E}/\pA .  @? P?A a ?8NB"w@E}0  0`@>~a@0'`; x8000pBpE}4`,09%#@@$nq1v(A|E}8vXp=gpπ0 ?009E}j  `?F(91>` ` &;| {@"~E}@ N@0`qq @o?p |0aaE} ,Pt0C0 (&~>33s|$T<n9`2E}{Ld &~| (AL@0 ~ @@1E}Ds=2 A c   ? < `E} 08? AÀ  .?@p|4a@E}|4$?! op@ <<8 3`~3a lE}À l   F9ξbl9o>:z<< #pso;E}?a P 6-| .xx`4 80pp| `@ 8! 0`PE}pa`p  `|,>0  |?${E}  l$|$̨~0 {p>$ sE} .gtgd DB'|<_40р(E}? {0@4d8np TE}8a?0?( ,`@op@D,dE}  `f0F0`0 d~9E}`pd|0q`0np F@0` ~@F8aa E}Ag a` 1':?@ ?=<?x @E}s938?8 x90@?0€y΀9@E}?`8?@?x !v~\ `5g``oE}B8"``pc@0 8@ ``  04E}&@Y0`,? 2`vP2b:3`P~E} ,8 /, _`Arvpn ;iR E}o@?u a8q<* x(8>`6E}1:`I ;,. _f0 o=π,? "'HE}0:Cr~͝~C *EP `g aE}C  ?F@@!P``_(#sA9@p*cP&`E}p8a0 y| , CLH# |0l3@ E}t @?0|!PP.`< =0 E} 4c @ 0$`h A `#E} /|}0; |?p[@1 8@H`E}!@  ,`!@o-838 E}v@??p8 ?0 $ x? E}А @@Oπ BE}x?`n@ {<((`@?-@0E}? <@ `@00p`P ?p€@D` `BE}x8@ `74"h g8=H 8( E}D0  ?  $f|8p`@ E} ? E}٠ T@|la6> D7{? 7_I}1axI}@L̫laqI}hLxlL:p3I}??_I}@`@YI}?'wq@0I}8XI}ӆ,!I}0 cw8 ? I}~ ~p8I}AxB AI}p@ I}> Po<I}Æ_|<@ 8<0 I}0cG_3;,G;7(p(I}$D`#7x00I}8L<g 8pI}p g08x  > 0 I}>q gH  !G{`@&I}X xp?M r8`|q 8`! DI}7x`?p@ ' <8`#O /J}cd . r8Hx0  HpJ} pGx`?=Ca C?J}paC ^r#ga ggL!㪃P<x J}?B$|hX8{E2? < 91"0G 8hX|J}E 08<|f F88b@79??0J}@@ p |pA`4|`8 cx_pJ} p@x0 `(op18 c08 q0J}߈?p8h_@P o708C00qJ}G08 `<P8a00px B08J }ٿg`g$?" cɾ}߁#a0?J }? `p 8g?x!yߏC pX?J }:;xXX">x@X>?$CM^<_J }!oaF?n|<#J }C y4 0~ǿ8DyJ} G G|bd ? 8~pJ}, g 8`0 8rxA<J}ʍ@O IƘ_J}8Ί(p(K-03J}29%7n<<NJ}/<O 6 J}@0c;Àcǘxl!qJ}T@apn/BJ}@@@ @J}?coJ}aRb@~с` ??>J}K x?J }L?J!}@ @XJ"}aw60J#}?" {z|J$}z||x̂xJ%}x̂xH7MODULEBYTE POINTER PTCARD I,L,S=88,CENTER,SKILL=[2000],LINE, SKILL_LEVEL,SCORE=[0],HISCORE=[0]BYTE COL,HEIGHT,SHAPE,CN'}URSOR=752,KEY=764, INC=[2],UP=[14],DOWN=[13], LEFT=[11],RIGHT=[7],JOYBYTE ARRAY C=[$11 $22 $33 $44 $55 $66 $77 N(} $11 $22 $33 $44 $44 $44 $55 $55 $55 $66 $66 $66], INDEX=[0 4 7 10 13 16 19 21 22 24 26 28 31 33 35 38 40 42 4N)}5 47], ROTATE=[7 8 9 10 13 16 6 0 1 2 11 12 3 14 15 4 17 18 5]CARD ARRAY TOP(5),BOT(5), TOP_SHAPE=[480 481 482 N*} 483 0 1 242 240 1 2 240 241 2 0 1 2 240 1 242 1 2 241 241 N+} 2 1 242 1 2 0 1 2 1 482 1 2 0 241 242 481 2 241 N,} 2 0 1 2 1 242], BOT_SHAPE=[720 721 722 723 240 481 482 480 481 242 480 481 482 240 241 N-}482 480 481 482 481 482 1201 721 482 481 722 241 722 480 241 242 721 7N.}22 721 242 480 481 482 721 722 481 722 240 481 242 721 482] PROC WAIT(CARD W) CARD Z N/}FOR Z=0 TO W DO ODRETURNPROC SELECT_SKILL_LEVEL() CARD FAST,TIME=[5000] BYTE B=[1],DIR CURSOR=1 DIR=UP POSITION(7,13) PN0}RINT("̠̠̺") POSITION(28,13) PRINTC(SKILL) PRINT(" ") POSITION(7,15) PRINT(" RATE OF INCREASE:") POSITN1}ION(28,15) PRINTB(INC) PRINT(" ") WHILE STRIG(0)=1 DO IF STICK(0)=UP THEN DIR=UP POSITION(7,13) PRINT("̠̠N2}̺") POSITION(7,15) PRINT(" RATE OF INCREASE:") FI IF STICK(0)=DOWN THEN DIR=DOWN POSITION(7,13) PRINT("INITIN3}AL SKILL LEVEL:") POSITION(7,15) PRINT("ŠƠź") FI IF DIR=UP THEN IF STICK(0)=LEFT AND SKILL>0 THEN N4}SKILL==-B FI IF STICK(0)=RIGHT AND SKILL<3000 THEN SKILL==+B FI POSITION(28,13) PRINTC(SKILL) PRINT(" ") ELSE N5} IF STICK(0)=LEFT AND INC>0 THEN INC==-1 FI IF STICK(0)=RIGHT AND INC<100 THEN INC==+1 FI POSITION(28,15) PRINTB(INC) PN6}RINT(" ") FI IF STICK(0)=LEFT OR STICK(0)=RIGHT THEN FAST==+1 B=1 IF FAST>100 THEN TIME=0 IF SKILLN7}>10 AND SKILL<2990 THEN B=3 FI ELSE TIME=(20000/FAST)-200 FI ELSE FAST=2 FI WAIT(TIME) OD SKILL_LEVEN8}L=3000-SKILLRETURNPROC GR10() BYTE DINDEX=87,GPRIOR=623 ;GRAPHICS(10) FOR 400/800 COMPUTERS GRAPHICS(8+16) DINDEX=10 GPRIN9}OR=128RETURNPROC ASSIGN_SHAPE() CARD J1,J2,J BYTE ATTRACT=77 J1=INDEX(SHAPE) J2=INDEX(SHAPE+1)-1 FOR J=J1 TO J2 DO TOPN:}(J-J1)=TOP_SHAPE(J) BOT(J-J1)=BOT_SHAPE(J) OD HEIGHT=J2-J1 COL=C(SHAPE) ATTRACT=0RETURNPROC DROP_SHAPE() CENTER==+N;}40 FOR I=0 TO HEIGHT DO PT=CENTER+TOP(I) PT^=0 PT=CENTER+BOT(I) PT^=COL ODRETURNPROC ERASE_SHAPE() FOR I=0 TO HEIGHT N<}DO FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO PT^=0 OD ODRETURNBYTE FUNC AREA_NOT_CLEAR() FOR I=0 TO HEIGHT DN=}O FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO IF PT^<>0 THEN RETURN(1) FI OD ODRETURN(0)PROC DRAW_SHAPE()N>} FOR I=0 TO HEIGHT DO FOR PT=CENTER+TOP(I)+40 TO CENTER+BOT(I) STEP 40 DO PT^=COL OD ODRETURNPROC LEFT_SHAPE() IF STICN?}K(0)=LEFT OR JOY=LEFT THEN ERASE_SHAPE() CENTER==-1 IF AREA_NOT_CLEAR() THEN CENTER==+1 FI DRAW_SHAPE() FIRETURN@}NPROC RIGHT_SHAPE() IF STICK(0)=RIGHT OR JOY=RIGHT THEN ERASE_SHAPE() CENTER==+1 IF AREA_NOT_CLEAR() THEN CENTER==-NA}1 FI DRAW_SHAPE() FIRETURNPROC ROTATE_SHAPE() BYTE OLD_SHAPE IF STRIG(0)=0 OR JOY=0 THEN ERASE_SHAPE() OLD_SHAPE=SNB}HAPE SHAPE=ROTATE(SHAPE) ASSIGN_SHAPE() IF AREA_NOT_CLEAR() THEN SHAPE=OLD_SHAPE ASSIGN_SHAPE() FI DRAW_SHAPE() NC} IF SKILL>1500 THEN WAIT(3*(SKILL-1500)) FI FIRETURNPROC TITLE_SCREEN() GRAPHICS(0) SETCOLOR(4,9,0) SETCOLOR(2,9,0) PUTND}E() PRINTE(" THE THINKING MAN'S VIDEO GAME...") PRINTE(" *public domain software*") PRINTE(" By Douglas SkrNE}ecky") PUTE() PUTE() PRINTE(" ԠүҠ") PRINTE(" ӠҠϠԠ") PRINTE(" NF}Ԡ٠٠ϠŠ") PUTE() PRINT(" CURRENT SCORE: ") PRINTCE(SCORE) PRINT(" HIGH SCORE: ") IFNG} SCORE>HISCORE THEN HISCORE=SCORE FI PRINTCE(HISCORE) SCORE=0 SELECT_SKILL_LEVEL() KEY=255RETURNPROC INIT_BOARD() CARNH}D Y40,YBYTE ARRAY COL= [0 $44 $2E $0E $2B $64 $C6 $94 $34] GR10() Y40=0 MOVEBLOCK(704,COL,9) FOR Y=1 TO 192 DO FOR PT=SNI}+Y40 TO S+Y40+15 DO PT^=PT OD FOR PT=S+Y40+26 TO S+Y40+40 DO PT^=PT OD Y40==+40 OD Y40=187*40 FOR Y=0 TO 7 DO FONJ}R PT=S+Y40+16 TO S+Y40+25 DO PT^=PT OD Y40==+40 ODRETURNBYTE FUNC SCREEN_NOT_FILLED() FOR PT=S+600+16 TO S+600+25 DONK} IF PT^<>0 THEN RETURN(0) FI ODRETURN(1)PROC CHOOSE_SHAPE() BYTE R=$D20A,ATTRACT=77 ATTRACT=0 CENTER=S+18 SHAPE=RAND(7)NL} ASSIGN_SHAPE() DRAW_SHAPE()RETURNBYTE FUNC ABOVE_BOTTOM() CENTER==+40 FOR I=0 TO HEIGHT DO PT=CENTER+BOT(I) IF PT^NM}<>0 THEN CENTER==-40 RETURN(0) FI OD CENTER==-40RETURN(1)PROC PLAY_WITH_SHAPE() FOR L=1 TO 6 DO DROP_SHAPE() JOY=SNN}TICK(0) IF STRIG(0)=0 THEN JOY=0 FI IF STICK(0)=DOWN THEN WAIT(100) ELSE WAIT(SKILL_LEVEL) FI OD LEFT_SHAPE() RIGHT_SHANO}PE() ROTATE_SHAPE()RETURNPROC CHECK_PAUSE() IF KEY<>255 THEN KEY=255 WHILE KEY=255 DO OD WAIT(5000) KEY=255 FINP}RETURNBYTE FUNC SOLID_LINE() BYTE ERASE LINE=S+186*40+16 WHILE LINE>S+95 DO ERASE=1 FOR PT=LINE TO LINE+9 DO IF PNQ}T^=0 THEN ERASE=0 FI OD IF ERASE=1 THEN RETURN(1) FI LINE==-40 ODRETURN(0)PROC ERASE_LINE() BYTE R=53770 CARD DOWN NR}BYTE POINTER CT SCORE==+SKILL/100 SKILL==+INC IF SKILL>3000 THEN SKILL=3000 FI SKILL_LEVEL=3000-SKILL DOWN=LINE FOR I=1 NS}TO 70 DO SOUND(0,I,10,I RSH 4) FOR PT=DOWN-200 TO DOWN STEP 40 DO FOR CT=PT TO PT+9 DO CT^=R OD OD OD SNDRST() DONT} ;LOWERS HEAP FOR PT=DOWN TO DOWN+9 DO CT=PT-240 PT^=CT^ OD DOWN==-40 UNTIL DOWN'S BEGIN PRINTF("%S%S"R_},FILES," ") INPUTSD(1,FILES) ENDWHILE PRINTF("%E%S%S%E"," ",FILES) CLOSE(1)RETURNPROC CHOOSE_FILE() BYTR`}E ARRAY TEMP(16) PRINT("==>") ZERO(FILENAME,16) FILENAME(1)='D FILENAME(2)='1 FILENAME(3)=': KEY=CLEAR INPUTS(TEMP) SARa}SSIGN(FILENAME,TEMP,4,16)RETURNPROC LOAD_FRACTAL() DISKDIR() PRINTE("ŠΠŠϠĠŠ") CHOOSE_FILERb}() CLOSE(1) OPEN(1,FILENAME,4,0) GRAPHICS(8+16) SETCOLOR(2,0,0) IOTYPE=7 BUFFER_ADDRESS=SCREEN BUFFER_LENGTH=7680 CIO(Rc}0,16) CLOSE(1) KEY=CLEAR DO UNTIL KEY=LOAD OR KEY=DEMO OR KEY=CREATE OR KEY=MENUKEY END INITIALIZE_PLOT() R}!@* @*@,%@$+!@* @*@,%@$+!@* @*"@,`_16-%@:e}$+!@* @*"@,UA A@APA0_ A@j-@ t9 1%#"@2:f}*@/6-@9 Ape~O"@a*"@E6-@B$+ @,%@C$+!@,O Ape/"@3:g})"Aa%6-@/ A !!"@*"@"A6T:,*"@@2$,,6-%6 Ape :h}(* 6-A@c6-P:@$H:,,%M6-@5$+",%@c$+"@,%$+"@,c6-P:@$H::i},,%s)6-@3$+",%Aa$+"@,?6-P:@$H:,,%s6-@$+"@5,%@P$+"@c,%$+",ym6:j}-+"@5,%@$+"@c)"@u)"@t)"@r,%@$+"@X)"@)"@,y6-@ 36-P::k}@$H:,,%36-%A($+"@,*-&&61&"@2* I @2,!/%@)6-%:l}-3,=@AE,%IC,%@/2AP%@@C"@2A(X @Y,$-@:m}6:2@V@> H2R@2X,-"@6-%/ 6-6-&2[ @2,%+:n}-%@@"31?"@I@2Q,&[ A<K @2,&,=2A$%@@:o}A K2F @2,& Av6-@ Ape/-@@K2@AP@O:p} Y@6_,v-@6@U2@AP@# -1&9"@2=C,K6-&U Ape:q}2@ A 6-6 1%@26-. @2,6-%% Ape+6-.$ 6-:r} A5@/-@2 )@2/,E @a,@@"1/@@";@AM,@:s}@!_,@@ q,@@!,@@ Aa,@@Jn,@@@E1:t},@ @!H-@!@6R@2`,@%n/@%T @a,@%/@/@E:u}=,@ &G@A[,@&@o,@&@yAa,@&@^I,@&@%-@:v}) - 96-@ ?6-I Aqh6-@6-@Bm9 Ap @2#,@"5/@@"9:w}oE,@%@!@B-6-@;,@%E#Are-@%@%%@23,&@= A:x}peC"Y2@@a-e |P-@6$2@( , 46-&B-@ L AP :y}n6-@&-@!@60@28,%B ApeF"\2@@j-@n ? @6:z},$-@642@8 < ?$::68,50,102,50,76,50,114,100,114,50,76,50,68,50,85,1006647,243,53,243:{},96,243,60,243,53,243,47,243,60,243 Ap @4#,@5/@@ A,@S/@@ ]@a:|}o,@@/@@/@@'/@@9/@@K-@@a(@:}}you win^s-@@(@CONGRATULATIONS^!Arp& Ar0  X+-@+(@:~}PRESS TRIGGER]@wT:,Apb$l4 @2-@"!,-/@1 4$vP @2,:}6-%#6-%- ApeI2@W@@M P$X @2,%%5,%$@%$@Q2A:}@@U X$ ,$s @Y,%%%-@A2@h@@E S-@o2:}@@@s  6-%@$+",$#-@ (@=#$H Ap-',@:}%+ 5@aE,@%%H$( @a,@%/@($& "-@ &(@=$:}6 6--@@3(@bonus x 6$s @2,@!-%?(@ >:@4,]I@a:}W,%@k/@%@s6-%8-@-2A(@@1 5 8$ a!2%A$@:}@)6-%;-@@H(@L Z-@%^ a$S @E,#ArP+-@1"G2:}@@O-S  A-@6$2@( , 46-&A(Ar`*9 @2, Aq9:}Ar0Ar Ar04 @AP> Ap  A0R$$85,85,76,25,72,25,85,50,60,100\F Aq -:}@@8(@ end of gameFArf@ 6.=:,AB:,&-B:,<A%A:7<,,@ p A:}p A@z 2$1 6-& Aq0 Aq$(''1 Aq$'X #Ba$6-F:A,&@66:}-+%,$AVBAYNAX+@'O-@2"!67,.>:,% ;6-?:C:,<<BsD,OAV'AV:}$'5 B`"5-%$@%$@%@.'"   B L'AYAT$V'aa104,104,133,:}215,104,133,214,104,133,213,104,133,212,162,4,160,0,177,212,145,214,200,208,249['$$230,213,230,215,202,208,240,96`'__29,1:}70,85,170,85,170,85,170,85,2,24,126,90,66,66,90,126,24,15,0,126,126,126,126,126,126,0j'YY10,8,20,24,56,56,112,96,152,5,0,12:}6,70,94,94,126,126,0,6,0,126,98,122,122,126,126,0t'YY7,0,126,126,122,122,98,126,0,8,0,126,126,94,94,70,126,0,12,8,20,24,58,:}62,112,96,152~'UU13,160,0,12,68,190,127,0,0,11,16,40,24,28,28,14,6,25,63,16,40,24,92,124,14,6,25'^^27,146,84,0,198,0,84,:}146,0,26,254,254,170,138,170,254,254,0,40,124,68,108,56,16,24,16,24'WW61,0,0,48,94,116,106,62,0,30,0,12,56,80,96,74,62,0,3:}2,24,60,60,126,126,126,126,60'!!3,0,255,126,126,126,255,0,0'[[1,124,246,250,254,254,124,56,16,9,16,16,16,16,16,16,16,16:},31,104,88,104,92,116,56,0,0'TT60,0,195,36,24,24,36,0,0,4,0,0,0,126,153,36,0,0,42,24,60,36,36,126,126,126,126'^^43,16,5:}6,124,124,124,124,254,8,49,112,64,110,72,126,2,14,0,54,60,126,90,126,126,126,84,0'62,12,12,24,24,48,48,0,48 D:QT:}AG,126,84,0'62,12,12,24,24,48,48,0,48AE,126,126,126,84,0'62,12,12,24,24,48,48,0,48 D:QT8@ RETURNPROC SAVE_FRACTAL() BYTE ARRAY SAVESCREEN(7680) MOVEBLOCK(SAVESCREEN,SCREEN,7680) DISKDIR() PRINTE("R}ŠΠŠϠŠŠ") CHOOSE_FILE() CLOSE(1) OPEN(1,FILENAME,8,0) IOTYPE=11 BUFFER_ADDRESS=SAVESCREEN BUFR}FER_LENGTH=7680 CIO(0,16) CLOSE(1) INITIALIZE_PLOT() MOVEBLOCK(SCREEN,SAVESCREEN,7680)RETURNPROC MENU()R} GRAPHICS(0) POKE(752,1) SETCOLOR(2,9,0) SETCOLOR(4,9,0) PRINT("С") PUTE() PUTE() PUTR}E() PUTE() PRINTE(" Press To Return To THIS enu") PRINTE(" Press To Turn emomode On") PRINTE(" Press To reate a FR}ractal") PRINTE(" Press To oad a Fractal Picture") PRINTE(" Press To ave a Fractal Picture") PRINTE(" Press To ZooR}m-out For a Wider View") PRINTE(" Press To Zoom-in Or Magnify") PRINTE(" Use Cursor Keys To Move Fractal") PRINTE(" PresR}s Spacebar To Toggle Display") PUTE() PUTE() PUTE() PUTE() PRINTE(" BY Douglas Skrecky") KEY=CLEAR WHILE KEY=CLEAR R}OR KEY=SAVE OR KEY=SPACEBAR BEGIN ENDWHILE INITIALIZE_PLOT() RETURNPROC SETUP() CLEAR=255 CREATE=18 DEMO=5R}8 MENUKEY=37 LARGER=55 SMALLER=54 UP=14 DOWN=15 LEFT=6 RIGHT=7 LOAD=0 SAVE=62 SPACEBAR=33 ON=34 OFF=0 DEMOMODE=OFFRETURNR}PROC NEW_PARAMETERS() BYTE ATTRACT=77 ATTRACT=0 X=0 Y=0 Z=0 COUNT=0 X0=0 Y0=0 CX=200+2*RAND(0)+RAND(0) CY=200+2*RAND(0R})+RAND(0) R1=1+RAND(5) R2=2+RAND(4) JC=96 IC=160 SCREEN_SIZE=6 RETURNPROC DRAW_FRACTAL() IF Y>=0 THEN J=JC+ (Y RSH SCRER}EN_SIZE) ELSE J=JC- (-Y RSH SCREEN_SIZE) ENDIF IF X>=0 THEN XX=Y+((X RSH R1)+CX) IF J>0 AND J<191 THR}~(DSSCHLNI@6@ V} @$ A +@$!-@@5%"3A5%7 A Aff104,162,0,165,208,24,105,40,133,208,165,V}209,105,00,133,209,232,160,00,177,208,73,255,145,208,200((196,206,208,245,228,207,208,225,96\%6-F:@,%AV$F:V}@,96-%+$@@%,J6-P:'AV,\6-&+$AV,BAA 'A3AB6-?:A6V}, $dDEMO DECTION...nM @)-A@5,I/A&AM x6-P:H:V},$@0,6-P:H:,$A`,))6-P:H:,$+@8&,,%@))6-P:H:,$+A&,,%@V}%-@A % @ A D2:INVERTER.BAS,,%@))6-P:H:,$+A&,,%@THEN I=IC+(X RSH SCREEN_SIZE) IF I>0 AND I<319 THEN PLOT(I,J) R} ENDIF ENDIF ELSE XX=Y+((-X RSH R2)-CX) IF J>0 AND J<191 THEN I=IC-(-X RSH SCREEN_R}SIZE) IF I>0 AND I<319 THEN PLOT(I,J) ENDIF R} ENDIF ENDIF Y=(CY-X) Z==+1 X=XX IF Z=0 THEN Y==-7 ENDIF IF DEMOMODE=ON THEN COUNT==+1 IF COUNT>15000 THEN KEY=DEMR}O ENDIF ENDIFRETURNPROC CHANGE_PARAMETERS() IF KEY=MENUKEY THEN MENU() INITIALIZE_PLOT() R} ENDIF IF KEY=SPACEBAR THEN IF DISPLAY=OFF THEN DISPLAY=ON ELSE DISPLAY=OFF R} ENDIF KEY=CLEAR RETURN ENDIF IF KEY=SAVE THEN SAVE_FRACTAL() RETURN ENDIF IF KEY=LOAD TR}HEN LOAD_FRACTAL() NEW_PARAMETERS() RETURN ENDIF IF KEY=DEMO THEN DEMOMODE=ON NEW_PARAMETERS() ELSE DEMOMODE=OR}FF ENDIF IF KEY=CREATE THEN NEW_PARAMETERS() ENDIF IF KEY=LARGER AND SCREEN_SIZE>1 THEN SCREEN_SIZE==-1 R} IC=2*IC-162 JC=2*JC-96 ENDIF IF KEY=SMALLER AND SCREEN_SIZE<8 THEN SCREEN_SIZE==+1 R} IC=(162+IC)/2 JC=(96+JC)/2 ENDIF IF KEY=LEFT THEN IC==-10 ENDIF IF KEY=RIGHT THEN IC==+10 ENDIF IR}F KEY=UP THEN JC==-10 ENDIF IF KEY=DOWN THEN JC==+10 ENDIF ZERO(SCREEN,7680) X=0 Y=0 Z=0 COUNT=0 KEY=CLEARRETURN R}PROC HOPDEMO() SETUP() MENU() NEW_PARAMETERS() BEGIN WHILE KEY=CLEAR BEGIN DRAW_FRACTAL() ENDWHILE CHANGE_PAR}RAMETERS() ENDRETURNGIN WHILE KEY=CLEAR BEGIN DRAW_FRACTAL() ENDWHILE CHANGE_PAP6 `s V@9@@ D:SUPAHOP.OBJV6-?:C:hji jL,, D1:LDR1.Z}BAS `s V@9@@ D:SUPAHOP.OBJV6-?:C:hji jL,, D1:LDR1.X