O[ p @`  @`! #@%`')-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a Oe`gimoq Ooy{} @` @ ` @ ` @ ` / @ ` ǀ ɠ / @ ` ٠  @` `!Aa   /e@`  @`! #@%`')-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a Oe`gimoq Ooy{} @` @ ` @ ` @ ` / @ ` ǀ ɠ / @ ` ٠  @` `!Aa   /b^GFABASROPRG ' BDؠGFABASICPRG ' BD+GFA_FX_MPRG ( BDcGFA_FX_2PRG ( BDkGFA_FX_1PRG ( BDsGFA_FX DOC ( BDuGFA_FX BAS ( BDw~DESKTOP INF & BDDEMO BAS & BDlBASCONVTBAS & BD6?WINDDEMOBAS ( BDhVDISAMP BAS ( BDASTKILLINBAS ( BD SPRIT_EDBAS ( BD.READ_ME 202 ( BDnREAD ME ( BDPICDIS BAS ( BDPATTERN BAS ( BD0MOUSEDEMBAS ( BDLSPRITE DOC ( BD LSPRITE BAS ( BDMLINE BAS ( BDrHORSE BIT ( BDhsHORSE BAS ( BDl ``THGFA BASIC RUN ONLY >*o#^ - ЭЭl// #^Bg?<JNA ?<NN#^>NNT3_FC^"L?H>aSHx?<HNA\@#^Y6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXa @a."X0gZt aZkTA6gN /fHS@gDtaDo>NqA /f4S@g04<;a.k(AjA AbAPjAdYA??<+NAXrNurxS@k0  bS@k .g( :g"0  b DBb BdeS@jJANuSR@JANuHpx$ y^$y^"Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f#^LNuHpx$&ր y^$y^"HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f#^LNua!ysNua!ysNu3 rt`GJy,Bsvp avpavpa3 ByprtaFB plrtaFvpavpavpavpavpjavp aB p'rtaFv0<rtal?<NNT@@B #<3 0<rtaFfvpa6vpa.ByprtaFFNu?a 6p `a 6p` !g( %Fga r6j DCpqavpa -Fgf !g( %FgZa F3 ByprtaE -Fg8p !g %Fg*a ?p -Fga 3 3plrt`ENu !g %FgPa6paJ -Fg< !g$ %Fg0afJBkzaYx6pa -Fg Fg a6p`Nu !g %Fga6pa -Fg !g %Fga`6pa -Fg FgaF3prt`Da?a??/`a|?a?ap?avt6 | C13013WCk1Qrp`Dva.?a4?a"?a( | 1@ 1@01@1@01@1@1@001@ 1@prt`D a?a?at -Ff2vr |B`1t`t |B`1BB11p 3`C?a4?a.3 3vr0`ar?ax?a ?a -Ffrv |1111t`?a?a3 30rv`r`r `r?a?a?a?a |11116p tr`Ha?a?az? -FfBg0<` ad?a^3 30vr`a?a?a8?a2? -FfBg0<` a?a3 30rv` By GfR?:?:Rya:?a@?Ry -Ff ygT4:`a ?aP 3 3pgrt`B(Ha: | 0ys`WJHa" |0ys`W2Ha 09 `W"aHp|rt |001A"<_`psNBNua`H?<NNTaUTBNuaaaN`Tn !g %Fga6paX -Fgz !g %Fgna6pja8 -FgZ !g %FgNa6p a -Fg: !g" %Fg.a# rtp aA -Fg Fg aj6p`Nua\Bg?a/aN?@a @a:'7 _a0"X24$[A0@@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BA0a9`taD?9 ?909 ysaTR0ysaFR0`>a?a3 3pirta?09 `Ua*??a" -Fg$@@?@a @@oa@o?@?<NN\Nup`7p`7p`7p`p`p 3a d3vgC@@@A^ p hf X ~e#TvgC@@@A^ p hfT X 4eN#R3s3s FgaJ3aL3"| z9f?:`aJaRz2TSWjT`0:2:`$@2TQ"| z9f?:`aIaR8zT2SWjT`0:2:z`$@T2Qr4:f0:^`= @a4"X0A H2`0Qppta=vp`aJBkaQ@3HpN`=V @a"X0A H2`0Qtpoa=p`DNHv y^CC`IHv6 y^փփ`HHv y^CC 00`PHv6 y^փփ 08`Pv y^CCHp0Ra _`Hv6 y^փփHp8Ra _`Ha/A^eeeee `H@J@g`쐨g`Hd`v y^CCHp0Ra _ Nuv6 y^փփHp8Ra _ Nuv y^CJp0g*H <r$<Nuv6 y^փJp8fHtNuv y^CHp0Ra _0Nuv6 y^փHp8Ra _0NuHv 9^CCCCtNuHv6 9^փЃփЃtNua/A^eаdʐH@J@g0`v y^CC`v6 y^փփHp8Ra, _g$^@c/"@0)a _$PS@kH2QNu2(g"PRAA4DBH#"@$Y2g 1ARAA%NuBhNuvg6g"Wkg2WkR/&SEg$`LR/ bZ RbJp0@:<Jf` փSGgЃЃЃA^H H瀀 PaLaLp$4`YE PQƐFrd0` Qj`prg2A^BBB p "X2g UAk$QNuHaT`EaBPJg, BUBkg`ЀЀ`Ѐ"ЀЁE H Fa&L y^ 9^"X2geb 9^ J"F^^`a.Sk.TH@g TXVf>"~:P0.M LLLJ,>,N0D000Jn! V _0~0؎33,,$&xV83TUnb^ $#"]P#&\8"""h[zPS6xx 01,1>1n2]^6`3f3_3FH RNuR@HTNu$33^>p> p\j8 HxFF~AJ0pk*c`TG<;p0N`~-A*0p`G<;pN``p `$p `$@6@0@<@J@B889:.HTBB,AxAAAAAAAV22&&, ޚ @>??|>9CrCdFFABHDE4JtݜVH2hݮv0>ۊEFPNB,܀ 8ۘۦ۴ &F \LrJx:|߂>!!@&D`pxh&X?|XzXz&hT   ?AZ`6A`.A`&A`A`A`Ar`AH `8a0,/JkTSGgL`NM.F`8n  f R~ NuBg` BgarRW g %g - f>NuRar`a,/JkTSGgL`NN.F`8a,/JkTSGgL`NA.F`7a@J@g6@Hz ?<&NN\NuJ9]fjNua~#1/aH _Jg/JkTSGgL`Hx1NLx.z `7a&/aD:HP1MJGgSG-JBj @aSGkL` _HV?LPN\LPNuBg -FgaxJBj @ `a7tRW - f>Nupg@ЀЀ y^ 0g(@Nup`V Fga~HA^JLpNuaBNu~G<6p N`  gNuR~G<6p N``>~? *_a 3s 2HUa fRp"Ma !g yXf pCaaVJ9]fr |pghfb "f.R 0"g 0 gR@` 0,g 0 fHp`R@ 0,g 0 fHpa _ Fg  f`pXNupR@ 0,g 0 faJBkHQ ! gRfa`X yXg yXgp`<9Xk&a(HS&|a  gf< &_Nu\F Fg Fga(ZHS&|??<NMXJkg f< &_NuHPar2  _`Q`3s 2Ra fRp"MaD !g yXf pC$a*a4J9]fApR@ 0 fa FfNu??<NMXJkNu\F Fg Fga'HS&|a "fg 9"g& ,g gf< &_Nua g`Ra ,g ga| ,g f`<9Xkva' HS&|ab "fg 9"g& ,g gf< &_Nua*  g`Ra ,g ga ,g  f`HSHx??<?NA JkSfNup`v`v??a?@NMX`3$DW?<`a?k?<NM" Af J@fH@`4vRa dd HA0Hk(HzxHx??<?NA JkLSfx:X`40\@`ah/p`"a^/RaV dd A0H<R@f|a%  baJFk(HPH/HQ/??<?NAO JkҰf tNuHSHP&I>g \SG??<NMXJkJ9]V t&_NuRa dd XA0kH?<?B?<BNA `1tNuak `1a kf`2Rar dd A0kH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNu` y^t~ (g (fB7Nu#737Nu FgvgCփփֹ^ C g @~`p!`tp"`np#`hp$`b :g @|Sg`pR@ 0,g 0 faJBkHQ ! gRfa _  f z4~a8 FfNuR37 FfNup "f.R 0"g 0 g,R@` 0,g 0 fHp`R@ 0,g 0 fHpa&`~09u29uR@RANuS@SA3u3uNu3p`84:`fprta0929 Nu4:Df33 p rt` By9h`pBy9h` p3 9h|39f@39ja39`39b39d~`&aJf,H@ Kg Mg Pg Hf~`DSGj@RGFc:>`6 | g6 g0 gd gXz`ez\gFf6pRGRFa`an` `?~aa!p a>p a80NuCpE`bf`FgRGJGgLSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NAXJ9]fJgNup Nu4:f??<?<NM\Nu3X`a!0:R2:Pa0zEfpa\ppaX |ʼEg0PaEfaHP z"XRy<g~ _g !g &g0 \g2a`Ry<f`T _"X0fCBpHa` _"X0`pR@Ry<Jg \f _"X2gAcA@H?a0at`p?a` _ar zaɖSM`tp?aFLaJ` H=B z"XRy<g _g,vxz| +g0 -g* *g $g$ #g"a`Ry<f`` `RCg _ff`d #g $g *g ,g ^g@ +gR -gL .fJxRDgB #g ^g +g, -g& _f$Jf`REg ^g +g -fLH@a'Lx# < <$2DE A,b -fEt1BQt1$0QEJEft Q0JgEJ"f0J"ff JFj-Sg$EJEgR *5e$ -fBt0R 9c0S`EJEg vJ*g RCJ*f~ g~*Jf6`HQp%a&La* z"P _JgRy<f`EJEg*ÒEA gSAR`ÔSHQ?HjSy< zR"XPRy<gRgF _g0 ,g .g +g* -g"$_HRar`$W "0d`Ry<`p Jojp-` Sy<`0a.9F`*<`@aD @a"X0g?Ra dbTAJfHPaH @a"X>EF~r$WfFA0 _3XTNuApHPB2/ Og* Rgz Ag< Ug. Ig ogB`&p=`pNAXJ@kNu~cGVgB+B+eHk ??<>NAXQNupA` p9`p:`p;?a @a>"X0AHPBHQ?NA\ _JkTNu?<`?<Rat db A0Hk?aVJj Jof?|/?<BNA `a/a/ @"X2B1HQ ["X2B1HQBg?<VNA _a _a`p`p3G Ff #*.>*`8a~S @a"X0gA @f ):f 0 *.*`QB?:Hy?<NHzL?<NA\NAP3X Fgar9H3Xa`\Jj @g @g ?aF0`NuCEAJyGg *g|*fSJyGg$ f *a8JfP|0ala  Ca?<ONAT`d'/Qa H@HaHda H aNqJfJg0P H@HNu 0*X@a:0*H@?a:0*@@` 0*H@a/0*@a/0*X@@H`haS@k ??<NAXNua?Hz?<6NAP0:`av @a"X4g,A HPBBgHQ?<=NAP _J@k??<>NAX`tNuaa @a~/? [at"X2A#`QB2"_A# A e ` \gQBapZa aA"H09rg"Hg \f`AfS Aʐ`Ja : -Fga9Hk$3X//<??<?aNA Jk ` aa#Jaa"z9H3XaR` xp6`p5` p4`p3`p2`0ap(fgTAb3KLgJhf~X?HPa Wv- eC-00ÑyKLm y^aZ _> FWfBNup?`p@3KLaFr(fgpTAbHP0( -Fg aSk _1@RhHhBg?9X/.?<BNA JkN&_>gF2ҹ^ A"XPfHQH/?9X?:NA Jkgp y?KLgp%` Nu @fp7`Ha y^"y^`Han"y^ y^ <}aLNup=arkHQ??<>NAX"WAfSp g \g .WgJfS.BAKBHy?<ANAT//Bg?<VNA "_`VBgHQ?NA"oPJ@Nu a4MX #M^#OJy}g a2Sy}f y^"y^E&` k&@p0+R@Db bPMZ y^t$z\p (g&fQMZ#Mb (f[MX:"J9MYfAx gXgJf`CJj* fANSfpAahJyY|f zxʱb` CANfJj<-TDd0@H@H 0 0H@B`3H#p4`&][Return]H:FHH`H:8HH` f" LWMYfp e@3M\Nu -f. FV\g LfD9\p e@3MfNuv Lgv g gh f.v RA eC0H"y^J8n0Nu@aT@aJaHAv2+&gvA020000` Lg$a3Ma3Ma3Mv`aߖ`ߒv`r0z B9MY^"o$y^X^eaP^d#^B*A`ո0z^"o.$y^X^ea^dۜ#^% *A`xB9\` ֹ^ C"nNuvgCg Yk,gL`b y^փփHPaRaXaf _` y^փփHPRaޒ _ѐiNuvgCg Yk,g`0 y^փփHPaRaa _` y^փփHPRa. _iNuvgCg Yk,g` y^փփHPa@Ra֐a _`F y^փփHP a Ralaja _ NuvgCg Yk,g` y^փփHPaRa"a _` y^փփHP aRaapa _ NuvgCg Yk4gp` y^փփHPad&<x*<a _`b y^փփRi`NuvgCg Yk4gF`\ y^փփHPa&<x*<a^ _` y^փփShp`Rֹ^aЀЀ`ֹ^aЀЀ`ֹ^aЀЀ`ֹ^a̰ЀЀ`ֹ^a̘ЀЀ`ֹ^a~ЀЀ`ֹ^afЀЀ`Pֹ^aLЀЀ`Zֹ^a4ЀЀ`ֹ^aЀЀRiNuֹ^aЀЀ`ֹ^aЀЀSiNuL88PdRBNu#Tvp arpMal3pd | r 0Q0tr a3`Bpeapp`0pAaS@fa @aBaAaN_BgNA`"|2AU@p222a"<_H0<NB09pNurt333a"<_`psNB09 Nu Fg a43a"<psNBNu Fg2aC2 @ e @}bAU@p222a`"<0<NBNu    -A`H JA#C#B0\* BpZaHSa.09pg$A"Hg \f`AJf09rNuGfABASICByZ0:A fB fB @m ??<>NAXNuAa&|.BASa^g <.BASa6B^B^aCp apACelVfdCY|ptaPZA^DC^E "Ҁ f Cdb("y^D 9^aha&J9Y|fXNup `p `p ?a&`p`p?a0`Nua/a8/a o("_ _" $Id*b` QjNuQjNub`aHaa"[`a6aa"[<:HS?HQ/a.&_<k/HS/??<?NA Jk0&_fDNu\Fj.?H@ЃdHA@B@H@хk HAҁHAрSB Bb@Nup`Nu&8*LJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@`H?<,>CEdGH@0r`?<`DAр&AdRAрAрDуNuprt|PbQb  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dadSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`TJjDDDS4</a$JFkSFkLaRFBd&8*L?a><JBgaSF Be BgQRB`ApdR e <rRF&0xagZfEv+0JFjDFv-Hƌd0BFHF 0HF0A Nuprt|`HQ2:( A dHC 5e2!R 0c 9c0`<R"_`Z ar`2:C0 Ef"_Nuaa/ Cr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g`1 aB @e3g~NuaJBg <r4<NuaAd RdQRBABe B/dNAрQ4<`BNuaag `.azag`@Ad RdQRB>Ge GbFGNu G0dFGNu~Nua:Ad RdQRB6Ce C/jC C@j C jr0H@{0AFG0000X0000X0000X0000Gr~AH0g0  piaR QNu   a?S@kF8LfBfLC`HNuaz -FgH?alah"AJWfHa #sTNu3H`ʰzbzbHsa0S@k@> A0PȖ"G0(JgRJ)@g1@CH2fZ2HP"("(pda0 W09p1@AH00 pia3J@Lpia _CJ""pe` 3 Jpia3JphaLrHsHtSBSC@AH HtPs PuP 0<rt`pa"papapaLr`aS@k<@ A3HgFBPpfa.pga(3 Jpha3Hf8ByHa.Qs B Bs`bNuXNurt`rtH`azS@k@?a @a`"X80L6BPAȖ E\GH66&JDg DNexMQBBJyHg *gpi`NuaS@k@ A CH3HgaVByuByu`HS&I. FVs!p&aH3u89:9Lz4:Ĵ@c S@3u4:ŴAcVSA3u`JpJ9s!fJuk< Eg02: pg  qfZ3u3 pjrta޼`Ba>`< d8 Vug* g gj g& fzSyujByu`j3 0:z"3 0:R@S@z3prtaBRyu0ΰz|e$ByuRyu<SFEzbcSyuaQj&_NuByu`3 H A EE1FL HHhha a2By A 0(1@hV@1@1@ `H A L a By a LNu??<?<NM\`L3Hpka 3 A L bHzL|@ASBSCHHa ByHpk` z#g.vGRC+ g3H3Jp!a܊SeNuAMhp #gByHpa`Bx`Aprt0 0BBB R@ @efA000 0PB0 00 000\0X00000 0P0BX0:@00p1| 1|QBX0 $HTH0P 00,NuSk [0NupNupNp M gz gp g g*HaarHA3J@@"TAt #zg0A7( f hgSASAgRB`3H` SAgNu@  f/az _^&X PfR/|~ K"za0g @ ep 24C"2 S@ػ2Td BTA3A0C4$I2a222B"0@2A\xvag@2#M 4B3BS@ -f ػ2Td@BAb8RGRC`3RSG5GC5C J1DcaRF F eXNuRG GcdNuPNuXASF1F41R 1h4 x1EDgZA##x`3H?<NNTU@g.A±g dRhdRh(gp`@p>`ѪpR FgaH@*AH0?CMtL000H?#|paLpH2H}v3|AMhff$f*f*fNu y |g6( `J6(`D6(`>6(`86(`2629|WAARA09|A hfRAS@f3| CfNua@k0;` <`&   FgbSaf@gS@ AHP -Fg^aF W@ -FgL Mg4a. W -Fga W HAA}20i0d R@`Ra W@H@?< NN\ -?Ff,Nu0^ M / haw FgSaF}GH}I -Fgraz}}#}/f}f}#f}/ -Fg$a,}K -Fga}MH}OAxHP P0P T0T X0X?< NN\ -Ff.Nua~Jk$ Be B baS@ogRR FfNu$y^X^eN^d#^% p e@ЀЀ y^ 0gk g$(@Nup`` f /BaN"_pHq )eRXar(_Sy}Nu&y^ 9^ nN 9^ ovgC C@g,U@kBg^6BP`X^&B`D^&B6BP`*^"X0gBPr2RAA#&6&#^ Ff@NupZ`9MX#^ fJ9MZg`Nu&y^ #k g#^(@Nu0@H@@gU@k,g ^0`^ ` ^1c ` ^"X0gHR@@"D#0#"c0g! HR@#`zvgCGGA^ pp,08gH F gF g&& ^@ m&eHUKa*_Nup*`p-`p.` p/`p+`p,` fRHPa&"_HUa6RLa*_HSy}aLNuHSa - fH$_Nu y^X^oN^nn#^BRy}EHRK"y^ 9^ nN 9^ c$""" "v eC Cg\Ukxg8JBk^20"#^g  f`  f&_NuJBk^a" `JBk^"2aF`JBj^H f"HQHP0(N$W$RNH2Q  _"_$X4BPY"2gHRB]%(\$@$2g@^@e$HQ/0NB$_$RS@H2Q"_L` 1A$BHRA%L`p\B9MY`p^`#^^p]`a b6J9MZf 9ZMXg 9[MXgB9MX(yM^ Ff(yMbNuv eCֹ^ C/g y^^c> k `g& @gJf,Y^`Jf aT` ^ ^`fDJ(_B9MXNu( (@((?<NN.?<NNX LA HA HNuaaav -Fga`Hp3 a SN"X0 @e024EH$Jy k Bb5B5A6CC5CK5C8+:+A B0000Dk~Ekz00A <:>:SFSGFn`Gn\DDk0BhDEk1EBh Fchh Gchh0hb&0hbpmrt#v#`jNu _pNBaaaaaV/a4>+<+:+8+&DbFEbGA HP@dAdBD0ƞE03 AFC&000FF22N23BRG0@\@ _NB"2#`2a @0<}NB&IaNa @&XaH`aD?<NNT @"K <}Nu @HPa( _"X0 @Jg8zf:HPEJH LppJ`$_44&b'JJBNHD'BNNuTpNup d@Tй^ @"X PfXLNupN z"zgB` zմBp( g;j `` 9$&(` "A2;N,PX2P,(r /` f"_#Hѩ` f@"_!I` f"_#Hѩ` g`/`j f"_#Hѩ` f"_!IE#J`: f&"_#Hѩ(g|`|` f"_2(if()g AdE#JE!J`  g  ft"_E#J`  fd"_E#J/ ` g g g f /`lHz`"Hzf`Hzs`Hz`Hz` Hz`Hz#^x`tgB"#^x g0 g0 g0 g0 g0 g0 +g0A`.X`zHz`"Hz`Hz`Hz`Hz!` HzM`HznAa _aJf~NuH lHze``Hzq`XJfHPr((( eA(ҁҁ"z:Jf# Fgpѱ`T +fX`DHz+``8r(` r(A("zJf>"ёEXJg +fp`NqEXJg +f`Hz`Hz` +gJgHz`|Hz`trHPTgAGGC>"qpJf # _` _Hz`6 zp( g -g g`~Nu (e`|vCgCֺ"C&"CgijgHPbH~t( g(  g* +g .g±e _JgBHzI`R`S`Sj`vCgCֺz"C&"CgP~t) g,  g* +g .g g`JgBHz `*R`Sj`Division by zeroOverflowNumber not integer|-2147483648 .. 2147483647Number not byte|0 .. 255Number not word|0 .. 65535Square root only|for positive numbersLogarithm only for|numbers greater than zeroUndefined error Out of memory Function or command|not yet implemented String too long|max. 32767 characters Not GfA-BASIC V1.0 program Program too long|memory full|NEW Not GfA-BASIC program|file too short|NEWArray dimensioned twiceArray not dimensionedArray index too largeDim index to largeWrong number of indicesProcedure not foundLabel not foundOn Open only|"I"nput "O"utput "R"andom|"A"ppend "U"pdate|allowedFile already openFile # wrongFile not openInput wrong|not numericEnd of file reachedToo many points for|Polyline/Polyfill/Polymark|max. 128Array must have|one dimensionNumber of points too|large for arrayMerge - Not an ASCII fileMerge - Line too long|aborted ==> Syntax error|program aborted!Undefined label"Out of data#Data not numeric$Syntax error in data|unpaired quotes%Disk full&Command not allowed|in direct mode'Program error|Gosub not possible(Clear not allowed in|For-Next-loops or|Procedures)Cont not possible*Parameter missing+Expression too complex,Undefined function-Too many parameters.Parameter wrong|must be a number/Parameter wrong|must be a string0Open "R"|Record lenght wrong2Not an "R"-File3Only one Field per|Open "R" allowed4Fields larger|than record lenght5Too many Fields (max. 19)6GET/PUT|Field string lenght changed7GET/PUT|Record number wrongMENU error?RESERVE error@Pointer (*x) errorZLOCAL error[FOR error\Resume (next) not possible|Fatal, For oder LocaldGFA BASIC Version 2.02 US| Copyright 1986/1987| GFA Systemtechnik GmbHf2 bombs - bus error|Peek or Poke possibly wrongg3 bombs - adress error|Odd word adress! Possibly at|Dpoke, Dpeek, Lpoke or Lpeekh4 bombs - illegal instruction|executed in machine codei5 bombs - divide by zero|in 68000 Machine Codej6 bombs - CHK exeption|68000 interrupted by CHKk7 bombs - TRAPV exeption|68000 interrupted by TRAPVl8 bombs - privilege violation|68000 interrupt by|execution of a|priviliged instructionm9 bombs - trace exeptionGeneral errorDrive not readyUnknown commandCRC error|dERRORERRwrongBad requestSeek error|track not foundUnknown media|boot sector wrongSector not foundOut of paperWrite faultRead faultGeneral error 12Write protectedMedia change detectedUnknown deviceBad sector (verify)Insert other disk|(request)Invalid function numberFile not foundPath not foundToo many open filesAccess deniedInvalid handleOut of memoryInvalid memory block adressInvalid drive specificationNo more filesGEMDOS range error|seek wronOFFSETmOFFrnal errorInvalid executable file formatMemory block growth failure[1][Do you really want to quit?][Ok|Cancel][1][Program end][Return][2][Program stop?][Stop|Cont][2][Printer listing?][Ok|Cancel][2][NEW - delete program?][Ok|Cancel]Editor - Internal errorWhile without WendRepeat without UntilDo without LoopFor without NextWend without WhileUntil without RepeatLoop without DoNext without ForIf without EndifEndif without IfElse without IfElse without EndifExit without a loopProcedure without ReturnProcedure in a loopProcedure defined twiceReturn without ProcedureLabel defined twiceLocal only allowed in ProcedureLocal not allowed in a loopFunction defined twiceGoto into/out of a For Next loop or a ProcedureResume into a For Next loopResume without ProcedurejH lSyntax errorjH lLine too long 2Z[3][\"& 6     82p\ x~D^ 4*"t:< 2X00FB^  "  < T2&$"F"* &$ L&8@h24&"* &lJ"$,(:$P f   x@& V4 j  @*JLr  &:z$J( (.(F < Zt"N\"`  @*(<,8L*(j<,( @<    4^> 6 X:dH.( L )`*o#d - ЭЭwn// #dBg?<JNA ?<NN#d>NNT3eԠCd"L?H>aUHx?<HNA\@#dH/?<HNA\#dD3'cacLNa*NfAJg.Cܸ  gSfab&adaYNjk`B9OBy4a9HabXad\A&NNNVLa9` ݸ ,bad8aaaBy4a:J9ygaLANNa9aL`ANNa9B9:A۸ gXJ9ckNC2A۸QA۸  g gt/9dN dg Hac$L kfHAiJ9yfNN`4A`HPaL6ANN _NN`4qb?c0J9ffF9ݹ ,g: Mg4 wg.rIA4FfNa`Kݸp`%DNjJgp'`$?p&Iݸ`LNjk`a *yd`$a^abaxjByyANNNNea_BypN`!`SEvfY2 Y3 v OK >$H$& ydCde add, a,Adךf B EdԱdђXbђNup`Kd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNu$H$&"BA 9dĐa(XAdȗf B EdԱdXdNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu2(g"P@g:RADAH""ydr2g"ZAde& 1@##dNu1@Nu ydL\dL`a"ydȓddp`JH yd$yd"Hg2 k&@ S`g k#&@0+S@H3 Q&f#dLNuH?<?<NAXJgJf&AH@B p`\AdL \ @BBPtNua+Adp`:a+vAV0p`,a+hAH p`a$aeA6 1Ap`a#ag*$a BS@kH2Q ydL] tNu(Hpg`aS@Q`a#"@ Y0g0dLb(2RA4DAH! dfXչdNuaaJBkjNuaHPaJBki `hCgBJ@gv  g &g ac~NutNuRptr ae OgR Xgh HgSRB ae Fb$0k  c_  c b退`tSJBjh2NuRB0 b b瀀`RB0 fрd`aJ@g`ir`i$aJ@g`aJ@g0` ydL Bh\dLtNua`iHa `ga"a)8 Shda [PHP Pa _`8LNua!a) Shda [PHP2( P`Qa _dLb6(gRC8DCHHP P!@ _Nua!a(?p`a!xa(?La( S2fr4(Ae.RBBc0?ap2 [PHP PS`Qa` _`~ [Pav` @"[PHPHQ0(ie4k2a* t _aN2( P`Q _a:2( P`QNup `F @HPa Sa [P"_0( X2)"Y@`VNuag"`af`a(e`a"c` ab `adtNu <r$<Nu @HPa Sa [P"_0( P2)"Q4Ae4v`Vf@Nua 4 @2(gdLb P"H`/0Ha82  _ PSAvjx E&Wf* ae zb QNua8U@k0`fa*Y@k `e@a]@j]F`ffaY@k rtHHBBNuaQ@k 24HHBBNuaTBjtpr Bc4<prJjAjNua Bp`8a 1A1Bp`&atЀUrЀQ`Da&HA(Jf J0p`NuatV0 9c^Q2 A`at `V0Q`H?<,NATA2X@a&:0H@?a:AAa Avp`N0H 0 0H@NuH?<*NATAJ2H@a/0@a/YdaHAaAp `a%&a%"2 P`a%r b?a2`Q tNua Nuaa patNua$ gJg ba^"P @4(gHP bn ab$_// Z4HQ`S@Q _Q _al tNua$hB9۸?Hy۸?<GaTNAPA۸pR@J0fH`a$4/a `aaa$/ [P` Baa @a/? [Pa"X20 _$gS@cY6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXa @a."X0gZt aZkTA6gN /fHS@gDtaDo>NqA /f4S@g04<;a.k(AjA AbAPjAdYA??<+NAXrNurxS@k0  bS@k .g( :g"0  b DBb BdeS@jJANuSR@JANuHpx$ yd$yd"Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f#dLNuHpx$&ր yd$yd"HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f#dLNua!yyNua!yyNu3rt`GNJyByvp avpavpa3ByprtaGBplrtaGvpavpavpavpavpjavp aBp'rtaFv0<rtal?<NNT@@B#<30<rtaFvpa6vpa.ByprtaFxNu?a 6p `a 6p` !g( %Fga r6j DCpqavpa -Fgf !g( %FgZa F3ByprtaE -Fg8p !g %Fg*a ?p -Fga 33plrt`ENu !g %FgPa6paJ -Fg< !g$ %Fg0afJBkza^|6pa -Fg Fg a6p`Nu !g %Fga6pa -Fg !g %Fga`6pa -Fg FgaF3prt`Ea?a??/`a|?a?ap?avt6 |C13x013vWCk1Qrp`Da.?a4?a"?a( |1@ 1@01@1@01@1@1@001@ 1@prt`DRa?a?at -Ff2vr |B`1t`t |B`1BB11p 3n`D?a4?a.33vr0`ar?ax?a ?a -Ffrv |1111t`?a?a330rv`r`r `r?a?a?a?a |11116p tr`Ha?a?az? -FfBg0<` ad?a^330vr`a?a?a8?a2? -FfBg0<` a?a330rv` ByP GfR?:?:RyPa:?a@?RyP -Ff yPgT4:`a ?aP33pgrt`BZHa: |0yy`\NHa" |0yy`\6Ha 09`\&aLlp|rt |d001A"<epsNBNua`H?<NNTaZXBNuaaaS`Yr !g %Fga6paX -Fgz !g %Fgna6pja8 -FgZ !g %FgNa6p a -Fg: !g" %Fg.a#rtp aAJ -Fg Fg aj6p`Nua\Bg?a/aN?@a @a:'7 _a0"X24$[A۸0@@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BA۸0a9`taD?9?909妐yyaTR0yyaFR0`>a?a33pirta@ 09 `Za*??a" -Fg$@@?@a @@oa@o?@?<NN\Nup`7p`7p`7p`p`p 3ha d3lvvgC@@@Ad p hf X ~e#nTwvgC@@@Ad p hfT X 4eN#rR3yx3yz FgaJ3xaL3z"| z9vf?:`aOaWz2TSWjT`0:2:`$@2TQ"| z9wf?:`aNaW @a4"X0AH2`0Qppta=vp`aJBkaV@3pN`= @a"X0AH2`0Qtpoa=`HHv ydCC`N Hv6 ydփփ`MHv ydCC 00`UHv6 ydփփ 08`Uv ydCCHp0Ra _`Mv6 ydփփHp8Ra _`Ma/Adeeeee `H@J@g`쐨g`Hd`v ydCCHp0Ra _ Nuv6 ydփփHp8Ra _ Nuv ydCJp0g*H <r$<Nuv6 ydփJp8fHtNuv ydCHp0Ra _0Nuv6 ydփHp8Ra _0NuHv 9dCCCCtNuHv6 9dփЃփЃtNua/AdeаdʐH@J@g0`v ydCC`v6 ydփփHp8Ra, _g$dLc/"@0)a _$PS@kH2QNu2(g"PRAA4DBH#"@$Y2g 1ARAA%NuBhNuvg6g"Wkg2WkR/&SEg$`LR/ bZ RbJp0@:<Jf` փSGgЃЃЃAdH H瀀 PaLaLp$4`YE PQƐFrd0` Qj`prg2AdBBB p "X2g UAk$QNuHaT`JaBPJg, BUBkg`ЀЀ`Ѐ"ЀЁE H Fa&L yd 9d"X2geb 9dĐ J"Fdd`a.Sk.TH@g"~:P<@3RQ QQO3,`34$1D1Or!![ d4~ 4|7f7-&-F&[<7YZrbc $#DbT#Ha<"D"` 7rUX:88 4455n6\cc6`77p> p\j8 HxFF~AJ0pk*c`TG<;p0N`~-A,J0p`G<;pN``p `$p `$E:E4E@ENEF==>?2MXGG0F|FFFFFFFZ22&&, ޚ E"CDDC>HvHhKKFGLIJ@VltݜVH2hݮv0>ۊJKPNG0܀ 8ۘۦ۴ &F \LrJx:|߂>!@!b&D`pxh&zD]~]~&Y$  D@D456\66666$R&JJJJJJJJBz~Nj\Hd((2## <A     )aJBgt @NuXNuGA<0pN`HHy-?<&NN\`B 8Nuaha׮ 9dȐd`A/aNJBf(_Nu/a@JBgXNu/a2JBf`(]Nup`!jp`!dJp g g g f@ ydЀЀRHPa8 W $yd de add#d%` -Ig&a$yd%@ -Hf&a$yd%@Nu%<a$yd%@Nu%|Nu@$ydЀЀRHRaH Wa9 ydAdeavdd#d!@ -Ig2a. yd!@1A!B -Hf2a$ydY%5%Nu!<B`!<HPa$_%5%NuY!<B`!<Nu"yd$] ! @g !k А n (JNuА l#dNu 2($4AB*!kB8!&!a8r*!8!&!Jk JkEffDb(J`7#d`7JjBf涀fA`8!&!a80*!8!&!JkJj`Jk`/RaJBgpgXd(_NuXNuaJBfprtNua" bNua bNup`p` ga`>A~-J0pfR~RHGG yd 0pNu yd`l ydd`^Aڒ`VA`NA`FA`>A`6A`.AD`&A\`A\`A\`Ayj`A\H `=a0,/JkTSGgL`NM.F`=r  f R~ NuBg` BgarRW g %g - f>NuRar`a,/JkTSGgL`NN.F`=a,/JkTSGgL`NA.F`Nupg@ЀЀ yd 0g(@Nup`x Fga~HAdJLpNuaBNu~G<6p N`  gNuR~G<6p N``C? *_a "3y4HUa fRp"Ma !g y[~f pCaaVJ9cfr |۸pghfb "f.R 0"g 0 gR@` 0,g 0 fHp`R@ 0,g 0 fHpa _ Fg  f`pXNupR@ 0,g 0 faJBkHQ ! gRfa`X y[~g y[~gp`<9[~k&a,FHS&|۸a  gܶf< &_Nu\F Fg Fga,HS&|۸??<NMXJkܷg f< &_NuHPar2  _`Q`3y4Ra fRp"Maf !g y[~f pC$aLa4J9cfA۸pR@ 0 fa FfNu??<NMXJkNu\F Fg Fga+8HS&|۸a "f۹g 9"۸g& ,g gܷf< &_Nua g`Ra ,g ga| ,g f`<9[~kva*HS&|۸ab "f۹g 9"۸g& ,g gܸf< &_Nua*  g`Ra ,g ga ,g  f`HSHx??<?NA JkSfNup`v`v??a?@NMX`8(DW?<`a?k?<NM" Af J@fH@`9zRa dd jA0Hk(HzxHx??<?NA JknSfx:X`94\@`ah/p`"a^/RaV dd A0H<R@f|a)D  baJFk(HPH/HQ/??<?NAO Jkf tNuHSHP&I>g \SG??<NMXJkJ9cV t&_NuRa dd zA0kH?<?B?<BNA `6tNuak `6a kf`7Rar dd ,A0kH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNu` yd~ (g (fB9>Nu#9>39BNu FgvgCփփֹd C g @~`p!`p"`p#`p$` :g @|Sg`pR@ 0,g 0 faJBkHQ ! gRfa _  f z4~a8 FfNuR39B FfNup "f.R 0"g 0 g,R@` 0,g 0 fHp`R@ 0,g 0 fHpa&`~09|29|R@RANuS@SA3|3|Nu3np`j4:`fprta0929Nu4:Df33p rt` By:`pBy:` p3 :|3:@3:a3:3:3:~`BaJfHH@ Kg2 Mg0 Pg0 Hg:fAC۸<0Q~`DSGj@RGFc:>`6 |۸ g: g4 gh g\zDez@gFf:pRGRFa`tap`l `?~aa%xp a>p a80NuCpE`bf`FgRGJGg,SGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NAXJ9cfJgNup Nu4:f??<?<NM\Nu3[~`a$0:22:0azEfpa\ppaX |۸Eg0PaEfa z"XRy=g _g,vxz| +g0 -g* *g $g$ #g"a`Ry=f`` `RCg _ff`d #g $g *g ,g ^g@ +gR -gL .fJxRDgB #g ^g +g, -g& _f$Jf`REg ^g +g -fLH@a+Lx# ==2DE A,b -fE۸t1BQt1$0QEJEft Q0JgE܀J"f0J"ff JFj-Sg$EJEgR *5e$ -fBt0R 9c0S`E܀JEg vJ*g RCJ*f~ g~*Jf6`HQp%a&La* z"P _JgRy=ʱf`EJEg*ÒEA gSAR`ÔSHQ?HjSy= zR"XPRy=ʳgRgF _g0 ,g .g +g* -g"$_HRar`$W "0d`Ry=`p Jojp-` Sy=`0a 9``/a9]`/aH@Ad[~rAeA`?a0`aJ@g.?CCap0g?CCpaSWfJ_Nu Mga]@3[~`aZa`aP Fg. -Fg$` -Fg -"gp,avaBJBj/p"af arp"aZ`ab`p MfRal dd&2AgH3[~NuapapE`p` (p` "BC3[~` Ra`Ra`BCa %FgR Yg Fg\ !g2 "gF Wg g g gtapaS`a` 9CF@RCCaR FfNup ap `d Rat?anJ9yf"33rtp3 na`DS@3|0S@3|`.p Cp`JBka @a "Xp0ѹC<9[~Ad$I"`  g fUR  f~QjJFjP\FkJJyyg Fg7 Fg7HS&I.a`p???<NM\J9cVj&_Nu|/gHQ/??<@NAO Jk Jgp%` @?9yByya63yNua4a0 [Nua&a" [0Nuaa [ NuHz"` Hz$`Hz&aa'?<&NN\Nu  SNu  S0Nu  S Nua.Hz:?<&NN\`+a.Hz*?<&NN\`+a.Hz?<&NN\`) GNu G0Nu G Nua?a?an?`a?a?BgaJBka @aD"X0 @xepw2 |t4jDWHB t`0QBy333TAtp 3 n`?<NNTNup`p`?<OA`P?<IA`DpI`po?Hy><`@a" @a"X0g?Ra dbTAJfHPa& @ar"X>EH*r$WfFA0 _3[~TNuApHPB2/ Og* Rgz Ag< Ug. Ig ogB`&p=`pNAXJ@kNu~cGVgB+B+eHk ??<>NAXQNupA` p9`p:`p;?a @a>"X0AHPBHQ?NA\ _JkTNu?<`?<RaR db A0Hk?a4Jj Jof?|/?<BNA `a/a~/ @"X2B1HQ ["X2B1HQBg?<VNA _a _a`p`p3Ix Ff #*.*ܸ`8a\S @a"X0gAܸ @f ):f 0 *.*`QB?:Hyܸ?<NHz?<NA\NAP3[~ Fgar9H3[~a`bJj @g @g ?aL0`NuCܸEFAJyIxg *g|*fSJyIxg$ f *a8JfP|0ala  ܸ Cܸa?<ONAT`d'/Qa H@HaHda H aNqJfJg0P H@HNu 0*X@a:0*H@?a:0*@@` 0*H@a/0*@a/0*X@@H`haS@k ??<NAXNua?Hz?<6NAP0:`#aT @a"X4g,A HPBBgHQ?<=NAP _J@k??<>NAX`$tNuaa @a\/? [aR"X2Aܸ#2`QB2"_A#6 A e ` \gQBapZa aAܸ"H09 g"Hg \f`AfS Aܸ`(a : -Fga9Hk$3[~//<??<?aNA Jk` aa#L~ava"z9H3[~aR` ~p6`p5` p4`p3`p2`0ap(fgTA3LgJhf~X?HPa Wv- eC-00ÑyLm yda8 _> FWfBNup?`p@3LaFr(fgpTAHP0( -Fg arSk _1@RhHhBg?9[~/.?<BNA JkN&_>gF2ҹd A"XPfHQH/?9[~?:NA Jkgp y?Lgp%` Nu @fp7`Ha yd"yd`Ha"yd yd <}aLNup=arkHQ??<>NAX"WA۸fSp g \g .WgJfS.BAKBHy۸?<ANAT//Bg?<VNA "_`VBgHQ?NA"oPJ@Nu aO #O #PJyg a7Syf yd"ydE:` k&@p0+R@Db bPO yd$z\p (g&fQO#O (f[O:"J9OfA4 gXgJf`CJj* fAPSfpAھahJy^f zxݸb`CA fJj<-TDd0@H@H 0 0H@B`3#2p4`6][Return]H:FHH`H:8HH` f" LWOfp e@3ONu -f. FVbg LfD9bp e@3ONuv Lgv g gh f.v RA eC0H"ydJ8n0Nu@aT@aJaHAv2+&gvA020000` Lg$a3O4a3O6a3O8v`at`pv`r0z B9Od"o$ydXdea.ddۺ#dB*A`Ֆ0zd"o.$ydXdeaddz#d% *A`VB9b`Xֹd C"nNuvgCg Yk,gL`b ydփփHPaRa6aH _` ydփփHPRap _ѐiNuvgCg Yk,g`0 ydփփHPaRaa _` ydփփHPRa _iNuvgCg Yk,g` ydփփHPa"Ranap _`( ydփփHP aRaJaLab _ NuvgCg Yk,g` ydփփHPaRaav _` ydփփHP aRaaRa _ NuvgCg Yk4gp` ydփփHPaF&<x*<a _`D ydփփRi`NuvgCg Yk4gF`\ ydփփHPa&<x*<a@ _` ydփփShp`RֹdaЀЀ`ֹdaЀЀ`ֹdąЀЀ`ֹda̎ЀЀ`ֹdavЀЀ`ֹda\ЀЀ`ֹdaDЀЀ`Pֹda*ЀЀ`ZֹdaЀЀ`ֹdaЀЀRiNuֹdaЀЀ`ֹdaЀЀSiNu\L88PdRBNu#V"p apMa|3ppd |r 0Q0tr a3pP`"$peap`@ ݸ bpA׍aS@faa aAae~Nf0BgNANu"||2AW@p222a ~"<e0<NB09 Nurt3d3j3fa ."<epsNB09Nu Fg a3Da "<ڪpsNBNu Fg2aC2 @ e @}bAW@p222a "<ڒ0<NBNu   -Aܸ#2C#6BCۆJf\f|*p" QBpZaHSabp.09 g8Aܸ"Hg \f`BCܸAۆfSA8f09 NuY!! Load fY ! Save fY )Save,A fY!) Merge fY!1 Llist fGfABASICAab`&|.BASag <.BASaaCp a2AdPCdEܸ J9Yj (0"jr$fCܸpta"ydPJ9Yg B9Y"yd 9daBy_0:A悰 fB fB @m ??<>NAXNuAaa&|.BASaXg <.BASaBdBdaCܸp azpAܹCenVffCܸ^ptaPP_AdPCdEܸ "Ҁ f Cdb*"ydP 9da a(J9^fNup `p `p ?a`p`p?a0`NuBy\al @a3[~"X0gzAܸS@ @e0<QB`3\Aa`&|.LSTa6g <.LSTaa`2 By\` 3\Aa`PApaS@f3[~"yd|Jy\g"yd>t) glJy\gdg\A0 gSgSg`RG`SGSF?>kHQp0Ѐa"_H aQLPHQC۸ a"_<aJ9cg`P_A a_&|.LST/9da>#dJ@g <.LSTaaC۸pad 9`۸gp 9 ۸edaG۸`G۸"Kpa2  gܷb>  fA۸r p g gʰfS g@a>6" gj,Cݸ2SA۸  f ݸRݸp9ݸAdaCݸHS@0Q`bApaU@gHTa(_Nu ݸ ,ca`aNupAaS@NuaHJck J9gaVJ9cg B9cJ9bfaaga`jJ9bf3c'`bH"L )g> )g6Nf3b[~ C۸a0ycfgpQLp`a3bPb3Nq'NuQb3c'NuHyc?<&NN\PcazBycJ9bgNu xVCcgJf! ?<"NNT| @"hEcĵg Gc&!JNuHycf?<&NN\Nu xVCc gfB?<"NNT| @"hEcĵf 9cg!@Nu8 gNu3Nq'PcNuNJyagQc3Nq'Nu <#dL":N zD҈CdPp"Qp"Q"""BB`Hyd@?< NA\Nu B9OB9bbBaah#d :#d#d zT :pgrHd0` Qj`/:p?:pf RW`/:n?:b?<NNT2 _A@gHg zBa zHp?//?<aNNP J@k g pa 3eNu0:??<?<NN\Nu| 2ZdB?< NA\#f,/?< NA\Hyf@?<&NN\NuHyf?<&NN\NuALHfC^pJg XXQA#g g~P޸|a&:|a RGk0Gg`a0GVf3c<??< NMXNug gggg$g*g0g6 LH!gNuHx`(Hx`"Hx`Hx`Hx`Hx` Hx`Hx !4VxH A3g Ni LHOR0|1R/:?< NAOR00: @d`HaLxN 2$4BANuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`BL8<gJEgEjCDEDF Fe"Fk8BCHC`PFk\QF^FkTQkDуdQRBNuDdBDA@kgAр[SBk(NuJlJBkNu0gH@rB JkЀ[`JBjtNuJ9hgPhpr$<Nup`rJBgVB&8TTDуdQRBNuaNuz` L8JEgJBgJjBEB:gHC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB Bb@Nup`Nu&8*LJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@`H?<,>CEdGH@0r`?<`DAр&AdRAрAрDуNuprt|PhQh  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dadSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`TJjDDDS4</a$JFkSFkLaRFBd&8*L?a><JBgaSF Be BgQRB`ApdR e <rRF&0xamfEv+0JFjDFv-Hƌd0BFHF 0HF0A Nuprt|`HQ2:( A dHC 5e2!R 0c 9c0`<R"_`Z ar`2:C0 Ef"_Nuaa/ Cr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g`1 a> @e3n NuaJBg <r4<NuaAd RdQRBABe B/dNAрQ4<`BNuaag `.avag`@Ad RdQRB>Ge GbFGNu G0dFGNu~Nua6Ad RdQRB6Ce C/jC C@j C jr0H@{0AFG0000X0000X0000X0000Gyj~A0g0  pia݀ QNu   a?S@kF8LfBfLC`HNuav -FgH?ahad"AJWfHa #yTNu3`ʰzbzbHya0S@k@> A0P0"G0(JgRJ)@g1@C2fZ2HP"("(pda^ W09 1@A00 pia>3@pia& _C""pe` 3 pia3phaL HyH{4SBSC@AHH{`< d8 V|g* g gj g& fzSy|jBy|`j30:z"30:R@S@z3prtapRy|0ΰz|e$By|Ry|<SFEzbcSy|aQj&_NuBy|`3H A⦜EE1FL HHhha a2ByA0(1@hV@1@1@ `H AL a Bya LNu??<?<NM\`L3pka83AL bHL@ASBSCHHa Bypk` z#2g.vGRC+ g33p!a׸SeNuAOp #2gBypa׎B~A\prt0 0BBB R@ @efA\000 0PB0 00 000\0X00000 0P0BX0:@00p1| 1|QBX0 $HTH0P 00,NuSk [0NupNupNp M gz gp g g*HaarHA3@@"TAt #z2g0Ay( f hgSASAgRB`3`8SAgNu@  f/az _d&X PfR/|~ Kza0g @ ep 24Ch"2 S@ػTd BTA3A0C\4$I2a222B"0@2A\xvag@2#M 4B3BS@ -f ػTd@BAb8RGRC`3RSG5GC5C J1DcaRF F eXNuRG GcdNuPNuXA\SF1F41R 1h4 x1EDgZA\#2#~3?<NNTU@g.A\dg dRhdRh(gp`np>`pR FgaH@*A0?CO L000H?#~2pa(L HHv3|AOff$f*f*fNu y ~g6( `J6(`D6(`>6(`86(`2629WAARA09A\ hfRAS@f3| CfNua@k0;` <\`&   FgbSab@gS@ AHP -Fg^aB W@ -FgL Mg4a* W -Fga W HAA|20i0d R@`Ra W@H@?< NN\ -Ff(Nu0^ M / haw FgSaFH -Fgravfff -Fg$a( -FgaHAxHP P0P T0T X0X?< NN\ -Ff*NuazJk$ Be B baS@ogRR FfNu$ydXdeN@dd#d% p e@ЀЀ yd 0gk g$(@Nup`<`۞ f /BaN"_pHq )eRXar(_SyNu&yd 9dȐ nN@ 9dȐ ovgC C@g,U@kBgd6BP`Xd&B`Dd&B6BP`*d"X0gBPr2RAA#&6&#d Ff@NupZ`9O#dĿR,fJ9Og`Nu&yd #k g#d(@Nu0@H@@gU@k,g d0`d ` d1c ` d"X0gHR@@"D#0#"c0g! HR@#`zvgCGGAd pp,08gH F gF g&& dL m&>eHUKa*_Nup*`p-`p.` p/`p+`p,` fRHPa&"_HUa6RLa*_HSyaLNuHSa - fH$_Nu ydXdoN@dnn#dBRyEHRK"yd 9dȐ nN@ 9dȐ c$""" "v eC Cg\Ukxg8JBkd20"#dķg  f`  f&_NuJBkda" `JBkd"2aF`JBjdH f"HQHP0(N$W$RNH2Q  _"_$X4BPY"2gHRB]%(\$@$2g@dLe$HQ/0N$_$RS@H2Q"_L` 1A$BHRA%L`p\B9O` p^`#ddp]`a b6J9Of 9ZOg 9[OgB9O(yO Ff(yONuv eCֹd C/g ydıdc> k `g& @gJf,Yd`Jf aT` d d`fDJ(_B9ONu( (@((?<NN.?<NNX LA HA HNuaaar -Fga`Hp3a SNH"X0 @e024EH$Jyk Bb5B5A6CC5CK5C8+:+AB0000Dk~Ekz00A<:>:SFSGFn`Gn\DDk0BhDEk1EBh Fchh Gchh0hb&0hbpmrt#r#v`ʘNu _pNaaaaaR/a4>+<+:+8+&DbFEbGAHP@dAdBD0ƞE03AFC&000FF22N23BRG0@\@ _N"2#`2a @0<}N&IaNFa @&XaH`a?<NNT @"K <}Nu @HPa _"X0 @Jg8zf:HPEJH LppJ`$_44&b'JJBNHD'BNNuTpa -FgaTaP??+aV k "X0 @Jg,z$fHQEJH Lp _EJ02H LpNuHP0:N$_HQ4:4&b$p$2Q&# `p e@ @Ag"Uk,gdBP FfNudB`dB`d"X0gBPR@"D#`E$aE2aaH3`ja$H>Nup d@Tйd @"X PfXLNupN'*J==>S? I@MHCLEARWZ CLOSEW[ENDqO FILESELECTfFORM GET&ONwONOPENW^PUT>SWAPISWAPTEXT/ *JALERT)ADD0AARRAYFILLJ>BOXBLOADBSAVEBMOVEBPUTBGETBITBLTGCIRCLECOLOR#CLOSE8CHAIN9CHDIRDCLEARX CLSYCHDRIVEgCLRjnCONTxOCALL| DATADOODPOKEDRAW DEFLINE$DEFFILL%\DEFTEXT(DIM*DIV3ADEC5JDEFNUMGDEFMARKUDIRVDEFLISTiDEFMOUSE} DEFFN EXIT gELSE bENDIF OELLIPSE{ERASEFERROREDITOEXECcFOR vFILL&FIELDP FILESWFULLWeGRAPHMODE!GOSUB,HGOTO-VGEMSYSsGET&HARDCOPY<OHIDEMOIF QINC4JINPUT: INFOW]KILLALOOPbLPOKELETLINELPRINT; QLINE=LSETN(LOADaLISTcLLISTdOLOCALhnLOCATE MOUSE"MUL2AMKDIRBMENU-MONITORMID$(3NEXT NAME@NEW_OOPEN7OUTEONvOPTIONPRINT IPOKEPCIRCLEPELLIPSE{PBOXPRBOXPLOTPROCEDURE+@POLYLINEKTPOLYFILLLTPOLYMARKTTPSAVEoPAUSE{PUT>QUITOREMREPEATORBOXRETURN.ORELSEEK?RMDIRCRSETO(READQ RESTORER[RUNpORESUME6RESERVESUB1ASETCOLOR6SEEK>SWAPHSYSTEM`OSAVEbSETTIMEkSPOKElSDPOKEmSLPOKEnSTOPrOSOUNDyiSPRITE~ SGET SPUT SHOWMOTEXT' TITLEW\TRONTROFFOUNTILZVDISYStVOIDVSYNCOWHILEZWENDbWRITEu %WAVEz#M'W F(#) *+--/,!;"==->< <> <= =<=>>=<=>:|@INP(qINPUT$(_INSTR(DINSTR(LEFT$(;MID$(?RIGHT$(=STRING$((.(w(x((++,@<<=<>==E=<=>>>=*0123ANDABS((ATN(,ASC(7AT(YASlARRPTR({ADDRINADDROUTBIN$(pBASEPAGEyBIOS(BREAKBUTTONBASECOS(*CHR$(BCVI(gCVL(hCVS(iCVF(jCVD(kCONTRLCONTC:CRSLINCRSCOLDIV DOWNTOIDPEEK(3DIM?(}DATE$~DIR$(DFREE(EOF(rEQVEXP(/ERRORERREVEN(EXEC(EXIST(EXP(/FRAC('FRE(XFALSEFATALFIX(FNGOSUBLGOTOKGBGCONTRLGEMDOS(GINTINGINTOUTHEX$(nHIMEMIFZIMPINKEY$SINPUT$(^INP(aINPUT`INSTR(CINT(%IBOXINP?(INTININTOUTKEYKILLLEFT$(:LEN(6LOC(tLOF(sLOG(0LOG10(1LPEEK(4L:LPOS(MAX(vMID$(>MIN(uMKD$(fMKF$(eMKI$(bMKL$(cMKS$(dMOD MOUSEKRMOUSEXPMOUSEYQMENU(MENUMESSAGEMID$(>NEXTNOTOBOXOCT$(oODD(OFFSETmOFFOROUT?(PEEK(2PIOPOINT(\POS(PTSINPTSOUTRANDOM(VRIGHT$(<RNDURND(TSGN($SIN()SPACE$(SPC(SQR(NSTEPHSTR$(ASTRING$(TAB(TAN(+THENJTIME$8TIMER9TOGTRUETRUNC(&TYPE(UPPER$(USINGVAL(5VAL?(]VARPTR(zVDIBASEW:WINDTABXBIOS(XOR\[^ Uu#Au*e;D_%X,W P==^$33I۸Kܸfp zb ae  fAܸNuR  gNuCݹM`Cݹ za NuQf#lCݸBRaa#paa fEafE afEagVkZHPaz :g, @A o"R"@$HpR@ " gR f _ CݸR@@ @b Nu z>NuCNut Ef< (Nf4 (Df, ( g ( fVqEkNuEt@`&Et`EB6CAk CbC620E(HpkfGe^Vg ( g ( g$K L`SHPSa :g& = _gV+g+0+ENuX LENu L .g _g :g Zb Ad 9b 0d LEgNuBhHxHQHP~p ba|Jg`TP$_ fNuRgRg"RgRgZ`@HRHQHPE`@HRHQHPENJgP$_ g g geT` W"o`|NuaH@Vfe~"Gzb#lNu Ff !f<#h`GE|@`4G|`,gZ,Ha2|FAk FdGF<3`G<(HrkKeVg &M L`|*HNu-<-*HNu MNu~"Nu ( g  fRG + f~NuptRB0 b ЀJjR`rptRB0 b瀀 eR`LR Xg Og HgSptRB Fb"0k  c_  c退 eRSJBkjaJa^& gRS)`Ja &g?a<JBk>g@a4 AfJg6 Af Jg0 @g,& g|B"2~Nu~Nup` p`p`p`a` a "fR&IB g "gR`fR`S~Nup`p `p` p`p`paF;` f~Nu        B!@ >? B!@!@  ^ ^_v , uw h vx h  B ! ! B X B v B  B   ` p c T \ d c l c X h c k !@ k T \ ` XF!lEG FEIFH TF \F! F B! F B   B< \  FHv  Fv   7 XF VF \ 4F ;! ;" H VF \ eFMMvv eW e PY! p e  p e B! 4 p e F X!F XF F# ! EF E BF#   T X \ `!   & .FY~Nu "~Nu|NuP)Nu|Nu9ݺ Mg9ݹ f~Nuaf !g ,g ;g  g 'g"~NuZNua6"ܸ Ae` ZbZvRC .g _g Ae Zc` 0e 9ct %g $g !f t`t`t (fXNuSNutNua"ܸ 9bv 0d`~`~agSJf~Nu~`~`~`~`~` ~`~`~a,f~NuagSJg g`agSJfxt `agSSfbt `Aݹ b" g g g SfNuPf b g g Ff"HNu g@ gb@ fb g^` f\`a&<^`a*<P`p`rEܸ@@@GdP(s*s~tRGdFtg@gI `6SC2040Vf GbWa`0G_G`"HJfSATAAAdT8@p0N,B0&HLJfSSAQAd ;N,`BQL`z(HKݳbSNu(IK$eRNug g^`Z f\`LaR ^`BaS P`8CݸaHy۸?< NA\NuA۸J9^f~Hqpp dd@G23gGr` Ae Zb9@Q Mgl gf g` gZ e g Sg  b8 g0 g* g$ g g  g  g  g  fXp Fgb dGJ3j @G23g>G"r` Ae Zb9@QGZp)J3g ` gR R"@dp` Q!  g`  B"_Nu f` g: g g0bb`"pgS@ "WfQ"` R 2HapPn aQn $HL  fRfS`r eA@@@EdP$rt`E QSBJ9@gSBk Ae Zb QH;g; g`h$%!($(%(!($'  ,G&k\g\UkgUgR 2aa HJf0`r dQ0 9c^Q`R 2aTaOJgr gRA`fQ0Q`R 2a atXrJgh`Ѐ[ЀtQ`nA0<BBQACypk"r11gNpA$ 1C`AC(pk"r11gNpA$ 1C`Nu 3np`NuHz?<&NN\Byc?<?<NNXa @aQ#aBypNaHQa : @"z$Ipc$I )g`#d` #dBy,By&Byaa0:4a By*By(a(a a .zByܶ0: @e3(3*a `?<?<NAXJfAaa*?<?<NAXJfN09HdAaa09H294: iUAk zgJ?a|At00r"zS@k )WfR@PBy(By*0:Ba aB`A&2:2`J0gRAQzg 3(`/Aa*a6 Jf gH@ g Jf:H@ Gg Hg Kgp Mg Pg Rg ag` bg sgf tg wg;kZ e eL b@@@@ ; g0/NuvXVîr\ fa zPDg0:S@k 3&`Aa z&"zpEg Cf"J#da `h fa yd (gh0:~R@z b 3&`6Aaa a @` CT0g2S@2zHj&Sy*`C4A$0J0g R@2z @PeRy*`A$pR@Jf3(ABP@Ok0`a`a`|`a z&2: UAp (gQ#d`\A$4 e gJfB`:jC% E%g"fByܶPA\RP0zV @Oe Ry*` a`"0::gG#xOz*z(gaQJfNu?<?<NMX@`d g gf g L g g` gd g f*z?<?<NMX0 b @ Ee0gA#& g `Cd 0S@k@2zrdP3*`>0J0g R@RQ@f0zJ @Oe$0@O3*` 0:,g CfPSy(Sy*jBy*`CJgfP`:fA"fJgSy(HPpa _p `8AJf0By*a"By۸AaBy(`b>:g:axJg:f03B9۸By(By*AH0R@0zba@AaV`SPa~AaDpAx"PѐBy*3`B9:\ga`0AJPg&BPa``A!fBh  gSJgJfS fB`RHP a$_B gkJkafB z4W:k (gpAN :WAp:"(PN,J_gѹdJ_gdC"HS@0QByBy*0:a`Hyy`HydQC pR@gJfA0CސQ @Pe 0@<2 _a`:#f z (gpAN/:A aarBy(ABXP#dJjHNua`0By*ajAazp?a(HQap aa"_0R@zcNuH KlH MH L JY lH 0:2:z@"A>@A AH`HP?< aNA\aLNu(ydJkA`YyxEfe fHwp| Save |Save,A | Quit | New |Blk Sta|Replace| Pg up |t|Direct | Run | | Load | Merge | Llist | Block |Blk End| Find |Pg down|Insert | Flip | Test |q OverwrtInsert CF9GkCApQQa`Qa?<?<NAXJfNda`^ax zU#d#d` a`ajQaj0:H3&@۸dA#dSy&g"XܸeAg`a a$0:XBy&@۸dA#d`Ap"z4p? QA`p":&` )g ɲgܸeA`Nua0`Dana`*adaQ`*aTa>`aLpa `aBpa4Q`a`4aVa[ka AN`NaNa,`~3B9۸2:A0*"zhtx` ) gt0 g SgSfYATAQ#d) gH0 gSgUA?aB B gRB2g$k" A(cr(B0E,bt bNu#dNuaGva>xOgaQJga`pa$pKa ` p@??<?<NM\Nup`p @??<?<NM\Nu0:na0:f"A.@a&`~Y8 zJ"zJE0*prtg(2f f3,NuSg SfUBf`TBf`prA"P) g"ӐA0*0gASgSfUPNuTPNu3z?<NNTSk"ёEXJg +fp`NqEXJg +f`Hz`Hz` +gJgHz`|Hz`trHPTgAGGC"qpJf # _` _Hz`6 z`p( g -g g`~Nu (e`|vCgCֺD"C&"CgijgHPbH~t( g(  g* +g .g±e _JgBHzI`R`S`Sj`vCgCֺ"C&"CgP~t) g,  g* +g .g g`JgBHz `*R`Sj`Division by zeroOverflowNumber not integer|-2147483648 .. 2147483647Number not byte|0 .. 255Number not word|0 .. 65535Square root only|for positive numbersLogarithm only for|numbers greater than zeroUndefined error Out of memory Function or command|not yet implemented String too long|max. 32767 characters Not GfA-BASIC V1.0 program Program too long|memory full|NEW Not GfA-BASIC program|file too short|NEWArray dimensioned twiceArray not dimensionedArray index too largeDim index too largeWrong number of indicesProcedure not foundLabel not foundOn Open only|"I"nput "O"utput "R"andom|"A"ppend "U"pdate|allowedFile already openFile # wrongFile not openInput wrong|not numericEnd of file reachedToo many points for|Polyline/Polyfill/Polymark|max. 128Array must have|one dimensionNumber of points too|large for arrayMerge - Not an ASCII fileMerge - Line too long|aborted ==> Syntax error|program aborted!Undefined label"Out of data#Data not numeric$Syntax error in data|unpaired quotes%Disk full&Command not allowed|in direct mode'Program error|Gosub not possible(Clear not allowed in|For-Next-loops or|Procedures)Cont not possible*Parameter missing+Expression too complex,Undefined function-Too many parameters.Parameter wrong|must be a number/Parameter wrong|must be a string0Open "R"|Record lenght wrong2Not an "R"-File3Only one Field per|Open "R" allowed4Fields larger|than record lenght5Too many Fields (max. 19)6GET/PUT|Field string lenght changed7GET/PUT|Record number wrongMENU error?RESERVE error@Pointer (*x) errorZLOCAL error[FOR error\Resume (next) not possible|Fatal, For oder LocaldGFA BASIC Version 2.02 US| Copyright 1986/1987| GFA Systemtechnik GmbHf2 bombs - bus error|Peek or Poke possibly wrongg3 bombs - adress error|Odd word adress! Possibly at|Dpoke, Dpeek, Lpoke or Lpeekh4 bombs - illegal instruction|executed in machine codei5 bombs - divide by zero|in 68000 Machine Codej6 bombs - CHK exeption|68000 interrupted by CHKk7 bombs - TRAPV exeption|68000 interrupted by TRAPVl8 bombs - privilege violation|68000 interrupt by|execution of a|priviliged instructionm9 bombs - trace exeptionGeneral errorDrive not readyUnknown commandCRC error|disk check sum wrongBad requestSeek error|track not foundUnknown media|boot sector wrongSector not foundOut of paperWrite faultRead faultGeneral error 12Write protectedMedia change detectedUnknown deviceBad sector (verify)Insert other disk|(request)Invalid function numberFile not foundPath not foundToo many open filesAccess deniedInvalid handleOut of memoryInvalid memory block adressInvalid drive specificationNo more filesGEMDOS range error|seek wrong?GEMDOS internal errorInvalid executable file formatMemory block growth failure[1][Do you really want to quit?][Ok|Cancel][1][Program end][Return][2][Program stop?][Stop|Cont][2][Printer listing?][Ok|Cancel][2][NEW - delete program?][Ok|Cancel]Editor - Internal errorWhile without WendRepeat without UntilDo without LoopFor without NextWend without WhileUntil without RepeatLoop without DoNext without ForIf without EndifEndif without IfElse without IfElse without EndifExit without a loopProcedure without ReturnProcedure in a loopProcedure defined twiceReturn without ProcedureLabel defined twiceLocal only allowed in ProcedureLocal not allowed in a loopFunction defined twiceGoto into/out of a For Next loop or a ProcedureResume into a For Next loopResume without ProcedurejH lSyntax errorjH lLine too longD\\\\[3]["&      ,2  *   82p\ x~D^ 4*"t:< 2X00FB^  "  < T2&$"F"* &$ L&8@h24&"* &lJ"$,(:$P f   x@& V4 j  @*JLr  &:z$J( (.(F < Zt"N\"`  4"*(<,8L*(j<,( @<    4^> 6 X:dH.( $$ h.>(* Hx(vn$  *( 4:""  ,   F4 &2 ,,NF2  "  * f0 Z     8($ 4Zz "8" D((: " 4 *LBFF."  L `@ 6 *O.|*m - ЭЭм// ??<JNA NL/<NA"/0<NBNu#NA/9NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f# <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD# D`# JLN^NuNV&=|L=|J-|?FB-|ZH>-|B:=|8=|6=|4=|82-| A.-|3;*N (.v/x/z/|N =@=|=|=|=|=|=|=|=|=|=|=|.//N P>N6>?.NT.?<?<?.N\.?<(?<?.N\Bn`Bn`0<@2.AA2.A=@0<rn2. A=@0.|H/NX-@0<ȐnH/NX-@Bn N2n1n0.ʐn"N4nRJ3@Rn nLmd.?<L?.NXRn nm6.?<w?<?.N\N >N6>?.NT.?<^?<?.N\=|@Bn=|@=|T.?<?.NX=|=|T=|=|.?<?.NX=|=|.?<?.NXBn`Bn`0<@2.AA2.A=@0<rn2. A=@0.̐n|H/NX-@0<n̐nH/NX-@/./.NP//./.NP/0<H/NX/NRP/NRP/0<H/NX/NP//./.NP//./.NP/0<#(H/NX/NP/NP//./.NP//./.NP/0<H/NX/NP/NP/NP/NrP/NZX=@0.ʐn=@JnlBn no=| N2n1n N2nRI1nRn nLm(.?<L?.NXRn nm.%?<w?<?.N\N >N6>?.NT.B?<2?<?.N\=|6/.:0.6H/NX/NP-@B/.B/.BNP-@B0n6@=P80.8D@=@4/../.B0.44H/NX/NRP/NX/NP-@>/.*/.>NP.N-@F/.F/0.LH/NX/NP/NP/NX/NP/NRP/0.2H/NX/NP/NZX=@J>?.NT0.4n6|@=@0<ȐnJn6=@=n=n.?<?.NXBW?.NT0.R@=@0.|2=@.?<?.NX>?.NT0.6n4|@=@0.S@=@=n=n.?<?.NXBW?.NT0.R@=@0.|2=@.?<?.NXRn4oRn60.6|@m.q?<w?<,?.N\N >?.NT>?.NT>N6BnBn=|=|=n=n=n=nBn`.=n.?<?.NX0.|=@Rn n@m=|Bn=|=|=n=n=n=nBn`.=n.?<?.NX0.|=@Rn n@m=|=|=|Bn=n=n=n=nBn`.=n.?<?.NX0.|=@Rn n@mBn=|=|Bn=n=n=n=nBn`.=n.?<?.NX0.|=@Rn n@mN >?.N T>N6=|=|Bn`,>?.?<?<@?.N`P0.|=@Rn nm=|=|Bn`,>?.?<?<@?.N`P0.|=@Rn nmN .?<w?<d?.N\N N N^NuNV3'0.|Hм@-@=|` nH2n'2RRn nm.'PN>B@09'BN^NuNV#'"#&"#'""#'B"#'n"#'v"#"'P> aF3'B'TpN^NuNV>a*pN^NuNV>N N^NuNV>MN n0'D n 0'F n0'H n0'JB@09'BN^Nu?/?<LNANu#'V"<psNBNu0/2/ҀgV 4<eHA4<|cRBA`B6<c4BfSB2C|gAC8be0Nu4`6`0Nur0/jDA4/BjDADB/&HCCjDCCBmA&Nu0/@kR@`S@@Nu0/@R@@Nu#'dNu#'hNu o 'hNuNV3 3 'VBy'X3'\3'bN 09 N^NuNV3'VBy'XBy'\3'bN N^NuNV3 "3 "3#3#3 'V3'XBy'\3'`3'bN N^NuNV3 "3 "Bn nH|2n2RRnJ@f3'V3'XSn3'\3'bN N^NuNV## .мZ#3d'VBy'X3 '\ n 3'bN n 0'b## #$#"N^NuNV# 3'V3 'XBy'\3'bN #"N^NuNV3 3'VBy'X3'\3'bN 09 N^NuNV3 3'VBy'X3'\3'bN 09 N^NuNVH..,. Nl LN^NuNVH..,. Nb LN^NuNVH..N@ LN^NuNVH..N LN^NuNVHJl| .D-@`BFJfB`^~` .-@R .f` .-@S. g .-@޼@ JFg .JLN^NuNVH .м<JgJFlB`V .:|oJEg <` <`0..μ|`RFJFm`SFJFnJEg D. JLN^NuNVH..,. N LN^NuNVH..,. NZ LN^Nu?<`$?<`?<`<bTJNuBgJk<8cH~$<cP<c <L~TNu,<>.N<<XDxB묈<΄,<CN,.NZ$(< .BJk<FD<c~䯾o$`<D<c~DDl`z,k^g>k^g2k8<d,&B<ރeNuRid~S<Nu.NuJNu:ڼ.gNugRghEDvi^E]HE:BB8HD&HC؃HF&؃BDHDHGHFHEބj ޼gNuSiex@ބއdRgNu~NujJ<Nu!T3~SUU???xBJg.jD<¼bHF<܆[Jj ܼdRNumc68343 floating point firmware (c) copyright 1981 by motorola inc.    -$,28=AFJMQTWZ]_bdfikmoprtuwyz{}~~}{zywutrpomkifdb_]ZWTQMJFA=82,$A simple flat planeDemo By Bob Ritter and Mike Tancsa...Press any key to continue...A surface where Z = fuction(X-squared, Y-squared)Press any key to continue...Complex surfaces are fun to make.And FAST!!Press any key to continue.Press any key to exit and return to desk-top..._ctrl_cn@_crystal>_trapJldivlmulZ_mainL_crys_if _appl_in (_appl_ex _evnt_ke _graf_ha _gsx1 _gsx2 _i_ptr _i_ptr2 _iioff_iooff_m_lptr2 _mul_div _SMUL_DI z_vec_len _MUL_DIV _pioff_pooff_umul_di __exit _vdi _vswr_mo _v_clrwk6_v_ellip`_v_gtext_v_opnvw _v_pline_vsl_col_vsl_typfpaddR_fpaddRfpdivr_fpdivrsin_sinsqrt_sqrt_fpltof_fpftolZfpmul_fpmulfpmult_fpmultfpsub_fpsubffpsin@ffpcos.ffptan(ffpsincs"ffpsqrtffpaddlffpsubZffpdivbffpmul2ffpthetaZffptnormffpcpyrt@_intin_intout _c"_ptsin"_ptsout$_global&_control'_int_in'"_int_out'B_ad_c'P_gl_apid'T_contrl'V_addr_in'n_addr_ou'v.vf b&j TZ .0$X    t  (  $  D.>.  Njjh  ,F  &      : b$ fBL` " $ *O.|H*m - ЭЭм// ??<JNA NL/<NA"/0<NBNu#@NA/9@NuNVBBJlDRBJ lD RB0. -@0.2. An=@ .gDN^NuNVH?BCB..,. f#D <`hlDRCJlDRCn8fzB`0l :HGH`xe`Jge`|fD#D D`#D JLN^NuB?< NA\O29TUA yVXHJgXHQ` #/?< NA\O?<NNTO|g3?</</<?<NN ?<NNTO#33A0<?/?< / $R*gD *Ъm $HB| mDЪ"*Ҫm $HB|mDҪ%@%Aa$_XJQNu *"*H@HA4<698<z"jaZ *м"*H@HA4<698<z"ja0 *"*ҼH@HA4<698<z"ja *м"*ҼH@HA4<698<z"j` *"*H@HA4* 698<z j "ja *м"*H@HA4* 698<z j("j,a *"*ҼH@HA4* 698<z jD"jHaR *м"*ҼH@HA4* 698<z j`"jd` |@"y0<2<4<698<z<<>< ?HHaLL|Q><<0<|QNu0<? yr QNu09|fb6<J9f6<0924C|KC|0KC|ABf `|3f3??<?<NN\ONuH069SCC0"4||6;0 bBL NuPPaBJ@fDN ` `(`0`<`BNu`H`P`X`d`n`t````|mP<<@@ ;RN `````Nu``` `@`\`j````<@ ;N B??`````Nu````0``H`d```Hp2QNu0QQNu0F@X2QNu2QNu0F@QQNu0QQNu0QQNu0QF@2QNu0F@QQNuFQQNu0F@X2QNu0F@2QNu0F@QQNu0QF@2QNup2QNuF2H@QqPQNut4qPHBQQNu2H@t4qPqPHBőQNu2H@t4qPqPHBQQQNut4FqPHBQQNut4qPHBQQNut4qPHBQQNu2H@t4qPB3PHBQB2QNu2H@t4qPqPHBQQQNu2H@qPQQNu2H@t4qPqPHBQQQNu2H@t4FqPqPHBQQQNut4FqPHBQQNu2H@t4qPqPHBQQQNu2H@qPQQNut4QHBqPQNu2H@t4캱QQHBqPqPQNu2H@t4캁QQHBqPqPQNut4FQHBqPQNut4캵QHBqPQNut4캅QHBqPQNu2H@t4캄QB2HBqPB3PQNu2H@t4캵QQHBqPqPQNu2H@t4캱QQHBqPqPQNu2H@t4FQQHBqPqPQNut4FQHBqPQNu2H@t4QQHBqPqPQNu""pRpR'wWw'""PrPr''UwUw````xH pP ?? ?? ????80 `@Ç@`0 8`p88pp88p`aq99qa_crystal>_trapJldivlmulZustkHretsav@~~lmulZ~sign~l1~l2 ~t1~t2~~ldiv~b~q~l1~l2~al1~al2 ~sign_ldivrDactflagxymode src dstdxdysizeZEROS_ANDANDNSRCNANDDSTXOR_ORNANDNNXOR NDST ORN NSRC NOR NORNONES_mainLmove`sprit_st vb_lpfvb_findrherepvblankvb_vecquitrez_savepal_saveps_lpcolor_ta "col1cleartile_scr$spc_lend*spc_lp(mdin_lp8spot0`square0tri0`delta_ta `del_lpcopy_lpsort_inispact_lpdonedemo_tasagainZdt_out_synccol_animwaitw_lp0w_lp1sprit_ptLcol_dirvb_cntbob grid@spot1spot2spot3square1square2 square3@tri1tri2tri3sphereeksspokes sync1si_lpsort*sort_lp08sort_lp1b2C ^b2D b2E b2F b2rmode 2b10_lp tb1F_lp 0b20_lp @b22_lp hb23_lp b28_lp b29_lp b2A_lp 0b2B_lp Bb2C_lp bb2E_lp b2F_lp b21r b22r b23r b24r b26r 8b27r Nb28r db29r b2Br b2Cr b2Dr b2Er b22r_lp b23r_lp b28r_lp hb29r_lp b2Br_lp b2Cr_lp b2Er_lp .vf 8 (&0 hhf * 6t**0$..4J (; /`4,^`0@(#) KAL -- kaleidoscope V0.4 Atari Corp. /jwt*O.|*m - ЭЭм// ??<JNA NaB9?<NNTO3 @W09R@@309R@@3S@3!|x!|x BEBF~By?<NNTO|#0a@:0a:<aaJ@gaJNA`00000aBgNAa, A*m AUTmR@ymyNuS@j09S@NuSyjRG2<49a3"9g Ag Ag A#HANuNqa DEaDFaDEaFaDFa DEaDFaFNuNq3x0J9g@y3x2y3zJ9gRyxNuAx0<0QA`0 0000aA`0M0000aAx3A`1|d1|1| Axp2< 0Q0aA`3 Ax33A`1|1|1|aA`1|!1|1|Ax1|1|arpCa~pCarpCapCaA`1|1|1|`*pCanpCadA`0e1|1|3lps"<4NBNu/ A`1|1|1|Ax00aAz"_222NuA`1|1|1|Ax0000`A`1|1|1|`p?< NATNu0<"<HNBNu Nu!|3 Nu`xxxx`xxxxx6.    "2 &0     *  3 !G.F.A. Basic F/X $By Jim Luczak G.F.A. Basic F/X is a interactive program taht demonstrates some of the capabilities of G.F.A. Basic. There are three support programs that G.F.A. Basic F/X uses. GFA_FX_1.PRG, GFA_FX_2.PRG, and GFA_FX_M.PRG. These programs are used to demonstrate G.F.A. Basic's EXEC Command. GFA_FX_1.PRG and GFA_FX_2.PRG are used in Medium Resolution. GFA_FX_1.PRG and GFA_FX_M.PRG are used in High Resolution. Try running one of the Support programs. As you will notice, they are completely independent programs. G.F.A. Basic Gives you the ability to access programs directly from Basic. Another feature of G.F.A. Basic are the many commands to direct I/O to the disk drives. G.F.A. Basic F/X will search up to 16 disk drives for the support programs mentioned above. Try moving one of the support programs to another disk drive. The program will find and load it. ( The support programs must be in the Root Directory of the drive, Not in a Folder. ). Try programming with G.F.A. Basic. Everything a Computer Language should be. '8GfABASIC>R\\UxVy|z|}6}6}Z}x}~}~}~v~v~v~vALL_DONEDWIDTHHEIGHTMKMXMYMX1MY1REZBXBYWMODSXSYSWSHEXEYEWEHXYXWWOFFMX2MY2SW1SH1MK1DWDHBDXBDYBDWBDHSX1SY1BWBHKFTSAIESTCC1E41E42E43E44RDC2QWXYGG1FOREGRNDBACKGRNDPEF4EF5CXCYCRHRSECSEC1SEC2SEC3EXREYRIC1IC2IC3ZFGBGHZSPRMSPROSNDSND1PERDNUPDN1PREDURCDFDXDFMDFM1TV1TV2TVHXHYTOFTOF1MINTV3DFD DEFAULT_DRIVEATXSCREEN1EXTX1TX2TX3TX4ZGFASSPRITE GFASPRITESPRASPRBSPRCSPRDSPRESPRFCLM4SECMINREZZX1Y2YXY1Q0Q3Q6SMSFIMSTRIPCLKXCLKYINTCLXMCLYMMSTRIPBARMMOMO1SPALETTE STRIP_DATACLEAN_UPLO_REZMED_REZHI_REZ SHUT_DOWNZAP_OUTGFA_SPRITE_DATA CLOCK_DATATEMPLOW_OUT FIND_DONEGFA_MOUSE_DATASEC_DONECLOCK_SPRITE_DATA MENU_HANDLER DO_RUBBER_BOX DO_DRAG_BOX DO_MOVE_BOX DO_GROW_BOX DO_SHRINK_BOXDO_FANCY RUBBER_BOXLOW_REZ_MESSAGEGROW_BOX SHRINK_BOXDRAG_BOXMOVE_BOXSAVE_ORIGNAL_COLORSSAVE_ORIGINAL_COLORSFANCY_2 DO_FANCY_1 DO_FANCY_2 DO_EFFECT_2 DO_EFFECT_1 DO_EFFECT_3 DO_EFFECT_4 DO_EFFECT_5DEFAULT DO_WINDOW_1 WINDOW_MSG DO_WINDOW_2DO_EXEC_COMMANDDO_EXECUTE_COMMAND DO_WINDOW_ DO_EXECUTE_1 DO_EXECUTE_2WINDOW_GRAPHIC DO_SPRITEDO_CLOCK INTERMISSION DO_SOUND_1 DO_SOUND_2 DO_SOUND_3DO_TITLE_SOUNDMSHRINKMGROWFIND_PRGDO_MICEDO_HRSDO_MINDO_SECR* SPECIAL EFFECTS SAMPLER * R* Ver 1.0 By Jim Luczak 02/22/87 * R-N - > The Variable WOFF is a Vertical Offset L Used to Coordinate the GEM Y Coordinate & the Window Y Coordinate.  R-N  B Rez%=Xbios(4) determins the Screen Resolution > Rez% = 0 --> Low Resolution t> Rez% = 1 --> Medium Resolution t> Rez% = 2 --> High Resolution t R-N  8 Default_drive=Gemdos(25) L Determins what Drive was Active at the Start of the Program. 8 Default_drive = 0 = A: 8 Default_drive = 1 = B: 8 Default_drive = 2 = C: 8 Default_drive = 3 = D: . &Ect.  P- SET UP PROGRAM PARAMETERS - * F*pp@ F2*00 !00 !00 !00 F* !` ! F kEH FE F غF<)!G.F.A. F/X| | Shift Into!! MEDIUM RESOLUTION !F- FG F F-RF FRFF F&Q!!!1!2!3!4!S!T!a!b!iFEp F@EFAEFR- READ MENU STRIP DATA - RF ٜ EGFsQ F  ي FGR- READ SPRITE DATA - RFw& Eb b b b bS F2$ Eb b b b b F$Eb b b b b F&Eb b b b bS F2$Eb b b b b F$Eb b` b b b F  EGFQP!QF E bQ bP F  F  @ EGFQP!QF E bQ bP F   F  x EGFQP!QFEbQ bP F  T F  ۰ EGFQP!QFEbQ bP F  ی F  EGFQP!QFEbQ bP F  F  EGFQP!QFEbQ bP F  F>R- READ USER DEFINED MOUSE DATA - R F8 Eb b b b b F( Eb b` b b bS F& Eb` b b b b F( Eb` b b b bS F < EGFiQQF  E bQ F   F> p EGFiQPF E bP F  P F= ݤ EGFQQF E bQ F  ݄ F EGFQPF E bP F  ݸ F EGFQQF E bQ F  F @ EGFQPF E bP F  F t EGFQQF E bQ F  T F ި EGFQPF E bP F  ވ F EG`F,Q F  ޼ FG EGFsQ F  FGR- READ CLOCK SPRITE DATA -<- RF-$Eb b b b b F ߢ EGFQP!QFEbQ bP F  ~ F EF M FVR-" DRAW TITLE PAGE - ^F 6!!!F6!`!@!F6!!! F6!@!!FE FE>>FJEzzFKE44FUEFVE F[Ezz F\EFXEF;EFEX=A  Y=A   X1=A   Y1=A  F(!F"/H! !M!F F FYFF6! !!FUE``FVE@@FM#F.FR- RUBBER BOX -" e+F-! F X Coordinate of Box "! F Y Corrdinate of Box <!F Smallest Possible WIDTH of Box in Pixels <@!F Smallest Possible HEIGHT of Box in Pixels 6s#  F A.E.S. Graphics Library Routine Op Code <E3 F Returned WIDTH of Box when User Released Button DE3 F Returned HEIGHT of Box when User Released Button -.F-R- GROW BOX ROUTINE - +F-YFEF6! !!F6!@! !FS 6!!!F6!!@!`F(!!! F*/!p!//!GROW BOXF(!!!@F>/!p!//!Press The LEFT Mouse Button.F@/! !//!A Box Will Originate And GROWFT>/!H!//!To An Area Around This TextFw(FP/! !//!-Press The RIGHT Mouse Button To EXIT The DEMOF-EFEFEFEFEppFEppFEzzFEFFE44FEF #F !!!F  , F- "!!F- $F-!F F#F!!!F FEF FE #F!!!FEFEF!FM$0!  FM F F  rFYFUEFVE@@FM#F.FR-" GROW BOX -" + F-4!FF X Coordinate of Box in it's Initial Size e8!F Y Coordinate of Box in it's Initial Size a(!F Initial WIDTH of Box p(@!F Initial HEIGHT of Box :!F X Coordinate of Box in it's Final Size -> !Fn Y Coordinate of Box in it's Final Size e2@!F WIDTH of Box in it's Final Size 4`!F HEIGHT of Box in it's Final Size i.s# F A.E.S. Graphics Library Op Code .FR- SHRINK BOX ROUTINE - +F-YFEF6!!@!`F 6!!!F6! !!F 6!!!F(!!! F,/!p!//! SHRINK BOXF(!!!@F>/!p!//!Press The LEFT Mouse Button.FB/! !//!A Box Will Originate And SHRINKF-P/!H!//!.To The Area Where You Pressed The Mouse ButtonF(FP/! !//!-Press The RIGHT Mouse Button To EXIT The DEMOF-EFEFEFEFE44F EF EzzFEFEppFEppF #F  !! !F   F- "!!F- F-M FM$ !  F!F F#F!!!F FEF FE #F!!!FEFEF!F F  "FYFUEFVE@@FM#F.FR- SHRINK BOX -" + F2!F X Coordinate of Box in it's Final Size t6!F Y Coordinate of Box in it's Final Size e2!F WIDTH of Box in it's Final Size 4@!F Height of Box in it's Final Size i<! F X Coordinate of Box in it's Initial Size i@ !F  Y Coordinate of Box in it's Initial Size -(@!F Initial WIDTH of Box o(`!F Initial HEIGHT of Box .s# F A.E.S. Graphics Library Op Code .FP- DRAG BOX ROUTINE - +F-YFEF 6!!!F6!@! ! FS6!@! !F6!!@!F(!!! F*/!p!//!DRAG BOXF(!!!@FX/ !p!  !6Press & Hold The LEFT Mouse Button In The Smaller Box.FP/ ! !  !.A Shadowed Box Will Appear That Can Be DraggedF@/ !H!  !Anywhere Within The Larger BoxF(!FP/H! !aa!-Press The RIGHT Mouse Button To EXIT The DEMOFFEFEHHFE F E FE44FEF E F!E F"EXXF #F ! !!! "F !! !F   F! "!!F. i#   # F M FM$!@ F!F#F !! !F #F!!!F EF EFF!F F  FYF 6!!!F 6!!!FUE@@FVE@@FM#F.FR-" DRAG BOX -" + F-&!F WIDTH of Box being Dragged D(!FW HEIGHT of Box being Dragged 0! F Starting X Coordinate of Box B4@!F  Starting Y Coordinate of Box a6!F X Coordinate of Boundary Rectangle -: ! Fo Y Coordinate of Boundary Rectangle .@!!F WIDTH of Boundary Rectangle 0`!"F Height of Boundary Rectangle a.s# F A.E.S. Graphics Library Op Code 8E3 F X Coordinate when Mouse Button was Released BE3 F- Y Coordinate when Mouse Button was Released .FEP- MOVE BOX ROUTINE - -+F-YFEF 6!!!F6!!@!F6!@!!F6!`!@!F(!!! F*/!p!//!MOVE BOXF(!!!@FV/ !p!  !3Press The LEFT Mouse Button Anywhere on The Screen.F R/ ! !  !0The Box Will Move To Where You Press The Button.F(FP/H!p!aa!-Press The RIGHT Mouse Button To EXIT The DEMOFrEF%EHHF&EHHF EHHFE44F #F  !! %!&F   F% "!!F FEFEFM FFM$@!  F!F#F !! %!&F #F!!%!&F EFEF!F F  FYFUE FVE@@FM#F.FR-! MOVE BOX -# r+ F$!%F WIDTH of Box being Moved r&!&FW HEIGHT of Box Being Moved @! F X Coordinate of Box in it's Initial Position eD@!F  Y Coordinate of Box in it's Initial Position >!F X Coordinate of Box in it's Final Position nB !F  Y Coordinate of Box in it's Final Position n.s# F A.E.S. Graphics Library Op Code .FR- SPECIAL EFFECT #1 - +FYFFEF6! ! ! F 6!`!!F6!!@!F 6!!!F#F EGF ~ FEF !F FE4FF!!!F!F  bF(!!!@F!F4/p!H!HH!SPECIAL EFFECT #1F2 {HFF!FYFUEFVE FM#F.FP- SPECIAL EFFECT # 2 - +FYFF 6!!!F6!`!`!`Fc6!!`!F6!!@!F!F-EGGF(EF)EF*EF +E(G)H*F H,EG H+F,!! ,!-F  (,F z,EG-H+F, !,!!-,F  Z,F!  +F!*E*F+E(F!(E)F!)E+F! F! {HF!YF F(!!! F!F4/p!H!HH!SPECIAL EFFECT #2F {HFF!FYF6!!!`FUEFVE FM#F.FP- SPECIAL EFFECT # 3 - +F-YFF 6!!!F6!`!!`F 6!!`!F6!!@!`F !FEFEGGF E F EF E F EF EGF ~ EG H F!! !F  f F!  EG H F !! !F   F  EGH F!! ! F   F!  EGH F !!! F   F!  TF!(!!! F !F4/p!H!HH!SPECIAL EFFECT #3F3 {HFF!FYFUE``FVE FM#F.FR- SPECIAL EFFECT #4 - +FYFF6! !!F-6!!`!F6!!@!FF6!! !F@ @F@@EF>E6You Can Terminate Effect #4| Before It Is Complete By|Fr6E, Pressing & Holding| The Mouse ButtonF)!!! Got It ! !FEM$@!  F F!!F/EF0E F.EF(EF)EF-EF fEGF- <+E(G)H.F ,EG H+F**E#),O4 4H 1F*&, !*4!, !*4F&, !2*!, !3*F  `,FH/!0F6!/! !/FM$@0!/ FERF 2FG+E)FGEF FE  J+F.E.F+E(F(E)F)E+F  8F(!!! F-!F4/p!H!HH!SPECIAL EFFECT #4F- {HFF!FYF6!`!!F6!!!`FUE FVE FM#F.FR- SPECIAL EFFECTS #5 - +FYFF 6!!!F6!`!@!F6!!`!F6!!@!`F zAF AEF>E6You Can Terminate Effect #5| Before It Is Complete By|Fr6E, Pressing & Holding| The Mouse ButtonF)!!! Got It ! !FEM$@!  F F!!F(EF)E F*EFEF dEGF- 6+E(G)H*F,6!V !V !V F .,EG H+F$,! ! ,!FFF  ,F  ,E GFH+F( !,!!FF ,F  N,F!.! ! !#F !F { FG  >EGVpp  F*V/ !VH !F0M&V@@  !V  !{ ! F  F!F(!!!@F*/!!! A Squadron ofFF(!!!@F'\!!Fe(!!!@F!./!"!![[ - Squares - ]]Fo!F { FYFFERF ,FG+E)FGEF FE  +FFYFF*E*F+E(FF(E)FF)E+FF  FF6!!@!`FF(! !! F!F4/p!H!HH!SPECIAL EFFECT #5F- {HFF!FYF6!`!!F6!@!!FUEFVE FM#F.FP-! DEFAULT WINDOWS - +F-YF!F6!@!@!@F6!@!!F6!!@!`F 6!!!F(!!!@FF[FYFF*\!" G.F.A. Basic Default Window # 1 Fi,]!$ Windows Are Easy To Use With G.F.A.F(\!! G.F.A. Basic Default Window # 2 F,]!$ Windows Are Easy To Use With G.F.A.FG(\!! G.F.A. Basic Default Window # 3 F,]!$ Windows Are Easy To Use With G.F.A.FG0\!! G.F.A. Basic Default Window # 4 FF2]!$ Windows Are Easy To Use With G.F.A.F^FEF8EFMFFE   F ERF  FwZ8F M$!  FM F-48F 8FEEF {HFa-F FE^8F8M$!  FMF- F7|F ~F8 >8EGFs[8F  .8FG^F FUEFVE FM#FF.FR- WINDOW MESSAGE - +F- ETo Open Window # A8 Fn 8FwETo End The DEMOF FE>/ ! !!Press The LEFT Mouse ButtonF"/H! !HH!F>/ ! !!Press The RIGHT Mouse ButtonF2/H!H!HH!To End The DEMOFM.FR- WINDOW GRAPHIC - + F-/EF0EF!F :EGHF%/F&*!! !:FH/!0F  `:F! 9E GH F%/F$*!!9!FH/!0F  9F!!F.F R-! EXECUTE PROGRAM 1 - +F-YFFEF 6!!!F6!`!@!F6!! !F6! ! ! F (!!! F 2/H!p!  !EXECUTE PROGRAMFA(!!!@FJ/ !p!aa!(This is a DEMO of G.F.A.'S EXEC Command.F`/ ! !  !=Almost Any Program Can Be Executed Directly From G.F.A. BasicFF/ !H!aa!#When You Exit The Executed Program,Fmj/ !p! !GControl Is Passed Back To The Program That Called The Executed Program.F(!FT/ ! !  !1The Program That Will Be Executed Is GFA_FX_1.PRGF`/ !4! !>To Exit The Program After It Has Been Executed, Press Any Key.F (FH/p!p!zz!%Press Any Key To Execute The Program.F:/*! !!Press HELP to Exit DemoFFESF  #F $t6 FE GFA_FX_1.PRGFE;; FM*F6!! !@Fz6!@! !F6!! !F 6!!!FM$@! FMF F!F 6!!!FUE00FVEFM#F.FR-! EXECUTE PROGRAM 2 - P+F-YFFEF6E/This Example Demonstrates That A Low ResolutionF@E9Program Can Be Executed From A Medium Resolution Program.F,E%The Program That Will Be Executed Is FE GFA_FX_2.PRGFEFE GFA_FX_2.PRGFEzz F2 &~FCEFEFE EFFEXECM.PRGFa>E6This Demo Program Takes Approxmatly 2.5 Minutes To RunF.E GFA_FX_M.PRGFE  FM FE EF 6!!!F6!! !F6!! !@Fz6!`!@!Fz(!!! F 2/H!p!  !EXECUTE PROGRAMFA(!!!@FJ/ !p!aa!(This is a DEMO of G.F.A.'S EXEC Command.F`/ ! !  !=Almost Any Program Can Be Executed Directly From G.F.A. BasicF"/ !H!aa!F"/ !p! !F(!F"/ ! !  !F"/ !4!  !F`/ !H! !>To Exit The Program After It Has Been Executed, Press Any Key.F (FH/p!p!zz!%Press Any Key To Execute The Program.FE:/*! !!Press HELP to Exit DemoFFESF  )`F )6 FM*FFM$ ! FMF  F!F6!!!FUEFVEFM#F.FR-! EXEC COMMAND CALL - +FbFE X F!!!FPX FFE.FR-" SPRITE CONTROLLER - +!FFFYFF 6!!!F6! !@!`F6!`!!F6!!`!F #F(!!! F*/H!p!  !SPRITESF(!!!@FzB/ !,!pp!Press Mouse Button To EXIT DemoF(!!!F0/*!!! A Six Pack OfFt(!!!F*/ !\!//!SPRITESFcEF7EF?EnF,EFRE F3  -F!ERF ,E,?F*E), 3336F /E*,7 FR*!#4 /F$~ !R*(!#4 /F$~ !R*(!#4 /F(~!R*(!#4 /TF(~!R*(!#4 /TF~!R*!#44 /F ~!R*!#44 /TFF ,~FYFUEFVEFM#FF.FR-# MOUSE CONTROLLER - 5++F-FYFF!F 6!!!F6!!@!F6!`!!F6!`!!F #F(!!! F./H!p!  ! Mouse FormsFO(!!!@FN/ !p!pp!,Press LEFT Mouse Button To Change Mouse FormF(!!!@FpH/ !,!pp!%Press RIGHT Mouse Button To EXIT DemoF-(!FEF_EF`EF&/p!H!HH!_ FL  1( F,ERF 1 F,4_FM&_!@!z ! F 0_Fi}_F {F'p!H!F&/p!H!HH!_ FL {@F 1F_}` F {F'p!H!F&/p!H!HH!` FL {@F4`F 1`F`EF_EF FE F F| /F_'p!H!F}FUE``FVEF 6!!!FM#F.FR-! THE CLOCK WORKS - +"F-FYF. 6!!!F6!`!!F6!!!`F6! ! ! FFEcEaF dE FeEHHFfE\\F(!!!@FB/z!<!HH!Press Mouse Button To EXIT DemoF.(! !! F /d!e !!HOURF(!F #F 39EG@F"d!e!dH!e F'd !ec!9F*d4!e!d !e F'df!ec!9@F0e!PF 39FfELLF FE  39FcEbFdE\\FeEHHFfEFgEF(! !! F"/d!e !*!MINUTEF(!!!@F 6r:EGFF 59EGpF"d!e!d0!e F'dfg!ec!9F*d@!e!d !e F.'df@!ec!9pF*d4!e!d`!e F.'df0@!ec!9pF*d!e!d!e F('df!ec!94F0e! F 59FgEF FE  4r9FdEaaFeEHHF(! !! FfEF!gEF"/d!e !*!SECONDF(!!!@F  4^:FEFM,F:M-F:  6FERFFE5?8@``@ FM.F8 6FFF 6!!!FUE@@FVEFM#F.F"R-" SECONDS ROUTINE - +.FFdEaa@FeEXXF 7FGF- F F 7FF0~!d!e# p iFM-Fd F- 8FFF"~!d!e# F iF F 8\FpFxxF4~!d@!e# #Fp iF F 8FpF88FF4~!d4!e# #Fp iF F 9F4FttFF4~!d!e# #F4 iF FM&!!} ! FGEFF |FF .F|R- MINUTES ROUTINE - -+-FFdE\\@FeEXXFhE5?8@@ F :hF0~!d!e# p iFM,Fd F, :LhhF"~!d!e# h iF F :hphxxF4~!d@!e# #hp iF F :hph88Fh4~!d4!e# #hp iF F ;Nh4httFh4~!d!e# #h4 iF F&M& ! !{ !  F.FR-! HOURS ROUTINE - -+,Fd$!F#FcEaFdEppFeEXXF = EGFF <4E@F EEE@F FE G.F.A.'S , Windows , Sprites , Mice , Clock Works ,"" -<EXECUTE'S , Execute Program 1 , Execute Program 2 ,"" &QUIT, EXIT , STAY ,"" "","" R.! SPRITE DATA . |Fw@640,0,4088,0,16380,0,32206,0,16387,0,56379,0,48765,0,10836,0 87800,0,576,0,1056,0,576,0,8580,0,4104,0,4080,0,2016,0 <63551,0,32769,0,48765,0,41541,0,44637,0,15996,0,0,0,992,0 <544,0,992,0,448,0,36873,0,36873,0,40953,0,33729,0,63519,0 <0,0,11892,0,22554,0,12300,0,8196,0,20082,0,20874,0,6072,0 83696,0,384,0,576,0,9156,0,4488,0,2064,0,2016,0,960,0 7@32382,0,33153,0,32190,0,33345,0,45657,0,45657,0,32190,0,384,0 >960,0,1056,0,18402,0,35889,0,38937,0,38937,0,19506,0,2016,0 >6168,0,13364,0,29298,0,16962,0,9252,0,6168,0,16962,0,8580,0 <4104,0,1440,0,0,0,62406,0,33289,0,45967,0,37385,0,61961,0 @38889,0,23610,0,61455,0,49155,0,39993,0,8772,0,11868,0,7224,0 >576,0,384,0,8196,0,17346,0,33825,0,34833,0,34833,0,18402,0 ,R.# MOUSE DATA .  |F8"0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 R1440,3024,1632,1056,15996,2064,1057,2066,4106,4106,4106,4106,2068,1064,592,480 "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 \57735,65151,58983,64959,59799,2640,3504,3696,3696,3504,3504,60855,60855,64959,58407,58311 "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P384,960,960,1440,1440,7608,24966,65535,65535,24966,7608,1440,1440,960,960,384 "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 V65408,43648,54656,43772,54780,43660,65420,6156,6655,6413,8189,8189,257,257,257,511 ,T Arrow ,Text Cursor (Vertical Bar), Bee ,Hand With Pointing Finger 1BFlat Hand - Extended Fingers,Thin Cross Hair, Thick Cross Hair JOutlined Cross Hair,User Defined #1 (Mouse),User Defined #2 (Race Car) r:user Definer #3 (Snow Flake),User Defined #4 (Squares) rR. CLOCK SPRITE DATA . -|F-:0,0,0,0,32766,0,65535,0,65535,0,65535,0,65535,0,65535,0 665535,0,65535,0,65535,0,65535,0,32766,0,0,0,0,0,0,0  > ! 6 > >B  @  C 90 G. J  x  $  Z V h  <   l   *6 X $ : * 1 ,  ր  .4 ; 9 7F #a0 #b0 #c7770007000600070055200505552220770557075055507703103 #d - #E 9B 02 #W 00 00 10 05 32 10 08 A:\*.*@ #W 00 00 0D 08 2A 0B 00 @ #W 00 00 0E 09 2A 0B 00 @ #W 00 00 0F 0A 2A 0B 00 @ #M 00 00 00 FF A FLOPPY DISK@ @ #M 00 01 00 FF B FLOPPY DISK@ @ #T 00 03 02 FF TRASH@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #F 03 04 *.TOS@ @ #P 03 04 *.TTP@ @ #GfABASIC$$$$*,,,,NNNN|XBVALUEQPFISCTIMETARGETAMEUNAINFOCOSINEFILLRECT1RECT2LISA*00 F E Desk Fi E About GFA BASIC F E-F  E1F E2F  E3F@ E4F` E5F E6F EF-  E Options F0 E Cosine F@ E Fill FP E Swiggle Ft` E - Ftp E Quit Ft EFu E Rectangles Ft E MichTron Ft E Boxes Ft  EFo( EFo FFvLFFLF ,FE+FFYFE F ,jF8)!"GFA BASIC DEMO|Tim Purves|MichTron!! OK !F F ,0F,F F ,@F,F F ,PFe,F F ,pFeqF F ,Fe,F F -Fe,F FYF F.F!+FEFEuu\)F E9zz FF -EGF #F EF E) FE* F: !HH!   !HHF  -hF  -T9 F.F+FF0 !H! !H!a !FHClick on Area to fillF E9zz FFE# Ff&%V !#@@ ! @FF .RF&P!QF  .J9 Fz.FL+FF!F E9zz F FEB  ! HH!   !G HHF0!F  .9 F.F+F(!!!Fi,'H!H!GfA BASIC InterpreterF (!!!PFA.'H! !Distributed by MichTronF!F E9zz FF 0 EGFFD 0EGH F!! ! F  /F  / F 0p EFIFi 0fEGH F!! ! F  0HF  02 F  /9 F!.F+FLissa P und Q variieren EFeELLF#F !GF EF E9zz FHFE EF E) FE* F G !HHF  09 F.F pu\) RzFI* 1 , -$ - . /* 0GfABASICPPPppp9:":$x>>>>INUMZEILEVALK NUMZEILERL1LNUMZEILL2NZLIIIGIKZNR LEERTASTE DPPELPUNKTLAENGETHENPUNKTLGLSLPRO PROGRAMMZEILEZEILEFRE ANFRZEICHEN ANFRZEICHEN1 ANFRZEICHEN2 APOSTROPH2 DPPELPUNKT2 APOSTROPH1LVARLNEUVARZLNRWLWRWNANZAHLGOTONUMMERNANZAHLGOSUBNUMMERNANZAHLGOTONAMENANZAHLGOSUBNAMEN ZEILANZAHLKOMMABLANKQM1MZEILENDEMPROJ ZEILENNUMMERJGJKSPALTESPZLTRENNSTAPSTAPELIALTANZAHLSCHLEIFVAR ANZAHLLAUFVARLLLAUFVACDTNRMIDANZAHLFEHLERMARKENJEJFLAUFVARPERIODAMTGOTONUMBERSAMTGOSUBNUMBERS AMTGOTONAMES AMTGOSUBNAMESAMTERRORMARKERSSTACK AMTRUNNINGVARLINNDECOMMACOLONLIN_ENDNUM_LINELPERMPER APOSTROPHY1 APOSTROPHY2 NBR_LINESLXLENGTHOZEILEZEILE1ZEILE2OXOYOOMARKE PROGRAMMZEILEALTNAMENEUNAMEVARMODNEUVAR NAMSPRUNGLEFT SUCHSTRINGZEILEALTOPBAMENVARMNVARMVAR ZEILEREMERG FEHLERMARKEOLDNAMENUNAMELIN LINREMERGLIN1LIN2LINALT SEARCHSTRINGLINDATA NAM.BRANCH NAM_BRANCHNUMNUMPRONAMNUMPERMIDLEFTNAMPRONAMSCHLFVARSCHLVARLAUFVAR FEHLERMARKEMARKE ERRORMARKENAMPERMARKER ERRORMARKERLOOP_VAR BRANCH_VAR RUNNING_VAR CURRENT_VAR FRTSETZUNGSPRUNG TEIL1ENDEANFANG WEITERSUCHENANFANG1ANFANG2TEIL2 TEIL2ENDEDPPELPUNKTSUCHENEUERDPPELPUNKTNEUERAPOSTROPH NEUESUCHESUCHENDE RESULTAT1 RESULTAT2TEILBTEILAMEHRERESPRUENGESCHLUSSMEHRGOTOSPRUENGEMEHRGOSUBSPRUENGEMARKENVERGLEICHBEDINGUNGENAUFLOESENMARKENVERGLEICH1MARKENVERGLEICH2WIEDERH ABBRUCHMARKESUMMEIDENTIFIKATION SUCHENDE1 NEUESUCHE1IDENTIFIKATION1 VAR_LAENGETEILCFRTSETZFRTSTZNG VARIABLAENGE ZEILEFERTIGMEHRRESUMESPRUENGEBEGIN1BEGIN2SECTION1 LINFERTIGLIN_ENDMOREGOTOBRANCHESMOREGOSUBBRANCHESSECTION2COMPARE_MARKERS1COMPARE_MARKERS2TEST_CONDITIONFURTHER_SEARCHFEHLER1FEHLER2 MODIFIKAT EINZELBEFEHL SUCHELINKS SUCHERECHTS STRINGSUCHESCHLEIFENSUCHE MODIF_ONGOTOMODFIKATONGOTOERROR1ERROR2 STRINGSEARCH MODIFY_GOTO SEARCH_LOOPSSINGLE_COMMANDSYFXFF60 *'F60 ** ATARI ST: BASIC CONVERTER **F60 ** ST-BASIC into GfA-BASIC **F60 *'FF#83 Atari - GfA -Basic / (c) 1986 by GfA SystemtechnikF>9 Written by Klaus Keller, Herdecke; Version 3.0, 10/10/86F:4 Translation by Thomas F. Collins, Las Vegas, NevadaF\!> F<7The following program is still under development, 1986:F PART A:F2,(1) Insert missing GOTO's after THEN or ELSEFk<7(2) Replace line numbers being branched to with markersF4/(3) Complete the procedure for program branchesF*$(4) Replace all GOTOXY with PRINT AtFm60(5) List from a beginning mark to an ending markFa PART B:F2-(6) Resolve all THEN..., THEN-ELSE conditionsF(#(7) Translate ON... GOTO conditionsF4.(8) Translate ON ERROR GOTO and error routinesFk("(9) Erase the program line numbersFo,'(10) Change to single commands per lineF<6(11) List all loop variables completed by NEXT commandFFF|.:%Continue with the same program? (Y/N)"FN NnJFlqF FYFF Select item:F 60(After selecting item, press Return to continue)FFfA:\*.*!!Fg nZFE>@ F4FF$Name of program to convert "FmHEC@. Fs HJFE.lstF FE;@H lstF FE 7i!M!F<: - Comments - $: nach 'REM' wird nicht abgeteilt <: mehrere Sprunganweisungen nach ON .. werden verarbeitet 0: ON GOTO wird aufgelst in Einzelsprnge l8: ON ERROR GOTO und RESUME Zeilennr wird umgewandelt e@: Namensprungmarken werden registriert und korrekt behandelt eF: Bei zwei Sprungmarken in einer Zeile bekommt die zweite kein ':' >: verschachtelte IF-THEN-ELSE-Bedingungen werden aufgelst 2: Gro-und Kleinschreibung wird bercksichtigt nD: RETURN in Fehlerroutine mu an richtige Stelle versetzt werden e*: Nur ein NEXT pro FOR-Schleife erlaubt 2: Sprung aus Schleife ist mit EXIT zu ersetzen c0: Graphik-Befehle sind selbst zu modifizieren 6: DEFSTR .. ist mit Programm VARMODIF zu bearbeiten <: -Start of Program - ::#6 ::#6 |F-2:This section lists the main program constants. IEFoJEHHFoKEHHFoLEHHFoME FoNE FoOE Fo*I F*J F*K F* L F* M F*N F*O F7o!M! Auxdat.korFvL F-(F+ FFF ИPJF--- End of Data ---F BFe Error No. "Ft( last word/sentence worked with: " FPress Return to continue!FF#ESF ,F F*F.F(|FF PART A:FANALYSIS OF PROGRAMS:FSEARCH FOR BRANCHESFRESOLVE THE BRANCHES:"FeF =`M!Ft:Reduce the number of lines E] Fh E5;@ FE>@ F(;@  Fe E>@ FF R;@ 'JFEREM: >@ Fo FE&:This takes care of REM statements EF !EremF, Fn"EFx JF "E>@ FE;@ F FE 6 JF-,F  F&:Complete missing GOTO's tEFFE !EthenFs, Fn  JFE;@ FE>@ F E] F  5;@ JFlE GOTO Fl FEE@F FE FsEFFE !EelseFs, Fn  ^JFE;@ FE>@  F E] F  J5;@ JFlE GOTO Fl FEE@F FE Fs&: Replace all GOTOXY with PRINT At EFFE!EgotoxyFc, Fn  JFE;@ FE>@@ FQEC@, F  QJF7E5;@Q FE]>@Q F  JF8E5?@Q@ FwE>@Q Fw*E PRINT At(A7 ,A8 ) Ft F FEF( F FA,:Convert ON ERROR GOTO to ON ERROR GOSUB eEFk !EerrorF, Fn  dJFE FF !EgotoFc, Fn&E;@ GOSUB>@ F FE(: Search for GOTO branch ending lines EFF !Egoto F, Fn "JF-|FaE;@ FE>@  F ;@  F E>@ F F@QEC@, F ,EC@ F REC@: FG PE6 F  jQJFQEzz F  FE  ,JF,Ezz F FE  RJFREzz FG FEEuQ!,!R!S F -E] F -JFTE5;@ F TF E ZF EFEFFNEGF NZ TF 4F  TJF  ETFEF  FH ! FEFrF T" ,"FFEF F F F-$E;@ F;$@  FO $E>$@ FF@H.EG/F HZ. $F ..F. . $JF / E$F.E/F. . FH. !. F.E.FlF $","F/E/F FE FE Qz QRJF EQF--Fa FFEF F F F&: Resume search for branch markers EFgFE!EresumeFc, Fn BJFE;@@ FE>@` F;@  F E>@ FF@EC@ELSE F JFEC@Else F FE <JFEC@else F FE,EC@ FFREC@: F SE6 F! JFEzz F FE ,JF,Ezz F FE RJFREzz F  FEEu!,!R!S F -E] F -JFTE5;@ F TJF E ZF EFEFFlEGF lZ TF RF  TJF  ETFEF  FH ! FEFF T" ,"FFEF F F 4F- 0JF$E;@ FJ;$@  FO $E>$@ F$F@& ,$next$Next$NEXTJFU.EG/F Z. $F .F. (. $JF / E$F.E/F . . FH. !. F.E.FF $","F/E/F FE F FE F EF FlFF$: Search for GOSUB branch markers EFF!Egosub Fc, Fn.|Fa JFE;@  FE>@@ FEEC@ERROR FF EJFEEC@Error FF FE @EJFEEC@error FF FEf;@  FF E>@ F@F@QEC@, F ,EC@ F REC@: FP SE6 F! QJFQEzz F  FE ,JF,Ezz F FE RJFREzz FP FEEuQ!,!R!S F -E] F X-JFTE5;@ F PTJF EJF F Z;@ FFEFF FE E ZF EFEFEGUF Z TF F L TJF U ETFEUF4  FH ! FEFF T","F UEUF F FE bF$E;@ F;$@  F $E>$@ FfF@ EJF F $FFEFFF FE.EGVF Z . $F .F. ^ . $JF V E$F.EVFF .  . FH . ! . F.E.F F $","F VEVF. FE FE Qz QRJF EQF-.Fa FEF F FFF,|F EA  "FM!F ZrM FF *|F8FEF Table of the branch words:FU.'Line numbers for or : "F EGF ","Fn lFF("Markers for or : "F.EG/F. ","Fs .FF"Line numbers for : "F(EGUF ","Fm F,FMarkers for : "Fn.EGVF . ","Fm V.F,FF2,Line numbers or markers for ON ERROR GOSUB: "FFEF F Fo F ","FoFEFFuFFFE":Print out the Table (Y/N)"F  (JjJFl;F;F ;Tabel of all branch lines:F&; Object of : "FEGF; ","FG F;F$;Markers for : "F .EG/F;. ","F< .F;F(;!Object of : "FRLEGUF; ","Fm 4F,;F$;Markers for : "F.EGVF; . ","Fm .F,;F ;F6;0The line numbers or markers for ON ERROR GOSUB: "FFEF F Fo; F ","FoFEFFuF;F;F FD:#@ D:#@ vL F-)F+ FF Error No."F.:&Continue with the next commands (Y/N) "F $JjJFhF `FPress key to interrupt!FF#ESF DF/Fe F.F)|FF9 PART B:FCONVERT THE PROGRAMSFtFE0:(Do you want to convert the program (Y/N)"FEFUEF7i!M! auxdat.korF 7o!M!FProcess a line:FEFUEFF =`M!FiF E] Ft E5;@ F "F ~JjJFl; "F F E>@ F;@  Fn E>@ FF@ ;@ :JF E>@ F FE :Determine place for markers p *   FEFaF  \  JFEZA :F-0Fe F U U Fr UEUF \F !h U JFEZA FFEF  F  F FFEFF F !> F JFDE PROCEDURE *:RETURN(don't forget the RESUME is last!):F !dFRE PROCEDURE :Fn-1Fe FE FE0|FeREC@: F "RJF.EF !;@R . . Fe.E.F!F " ;@R . JFE;@R >@R F-2FP F F1|FeREC@: F #XRJF.EF "t;@R  .  . FY.E.F"@R F #PFE PROCEDURE F F FE FE2|FP: THEN...ELSE Construct EFb2EFe3|FEEF2E2F !EthenFF, Fn $JFE;@ FE>@ FE::ENDIFFRH!2FE`FA !EelseFF, FnH!2F $2JFE;@2 FE>@2 FE:ELSE:FR F-3FE F| !EonFF, Fn &JF &?@@  JFR &?@@ :JF2E@F?%2?@2@  F2E2F%FE@ @2 FE?@2@2 F6 &C@error C@Error C@ERROR JFEFF%?@@  FEF%FE?@@ F& & GOTOGotogotoJF , FE F  F F  F  F &L;@  ;@ :F E>@ F&F@ 'FWEF.XEFREF &WRFRE@:@R F &XRFWE@B @X FXE@B @W F &ZXF&F@ &ZRXFW&lF '$RJFEFEF,FZ,FZ 'F 'HRJFE?@R@ F 'TFEF FE" 'remREMRemJFEFEF,FZ,FZ 'FE;@R FE>@R F,FZ,FZ F F&LF@ 'ZrM F0Fr8FA auxdat.korFdFNumber of lines "YFRF*("Cross reference list of variables:Fg(pEGZF ","FF (XFF": Print out the list (Y/N)"F (jJJFt;F$;Cross Reference Variable List:F(EGZF; ","FF (F F/|FeF=,#File name for converted programs: "Fh61Converted program will be stored in ASCII format,F Load another to merge filesFto end press [E]!FFESF)EeFqF8:=4 + Fn E@!@ Fo !E! F E@!@ Fo *N JF Ezz F FE *r JF Ezz F FE Eu ! F  *z JFEF FE.FE+FZ EFEF !Efor FEFi, Fn +JF2EC@= F(: E?@@2 Fh+P?EGZF +PZ? : F2 +2?F +? : JF2Z E: F2?EZF+? ? FH? !? F?E?F+|F ZEZF FE:E:F  ,F8 ,C@resume C@RESUME C@Resume JFr !EnextFEF, Fn ,JF:E:FF-EC@: F ,-JFE : F FE FE F FEEF E F .F+FZ ,< JF [E6 FoE;@[ :F FEEBP F-;@  F E>@ F,F@M!F ` "Y"pp "Fn -JjJFe ;` "Y"pp "Fn F YEYF".F+ FEE;@ FRE@:@@ F -RJF RE6 F FE E>@R FE?@@R  F E6 FE F%EF|F%E%FE@,@ F .fJFEF@ FE$E?@@ F .JF E:F FE4EIF =A%  THEN:GOTO $:ENDIFFvEF .JF-F F /;@ :JF E>@ F FE EF.FE .(5Rj )!n"#^#)*-*,GfABASICBRRRRRRRR:<ATTRXPOSYPOSBREITEHOEHEMAXYBHXAYABAHAWIDTHHEIGHTTEMP BILDSCHIRMMESSPUPDZUZDPLPRZLZRSETWINDSETSHIFTSETVSLDSETHSLIDSETXYBHTEST> Window Demo --- GFA Systemtechnik 1986 ---  E%!!F$!! !GFEFEFE@@FEF E F  E! F!HF!HF!HF !HF \! Window DemoF vLF ^F ZF !F#UFU,U  !UH!U  !UHFFTF+FE F  0F")! End Program?!!Yes|No!FG Fc [FF F F \8F&M !! !> F F  @F$w  L!!!!!!!F F HFM  F F  PFM  F F  8X``F0M  !@ !` ! F F  XpF HurrahFr F.F+ !! ! F!3 F!F sPF E3 F E3 F E3@ FE3 F ! !u ! !u! !F [F!!F!F! F! F ^F! ZF!!3 F!F sPF3 !3 !F ZF [F ^F.Fs0\GfABASIC8  d=>D>\?|?|?????@b@b@b@bSAEACXCYRADXRADYCRMODRMDOSNDREZOCHECK_OTOGGLE_SCHECK_NCHECK_A DUMMY_VARSTATUS1ATALL_DINEALL_DONETSTTST1ELEL1LTIEXIEYISXDSCREEN1AA1A2CSAEACXCYRADXRADYDRADYC3P1P2C1C2CX1CY1RADX1RADY1CX2CY2RADX2RADY2CCRADRMODCX3CY3CX4SNDSND1TXREZZEL1EL2ELYPLTLWTX1TX2YP1RZAXIZ1LT1LT2X1Y1LT3LT4XPIEWIEYIEXIEHISYISWISHISXTX3RCPCP1YP2TX4XRYRCP2CP3TX5XYMSTRIPMSTRINGAZYPXYYP1SPALETTEMEDREZHIREZ PROGRAM_DATAMENU_STRIP_DATA STRIP_DATACLEAN_UP PROGRAM_DATA1 PROGRAM_DATA2 DOELLTITLE DOTITLELLDOTITLE_FIL_ELL DO_TITLE_ELLDO_TITLE_FIL_ELLDO_TITLE_OVALSDO_TITLE_CIRCLES DO_TITLE_TEXT M_HANDLER CHECKMARK DROP_DOWN DO_SOUND1 DO_SOUND2 DO_SOUND3 LINE_TYPELINETYPE LINE_WIDTHLINE_END MARKER_TYPE MARKER_HEIGHT TEXT_SIZE TEXT_BASELINE TEXT_EFFECTS FILL_PATTERNS FILL_HATCHSHRINKARC_PIE BOX_CIRCLE ELL_ARC_PIE ELLIPSE_S LOW_REZ_MSGSAVE_ORIGNAL_COLORSSAVE_ORIGNAL_COLORR*N R* V.D.I. SAMPLER IN G.F.A. BASIC * R* Ver 2.0 By Jim Luczak 2/14/87 * R*N *pp@ F*  F*`` F&*`` !`` !@@ FE F GFu@)!V.D.I. Sampler| | Shift Into!! MEDIUM RESOLUTION !F-F F GJFRF: GF RFF FQ!&!'!=!B!GFRF GEG FQ F  GFGRFQ !!!!!!F-Q ! !!!FFQ!!!"! F-Q!!!F HpEG FQ F  H^FGEFEF EFMFp6!F6! !!@F.6!@!@!F6!`!!FR-# DRAW TITLE PAGE - # FMFHH!FEF!EFEF EFMFHE F E F EFEF EF EF EFMF-EF EFEF E@@F!MF@ !FE FEF EF EFMF EFMFkMFP- PROGRAM CONTROL LOOP - }F F^FFvLF,FLF JZF JF,R- CLEAN-UP END PROGRAM - |F}F!FEGpF-!`F!F@!FF!F!@ F!@ F-@!@ F-tF F[FqFR- SAVE ORIGINAL COLOR PALETTE - +F-EGpF-!PF!F@!F!F!FtF@ E3 F@ E3 F@ E3@ F F.FR- DO ELLIPSES FOR TITLE PAGE - +FH LB F M ! F!"F!!!!!Fz1!F0!FH"! F L:@JFEF0!F L6JFEF FE FE KF-z!F.FR- DO OVALS FOR TITLPAGE - +F-EppFEppF %! ! F!M Fp!!!F.FR- DO CIRCLES FOR TITLE PAGE - +F- %!! FM Fp !!F.FR- DO TITLE PAGE TEXT - +FEFEppFF!F( ! !!F-M F'!!V. D. I.F!F(!!!`FM F*/!f!//!SAMPLERF!F(!!!@@FM F0/>!!zz! Programmed InF( ! FM F.//!0! ! G F A BASICFn(!!!@@FM F'!9!BYF( !FM F"' !D! J. LuczakFM F {HFz!F.FR- MENU BAR HANDLER - +F-$ P6  About VDI SAMPLER FL)!4Let Your Imagination Soar| |Program In G.F.A. Basic!!Let's GO!F FF Px  Line Type FM @! FMF`MF F P  Width FM 0! FMF`MFF F P  Endstyles FM ! FMF`MF F Q6  Type FpM ! FMF`MF F Qv  Height FFM ! FMF`MFF F Q  Size FM `! FMF`MFF F Q  Baseline FM @! FMF`MF F R6  Effects FM ! FMF`MF F Rv  Pattern FM ! FMF`MF  F R  Hatch FM ! FMF`MF! F R  Arc / Pie FM ! FMF`MFH F S*  Box / Circle F/M ! FMF`MF, F$ Sn  Ell.Arc / Ell.Pie FM @! FMF`MFH F S  Ellipse FM 0! FMF`MF- F S   EXIT  FM ! FMF`FEF F Tj   STAY  FM ! FMF`YF6!F6! !!@F.6!@!@!F6!`!!F FF T   STAY  FF F.FP- SHRINK BOX ROUTINE - +F-! F!HF!F@!F!F !F@! F`!GF s# F.FR- SOUND ROUTINES - + ! Fy!@!!!Fz!!!} !F.F- + ! Fy!@!!!Fz!!!} !F-.F + Fy!!!!Fz!!!z !FF1!F1!F.F!R-" LINE TYPE -! +FYF$EF#E FE Line Type F6!!! F-6!@! !`F 6!`!@! F 6!!`!F( !!!&F(''! ! L I N E T Y P E F ( !!!&F#F Xp$`F EA$ F/ !#! !F $$!!!FF4 !##@ ! !##@ F-  !#! !#Fe4$F20#!HF  WF$!F.FR-" LINE WIDTH - +F-YF$EF#EHHFE Line Width F6!!!F6! ! ! F 6!`!!@F6!`!@!F( !!!&F*''! ! L I N E W I D T H F ( !!!&F#F Zf$F EA$ F/ !#! !F $!$!!FF4 !##  ! !##  F  !#! !#Fe0$!F0#!pF YF$!F.FR- LINE ENDSTYLE - +F-YF$EF#E FELine Endstyle F- E ( Arrow )F E ( Rounded )F E ( Square )F 6!!!F6!!@!`F6!`!@!F6! ! !F!( !!!&F8''H! ! L I N E E N D S T Y L E F( !!!&F \$F EA$ F*/ !##  !H!$ F/ !#! !F$! !$!$F44!##  ! !##  F 4!#! !#F#4$F20#!HF [F$!F.FP- MARKER TYPE - +F YF$EF#E FE Marker Type F- E( Dot )F E ( Plus Sign )F E ( Asterisk )F- E ( Rectangle )F  E ( Cross )F@ E ( Diamond )F6!@!!F 6!!!`Fi6!!`!`F 6!!!F( !!!&F4'' ! ! M A R K E R T Y P E F( !!!&F _t$`F EA$ F*/ !##  !H!$ F/ !#! !F-EHHF _:EG@F  E-F E#F0-!pF  _ F U!$!F`T`! ! F4$F20#!pF ^F.FP- MARKER HEIGHT - +F-YF$EF.EF/EF#E FEMarker Height F- E( Dot )F E ( Plus Sign )F E ( Asterisk )F- E ( Rectangle )F  E ( Cross )F@ E ( Diamond )F6!!`!`F6! !! F6!!!F 6!!!F( !!!&F8'' ! ! M A R K E R H E I G H T F( !!!&F b>$JF EA$ F*/ !##  !H!. F / !#! !F-EHHF aEG@F  E-F E/ F0-!pF  aF U!.!$FT`! ! F0$! F4.F24/F20#!pF a8F.FP-# TEXT SIZE - +F-YF$EF.EFE Text Size F#EHHF6!!@!FI6! !!F6!!!F6!!!`F( !!!&F0'' ! ! T E X T S I Z E F( !!!&F d $`FV EA$ F/ !#! !F ( !!!.F*'\!#!V D I S a m p l e rF( !!!&F4$F20.!F0#!pF chF d$`F EA$ F/ !#! !F ( !!!.F*'\!#!V D I S a m p l e rF( !!!&F0$!F0.!F0#! F d F.F-R-! TEXT BASELINE - +F-YFRF2 e@EGF7Q ! F  e(F$EF.EHHF/EHHFEText Baseline = F6!@!@!F!6! !!F6!@!!F6!!! F( !!!&F8''4! ! T E X T B A S E L I N E F fEGa Ha F 0E$ F 1E$ F EA FH.!/F( !!!@F f-EGFo/0!1!.!F4 f$ JF00!pFF fF01!@F F1  f-FG4$F  f6FG(!!F.FR-! TEXT EFFECTS - +F-YF$EF.EFEText Effects = F E ( Normal )F E ( Bold Face )F E( Light Intensity )F E ( Skewed )Fn E( Underlined )F   E ( Outlined )F #E44F 6!!!F6! !!F6!@!@!F6!!`!F( !!!&F6''p!p! T E X T E F F E C T S F( !!!&F iV$Fd EA$ F( !$!!@Fd/p!#! !F /H!#! !. F i0$F2$!F i:F4$FF F$0#! F4.F hF.FP-! FILL PATTERNS - +F-YF$EF.EF#E F4EF6!@!! F 6!!!F6!!`!F 6!!!F( !!!&F8''p!p! F I L L P A T T E R N S F-( !!!@@F k$$HF % !!$F(4!#!4*!##H F '4 !##  !$F04!\F k. JF0#! F.EF4EF F4$F 4.F. jnF.FR-# FILL HATCH - +F-YF$EF.EF#E F4EF6!!@!F 6!!!F6!@!!F6!!!F( !!!&F:''p!p! H A T C H P A T T E R N S F-( !!!@@F l$PF % !!$F(4!#!4*!##H F '4 !## !$F04!\F l. JF0#! F.EF4EF F4$F 4.F. lBF.FR-# ARC / PIE - +F-YF E F- EF EF EF EF E<<F6! ! ! F 6! !!F6!! ! F 6!!!F%=!F L! ! F(!!!&F $''!p! A R C ' SF$'' !4! P I E ' SF(!!!@@F EF EF EF E<<F E F EF E F E<<F EF E<FK ! ! F#F$!F* H!pGHH!RF* [!*G[[!/F$!F* H!pG!pF* )!G !F'!|!0F' @ !!0F'>!@!900F'V!$!900F'x!|!1800F!'!!1800F!'9!f!2700F!'S!9!2700F! #F$!F0H!p!44!H!H F0H!p!44!z !T F0H!p!44!m !" F0H!p!44!/ !Z F%!!F!0[!!44!H!H F%!!0F0[!!44!z !T F%!!F0[!!44!m !" F%!!`F0[!!44!/ !Z F.F!R-" BOX / CIRCLE - +F-YF 6!!!F6!!@!@F6!`!`!`F6!`!`!F4E F#E F$EF%=!F#F$!F!! !<F !G!<F$!F( !!!&F! ''H!p!B O XF(''4!p! C I R C L E SF t$`F%!!$F"4!#!44!4F&4 !##  F04!HF0#!HF4$F tF$EF E,,F E//F E99F E%%F EJJF EF EcF EF  E F  ENF@ E F@ E F>E F #FE v$`F%!!$F $ !$ !>F&$ !$ F0>!F4$FF uF$!F. F!P-ELLIPTICAL ARC'S / ELLIPTICAL PIE'S - +F-YF 6!!!F6!@!!F6!@!@!F6!!`!F$EF?EF@EF #F$!F!! !<F$ !<G !<F$!F4EHHF#E88F(EFAE00FEFEaa FRF6 wEG`F3Q F  wFG x,$pF#?F$4!#!p!0!!FH!FH#!(FH?!@F (?!!!BF!'4!A!B$ FF04!4F4$F  wF@ E FP EF` E F4EHHF#EF(EFAE FE(( FEaaF$EFH?!@F yf$pF %?!!$F$4!#!p!@!!FH!FH#!(FH?!@F (?!!!BF!'4!A!B$ FF04!4F4$F  xF.F!R-&ELLIPSE - +F-YF 6!!!F6!@!!F6!@!!F-6!! !@F-?EF@EF$EF.EF4EF-#E<<F-CEF-DE<<F- z$HF-#?F@ %?!!.F4!#!C!DFH?!@FHE!FF1C! F1D!F4$FF4.FF z\F$EF?E F@EF  {$GF6!`!?!F6!`!@!F1?!F1@!F4$FF {^?F?E``F FE {|@F@E@@F FE{F zF$.FP-! PROGRAM DATA - -|F58,8,220,3,6,150 F|F106,12,170,0,8,1 F|F@DESK, About VDI SAMPLER ,~,-,-,-,-,-,-,"" .LINE, Line Type , Width , Endstyles ,"" MARKER, Type , Height ,"" *TEXT, Size , Baseline , Effects ,"" ~FILL, Pattern , Hatch ,"" JSHAPES, Arc / Pie , Box / Circle , Ell.Arc / Ell.Pie , Ellipse ,"" $QUIT,  EXIT  ,  STAY  ,"" "","" |F2,2700,900,1,105,638,93 3,319,47,150,25 4,163,250,3,1 140,163,30,490 20,40,75,105,140,180 |F 200,25,100,145,400,140,450,45 |F`,69,76,76,73,80,84,73,67,65,76,32,65,82,67 / { { }f | J } } K L M< M O Uހ V VX V X Z ]$ _ b e gB i k T mT r vp y  GfABASIC x             LEERTASTE DATEINAME SUCHANZAHLI ZAEHLER.PUNKTZAEHLER.PUNKTIA DPPELPUNKTLAENGECOUNTER EMPTY_KEY OUBLE_POINTCOLONCOLON_POSITIONLENGTHA PROGRAMMZEILE DATEINAME AUSGABEDATEIZEILEDATANAME PROG_NAMEPROGRAM PROG_LINERIGHT LESEN.FERTIGFILEENDEP*M P* Copyright (c) 1986 GFA Systemtechnik GmbH * P*M P*** This GFA-BASIC program removes line numbers from ST-BASIC programs. *** P*** It also changes lines with multiple commands per line to lines with *** P*** only one command per line. ,*** P*** G*** P*** Written by: F. H. Bender, Reilingen, West Germany *** P*** Translated by: T. F. Collins, Las Vegas, Nevada, USA *** P*M  *F!(!!!`F YF*%!!F$!! !GFD'0!p!.Which ST BASIC-Program do you want to change ?F8'9!C!"To END, Click on CANCEL button !!!F(!!a !F:' !D!# Copyright 1986, GfA SystemtechnikFT(!!( !FD' !@!-GFA Basic distributed in USA by MichTron Inc.Ff\*.BAS!!F! rZF 7i!M!F EF@.@  F E@.@  FF@ >@\@ FE.LSTF XFE;@  .LSTFE F 7o!M!FYFo(fsM tM F."F.(!!! FD/ !H!  !$ Removes ST-Basic line numbers and FH/p!! !( Eliminates multiple commands per line F(!!!PF2/!H!  ! New File Name F(!!!PF"/!z!  !  F(!!!@F :/p!!H!Please WAIT while I work!F$H! ! ! Fn =`M!F! E] FE>@  F RC@: F E@:@ FE;@  BP FM!F EFJ@:@  F E@:@  FE@:@  F  FE#  FE?@ @ BP FM!F 8FE>@  BP FM!F F E FF ^FM!F FhF8F$FF  GfABASIC>>>>>!(",-Z-~-------....IXY SPRITE_HINTENTASTEDUMMYFELDVORNHINTEN SPRITE_VORNSHX_AKTIONSPUNKTY_AKTIONSPUNKT FOREGROUND OREGROUND FREGROUNDFOREGRNDBACKGRNDTASTENBAB1SHAPEKEYINIXYTASTEY_AKTIONSPUNKTX_AKTIONSPUNKTDUMMY X_POSITION Y_POSITIONKEY_ASC SPRITE_VORN SPRITE_HINTENFELDATSPRITE_FOREGROUNDSPRITE_BACKGROUNDABFRAGE DRAW_SPRITE SPRITE_LADE DEF_SPEICHERN INC_SPEICHERNLOESCHENHUGO SPRITE_LADENZEIGEN ED_SPEICHERN SP_SPEICHERN MO_SPEICHERNINQUIRY SPRITE_LOADERED_STORESP_STOREMO_STOREERASEN#J N## Sprite - Editor ## N#J N## Copyright 1986, GFA Systemtechnik ## N## -D ## N## Written by : *## N## Arnfried Griesert "## N## Montanusstr. 8 ## N## 5653 Leichlingen 1 ## N## Translated by: Thomas F. Collins, Las Vegas, Nevada, USA ## N## GFA BASIC distributed in USA by MichTron Inc., Pontiac, Michigan ## N#J    JF\)!HThe Sprite-Editor works|only in high resolution|with monochrome monitors!!Exit!FFqF FvFB**pp@p !pp@p F P=L Display Sprite Builder Screen P=L %!!Fr$!! !GF6%!!F$\!p! !\F $ !!@ !F$\!!@ !EFe%!F$H! ! !HF $p! ! !F$H!! !CFe$\!H! !Ff$(!@!!F 4'!(!Sprite & Mouse - Editor by GFAF !F$(!!a !@FyD/p!@!<!& Copyright 1986, GFA Systemtechnik F(!F<'p!@!& Copyright 1986, GFA Systemtechnik F(!!!F#L/H! !  !.GFA Basic Distributed in USA by MichTron, Inc.F$p!! !F !FPEGF<H!H !R!H F<z!H !M!H F<H !H!H !F<z !H!z !F VF%!!FTT !N !d !V FcT} !N ! !V Fc$a!\! !zFf$@ !\! !zF $(!!!PFf"'!4! Sprite shapeF"'!4! Mask shapeFr&'^!4!Finished SpriteF(!F&'!!F1 = Load SpriteF.'!)!F2 = Save as Editor-FileF.'!4!F3 = Save as Sprite-FileF.'9!!F4 = Save as Mouse-FileFF('9!)!F5 = Erase SpriteF- '9!4! F10= ExitF $H!8! !8Fo.'M!A!    = Select actionFFFFF& R QHQJF, F FESFT6 F E7< hF   JFw L !!!!F F6  `   00JFEFEF P `JFE# F F ~ JFE# F F  JFE#p F FE  0JFE#p F F,F !@F%!!FEGFXT !N !d !N FFX} !N ! !N FF .F !F FP  FB)!,Do you want to|exit this|wonderful program ?!!Yes|No! FF L F #FEG F2!! !GG HF ~F%!!F6$!! !GF_FqFe P=L Load Sprites from *.SHP-File kP=L + F h!!FFf\*.SHP!!F6 F   6 JF   JFE=@6  F7I!M!F :M!!F ^EGpF :M!!F TEGpF  #pp JFE #p F$@ EF F@ EF F  8 #pp JFE #p F@ EF  JF@ EF F FE pFE 8MF EGpF  EGpF,F  F  F  F*)!Data does not exist.!!Ach so!Fe F F.F P=L 0Store Sprites for later use by Sprite-Editor P=L +F h!!FFf\*.SHP!!F 6 F   $6 JFE=@6  F7O!M!FM"FM"F EGpFEFEF EGpF   @ JFE #p F" FE  @ JFE #p F FE  FM"FM"F  lF@ 8MF F.F P=L DStore for final Basic listing (for the Sprite) P=L +F h!!!FFf\*.LST!!F (6 F  6 JFEF C@\ F+E6 C@\ F E=@ F jF@EC@. FW   JFE;@ F  FE.LSTF FEE=@6  F7O!M!FM"'FS(M" ' Sprite-Convert data in string F:M"let ""$=MKI$(A )+MKI$(A  )+MKI$(0)F2M"let ""$=""$+MKI$(0)+MKI$(1)FM"for i%=1 to 16FM"read foregrnd,backgrndF:M"let ""$=""$+MKI$(backgrnd)+MKI$(foregrnd)FoM"next i%F M"data "F`EG`FFEFEFEGpF  @ JFE #p F" FE @ JFE #p F FE FM"A ","A "F F `JFM","F VF MFF F zF`M"data"F6tEGpFEOFEFEGpF  @ JFE #p F" FE @ JFE #p F FE FM"A ","A "F Z pJFM","F jF MFF F Fp 8MF F.Fp pP=L DStore the final Basic listing (for the Mouse) P=L +F h!!FAFf\*.LST!!F6 F  6 JFEFC@\ F+E6 C@\ F E=@ FF@EC@. FW B JFE;@ F TFE.LSTF FEE=@6  F7O!M!FM"'FS&M"' Mouse-Convert data in stringF:M"let ""$=MKI$(A )+MKI$(A  )+MKI$(1)F2M"let ""$=""$+MKI$(0)+MKI$(1)FvM"for i%=1 to 16FM" read backgrndF*M"let ""$=""$+MKI$(backgrnd)FM"next i%F M"for i%=1 to 16FM" read foregrndF*M"let ""$=""$+MKI$(foregrnd)FM"next i%F M"data "FEGpFFEFEGpF  ~@ JFE #p F FE PF M"A "Fp  pJFM","F F MF F 0FpM"data "FEGpFEF`EGpF  V@ JFE #p F" FE (F M"A "Fp  pJFM","F F MF F Fp 8MFA F .F P=L &Erase the foreground or background P=L +F <)!'Do you really want to|erase the Sprite?!!Yes|No! F J JFFEGpF <EGpF@ EFJ@ EFJ,F FE FE F.F P=L View the user build image P=L + F PHPQJFE#PH F E#QH F R@ JF@ EF F R@ JF@ EF F F,F F |PzPLJFE#Pz FE#QH F FR@ JF@ EF rF nR@ JF@ EF F F,F F F.F P=L "Display the Sprite in 3 windows P=L +FR @ JF f@ JF%!!FTL !J !l !Z FT{ !J ! !Z F #F  !,,F TF%!!FTH !H !p !\ FTz !H ! !\ F #F  !,,F F #Fm!,,F F @ JF%!!FTH !H !p !\ F%!!FTz !H ! !\ F #F  !,,F F%!!FTH !H !p !\ F%!!FTz !H ! !\ F #F  !,,F F #Fm!,,F  !,,F F !JF( !@F%!!F!EGFXT !N !d !N FFX} !N ! !N FF  FF !F F.FN#J N# You have hardly reached the END # N#J  MP)  vpGFA-BASIC Version 2.02 Interpreter 8-24-87 Better syntax checking: - Input Listing - -  - loop LOOP Statement - loop=9 loop=9 Variable - loop(9)=9 loop(9)=9 Array-Variable - loop(9) @loop(9) Procedure-Call (Version 3.0 will not add the @ - menue$(9)="" menue$(9)="" String variable - locate x,y PRINT AT(x,y); Cursor positioning Error fixing: A DIM statement or an ERASE in a PROCEDURE with local string variables with the same name as global strings which do have a length greater zero don't cause an error any more. An extra command: ON MENU time  ON MENU now allows a time to be specified, in ms (1/1000 second). The GFA-BASIC will pass this value as the timer value to the evnt_multi call. This means, the computer will wait for a set ms time before returning to GFA-BASIC if no other event happens. The AES does then get enough time to recognize double clicks and does a better job in acting on the release of mouse buttons. Example: ON MENU BUTTON 3,1,1 GOSUB button DO ON MENU 1000 PRINT "#"; LOOP PROCEDURE button PRINT MENU(15); !# of clicks RETURN This little program displays a "#" every second. If the left button is pressed, the number of clicks is displayed (1, 2 or 3) followed by the usual "#". A full program would of course do something more useful. It is important to have an ON MENU BUTTON declared before, even with a dummy procedure, otherwise the ON MENU would return immediatly, because ON MENU BUTTON 0,0,0 is the default. The Version 2.0 Interpreter and 1.8 Compiler (or older) ignore a given time command in the ON MENU. Making A Backup. When making a backup copy you must format a blank disk and then " drag the files", which is explained in the Atari User's manual.  GFA BASIC 2.0 Corrections to page 35. In the Second and Third paragraph, change "." to " | "(Shift and the Backslash key). This is called a pipe or vertical bar (ASCII 124). Also please correct the Example on page 35, to match the following: M$="Hey!|How are you feeling?" Alert 2,M$,1,"good|bad",B Print B Thank you for making these corrections to your manual. -P Making A Backup. When making a backup copy you must format a blank disk and then "drag the files", which is explained in your Atari User's manual. ^GfABASIC4Vvvvr*XjXOFFSETJUNKANUAPALAAASCRASYXBIOSZZEOFCCOLDATANAMEXASCRBFLAGCMDSAVANUAPALASCRAASDUMMYAZZZIPDDISPLAYSCRXBIOPALCOLSAVSCRSAPALZZMAIN GET_NEO_FILEERARESTARTJUMP GET_COLORS GET_FILENAMEGET_FILE PUT_COLORSGET_TYPE GET_NEO_FILEGET_DEGAS_FILE SLIDE_SHOWRECOVER TITLE_SCREEN GET_COLOR PUTCOLORSMAINSCRIPT SCRIPT_FILERECOVERYvFL*I L*** C*** L*** NEO/DEGAS Picture Displayer Using GFA Basic *** L*** C*** L*** Written by: Richard Noe )*** L*** EAFB, Alaska (*** L*** 5 January 1986 &*** L*** Version 5.2 )*** L*** C*** L*I     *pp@ ! F-F  DThis procedure uses the VDI call to get the current screen colors BIt load them into an array so that when we exit the program or r2between pics we can restore the default colors  e+F 4EGpFF!PF!F@!FF!F!FtF@ E3 F@ E3 F@ E3@ F  ҴF.F e eFThis procedure uses the VDI call to restore the colors we had saved in the above procedure  n+F :EGpF!`F!F@!F!F!@ F!@ F@!@ FtF  ӾF.F n nDGet's the type of file that we want to display and set's certain evariable accordingly e a+F\2)! What type of File !! NEO | DEGAS !F JFENF FEDF FE ,NJFE *.NEOFi @F:E *.pi1Fi FE.FE a eProcedure to get a neo file  r+F ՞ EGpF 6 !!!Fp  Ո FF! FiE xxFi EGpF  E3 F EFF  FF ,EGpFE`!! F  F{ zFYF.F + F,F`!F րEGpFB 6!!!Fp  jFF EG FB( `!!!X F(' #  ! #  !GFAF  ֔ F F EG F( `!!!X F*' #  !pp#  !BasicF  F ׶ EG F( `!!!X F6' #  !HH#  !Picture DisplayerF  Z F * EG F( `!!!@F#<'p#  !#  !Programming By Rich NoeF  F ^EGF6@!!!F  >F,6` !`!`!`F {F#(!F$6p!`!`!`FYF!$'H! ! Instruction'sF 6'@! ! This program will display eitherF8'@!H!!NeoChrome or Degas Low ResolutionF 8'@!p!"Picture's.The program also has theF*'@! !following feature's:F,'@!4! Select Type of PicF6'@!H! Script Files or Display AllFD0'@!\! Choice of Drive to useF2'@!p! Adjustable Display TimeFA8'@! !"Ensure Write Protect is OFF beforeF4'@!!Picture Disk before ContinuingF6'@!*! ( For More info see the Docs )Fr {HFs2'H!>!Click RT Button to ContinueFyF!  `RFERF.F!  +F ! FE F* EGpF*  E3 F EFF  ۺFF EGpF*E`!! F*  F{ zFYF.F E+ FvLF7I!M!  Script.datFy:M!FEF  ܮ F:M!F E F ܜNEOJF,FF ܦF,F F bF  Era: 8MF.F+FvLF VG Temp.datFe7I!M! Temp.datF  L F:M!F E FF :NJF,FF DF,F F F8MF.F r+FF ʘLJF,FN@)!-No files of that|type exist in|this Directory!! OK !FvLF FF F PJF8MF,FF  F ` JF,F>)!'No Script File| Exists|On This Disk!!!Carry On!FvLFFN F ΘJF,F>)!&No files of that type| On this Disk !!Carry On!aF8MFvLFFN F ,PJF,FW4)!!Write Protected|remove protection!! OK !FvLFFW F.F|F ߀ JF.)!You must be in | Low rez !!uh oh!FF! F!, F YF L)!5 This program is written | Completely in GFA Basic!!Carry on!FF|J)!- Select Delay Time | For Pictures in Secs !! 5 | 10 | 15 ! F8)! Select Drive | To Display !! A | B | C ! F6)! What Type Of Display !!All Pics|Scripted! F JFgF Ea:\F FE JFgF EB:\F FE JFgF EC:\F FE,F  JF, F-F F,F\|F ,FuF|FF 6!!!F$6p!`!`!`FD JFD)!#No More Scripted|Files On This Disk!!Carry On| Quit !F  FoB)!" No More Files | On This Disk !!Carry on| QUIT !F F 6!!!F$6p!`!`!`F JFvLFA temp.datF,F 6!!!F EG F2 ! ! !GG  HF  l F%!!F!!!GFrF F F +FFvLFF.FF$|@ A J R 6 *  Ҡ Ӫ Ԭ t ۂ ` L 0 mGfABASICz|XYXPOSYPOSP1P2ZCAEFEF +EG@F +EG@FE# TFE# F !!D! F4& Rbox Xpos,Ypos,Xpos+106,Ypos+64  %!!F& ! F<Y# @!#  "",""F EFF +HFEFEF FE  *FG  )FG +:EGF  +0FGw ` @PGfABASIC&@@@@@@@@RRRR((((AFARBEXYKOXOYRSELECTED_COLORHILFEABILDHELPPICTUREHILFEGETNUMHELPz)!eMicro Drawing Program with|Mouse Control and color.|Written in GfA-BASIC|Distributed by MichTron Inc.!!Return!F,F6!! !G!FF!YF!EF#Fi $!!!FF "!!F!ESF 7 F! \09F E7 Fr#F%F F ~mF EFEF FE cF EN# # F !!F F CF EN# # F !!F F rF!!!F F .RF!!!F F LwF ,F$!F F lpF,F%!!F F sF,F%!!F F fF&!F F HF!! !G!F !!FF! 6S RF !!F F! F &F!FEFFEFF FE PF G!FEFEF FE FEFEF!FFF "!!F!!!!F!!!F tF!F!!!F F FB  FF+FFEFFEFEESF6 RFE 5 F09RFE&  FEF.FE+FYFF$F$" HELP MENUF" - FF2, Shift H = Display Help ScreenF#(# Left Button = Draw PixelF(" Right Button = Draw LineFF(# Both Buttons = RubberbandF(# m = Put a markF*% 0 .. 3 = Select ColorF0* w nn = Select Line WidthFFB< p nn = Select Pattern, with dense weave nnF#B< s nn = Select Patterh, with loose weave nnF#(" f = Fill AreaFe*$ c = Draw CircleFr*$ Shift C = Fill CircleFe,' r = Draw RectangleF,' Shift R = Fill RectangleF,& Control E = Erase PictureFd*% Ctl+Shft+Alt = Stop progra mFF*$ Press Mouse Button to BeginFeF 6S RF.F"=N} VZ Low Resolution Sprite and Mouse Editor Program This program was adapted from a monochrome sprite editor program written by Arnfried Griesert of West Germany. The program was translated into English, converted to run in low resolution mode, and enhanced with the addition of image type selection, color selection, and real time viewing of the completed sprite or mouse image. The program uses the currently active color palette. If you are working with special colors make sure to set them up before running the program. Foreground and background (mask) color selection is available at any time while using the program. I will use the term 'mask' to indicate the sprite or mouse background. This will avoid confusion with the final viewing background color selection available using the F7 key. The left mouse button selects the foreground color while the right mouse button selects the mask color. Just point the mouse and click. You can change the colors at any time you are running the program. If you need a white mask, you can draw the image using a dark mask color selection and then change the color to white for final viewing. Available functions are: F1 Loads a sprite or mouse image previously saved with the F2 funtion. This function looks for *.SHP files. F2 Saves a sprite or mouse image for later retrieval using F1. You should save files with *.SHP extenders, as this is what F1 will look for. F3 Creates a GFA BASIC program segment which will generate the sprite image. This program segment will have an extender of *.LST. This program segment can be merged and used with your own program. F4 Create a GFA BASIC program segment which will generate the mouse image. This program segment will have an extender of *.LST. This program segment can be merged and used with your own program. F5 Erases the sprite or mouse image being worked on. F6 Selects whether a sprite or mouse image is being worked on. This selection is only necessary when viewing using F8. A sprite image has the mask (background) and foreground bit- patterns stored alternately while a mouse image has the mask bit-patterns stored consecutively followed by the foreground bit-patterns. F7 Allows you to change the background color of the sprite final viewing area. After pressing F7, click on "Continue" and then select the color you wish by clicking on the color rectangle of your choice. F8 Allows you to view the final sprite or mouse image. The sprite image will be shown in the special color window on the right side of the screen. The mouse image will replace the normal ST mouse. By clicking one of the buttons, the original mouse will be restored. F9 Not used. F10 Exits the program. The arrow keys select the pixel for the sprite or mouse hot spot. Should you have questions or comments on this program please feel free to contact me on GEnie [T.F.COLLINS] or by writing to: Tom Collins, 3171 S. El Camino, Las Vegas, NV 89102. n |GfABASIC4&&2JKKLLL*L*L0L0L4LLLLIXY SPRITE_HINTENTASTEDUMMYFELDVORNHINTEN SPRITE_VORNSHX_AKTIONSPUNKTY_AKTIONSPUNKT FOREGROUND OREGROUND FREGROUNDFOREGRNDBACKGRNDCOLRFCOLRBCOLORFCOLORFCOLOR0BCOLOR0 FORMAT_FLAGKEY_AXVAR1MCOLORJKSPRITE_BACKGRNDSPRITE_FOREGRND NEW_FCOLOR NEW_MCOLORTASTENBAB1SHAPEKEYINKEY2INIXYTASTEY_AKTIONSPUNKTX_AKTIONSPUNKTDUMMY X_POSITION Y_POSITIONKEY_ASCKEY2_ASC FORMAT_FLAGBCOLORFCOLORMCOLORVAR1TYPE NEW_MCOLOR NEW_FCOLORIXSELECT SPRITE_VORN SPRITE_HINTENFELDATSPRITE_FOREGROUNDSPRITE_BACKGROUNDSP_COLOR REAL_COLORSABFRAGE DRAW_SPRITE SPRITE_LADE DEF_SPEICHERN INC_SPEICHERNLOESCHENHUGO SPRITE_LADENZEIGEN ED_SPEICHERN SP_SPEICHERN MO_SPEICHERNINQUIRY SPRITE_LOADERED_STORESP_STOREMO_STOREERASE SET_COLOR0 SET_COLOR1 SET_COLOR2 SET_COLOR3WAITINQUIRY2INQUIRY1SET_FOREGROUND_COLORSET_BACKGROUND_COLORSET_MASK_COLORCREATE_FINAL_SPRITE IMAGE_TYPESET_BACKGROUND VIEW_FINAL FINAL_IMAGESET_IMAGE_TYPEN#J N## Low Resolution Sprite Editor ## N#J N## Original monochrome program written by : ## N## Arnfried Griesert "## N## Montanusstr. 8 ## N## 5653 Leichlingen 1 ## N## Translated into English, converted to low resolution ## N## and enhanced by: Thomas F. Collins, Las Vegas, Nevada, USA ## N## F## N## GFA BASIC distributed in USA by MichTron Inc., Pontiac, Michigan ## N#J  r JF X)!DThis Sprite-Editor works|only in low resolution.|with color monitors!!Exit!FqF! FnvFB6*pp@p !pp@p !pp F P=L Display Sprite Builder Screen P=M %!!Fr!!!GFr%!!F$X! !!HFH$!h!! Fs$!!!=Fs%!FH!!!8F$p!X!!Fs$p! !!CFs$\!(!!tFs(!!!Fr,'p!!Sprite & Mouse EditorFF !F(!!!FL/H!! !.GFA Basic Distributed in USA by MichTron, Inc.F$p!!!Fs !F EGF<H!( !R!( Fy<z!( !M!( Fy<H !(!H !tFy<z !(!z !tFy F%!!FTX !0 !` !4 FT~ !0 ! !4 F$a!<!! F $!<!! F % !!F$a!(!!jF (!!!F',!!SpriteF'!! MaskFF'r!!FinalFF(!!!F&'P!!F1 = Load SpriteF,'P!!F2 = Save Editor-FileFF,'P!"!F3 = Save Sprite-FileFF*'P!*!F4 = Save Mouse-FileF('P!2!F5 = Erase SpriteF.'*!!F6 = Select image typeF,'*!!F7 = Background colorF,'*!"!F8 = View final shapeF '*!*! F10 = ExitF,'$!2! = Select Hot SpotF$$p!4!!4FH('!:! M F BF EGpF@ # !<!# !AF%!F@(# !=!# !@Fe  xF EFEF E F  EFEFDType% tells if you are working on a Sprite (1) or a Mouse (2) or wnot selected yet (0) eEFF!FF R Q(QrJF,FR F RQ4Q BJF,F F RQ4Q BJF,F F ESF6 F E7< hF   JFw L !!!!!!!!Fb F  JF F6  `   00JFEFEF  `JFE# F F 8 JFE# F F l JFE#p F FE  0JFE#p F F,F !@F%!!FEGFXX !0 !` !0 FX~ !0 ! !0 F F !F F  F >)!(Do you want to|exit this|super program ?!!Yes|No! Fe  F #FEG F2!!!GG HF F%!!F!!!GF_F!qFe P=L Load Sprites from *.SHP-File kP=L + F h!!FFf\*.SHP!!FH6 F  46 JF  JFE=@6  F7I!M!F :M!!F:M! F:M!F:M!FEGpF :M!!FEGpF b #pp JFE #p F$@ EF tF@ EF F  #pp JFE #p F@ EF F@ EF F FE FE 8MF  \   JF!('#  !:! F#&'0#  !:!MBF XF  JF('#  !:! F#&'H#  !:!MF TF $  JF('#  !:! F#&'H#  !:!BF PF('#  !:! F# F F F  !JF!('# !:!FMBF# FF JF&'0# !:!FMF BF  JF&'0# !:!FBF >F&'H# !:!FF# F F F EF   JF!('# !:! F#&'0# !:!FBF F  JF('# !:! F#&'H# !:!FF# F  JF('# !:! F#&'H# !:!BF# F('# !:! F# F F F   "JF!('# !:!FMBF# F 4 JF&'0# !:!FMF F p JF&'0# !:!MBF F&'H# !:!MF# F F FEFEGpF EGpF,F F F 0F,)!Data does not exist.!!Continue!F  F# F.F P=L 0Store Sprites for later use by Sprite-Editor P=L +F h!!FFf\*.SHP!!F"6 F  ~6 JFE=@6  F7O!M!FM"FM"FM" FM"FM" FnEGpFEFEFTEGpF  @ JFE #p F" FE J@ JFE #p F FE FM"FM"F F@ 8MF F.F P=L DStore for final Basic listing (for the Sprite) P=L +F h!!!FFf\*.LST!!F6 F  ""6 JFEFC@\ F+E6 C@\ F E=@ FF@EC@. FW > JFE;@ F PFE.LSTF FEE=@6  F7O!M!FM"'FS(M" ' Sprite-Convert data in string F2M"let ""$=MKI$(A )+MKI$(A )F *M"let ""$=""$+MKI$(A  )F*M"let ""$=""$+MKI$(A )F*M"let ""$=""$+MKI$(A )FM"for i%=1 to 16FM"read foregrnd,backgrndF:M"let ""$=""$+MKI$(backgrnd)+MKI$(foregrnd)FoM"next i%F M"data "F EG`FFEFEF EGpF   n@ JFE #p F" FE  @ JFE #p F FE  @FM"A ","A "F  `JFM","F  F MFF F  F`M"data"F6"EGpFEFEF!EGpF  !@ JFE #p F" FE !@ JFE #p F FE !TFM"A ","A "F ! pJFM","F "F MFF F !,Fp 8MF F.Fp pP=L DStore the final Basic listing (for the Mouse) P=L +F h!!FAFf\*.LST!!F#$6 F  '6 JFEF#C@\ F+E6 C@\ F E=@ F#fF@EC@. FW # JFE;@ F #FE.LSTF FEE=@6  F7O!M!FM"'FS&M"' Mouse-Convert data in stringF2M"let ""$=MKI$(A )+MKI$(A )F *M"let ""$=""$+MKI$(A )F*M"let ""$=""$+MKI$(A )F*M"let ""$=""$+MKI$(A )FM"for i%=1 to 16FM" read backgrndF*M"let ""$=""$+MKI$(backgrnd)FM"next i%F M"for i%=1 to 16FM" read foregrndF*M"let ""$=""$+MKI$(foregrnd)FM"next i%F M"data "F&EGpFFEF&jEGpF  &`@ JFE #p F FE &2F M"A "Fp & pJFM","F &F MF F &FpM"data "F'EGpFEF'BEGpF  '8@ JFE #p F" FE ' F M"A "Fp 'x pJFM","F 'F MF F &Fp 8MFA F .F P=L &Erase the foreground and background P=L +F @)!*Are you sure you want to|erase the sprite?!!Yes|No! F! )0 JF),EGpF )"EGpF@ EFJ@ EFJ,F (FE (FE F.F P=L .Determine mouse position and change pixels 8P=L +FR *PHPPJFE#PH FFE#Q( F *R@ JF@ EF *F *R@ JF@ EF F F,F +xF +tPzPLJFE#Pz FFE#Q( F +>R@ JF@ EF +jF +fR@ JF@ EF F F,F F F.F P=L 8Determine mouse position and change foreground color P=L +F/jEGpF< /`P(# P # RJF -   JF!('#  !:! F#&'0#  !:!MBF .F -| JF('#  !:! F#&'H#  !:!MF .F -  JF('#  !:! F#&'H#  !:!BF . F('#  !:! F# F F F .X JF!('# !:!FMBF# /F .JF&'0# !:!FMF .F . JF&'0# !:!FBF .F&'H# !:!FFu F F F EF/\EGpF/REGpFEFEF,FF /2FG /FG F ,rFG.Fn P=L 2Determine mouse position and change mask color !P=L +F3VEGpF < 3LP(# P # RJF 1  JF('# !:! F#&'0# !:!FBF 2F 1h JF('# !:! F#&'H# !:!FF 1F 1 JF('# !:! F#&'H# !:!BF 1F('# !:! F# F F F 2D  JF!('# !:!FMBF# 2F 2 JF&'0# !:!FMF 2F 2 JF&'0# !:!MBF 2F&'H# !:!MF# F F FEF3HEGpF3>EGpFEFEF,FF 3FG 3 FG F 0^FG.Fn 'P=L +F6EGpF< 6P(# P # RJF 4n  JF('#  !:! Fo&'0#  !:!FMF 5jF 4  JF('#  !:! F#&'H#  !:!FF# 5fF 56 JF('#  !:! F#&'H#  !:!MF# 5bF('#  !:! F# F F F 5 JF!('# !:!FMBF# 6XF 5 JF&'0# !:!FBF 6TF 6&JF&'0# !:!MBF 6PF&'H# !:!BF F F F EF% !!F$a!(!!jF  FF 3F(EF.F' 'P=L FCreates the actual sprite image and puts it in final sprite window P=L +!F 7JF0)!Select type of image!! Sprite|Mouse!F 8Fe0)!Select type of image!! Sprite|Mouse!Fa F 8JF 8b JF*)!Select VDI format!! Normal|XOR! F 8F *)!Select VDI format!! Normal|XOR! F F!  E F F!.F  P=L >Puts the sprite in the view window or shows the mouse image P=L +FC h!!F 9JFD)!(You must select an |image type first! !! Sprite|Mouse!Ft F! <|JFRFf:"EGpFQ F :FG|Ff(0,8,1,2,4,6,3,5,7,15,9,10,12,14,11,13 Continue for type%=1 cEb b F Eb FEb F,Eb F,;fEG`FFEFEF;JEGpF  ;@ JFE #p F" FE ;@@ JFE #p F FE :FEb b Fa :F`<*EGpFEFEF<EGpF  ;@ JFE #p F" FE <@ JFE #p F FE ;FEb b Fa ;Fp% !!F$a!(!!jF ~!|!:F =F =JFEb b F Eb F Eb F Eb F=BEGpFFEF=,EGpF  ="@ JFE #p F FE <F Eb F <Fp=EGpFEF=EGpF  =@ JFE #p F" FE =~F Eb F =\Fp}FRF! =R F}F F! F.Fe 'P=L "Display the Sprite in 3 windows P=L +FR A@ JF ?@ JF%!!F*TP !, !h !8 FT| !, ! !8 F#Fj!``F#F!``F AF#FTP !, !h !8 FT| !, ! !8 F%!!F4(26,43,29,46),(126,43,129,46) are inside corners TP !, !h !8 FT| !, ! !8 F#F!!``Fj!``F F  Color 0  Plot 234+X%,64+Y%  DF#FTH !( !p !< FTz !( ! !< F C|@ JF% !!FTP !, !h !8 FT|  !, ! !8 F# F!!``F DhF% !!FTP !, !h !8 F %!!FT| !, ! !8 F #F!``F F# F!j!``F!``F F EJF( !@F% !!FEEGFXX !0 !` !0 FX~ !0 ! !0 F DF !F F.F 'P=L 8Set the background color for the final viewing window P=L +F T)!6 |To select, Click mouse | on color below | !!Continue|Cancel!F GJJFEFF G.RQ4Q BJF,FREF F FFm {HF F.FN#J N# You have hardly reached the END # N#J z:(>-8p#(v* ,^30J F97FGfABASICIX$! !!F$ !H!/!HFY! "a = 2,e=1,b=10:F *|EG@F=s="":F $!!!F:<H!H!/!HF  *F! *EGF  *FG` ???;??  p      ?     ?     ? _   ?          ???  ~ | | ?|~??@?  p? >|>|     ?     7   b߿a?@xg?x _??????????=|? >          ? ? ? ?   ? ? ?    p ~ ?    ?                > ?      ?~      ~?~ _ ?    ? n??}w? ?0    ?      ?     ?           ۀ    < ?   ?  w> p p  ?~ ?      8 ?< ?> ?  ?||>1 @ `KG  ? ?0 |?Ϙ; pp<&  ~@) < B??0|??|?_  ? ?    ?   ?    ? ?     < 8? p  ?  ? ? ? ? ?  ??      ?   ?     > | | | x> < <| x| p< 8>px~~?? ?? ?  ߟ 8g 8 0x `  p & ??         ? ?? ???   ?      ?? ? ?? ?  ? ? c           ?  ?? ?? ?     | < >? ~       p 8 <    <   < >?? ? < >_p >?o?  @ o` ????>   ?   /? ?   0    ? ?     ? p?       ????  ` ? ? ?? ? ? ? ? ? ?~          >  C   ? ?  ~ x `? ?<8r?<y~0@>6x ? ? 8> p ?? ???~?  ????   ` < >        ?  0             ?   >? |   ?      ??   ? >~||??> >~?~6 `p `>q8p|x808~8`\| ` ?=| Ǹ  ????????? ߀<?     ??  ? ?     0 < ? ' ?                     ?     < < xxx8<<<> >   ~    > x> 0 0??0 @ <Àx8ό?<<=` < ??;?}?  /   ? ? x  p  ?       ?   ? ?        ?          ?     ?  ? ?}????? v??>~|??>|x< [@??~ > ?@ `0 ? fGfABASIC 8HHHHTAGXSWYQIBASANIMASCHLEIFEWARTECYCLE_ITWARTETEXTANIM,F%!!F!* F$(!!! F '>!z! LOADING...F'/!z!HorseFF  horse.bit F7I!M! horse.bitF *F7I!M!\mono\horse.bitF F|EGFm'R!z!A F E_g_!M !M F DF8MF $>!H!z! F E FEHFE F|FEGFm0!F0!F 0  FE;F  FE T/ FE;F  FE6! !!>>Fu!>! FlESF -F0! F z FEzz F FE F ,(F1!F  (FEF FE F r+F1! F n FE F FE F )F0!F  pFEppF FE FEGFESF sF,F F F F!-F+F $\! ! !Fr$V!! !Fr$T!! !Fr$(!!!F .'t!p!ANIMATION with GFA-BASICF(!!! F$'Z!4!Programmed by:F(!!!pF*'T!j!Carl-Christian MeyerF$(!!!FrJ'&!!4Translated by: Thomas F. Collins, Las Vegas, NV, USAF(!!!@FD'!!-GFA-BASIC distributed in USA by MichTron Inc.FV$ !,! !@Fu$!+! !AFu$!+! !BFu$(!!!@Fr('p!1!Program-controls:F$(!!!@FrR'H!8!<'+' = Horse moves forward ')' = Horse runs fasterFR'H!=!<'-' = horse moves backward '(' = Horse runs slowerF.F]