4p> oO`  @`! O%`')+-/1 3@5`79;=?A OE`GIKMOQ S@U`WY[]_a e`gikmoq u`y}O` @ @ ` @ ` @ ` ǀ ɠ  @ ` ׀ ٠ @` @  a$%)O`  @`! O%`')+-/1 3@5`79;=?A OE`GIKMOQ S@U`WY[]_a e`gikmoq u`y}O` @ @ ` @ ` @ ` ǀ ɠ  @ ` ׀ ٠ @` @  a$%)CLIPART %t FONTS <t cVECTOR VCTMt zMONOEMU V5 DTP_A5 PRGZt #~WD5 PRG`t TEXTED PRGKt 'OTP_A5 BASt @:EXTED BASCt FONTTRIXACCzt  ESKTOP BAKt RAMFREE ACCwt  MOUSEY ACC `DTPA5MANDOCT t T#DESKTOP INFAt . & t.. & tANIMALS NEO't }COMPUTERNEO.t #}PLANTS NEO5t C}wBReGU30bs7T" . @;7k@@߿?_?U_U?`j֪U;?\? /i` z_׿V_ _ϝ??߭ _ O?~ ?;?j]_[W`/o`Up?i`\ U__MD_}'_WoOT?oW`Z[W?{?_}Y_0?{W|0?}U [ǿK?óz _Z_}5kGO>}V?m>ן_ǿ {K?W_?<UW_%wp W_Ugh &//< ?W}UUWڗ?h@**7?{? ;W_iZ(>?<WU}WՇj|]wG  WUWZ_O @]UUu_?Z? u_U]_g>j < ?ﯺU_WW6U(Ot{80W__VpWUUZGUWUUUUjw` UUUUUj π󻻻/U}_}jUUZw_}WW@JZ}_G;__UWjj}.__Zj wO _J @_J"J__W]UB___¨ ?_.￿߽} V`?D;?~*U|?_,x(<_P?< /_U0Ҁ@D0//P@ Ow  }?) LG?( D|J_W?꪿􀪪?D}p;g<ODDDl<ꮠ)~cO|ODDG  ک`)}cj GDEDD,?<vz*V?LDDEWUU<33ꪪZZDUU_UW}#.=VVWjDDOUUUUw}?0=VڕX?_0U]>.?0ww=Vڦ(_0UUUUW?;0Veu_*_0./0>w{wwwwZY}]_0,?=Z|?_Uh??U=Zx?}DE>?U_pZ p=k}_UU???U/B)h=*u>?.><꿿) h ??@) X4U/ ><_+T<@<?>+@ D=?}+@? Zp???X+@~,z+@jP |?; ? Z+ p0Gp0Z+ @p ÀZ,UCȯ?c ??? S ?[?? ?<ST' <?/?@<_?<<<<'<??<0??<0<'<??'????????33??<<<< ?`?? ???'> <'`00?,>ϗ<>???_??^^_swy ϻ￾Y ?<W o}gsw| ??;w/?G?3??_m_|DϏ߿/FDL?'wW_U؊w @DDO˻ _}w_?}w}w?@}]_?DDODwwW_j_}/}wvmuUUuu˟?ϏOtp? w^UWU]w]UY>_ꪾꮪ<}u[]ݕUVUUUUw>|?̿;;zU꺥ꯪ]/> .UUjjUf>+>//<<./= ?O>,'Z~_e^Z?]Vj&Uvg}t^~ ;?80G|G?zo[g}WU?VfF[w~@ }Wj+> ?,???/D?/[fUubQ(bfof?ϩ~ ~g0;0; ??O|?DGOHC_V~ը&i_ەUjUg/. ./@@Zk@՟_??@?O?_k?/@/?߯V@  ? DDOK _?_ڈ?j?~ꪪ?0?կ??Ͽh ? ????W?ï_? ?L' < 4DO0ռ?0<?<?<00wuGwfUD3"pRVw . ?? """"""?? ffffff?333333? ?333333??*??333333???*ffffff??wwwwwwD??????π333333?????DwwwwwwD??UwwwwwwU@??? ?? ??*???*??UUUUUUUUUUUUUUUU?????j@???P@????@@????UUUUUUUUUUUUUU@@??UUUUUUUUUUUUUUP@? ??UUUUUUUUUUUUUUP@??UUUUUUUUUUUUUUP@? ??UUUUUUUUUUUUUUP@??UUUUUUUUUUUUUUP@?? ???UUUUUUUUUUUUUUP@???UUUUUUUUUUUUUUP@? ?? UTUP@???????=UP3 0UP@??? 3 0??UPUP@????UPUP@? ?UP UP@???UP UP@?? ?UP UP@??UP* UP@? ?UP? UP@????UP UP@?? ??UP UP@??????UP UP@??? ???UP* UP@??????UP UP@???? ???UP UP@????UP UP@?? ??UP UP@?????UP UP@?? ??UP UP@????UP UP@?? ??UPUP@????UPUP@???? ???UTUP@???????UUUUUUUUUUUUUUP@??? ????UUUUUUUUUUUUUUP@?????UUUUUUUUUUUUUUP@? ?UUUUUUUUUUUUUUP@???UUUUUUUUUUUUUUP@?? ??TUUQUUUUUUUUUP@??"??UUUUUUUUUUUUUUP@?? ??UUUUUUUUUUUUUU@@????@@????@@?? ??@@????UUUUUUjUjUUUT????ꪪ??????(????(??????????????????????????????????????????? &a&a&a&a&a&a&a? ??AAAAAAA?00000000?ڪAAAAAAA? ?ڪAAAAAAj?0000000ڪAAAAAAA ??ڨAAAAAAA??0000000???ڠAAAAAAA? ?ځAAAAAAjT?0000000??ڪP??????ڪU@@??DDDDDDDDDDDDDDDDDDDDDDDD???UUUUUUUUUUUUUUUUUUUUUUUU??0?ڪ?<??ڪ??? ??ڪꪦfj?Hwt ?ګ?00000 ??ڮꮪꮪꮪꮪꮪ??? ?????ں???111111?uWUuWUuWUuWUuWUuUUUUUUUT? ?ڪUP????ڀ@@@@@@@@@@@@@@ @@@T??0??ڀ@@@@@@@@@@@@@@ @@@??0 ??ڕUUUUUUUUUUUUUUZUUVUUU?;; ??ڀ @@@??  ?ڀ @@@? ?ڕUUUUUUUUUUUUTZUUVUUU@?..??ڀ @@@? 0???ڀ @@@">" ???? <????ڕUUUUUUUUUUUUUUZUUVUUUȈ???;;?ڀUZUUV@@@U?00000000000?ڀ@@@Uv??00000000000ڕUUUUUUUUUUUUVUUUU]..ڕP@@?];8?@ڪ*@@?WjZ?ڪUUUUUUUUUUUjUUU?WjV ;?UUUUUUUUUUUUjUUUUڦ. "ڪڪڪuUUUUUUUUUUUUUUUUUUUUUUUUUUTuUUU@a&a&a&a&a&a&a&jUUUUUUUUUUUUUUUUUUUUUUUU?_ ?AAAAAAAA*UUU@00000006AAAAAAA*UUUUUUUUUUUUUUUUUUUUUUUUUUU< AAAAAAAjUUUUUUUUUUUUUUUUUUUUUUUT?00000000?AAAAAAAA* AAAAAAA*0000000?AAAAAAAj?? ?AAAAAAAA*0000000AAAAAAA* AAAAAAAj00000000AAAAAAAA* AAAAAAA*0000000AAAAAAAj AAAAAAAA*)DDDDDDE0000000)3333333)DDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDUUUUUUUUUUUUUUUUUUUUUUUU@)3333333)DDDDDDE)3333333f)DDDDDDE?wtHꮪꮪꮪꮪꮪꪪ) 3333333)DDDDDDE00000ꮪꮪꮪꮪꮪ) &a&a&a&a&3333333 ]U]U]U]U]U]UUUUUUUUꪪAAAAj000000ꪪAAAAA *ꪪڪAAAA00000000000000 0000000*?ꪪڪAAAA00000000000000 000? UUUUUUUUUUUUUUVUUUUUjꪪ?ڨAAAAj ; ?00000@@*ꪪڠAAAAA000333333< @@*DDDDDDFꪪځAAAA000 0000UUUUUUUUUUUUUVUUUUUjꪪڪ.333333<@@@@@@@@@@@@@@*DDDDDDFꪪڪ000 DDDDDDDDDDDDDDDD@@@@@@@@@@@@@@*ꪪUUUUUUUUUUUUUUUU000333333<UUUUUUUUUUUUUUVUUUUUjDDDDDDFꪪڪ ; UVUU*ꪪڪ .000333333<*DDDDDDFꪪڦfj 000 HDwtUUUUUUUUUUUUUUUUjꪪڪꮪꮪ333333< T@@*DDDDDDFꪪڪ 00 000@@ *ꪪڪꮪꮪꮪ00UUUUUUUUUUUZUUUjꪪUUUUUUU]U]U]U iUUUUUUUUUUUZUUUj?ꪪڪ.?ꪪڀ@@@@@@@@@@@@@@ꪪڀ@@@@@@@@@@@@@@UUUUUUUUUUUUUUUUUUUUUUUUꪪڕUUUUUUUUUUUUUU;UUUUUUUUUUUUUUUUUUUUUUUU@ꪪڀ ꪪڀ UUUUUUUUUUUUUUUUUUUUUUUU@ffڕUUUUUUUUUUUUUU.UUUUUUUUUUUUUUUUUUUUUUUUꪪڀꪪڀꪪڕUUUUUUUUUUUUWUDDDDDDD@;?UUUUUUUPڀ?00000000000UUUUUUUPڀ 00000000000UUUUUUUPڕUUUUUUUUUUUuUժ.UUUUPڕUuuUժ;Pڪ UPPڪUUUUUUUUVTUUUUPUUUUUUUUUVUUjUPڪ UUUUUUUPڪ PUUUUUUUUUUUUUUUU UUUUUUWPUUUUUUUUUUUUUUUU@@"*UUUUUUU30UUUUUUUUUUUUUUUUUUUUUUU@0ȈꪪUUUUUUUUUUUUUUUU<"#"ꪪUUUUUUUUU@UUUUUUUPUvUUUUUUUU@UUUUUUUP??U]UUUUUUUU@UUUUUUUP@?]UUUUU@UUUUP??WjZU@P??WjVU@P?UڦUUUUU@UUUUP3ڪUUUթU@UUjUPuUUUUUUUUUUU@UUUUUUUPuUUU@_@P?_]UUUUUU]@UUUUUUWP?UUU@UUUUUUTUUUUUUUUUUUUUUUUTUUUUUUU????wBReGU30bs7T" . <<<;18} 8P xPu0,0=??`<pL<8_spۀ,?|F`?А<ל?s@4]}ofgfwwua<3 h_P/uӳu hٟvfoggx l 5P?_} ???|[gggfowl W|@wd1?O0? Uu|3?0Ynf~nx?w??ۜ8?wuU}_B@8и?:h =}=w[߾~fg~v~g_up_00Dpu]0xW5w nwgG?GD }ד=?D?tUuW~wooD@O@@O7U?W興屮???w~nD@D@|WW}??ꪪ}|@Dp@tO|5sW o~_몊?8@D DDGDtt@|s?3p?܏?3ygfnwhyGD@OD|| wאИ>ˮy$'h}ۀ<G@|L}}{gnh9]ꪪ?? @?DO UWu_7u@ٿ{~o?&p5u<?{f@?<LOUW\7G5}:o꪿??y'&|>4D?||u=v~fg5_ʪ?8?DLO@OD|5 _}u  $$d5Wwꪯ?? fop>@DOwG7=}u<p5]迫???<?@OD?GDOD||@_\5ߪ>D @OOOL?5U_??D@@@DL_=Uw3>@?G@O0O=7 |_w} W??@|@@?|{U]꾿/?;@|||ODD=p?U_?꼿??@|<|L?|qp<=_U}wU꾾WW?|||?OD?u3_?38G?G?=]@0 ?U?W?0< ?G@p? @w_?ȯ?| ?LDp?P=_W}|?Lp?SV@vP<?YU;0?UW  h0?? w|p` ?TU_ﯬ?+ ?_m <UT Uu<?Wޯ c;TT78?^g(ځT)U@k]??APT_@<}0??Ã tοoWPEV_P~?00c8Y@H_7ρ0;;?'>UUi_Wxvs<s  ԉTY_}݉WC/9 ?3VTUW ]`V I@ETW9|  `{ jUAZXy?PՈU@U P WZTU8?HTU5 ;?`~P%e_ 0x??0<}@U _u|  ;,}U*sU @ ?@ PTWT}U]@  }ZP)Www0@lHT@W}_UUt ; |38 WUW@uWuuUtP?0?3# HU_U|0?; 08_iVUwUp=@@0?? ؈U]?]W?ZT]5}UwUwu0<?HT~?wuw}5w ??}ZUPt]UWw_UIU@UtUWw/iU)U7ww??YYUP?? ; ??UZU Y`_w???8 uUx@T@=_]@0< ?3 {YPP*U?wuG303??ϿWȅPUwuP? UUsUVwu@0??UUU_TUT|w}]uC;=VVTXw]w|=??>u}ԔXP=\ww]t9? 8?s_}VY` usGUUT??ꪪ>5}I@7]up??;88 ;o_Z*@=w_UUU@? ??*wHU]_}U@ 0 88;&,?0VV _wt?E7P?0????n < U ]~s=@ 0;FLUVuUuUE_0<?ߛ HUU_L8 wLjVX7uwUfȒ_? ?;|8PTTIPwWw?7 ;?E6_VUP3dz4[π 3]ug@XP5W_Zw~8 ?Hla@ZPwuyUw$ˀ<?lgAUIEPW}}Uw}] ;P\UUT jP*PuW_w]W  7n qZYIHXPWQWww]_Q3r[ZVP]U_}uwESrI35mYPPWuu}UuP;?UPW_oU_UPowWUT8UP=}uw}}]?0?UUU@UUP7WWw;?<UUUUU@UP|ww~_0UUUUUUU@w~ ;Y_UXUwE??XUUUU@u]?3 UUUUUUTGU[[ڝu???PUUUUUUUU@WwU?ϻ@UUUUUUUUUX3U7uUY3?CUUUUUUUjUU3]s_\ 3?UUUUUUUVU@=w]]Wߟ]p????TUUUeUUejUP_]__p?3PUUUVUUUZTL uUp?_w|?.?PUUeUUVZeU}]3C\_?030PUUUUVYUUUU@<?wOXt0?,><??0UdUUUeUYfP>~<?_P5W;;33;|<??;Ue}UUUVVYfT~7S,,???Ye@_UUejVx_{{0 ?iZ[eT;vO<YVZkeYfT>@ |y;pK<>?~9UYYUkeYU =psO?5ߠ\_p?? pL@/xͿP<b[պZkYUV*O pH;;80n[VjkUV(_pw9Lw/|;??YgVikUU 7pwHw;^/;׵e_^IiOUUj Tx}75P۫||w?{VYiUQV T5u؀?Gx7{)!@V}UeeP}j**P@o_}pOt7=s>~UUUXVP}'x{|x7?ՖYUZ'T W??|?|?ZVeeZUVU3?? H`<|fl0fF68of;88<p8~|x88880808~~~~p8 8p<~fppp~~>xln~~|x~`|`~~~~`|pppp>`nf~~>vv~~vvv~~~~ x````~~~><~<<<<<<vvvvv~<nnnnn<vvv<~nnff~<<<~ 0~~~|ppp||`px<>>>>wc6>UUUUBBD"D""D"DUU8pp8?<~~<wwp<~|xxxx<nnn~>nn~<|lf~~fnnn>|~ 8~~~<~~<~x|nf8x8v~nfff~~``~~<fff<|```x```~?p`@@@|~FGG5uecc33 O_{qyx llllllllll<~b`````ff 00`f88ll8o080008p8 8pff<<< <808p`p8<<<<`p88p`<~f 8|~<<~ff~~ffff|~ff||fff~|<~ff```ff~<x|nfffffn|x~~``xx```~~~~``xx`````>~``nnfff~>ffff~~fffff~~~~ff~<ffllxxxllff`````````~~ffvv~~nnfff<~fffffff~<|~fff~|````<~fffffj|v6|~ff~|llfff>~`p8~|~~fffffffff~<fffffff<<Ƃff<<<>~ff~>``|~fffff~|<~f```f~<>~fffff~><~ff~~`~>>00~~00000<~fff~><<``|~fffffff88<<pp```llxxllff88<<|~fffffff<~fffff~<|~fffff~|```>~fffff~>|~f``````>~`|>~|~~fffffff~>ffffff~<|ll|8|lfffff~>||~~8p`~~<00``000<8<  <80{44bb88TTTT88 @@@@ ~~<<Ù<<~~ƒ88PP ||<<<<<<~~88 8xxx0 aaF.F+FFF {RF0 z o,<ܨ ܨܨ/?<NNT|f ,?<NAB?< NA\#L/<h?< NA\/<?< NA\h/<h?< NA\0<(J9igL 9igB@9j@0o| n BA9kA0m| nA|Pn3#NT#.#p:#X3(\3`EfCF0<'$QX4 +@N#P?</p3dJydf`#p##2p/9L?< NA\ Bg/?<1NAH`$Of Nj0*|g8|g<|f>5| * g*#P%| ` 9PLNs0<LNsLNH33B33D9@g3w@3F`3@3wFB99&@ yP"yTg K#P $HP$9X2<J9>f29\aPPXy` y`f&#X}}}3`QLNBydNs22NuNqEThe Mono Emulator - Mick West 1988 V5.00. Should be in AUTO Folder Will run with any TOS This is Shareware Send Money and Problems to: Mick West 27 Lynton Drive, Shipley, BD18 3DJ ENGLAND Feel free to give away copies of this But please copy the whole folder Enter speed (10 to 80, Return = 40) GENFMEDTMONOPXENDfINPUTMEDOKXBIOSGETREZINLOOPNINVERTfNOT2000VBLANK2DEFAULTMESSAGEhMONOPOSXNOTHIGH0NOTUSERVBLEXIT4COPYMOVEGENMOVE1NOINVERTvPHYSBASESCANPOKEMONOCOUNH`TMONOLINEH\SSAVESTACHLKXBIOSPOKH,ENORM_XBIH(OSVBLANKPOH8KERASTER_FHdLAGWAIT_RASHnTERSIMPLE_VH>BLANK<  &(  fx hFJ lFhFFwLF F 5 FJ,)F F F FFFF FHF.F+FFFF FFFFmEF DF  RmFFEPFEQF!F { ; The Auto Mono Emulator. V5.00 By Mick West. November 20th 1988. ; Routine to make the ST think it is in mono mode. Needs TOS in ROM ; Makes the system think that there is a mono screen, but actually ; be updating a medium real screen from this under Vblank interrupt ; The XBIOS calls; Physbase,Setscreen and Getrez are revectored. ; Put in an Auto Folder ; Works with any TOS in the entire world - hopefully MOVE.L 4(A7),A0 MOVE.L #$8400,D6 ; 32K for the screen ADD.L $C(A0),D6 ; plus the usual space ADD.L $14(A0),D6 ADD.L $1C(A0),D6 MOVE.L D6,-(SP) ; save length of program for later MOVE.W #4,-(SP) TRAP #14 ; Get screen Resolution ADDQ.L #2,SP CMP.W #2,D0 ; If not high then carry on BNE NOTHIGH MOVE.L (SP)+,D6 ; else tidy up the stack MOVE.W #0,-(SP) ; return ok to,GEM TRAP #1 ; Then exit back to desktop NOTHIGH: CLR.L -(SP) MOVE.W #32,-(SP) TRAP #1 ; Enter supervisor mode ADDQ.L #6,SP MOVE.L D0,SAVESTACK ; Save the supervisor stack MOVE.L #MESSAGE,-(SP) ; Address of start of message MOVE.W #9,-(SP) ; Print startup message TRAP #1 ADDQ.L #6,SP INLOOP: MOVE.L #INPUT,-(SP) MOVE.W #9,-(SP) ; Print input message TRAP #1 ADDQ.L #6,SP MOVE.B #3,MESSAGE ; Input length = 3 MOVE.L #MESSAGE,-(SP) MOVE.W #10,-(SP) TRAP #1 ; Input number ADDQ.L #6,SP MOVE.W #40,D0 ; Default = 40 TST.B MESSAGE+1 BEQ DEFAULT ; If len=0 CMP.B #1,MESSAGE+1 ; len of 1 not allowed BEQ INLOOP CLR.W D0 MOVE.B MESSAGE+2,D0 ; first digit SUB.W #48,D0 BLE INLOOP ; Too low CMP.W #9,D0 BGT INLOOP ; Too High (>100) MULU #10,D0 CLR.W D1 MOVE.B MESSAGE+3,D1 ; second digit SUB.W #48,D1 BLT INLOOP ; Too low CMP.W #9,D1 BGT INLOOP ; Too high ADD.W D1,D0 CMP.W #80,D0 BGT INLOOP ; Check less than 80 DEFAULT: MOVE.W D0,SCANPOKE+2 SUB.L A5,A5 MOVE.L $044E(A5),MED ; Set MED MOVE.L $B8,XBIOSPOKE+2 ; Get the old XBIOS address and MOVE.L $70,VBLANKPOKE+2 ; VBLANK and insert into new versions MOVE.L #0,MONOPOS ; Set offset to top of screen SCANPOKE: MOVE.W #40,MONOLINES ; Fourty lines per Vblank is default MOVE.W #0,MONOCOUNT ; Counter is set to zero LEA XEND,A2 ; A2 = pos of generated code LEA GEN,A1 ; A1 = pos of instructions to copy MOVE.W #39,D0 ; Generate the code GENMOVE1: MOVE.L (A1),(A2)+ ; Copys 40 of - MOVE.W (A0)+,(A1)+ DBF D0,GENMOVE1 ; and MOVE.W (A2)+,(A1)+ ADDQ.L #4,A1 MOVE.W (A1),(A2)+ ; Move the RTS MOVE.L A2,D0 ; A2 = start of free memory ADD.L #512,D0 ; Force it to a 512 byte boundry AND.L #$FFFFFE00,D0 MOVE.L D0,$044E(A5) ; And that is the monochrome screen MOVE.L D0,MONO ; Set MONO MOVE.W #$0002,-(SP) ; Hardware and Software to Mono MOVE.L #-1,-(SP) MOVE.L #-1,-(SP) MOVE.W #5,-(SP) TRAP #14 ; Set high resolution ADD.L #12,SP MOVE.L $70,A0 ; Save the old VBLANK MOVE.L #SIMPLE_VBLANK,$70 ; And set up mine MOVE.W #1,RASTER_FLAG ; Set raster flag to 'not occured yet' WAIT_RASTER TST.W RASTER_FLAG ; If still not occured BNE WAIT_RASTER ; then loop until a vbl does occur MOVE.B #1,$FF8260 ; Back to medium hardware after VBL MOVE.L A0,$70 MOVE.L #XBIOS,$B8 ; Set up the new XBIOS vector MOVE.L #VBLANK,$70 ; And the new VBLANK vector MOVE.L SAVESTACK,-(SP) ; Restore the Supervisor stack MOVE.W #32,-(SP) ; And go back to User mode TRAP #1 ADDQ.L #6,SP MOVE.L (SP)+,D0 ; Tidy stack CLR.W -(SP) ; Exit ok for GEM MOVE.L D0,-(SP) ; Length of program + data space MOVE.W #$31,-(SP) ; terminate and stay resident (TSR) TRAP #1 ; Finished this AUTO program ; This is the new XBIOS routine XBIOS: MOVEM.L A1/A2,-(SP) ; Save A1 and A2 MOVE.L SP,A2 ; A2 = the stack ADD.L #8,A2 ; offset over A1 and A2 BTST #5,(A2) ; Test if called from user mode BNE NOTUSER ; Skip if it is MOVE.L USP,A2 ; Otherwise get A2 = User stack SUB.L #6,A2 ; Offset it as if it were the SSP NOTUSER: MOVE.W $6(A2),D0 ; Get XBIOS instruction code CMP.W #2,D0 ; If it is _PHYSBASE BEQ PHYSBASE ; then jump to new PHYSBASE routine CMP.W #4,D0 ; If it is _GETREZ BEQ GETREZ ; then jump to new GETREZ routine CMP.W #5,D0 ; If it is NOT _SETSCREEN BNE NORM_XBIOS ; Then continue with the normal XBIOS MOVE.W #-1,16(A2) ; Else alter rez.W to -1 (No change) MOVE.L 12(A2),D0 ; Get the ploc.L parameter CMP.L #-1,D0 ; If it is -1 BEQ NORM_XBIOS ; then continue with normal XBIOS MOVE.L D0,MONO ; Otherwise, new value goes to MONO MOVE.L #-1,12(A2) ; Set ploc.L to -1 (no change) BRA NORM_XBIOS ; then norm BIOS deals with lloc.L PHYSBASE: MOVE.L MONO,D0 ; Get address of mono screen MOVEM.L (SP)+,A1/A2 ; Tidy stack RTE ; Return mono screen location GETREZ: MOVE.W #2,D0 ; Pretend we are in mono resolution MOVEM.L (SP)+,A1/A2 ; Tidy the stack RTE ; Return code for mono resolution NORM_XBIOS: MOVEM.L (SP)+,A1/A2 ; Tidy the stack up XBIOSPOKE: JMP $0.L ; And jump into the normal XBIOS ; This is the new VBLANK routine VBLANK: MOVEM.L D0-D7/A0-A6,-(SP) ; Save all registers MOVE.W #$333,$FF8242 ; Set up colours, grey for thin lines MOVE.W #$333,$FF8244 ; (1 vert mono pixel = 1 grey med pix) BTST #0,$FF8240 ; Check inverted BEQ INVERT ; Jump if so MOVE.W #$777,$FF8240 ; White background (normal) MOVE.W #$000,$FF8246 ; Black ink BRA NOINVERT INVERT: MOVE.W #$000,$FF8240 ; Black background (inverted) MOVE.W #$777,$FF8246 ; White ink NOINVERT: CLR.L D0 MOVE.B $FF8201,D0 ; Video base high LSL.L #8,D0 ; times 256 MOVE.B $FF8203,D0 ; Plus video base low LSL.L #8,D0 ; All times 256 MOVE.L D0,A3 ; Is the address of the Real screen MOVE.L MONO,A0 ; A0 = virtual mono screen MOVE.L MED,A1 ; A1 = real medium screen CMP.L A1,A3 ; Check if the real screen has moved BEQ MEDOK ; Skip this if not MOVE.L A3,A0 ; Get the new real screen address MOVE.L A0,MONO ; Set MONO From this MOVE.L A1,D0 ; And put the real screen back LSR.L #8,D0 ; to its origional position MOVE.B D0,$FF8203 LSR.L #8,D0 MOVE.B D0,$FF8201 MEDOK: MOVE.L A0,A2 ; A2 = mono start ADD.L #80,A2 ; plus 80, on to next line MOVE.L MONOPOS,D2 ; Get position in the screen RAM ADD.L D2,A0 ; Offset position in mono screen ADD.L D2,A2 ; And the other mono position ADD.L D2,A1 ; Offset pos in real medium screen MOVE.W #20,D1 ; default 20 lines / Vblank TST.B $43E ; Test flock system variable BNE COPYMOVE ; Set speed to 20 if using disk drive MOVE.W MONOLINES,D1 ; Otherwise get preset speed COPYMOVE: BSR XEND ; combine and move two mono lines ADD.L #80,A0 ; both need moving down another line ADD.L #80,A2 ; in the mono screen ADD.L #160,MONOPOS ; move down one medium/two mono lines ADD.W #1,MONOCOUNT ; count medium lines dome CMP.W #200,MONOCOUNT ; Done 200 medium/ 400 mono ? BNE NOT200 ; if not then skip MOVE.L #0,MONOPOS ; otherwise reset ram offset SUB.L #32000,A0 ; MONO position back to top of screen SUB.L #32000,A1 ; and the same for MEDIUM SUB.L #32000,A2 ; and the other MONO position MOVE.W #0,MONOCOUNT ; reset the counter NOT200: DBF D1,COPYMOVE ; loop round MONOLINES times VBLEXIT: MOVEM.L (SP)+,D0-D7/A0-A6 ; Restore all registers VBLANKPOKE: JMP $0.L ; Jump to normal VBLANK routine ; This is a simple Vblank routine that just clears a flag SIMPLE_VBLANK CLR.W RASTER_FLAG ; Indicate a Vertical blank has occured RTE ; The following bits of code are not called but are used to calculate ; a large chunk of code to combine two mono lines into one medium one. GEN: MOVE.W (A0)+,(A1)+ ; Move one Mono line to one Medium MOVE.W (A2)+,(A1)+ ; line on both colour planes times 40 RTS EVEN SAVESTACK: DC.L 0 MONO: DC.L 0 ; Base address of mono screen MED: DC.L 0 ; Base address of medium screen MONOPOS: DC.L 0 ; Offset in both screens in bytes MONOLINES: DC.L 0 ; Pairs of mono lines to do per VBLANK MONOCOUNT: DC.L 0 ; Count of pairs done so far RASTER_FLAG: DC.W 0 ; Flag cleared every raster (tempory) XEND: nop ; Position of calculated code MESSAGE: DC.B 27,'E','The Mono Emulator - Mick West 1988',13,10 DC.B 'V5.00. Should be in AUTO Folder',13,10 DC.B 'Will run with any TOS',13,10,13,10 DC.B 'This is Shareware',13,10 DC.B 'Send Money and Problems to:',13,10 DC.B 'Mick West',13,10 DC.B '27 Lynton Drive,',13,10 DC.B 'Shipley,',13,10 DC.B 'BD18 3DJ',13,10 DC.B 'ENGLAND',13,10,13,10 DC.B 'Feel free to give away copies of this',13,10 DC.B 'But please copy the whole folder',13,10,13,10,0 INPUT: DC.B 13,10 DC.B 'Enter speed (10 to 80, Return = 40) ',0  F M! F dF!EGJF M!  F M!  F F!8MF } F ,AFR,VF.F+FFf\*.VCT! DEFAULT.VCT!6F 6F 7i!M!6F:M!F:M!IF:M!JF:M!GF:M!OF:M!PF:M!4F:M!ZF:M![FEG4F :M! FM :M! F hFGEGZF :M! FM :M! F FFEG[F :M!  FM :M! F FFEGGF :M! F :M! FF FFJEGOF :M! F :M! FF (FFzEGPF :M! F :M!  FF XFFEGF :M! F :M! F F!EGIF :M! F :M! F F! EGJF :M!  F :M!  F F!8MF,VF F } F ,AFR,VF.F+?FF$|EGGH FF!! !F `FGEG H F!!!GGF F.F+AFT! ! FTI! ! FATJ! ! FATG! ! FTO! ! FTP! ! FT4! ! FTZ! ! FT[! ! FT4! ! FTZ! ! FT[! ! F.Ft<:8RR^-&!-6d@t!x,tttttttx,> H}J}}}ʸ,}B}z߄>RpH\f&>ej22$@ r|V}"N~0ydx,{NsvZsqV<hBA퀮NۘpNAA퀮Nۄ&<x*<NpJBgp/AANHANA킲NA킲NNjSgNZN\/Nt"N>ANHA킲NANNvC킾N(A킾NNN,H <r$<L8NNl+@ -SgN[HA킲NA킸N -~N`;: -UgN[vANANA킲NA킲N - gN[pN`NA0NۀNA< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn^ 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN|pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@NH?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|ܐ  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NZJFkSFk&aQNZ`Ha"FFaQL8N.6.ܐJgtBnܐNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N.<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuHnۊr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&NAXJ@jNNu ::/rI IN<,(k$/<??<?N`NA Jj ?a0NNHrO INLA NNJ@jD@vqapvN6)@p `H@)@prtNDAHplrtNDB 2pN4pN(papaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNDpapap9@p`pvN6v`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNDAl 2l 4HVNuAl 2l 4L VA0000000000prtNDA)lVHvN9Cp rtNDAv` Av `Avl 2l 4)lVHNA)lVH)|vNA VB0BP9|p tNDA~`9@Z0<rA~HA VBB0ZBP9Gp trNDAl 2l 4HPrtpgNDaBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNuAl 2l 4HpirtNDp0,Nu0<}N& ?<NNC`&?<NNT"@ C <}N`N$@((?<NN.?<NNX@LvA HA HNuNup9@HA)A,N FN @e024E$ Bb5B5A6CC5CK5CAB008:Dk`Ek\00<,>,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNu pmrtA)HA)HNDpNHHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N"2)IN (* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu*( INA)H @depd ae zb QB DNA\)H @ e` ae zb \gQBA BhNpZNA BP"`#|}NA"H0,tg"Hg \f`A\fS A ENAR@H`2QNu@9@JpNNr|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| NDp`p`pNNu~`~ `~HAҬ 2HA dJ@g??)AVHT hf if$Qb XbEJf$?`NvN^lX4TSWjT` $A4TQE I XX0d?NvN^lVT4SWfT`2,V`$AT4Qr40NDA R4RB`A Gf //o~4$_<F"OSG !H@Ь 2 Q)@RHRprND2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN "l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNAH@B pNA NuApNN$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuNJ@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuN~WHNuN~VHNuJhg N1NNu(* 0(iN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNFJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`pA` p9`p:`p;?N>J@fCAHPBHQ?NA\ _JjNNuH&NxրNxjNuNJ@fC )I( BA)Hp9@J9@L9@NpyN DJlrgNp NHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuNq Y Qf*d ЀЀ 2$4BBNuDHRp` HRpJQfpNV$_& Y Qf,d,փփAdRdRBABJk 0NNBN<$_& if"QdփփHRN(NRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`"p`tdbDA0Hg<<R@f|0HN*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNup`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C\fApNNNHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Error # ][Abort]\f.B &lX)K\)ld` lp ,BQjNup(N 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 GB| 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 failuretHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNSAgNu6)l g,vARC( g9CJ9|Lp!,N FPeNu6A JpBQA/)H )l gBlJpNB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Np>L8N6p*HEAJ0?C bL000H?A/.)HpNLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN0`@k Ap0(/.NuA Nup)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu _b@gGHpp 0f NuGNp @"l`Yd&-KNN "l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`AHNATrNAUN?<?<P?<?<A" N,NCOLOUR: BLACKC킦N(A킸NA킸NA;dNNBNCNHxN Wierd Draw Vr. 5.2 CNHxN----------------------CNHxp1NCNHxp2NCNHxp3NCNHxp4NCNHxp5NCNHxp6NCNHx A CNHx NFileCNHx N Load NEO 4CNHx N Load A5PCNHx N Save A5P CNHxNShapesCNHxN Ellipse 4CNHxN F.Ellipse CNHxN Circle CNHxN F.Circle CNHxN Fill CNHxN Box CNHxN F.box CNHxN R.Box CNHxN Draw CNHxN Line CNHxN Text CNHxA CNHxNOptions4CNHxN Change Colour4CNHxN Change Pattern CNHxN Clear Screen CNHx N Print Picture CNHx!N Change Text CNHx"N Block CNHx#N-----------------CNHx$N Quit CNHx%N-----------------CNHx&N Go VECTOR!! CNHx'N Draw VECTOR CNHx(N-----------------CNHx)N Go DTP.A5-CNpN,AN6N NprAzNA킸NAN6ANv&<x*<NJBfNCA0NvzNJBfNCA6 0A0 0NCOLOUR: BLACKC킦N(pN(NCpN(Bm4Bm:NCOLOUR: WHITEC킦N(A;dNANv&<x*<NJBfND0A킸NAONAN6ANv&<x*<NJBfNDnNpN,A[NpN,ANv&<x*<NJBfNEHxN PRINT: Are You Sure? HPN Yes | No r"_ NANANv&<x*<NJBfNEA;dNA{NANv&<x*<NJBfNEHpN,p NTAnFNANv&<x*<NJBfNEpN,p NTAtbNANv&<x*<NJBfNFTHxN CLEAR SCREEN: Are You Sure? |HPN Yes | No r"_ NANANv&<x*<NJBfNF A;dNA킲NANNANA킲NA킸NAN6ANv&<x*<NJBfNFHxN QUIT: Are You Sure? rHPN Yes | No r"_ NANANv&<x*<NJBfNFA;dNNANv&<x*<NJBfNGLpN,A6NrNANNNA킸NN\SgNZNNN&<x*<NpJBgp/NNN&<x*<NpJBgp/NfN&<x*<NpJBgp/NfN&<x*<NpJBgp$fNX?<?<PHmp _"NLA< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuN"pNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|6  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8N6.6JgtBn6Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?N<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuHn0r$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&NAXJ@jNNu~c0NQNuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu ::/rI INP<,(k$/<??<?N`NA Jj ?a0NNHrO INPLA NbNJ@jD@vqapvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNuAl 2l 4L VA0000000000prtN9Cp rtNAv` Av `Avl 2l 4)lVHN"aBp0,l 2Nua40,HNua*p0,l 4Nuaprt0,l 22,l 44,NuN9||BlBlrҌpsNBNuAl 2l 4HpirtNp0,Nu0<}N& ?<NNC`&?<NNT"@ C <}N`NF@((?<NN.?<NNX@LvA HA HNuNup9@HA)A,N" FN @e024E$ Bb5B5A6CC5CK5CAB008:Dk`Ek\00<,>,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNpNHHPN"4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@N"2)IN(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NלHNu*( INA)H @depd ae zb QB DNA\)H @ e` ae zb \gQBA BhNpZNלA BP"`#|}NA"H0,tg"Hg \f`A\fS A ENAR@H`2QNu@9@JpNNלr|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N"H2@N.0H@N.YdNHAN, NtaoR6 .fJS@gFt ao>AA .f4S@g04<;ark(AjA AbAPjAdYA??<+NAX FNta>k:Y6 :fRS@g*t;a(k$AA :fRS@g t;akIA??<-NAXNurxS@k0  bS@jrNu .g( :g"0  b DBb BdeS@jJANuSR@JANu2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NND"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNuApNN\$N,$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN _0HpNp"_0HqNbp"_0HqNbE ұeHHQ0)N$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNfWHNu(* 0(iN,$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`0H 0 0H@Nu?<,NATAN"pN?<*NATANp N"H2X@N:0H@?N:AANH&NրNjNuNJ@fC )I( BAռ)Hp9@J9@L9@NpyNל DJlrgN׆p NHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHpx$&ր ld$l`"HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f)I`LNuNq Y Qf*d ЀЀ 2$4BBNuHRp` HRpJQfpNNq Y Qfd ЀЀNuNN$_& Y Qf,d,փփAdRdRBABJk 0NNN*$_& if"QdփփHRNNN~,Nq8DRzXEEg"7PNqR$HBJBgpNJgJigp`eetЂ`"ЀeЁdp`ЀeЀe"Ѕe$W.H@@/ l\N NL"2` NqR YEjrd0` SjNp"X4g S`"QNuNuNJPgBP, d eЀЀ``Ѐ"ЀЁE H FNL l ,"X2geb J"F\NF" KC`e ND`d \N l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu??<NMXNu?k?<NM"UAf J@fH@NuDW?<NMXNuPj0,lf$J,nk l*fp?NZp NZ9|nNA0,l2J,jk 0"fZRAR@ 0"g 0 f` 0 g 0,f9@lTll`BllA"H"g"A4`Q"AA 0! NuS@R@ 0 g 0,f9@lRll`R@ 0 fQj`Bll?<?<?<NM\N HQN&g ! ge l*g l*gpNNu<,*?Hj\F FfN(`H FfN `RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNZLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`"p`tdbDA0Hg<<R@f|0HN,*JFk*HQ/??<?NAXfX ENuJkpNp`p`\F( &I.` ??<NMXJ[j E&DNuak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?N(<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pNu)H9@Jp4NלP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N`  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C\fApNNN׆HP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Error # ][Abort]\f.B &lX)K\)ld` lp ,BQjNup(N 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 GB| 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 failuretHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNלSAgNu6)l g,vARC( g9CJ9|Lp!,Nל FPeNu6pA JpBQA/)H )l gBlJpNלB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nלp>L8N6p*HEAJ0?C bL000H?A/.)HpNלLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN`0`@k Ap0(/.NuA Nup)@JphNלLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nל"F QNu"l`Yd&-KNND"l`YepN&#k"C-KN"Cփk փk2##`փk"`2`& $Y8gHRDD*D%H8#$c2g# HRDD%H`N8ANA0 0BmAr P0Ax 0BmBmBm?<Bg?<?<A|" N6A^NpNpNprNp"<N <"<N <C텰NNpC텶NNBmp7C톈NN <C톸NN <'C톚NN <CjNN <CvNN <CpNN <C|NNA=HN`N׆BNC톈N&HxN DTP.A5 C톈N&HxN---------------------4C톈N&Hxp1NC톈N&Hxp2NC톈N&Hxp3NC톈N&Hxp4NC톈N&Hxp5NC톈N&Hxp6NC톈N&Hx A C톈N&Hx NFileC톈N&Hx N Import *.A5P C톈N&Hx N Import *.NEO C톈N&Hx N----------------C톈N&HxN Import *.A5T C톈N&HxN Import ASCII C톈N&HxN----------------C톈N&HxN Load A5 Page C톈N&HxN Save A5 Page C톈N&HxN----------------C톈N&HxN Print Page C톈N&HxN----------------C톈N&HxN Erase Page C톈N&HxA C톈N&HxNFrame4C톈N&HxN Erase Frame 4C톈N&HxN Move Frame C톈N&HxN Copy Frame C톈N&HxN Rotate Text C톈N&HxA C톈N&HxN Text Size4C톈N&HxN 4 pts C톈N&Hx N 6 pts C톈N&Hx!N 10 pts C톈N&Hx"N 12 pts C톈N&Hx#N 13 pts C톈N&Hx$N 18 pts C톈N&Hx%N 26 pts C톈N&Hx&A C톈N&Hx'N Text StyleC톈N&Hx(N Normal C톈N&Hx)N Bold C톈N&Hx*N Light C톈N&Hx+N Italic C톈N&Hx,N Underlined C톈N&Hx-N Bordered C톈N&Hx.A C톈N&Hx/N Change....C톈N&Hx0N Wierd Draw Vr. 5.1 C톈N&Hx1N Text Ed.A5T5C톈N&Hx2N----------------------C톈N&Hx3N Set Date -C톈N&Hx4N Set TimeC톈N&Hx5A C톈N&Hx6A C톈N&pN6AtN`?<BgA|"NTA톈N6N AxN/p"N A`NzNZJBfNCpr-N NCpr-N A0N&<x*<NZJBfNCpr(N A0NzNZJBfNDpr(N ANzNZJBfND4pr,N A6NzNZJBfNDTpr+N ANzNZJBfNDtpr)N ANzNZJBfNDpr*N AN&<x*<NZJBfNDpr,N A6N&<x*<NZJBfNDpr+N AN&<x*<NZJBfNEpr)N AN&<x*<NZJBfNEDpr*N )|F JpNAHNABNNڂANNNڂATNNڂAZNNڂAfNNڂNNpNp Np"<NNHPN "_NHPN "_NNDpNAHNABNNڂANNNڂATNNڂAZNNڂAfNNڂNNpNArNNpd"<NNTextNDArN&<x*<NڂN"<NNTEXTNDpNpNprNp"<N <"<NN`NpNANN AN&<x*<NZJBfNGfN(pr:NNEnter new date..NTN(pr:NN (DD.MM.YYYY)Adr NNHPAd"_NA=HN`AN&<x*<NZJBfNGN(pr:NNEnter new time..NTN(pr:NN (HH:MM[:SS])A텦rNHmN "_NA=HN`AN&<x*<NZJBfNHHxN*Leaving to WD.5 would| destroy your page..HPN Leave|Cancelr"_ NA*NA*N&<x*<NZJBfNHN\wd5.prgNdNHA=HN`AN&<x*<NZJBfNIHxN.Leaving to Text.Ed would| destroy your page..HPN Leave|Cancelr"_ NA*NA*N&<x*<NZJBfNIvN \texted.prgNdNIA=HN`AN&<x*<NZJBfNIHxN%DTP.A5...|COPYRIGHT 1990|by JAMES COXaHPNCLICKr"_ NA NAN&<x*<NZJBfNJ"AnHN`AN&<x*<NZJBfNJPAlN`AN&<x*<NZJBfNJAwJN`A=HN`AN&<x*<NZJBfNJA`&N`A=HN`AN&<x*<NZJBfNJArDN`A=HN`AN&<x*<NZJBfNK0AqPN`AWHN`AN&<x*<NZJBfNKhAiN`A=HN`AN&<x*<NZJBfNKAf@N`A=HN`AN&<x*<NZJBfNKN\*.A5TCpNAV(N`A=HN`AN&<x*<NZJBfNL6N\*.*CpNAV(N`A=HN`AN&<x*<NZJBfNLAr 0Ax x0A=HN`AN&<x*<NZJBfNLAr @0Ax 0A=HN`AN&<x*<NZJBfNMAr 0Ax 0A=HN`AN&<x*<NZJBfNM^Ax 0Ar @0A=HN`AN&<x*<NZJBfNMAx 0Ar P0A=HN`AN&<x*<NZJBfNMAr 0Ax 0A=HN`AN&<x*<NZJBfNNNv&<x*<NJBfN]pN`NA킲NANANNNARNNfAXNBmANv&<x*<NJBfNa8NNNARN^NpJBgp/NfNAXN^NpJBgp$fN^NNARNNfAXNN\N&<x*<NpJBgp/A킎NvzNpJBgp$fN_NNANNNfATNANNr/ATNr"Np NTA킎 0N\NzNpJBgp/A킎Nv&<x*<NpJBgp$fN_NNAnNNfAtNANNr/ATNr"N0AnNr/AtNr"NBANA킲NN\UgN_p NTBmN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fN`rA킲NANNr/ATNr"N0AnNr/AtNr"NBA킲NANBmp NTNhC킾N(A킾NNNH <r$<L8NN^+@ -SgN`A킲NA킸N -~N`;d -UgNa ANA킲NANA킲NA>Nv&<x*<NJBfNa4pN`NA킲NANANv&<x*<NJBfNbPN\SgNaNN/Nf"NNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNaA킲NA킸N -~N`;d -UgNbANA킲NA킲NA>Nv&<x*<NJBfNbLAJN`NA킲NANANBmANv&<x*<NJBfNeN\N&<x*<NpJBgp/A킎NvzNpJBgp$fNcNNAZNNfA`NAZNr/A`Nr"Np NTA킎 0N\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNcNNAvNNfA|NAZNr/A`Nr"N0AvNr/A|Nr"N ANA$NN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNdnA킲NAZNr/A`Nr"N0AvNr/A|Nr"N A킲NANCvAZ 0C|A` 0N\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNdBmp NTNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNe4A킲NA킸N -~N`;dA>Nv&<x*<NJBfNebAJN -UgNeANA킲NANA킲N`NA킲NANANBmANv&<x*<NJBfNhN\N&<x*<NpJBgp/A킎NvzNpJBgp$fNfbNNAZNNfA`Np NTA킎 0AZNr/A`Nr"NN\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNgNNAvNNfA|NAZNr/A`Nr"N0AvNr/A|Nr"N ANA$NN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNgA킲NAZNr/A`Nr"N0AvNr/A|Nr"N A킲NANBmp NTN\UgNgp NTBmNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNh&A킲NA킸N -~N`;dA>Nv&<x*<NJBfNhTAJN -UgNhANA킲NANA킲N`0NA킲NANANBmANv&<x*<NJBfNklN\N&<x*<NpJBgp/A킎NvzNpJBgp$fNiTNNAfNNfAlNAfNr/AlNr"Np NTA킎 0N\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNiNNAPNNfAVNAfNr/AlNr"N0APNr/AVNr"NANN\UgNjp NTBmN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNjA킲NAfNr/AlNr"N0APNr/AVNr"NA킲NANp NTBmNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNkA킲NA킸N -~N`;dA>Nv&<x*<NJBfNk:pN -UgNkhANA킲NANA킲N`Nv&<x*<NJBfNnpN -UgNn>ANA킲NANA킲N`LNBmA킲NANANANv&<x*<NJBfNqPN\N&<x*<NpJBgp/A킎NvzNpJBgp$fNoNNA~NNfA퀄NA~Nr/A퀄Nr"NA킎 0p NTN\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNoNNNA~N^NABNۊNfNA퀄N^NAHNۊA~Nr/A퀄Nr"N0ABNr/AHNr"NANA킲NN\UgNop NTBmN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNpA킲NA~Nr/A퀄Nr"N0ABNr/AHNr"NA킲NANBmp NTNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNpA킲NA킸N -~N`;d -UgNq"ANA킲NANA킲NA>Nv&<x*<NJBfNqLpN`NA킲NANANBmANv&<x*<NJBfNt^N\N&<x*<NpJBgp/A킎NvzNpJBgp$fNrNNA퀊NNfA퀐NA퀊Nr/A퀐Nr"Np NTA킎 0N\UgNr6p NTBmN\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNrNNNA퀊N^NABNۊNfNA퀐N^NAHNۊA퀊Nr/A퀐Nr"N0ABNr/AHNr"NtANA킲NN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNsA킲NA퀊Nr/A퀐Nr"N0ABNr/AHNr"NtA킲NANBmp NTNhC킾N(A킾NNNH <r$<L8NN^+@A>Nv&<x*<NJBfNtpN -SgNt,A킲NA킸N -~N`;d -UgNtZANA킲NANA킲N`NA킲NANANBmANv&<x*<NJBfNw8N\N&<x*<NpJBgp/A킎NvzNpJBgp$fNu,NNA퀖NNfA퀜NA퀖Nr/A퀜Nr"Np NTA킎 0N\UgNuDp NTBmN\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNuNNNA퀖N^NABNۊA퀖Nr/A퀜Nr"N0ABNrNANA킲NN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNvrA킲NA퀖Nr/A퀜Nr"N0ABNrNA킲NANp NTBmNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNvA킲NA킸N -~N`;dA>Nv&<x*<NJBfNwpN -UgNw4ANA킲NANA킲N`HNA킲NANANBmANv&<x*<NJBfNzN\N&<x*<NpJBgp/A킎NvzNpJBgp$fNxNNA퀢NNfA퀨NA퀢Nr/A퀨Nr"Np NTA킎 0N\UgNxp NTBmN\NzNpJBgp/A킎Nv&<x*<NpJBgp$fNxNNNA퀢N^NABNۊA퀢Nr/A퀨Nr"N0ABNrNANA킲NN\N&<x*<NpJBgp/A킎Nv&<x*<NpJBgp$fNyLA킲NA퀢Nr/A퀨Nr"N0ABNrNA킲NANp NTBmNhC킾N(A킾NNNH <r$<L8NN^+@ -SgNyA킲NA킸N -~N`;dA>Nv&<x*<NJBfNypN -UgNzANA킲NANA킲N`HNN\*.NEOHPA HPA킠""_NXHmA "_NJBfNz`A킸NA;dNpiNHPA킠r"_N2p"<NC킦N(p"<}NC킲N(pNA킲N -X/?<NN\pN?<wBg?<NN\Bg?<?<NN\pN,A킸NNN\*.a5pHPA HPA킠""_NXHmA "_NJBfN{8A킸NA;dNA킲NHm?<NNT/ <}""_NA킸NAN6NN\*.a5pHPA HPA킠""_NXHmA "_NJBfN{A킸NA;dNHm?<NNT"_NA킲NANA킸NAN6NA킲NNpNHPpAN"_NHPpN"_NNBm <r$<ANANr/ANv&<x*<N&<x*<NXC$NRN`NqNqBm" <r$<ANBm. <r$< A*NA*Nr/tCNRN`NqNqBm. <r$< A*NBm <r$<ANA*Nr/ANvvNlAN^NN^"NSgN}A*Nr/A*NrCNN^/ANrC$NN^NCNRN`NqNqN`\NqNpNHPpLN"_NHP <N"_NHPpN"_NNBm. <r$< A*NNA*NrCNN^NNN`NqNqNp NNNN`nNqA킸NAN6NpN(NzA p0A* p0Bm4A 0A 0Bm" <r$<AN?< ANr??<xANr?~NhANv&<x*<NANۊN`NqNqA$ 0 <r$<A$NANr??< ANr??<~NhANv&<x*<NANۊN`NqNqA* p0A p0A^ 0 <r$<A^NpNpNpNA*Nr/ANr"N0ANv&<x*<NANۊpNpNpNA*Nr/ANr"N0N`NqNqNzNNNNH <r$<L8NAdNۊNfNH <r$<L8NAjNۊAdNr?AjNr?ANrCNv&<x*<NJBfNpN -UgNANA킲NANA킲N`~NNzANv&<x*<NJBfNDN\SgN@NNA*NNfANA*Nv&<x*<NpJBgp/A*Nv&<x*<NpJBgp$fN@ANv&<x*<NpJBgp/ANv&<x*<NpJBgp$fNpN(Bm4Bm:A;dNANv&<x*<NpJBgp/ANv&<x*<NpJBgp$fN@pN(A0 0A6 0A;dN`zNpCNNANANA킲NANA< 0BmA @0BmA퀮 0A0 0A6 0pN(A 0A6NrNAANrC턮ArNANrCHArNANv&<x*<NANۊANv&<x*<NJBfNA큶NrCHNAN^NJBfNA큶NrCHNHANvL8NANۊANr/ANvAN^NC턮NRA큶NrCHNAN^NJBfNA큶NrCHNAN^NANۊANr/ANvAN^NC턮NRA큶NrCHNAN^NJBfNBmANr/ANvC턮NRANrC턮ANrNANv&<x*<NANۊA큶Nv&<x*<NA큶NۊN\N&<x*<NpJBgp/ANv&<x*<NpJBgp/A큼Nv&<x*<NpJBgp$fN|A큼Nr/ARNvCZNRA큼Nr/AXNvCTNRA큼NrCZATrNANv&<x*<NJBfNjA큼NrCZNAN^NJBfN~A큼NrCZNHANvL8NANۊANr/ANvAN^NC턴NRA큼NrCZNAN^NJBfNA큼NrCZNAN^NANۊANr/ANvAN^NC턴NRA큼NrCZNAN^NJBfN2BmANr/ANvC턴NRA큪NrC턴ATrNANv&<x*<NANۊA(Nv&<x*<NJBfNZA큼NrCTNA.N^NJBfNA큼NrCTNHA.NvL8NANۊA"Nr/ANvA.N^NCNRA큼NrCTNA.N^NJBfNvA큼NrCTNA.N^NANۊA"Nr/ANvA.N^NCNRA큼NrCTNA.N^NJBfNBmA"Nr/A.NvCNRANv&<x*<NpJBgp/A(Nv&<x*<NpJBgp$fN"A"NrC턴ArNA"NrCZArNA"Nv&<x*<NA"NۊA큼Nv&<x*<NA큼Nۊ`NNANv&<x*<NJBfNNAPNNNANv&<x*<NJBfNANANrC< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHn 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|"  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8NN6."JgtBn"Nupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?NN<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dNAXJ@jNNuvN)@p `H@)@prtNAHplrtNB 2pNpNpapaprapalpalpalpaTpaTpaTBp'a?<NNT@B){L9|0<rtNpapap9@p`pvNv`v`vj`v `v`v`v`?Aa*` Al 2l 4)lVH)lRprtNAl 2l 4HVNu9Cp rtNAv` Av `Avl 2l 4)lVHN0<}N@& ?<NNC`&?<NNT"@ C <}N`N@((?<NN.?<NNX@LvA HA HNupmrtA)HA)HN(* 9AJA)H@@[000][ˈNV Evz`* [g" ]g |g QSz` zQSpQ][ɈNV Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NHNu*( INVA)H @depd ae zb QB DNVA\)H @ e` ae zb \gQBA BhNpZNA BP"`#|}NA"H0,tg"Hg \f`A\fS A EN@AR@H`2QNur|<NV @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgN0AH@B pN@A NuApN@N$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0Nu _0HpN@ _0HpN@p"_0HqN p"_0HqN E ұeHHQ0)N@$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuN WHNuN VHNu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈNV ENup`(* 0(iN$E 4R`Q$D 4R`QˈNV DNV ENua NuNV IHPg"B  g &gNfJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNRB0 b b瀀`RB0 fрd`2p <0N`QNupC 0(gFd"P$I` *N$E$R(S@jv A(Wf( ae zb Q DNupA` p9`p:`p;?NV>J@fCAHPBHQ?NA\ _JjNNuNVJ@fC )I( BAߨ)Hp9@J9@L9@NpyN DJlrgNrp NHpx$ ld$l`"Hg8" &Ak eѐ S`g"" k#&Aeё2+SAI3 Q&f)I`LNuHRp` HRpJQfpNRNq Y Qfd ЀЀNuNRGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NlldeS@f lbfSl`9Ab9FdNupapqr`p`ak NupNuakfpNupNtddA0oH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNuN<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_Np`pNu)H9@Jp4NP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C\fApNNNrHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Error # ][Abort]\f.B &lX)K\)ld` lp ,BQjNup(N 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 GB| 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 failurep)@JphNLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, N"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .N 0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdN0,r W1@AJ00 piN9|L@NpiN _CL""pe`9| LpiN9|LphNLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfNpgN9| LphN9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjN`A0 0 <r$<A$NNjA0N>Hmp.N0"_NCNN`NqNqHmpN0"_NCNN`NqNq <r$<A NNjA NANVNA NNJBfN3PHmANVNH <r$<L8NjNr"_N~CNHmp]N0"_NCN <'CFNANvNNrN <N0NA3NNrpNFpNJpNNp NANANNJBfN4A C"NA 0A N&<x*<NnAN>Hm"p-N0"_NC"NN`NqNqCA 0NPage: HPANN<"_NCNprNANprNANp.rNA"NNCNHmA "_NngN4`Hmp N0"_NdJBfN5ANzNTJBfN5Fpp@pW?<?<NN\pp@pWBg?<NN\A 0A3NAN&<x*<NTJBfN5pp@pWBg?<NN\pp@pW?<?<NN\BmA3NHmp N0"_NdpJBgp/ANCFNPNVNA NNpJBgp$fN7AN&<x*<NTJBfN6ANvNNrNA NNHPN 4"_NNANvNNrNANCFNPHPN 4"_NNAN&<x*<NnANAN&<x*<NnANNA 0N7ANvNNrNA NNHPN 4"_NNANvNNrNANCFNPHPN 4"_NNAN&<x*<NnANAN&<x*<NnANANvNNrN <N0NA3NHmpN0"_NdJBfN8ANCFNPNVJnN8AN/ANCFNPHPANCFNPNVNH <r$<L8NjNr"_N~CFNrANvNNrNANCFNPHP <N0"_NHPp N0"_NNBmA3NHmpN0"_NdJBfNE,A.NprBN <r$<&<x*<Nn&<x*<Nn&<x*<Nn&<x*<Nn&<x*<Nn&<x*<NnN"<NpNFpNJpNNpN <r$<&<x*<NnNr2NN. 1: SAVE '.A5T' N <r$<&<x*<NnNrBNN. 2: LOAD '.A5T' N <r$<&<x*<NnN/ <r$<&<x*<NnN"NN. 3: KILL '.A5T' N <r$<&<x*<NnN/ <r$<&<x*<NnN"NN. 4: CHANGE RULER N <r$<&<x*<NnN/ <r$<&<x*<Nn&<x*<NnN"NN. 5: ERASE CURRENT TEXT N <r$<&<x*<NnN/ <r$<&<x*<NnN"NN. 6: PRINT CURRENT TEXT N <r$<&<x*<NnN/ <r$<&<x*<Nn&<x*<NnN"NN. 7: EXIT TEXT ED. TO GEM N <r$<&<x*<NnN/ <r$<&<x*<Nn&<x*<Nn&<x*<Nn&<x*<NnN"NN. 0: RETURN TO EDITOR N <r$<&<x*<NnN/ <r$<&<x*<Nn&<x*<Nn&<x*<NnN"NN. 9: RETURN TO 'DTP.A5' NNCNHmA "_NnJBgHmp9N0"_NdJBfN?lHxNYou will lose edits..HPN Leave|Cancelr"_ NpA6NA6N&<x*<NTJBfN?ZN \dtp_a5.prgNN?lA.NA3NHmp1N0"_NdJBfN?AENA.NA3NHmp2N0"_NdJBfN?AF^NA.NA3NHmp7N0"_NdJBfN@rHxNEXIT:| Are You Sure... HPNYes|Nor"_ NpA6NA6N&<x*<NTJBfN@\NrBmA.NA3NHmp6N0"_NdJBfN@AGNA.NA3NHmp5N0"_NdJBfNAHxN ERASE CURRENT:| Are you Sure... HPNYes|Nor"_ NpA6NA6N&<x*<NTJBfNABmAN&<x*<NnAN>AN/A CFNrN`NqNqBm"A 0BmA 0BmNANvNNrN <N0NA3NHmp0N0"_NdJBfNBBmA.NA3NHmp4N0"_NdJBfNEA.NNp r NN Change rulerNNN length to...NNNlA NNNNN Tab spaceingNNNis A$Np.NNNNNew spaceing is...NNNlA$Np[N0CNA* 0A$NA NNNA*N>A0 0 <r$<A$NNjA0N>Hmp.N0"_NCNN`NqNqHmpN0"_NCNN`NqNq <r$<A NNjA NANVNA NNJBfNDHmANVNH <r$<L8NjNr"_N~CNHmp]N0"_NCNA C"NA 0A N&<x*<NnAN>Hm"p-N0"_NC"NN`NqNqA.NpNFpNJpNNp NprNpPNNprNpPNNp.rNpPNNprNANprNANp.rNA"NBmA3NA.NA3NAN/ANCFNPHPA"_NCFNrANCFNPHP <N0"_NC(NANvNNrNHm(N "_NNBmA3NN)|3 pNANCFNPNNN`NqNqpNfN)|3 NANCFNPNNN`NqNqN)|3 NANCFNPNNN`NqNqNpNNN Setup or useNNNdefault..(S/D).:ArNANCNHmpDN0"_NdJBfNINpN0HPp-N0"_NNpN0NNpN0HPpWN0"_NNpN0NNpN0HPpFN0"_NNNpN0HPpxN0"_NNpN0NNpN0HPp5N0"_NNNpN0HPppN0"_NHPpN0"_NNNNpNNNAnswer Y or N..NNNNNNNItalic..NCNANCNHmpYN0"_NdJBfNJNpN0HPp4N0"_NNNJNpN0HPp5N0"_NNpNNNAnswer D or N..NNNNNNNDraft/NLQ..(D/N).!NCNANCNHmpDN0"_NdJBfNKRNpN0HPpxN0"_NNpN0NNK|NpN0HPpxN0"_NHPpN0"_NNpNNNAnswer Y or N..NNNNNNN Prop.Spc... NCNANCNHmpYN0"_NdJBfNL,NpN0HPppN0"_NHPpN0"_NNNLVNpN0HPppN0"_NHPpN0"_NNpNNNAnswer Y or N..NNNNNNNBold..NCNANCNHmpYN0"_NdJBfNLNpN0HPpEN0"_NNNMNpN0HPpFN0"_NNpNNNAnswer Y or N..NNNNNNNDouble Width..NCNANCNHmpYN0"_NdJBfNMNpN0HPpWN0"_NNpN0NNMNpN0HPpWN0"_NNpN0NpNNNAnswer Y or N..NNNNNNN Underlined..NCNANCNHmpYN0"_NdJBfNNNpN0HPp-N0"_NNpN0NNNNpN0HPp-N0"_NNpN0NNNr3>J(@V$jfnFPr|",0",,,,GfABASIC ((  \1466677777999o|ANDUMMYRBYUXCFPRXRYXBOXYBOXXLYLXPBYPBXRYRXEYEXPOYPOXCYCXVYVITSCREENSCREEN1ILLRESREZRESTSZF0FSTJTA120GHHGZGBSGJBKVWKEY_ASCX1Y1X2Y2ABCHJKBOPXBOX1YBOX1XP0YXFGHTIOPSXSYNSXNSYQXQMLMODEHMHMXD1QAQBQCCOLORYNMYNGYNMXMYIOPTYUWAWBVMVMXYMXF1JEXAOLDXOLDYLKEXEYYNBXLLYLLLINIMODBLOKIEBLOCKIEFILLLITBOXPBOXRBOXDRAWLINEKLINEELLIPSECIRCLEPELLIPSEPCIRCLEFILLITFILLOMX UNDERLINEDLIGHTBOLDITLAICSTEPBX1BY1BX2BY2FRAMEFROMANIMPORTALNORMALITALIC UNDELINEDNORMBOLUNDITALLITBORDEREDBORDNORPTSPTSMENIIIIIDDFGDGHOMYPPPPPDX1DXDYNOMOANGDLFILECOLSCRSCREEN1SCREEN2KEYINMENUFILENAMEBOXSCREEN3SCREENINPUTOUTPUTCL DUMMYVARIABLETEXTSCREEN4TEXTBOXJKLIOPBLOCKIEBLOCKSCREEEN1SCREEM1SCEEEN1CREEN1SCREEN5S1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20SWAP1SWAP2SSWAP12MARKONAGINPMFILXGRINONGRIDMARKOGRIDONYNFISCRNZFSCR1DIFSSCRNYBITOFILESDDDFIELNOTGDATETKEY_ASCSCRPXBIOSXYXAYAXBYBYCXCXDIYDIX1Y1X2X3Y2Y3C1C2C3XX1YXAXX2XX3YX1YX2YX3XXXB3BX1BY1BX2BY2NY1ACOLCLBJXYCFTEXTSRTBLOCKJIGSAWCLEARITDRAWSTARTMAINSAVELOADSAVLOADIMENMGMFGHJKLMENUINGOINFOLOADLOADNEOSAVEBSAVE CHANGE_COLORCOLORS SETUPCOLORSDUMPELLIPSEELIPSECIRCLEIFSTARTONETWOTHREEFOURFIVEPELLIPSEPCIRCLEFILLBOXPBOXRBOXDRAWLINESLINESAVENEO CHANGEPAT SETUPPATSOPEN7RETURNTEXT CHANGETEXTSETUPTEXTCHANGERDFGUPDATEBLOCKBLOCKIEBLOKIEJIGGOPLAYITPLAWITENDFJIGITRJIGITSWAPITENDITWOW SETUPCOLOURSCLEARITSMAINVIDISYSVIDSYSVOIDVYSNCVALCVFGRIDGRIMARKERSPOLYMARKDIMENRESCALESAVLOAREUTURNR2R3MIRROREDITEXITESLEMOVEERASEMOVE2FGHJEDIFQADRAMENU2MENU1DRNDIFKLINEMODDEFMOUSEMERKERSHANDLERPAUSEGETFRAMEFROMANIMPORT IMPORTA5T IMPORTA5PIMPTXTTXTFRMERASEFRMUPDATEITMOVEFRMNEOLOADGETAFRAMEFROMANIMPORTPMOVEFRM PERASEFRMROTATESETDATE PUPDATEITCOPYFRMFIOLESYFFGEF}EFEPPFE F~EFEFEF a!! !G!FFAF $!!!F$a!!a!GF* F*`` FEFV*\\ !zz !< !zz !!zz ! zz !"zz F,F+F EF  E DTP.A5 F  E---------------------F E1F E2F  E3F@ E4F` E5F E6F EF-  EFileF- 0 E Import *.A5P FC @ E Import *.NEO F P E----------------F ` E Import *.A5T F p E Import ASCII F  E----------------F  E Load A5 Page FF  E Save A5 Page FF  E----------------F|  E Print Page F| ( E----------------F 0 E Erase Page F^8 EFu@ EFrameF"H E Erase Frame F"P E Move Frame F"X E Copy Frame F"` E Rotate Text Fh EFop E Text SizeFx E 4 pts F E 6 pts F E 10 pts F E 12 pts F  E 13 pts F E 18 pts F E 26 pts F EF6 E Text StyleF  E Normal F$ E Bold F( E Light F, E Italic F0 E Underlined F4 E Bordered F8 EFo< E Change....F &@ E Wierd Draw Vr. 5.1 FD E Text Ed.A5TF&H E----------------------FL E Set Date FP E Set TimeF-T EFeX EFe } F MfFa!!FF FF!F nF4!F nF4!F F nFY !F F nF !F F n}FF0!F F oFF,!F F o8FF$!F F oV~FF(!F F ot}FF0!F F oFF,!F F oFF$!F F o~FF(!F FvLF"(!!!PF'k!`!8 ~F(!!!FF'!H!TextF'!R!TEXTFu $!!!F$a!!a!GFFFpF.F+FFE FF qBLF date (Yh!p "Enter new date..F$Yh! " (DD.MM.YYYY)"F` !BFk8!BFMF F qPF time (Yh!p "Enter new time..F$Yh! " (HH:MM[:SS])"F`!MFkM!~FaMF F rP@FaF)!*Leaving to WD.5 would| destroy your page..!! Leave|Cancel!F rBFg9\wd5.prgFc rLFMFF F F rDFaJ)!.Leaving to Text.Ed would| destroy your page..!! Leave|Cancel!F rFg9 \texted.prgF rFxMFF F F s(F.:)!%DTP.A5...|COPYRIGHT 1990|by JAMES COX!!CLICK!Fm F sDFF,F F s`FF,F F sXFy,oFMF F sPF,gFMF F s`Fa,lFMF F s@FF,hF,`F F t  F-, FMF F t,HF,eFMF F t\`FDE\*.A5TFMcF\MF\ F tpF DE\*.*FMcF\MF\ F txFaEFExxFMF F tFaE@@FEFMF F u2FaE FEFMF F ujFaEFE@@FMF F u FaE FEPPFMF F uFaEFEFMF F vFaEPPFEFMF F v(Fa vP~F~EFEFEFMF vF~~EFEF$ v~}FEF FMF F F w&4Fa vFEFEFEFMF w"FEFEF$ w~}FEF FMF F F w0Fa wl}F~}EFEFEFMF wF}EFEF$ w~}FEF FMF F F xB,Fa wF~EFEFEFMF x>FEFEF$ x4~}FEF FMF F F x$Fa xF~EFEFEFMF xFEFEF$ x~}FEF FMF F F y, FaEFEFEFEF}EFEFEFEF~EFEFEFEFMF F z0FsF)!1Are You Sure... | You want to |erase your page!!Yes|No!F zF YFAFAF FF! FF FF" FF FEF EF>*zz !zz ! zz !"zz !!zz F FMF F zT0Fs()!Getting an *.A5P..|!!CLICK!F MbFG F.F+cF\*)!Getting *.A5T / ASCII!!CLICK!Fz fD!!F { F 7u!M!Fz EGF  EF z FGEFvLFF EFvLF :M! FF zrM FF8FMdF F.F+`FREFF {@RFMFR F {RFF|EPFEQF  E|F  EF { FEF F {RFF#F {P Q  F !  !P!QF FF F |6RFF|EPFEQF ! E|F " EF  !  !! !" ! F { FEF F |JZF{,FF }F! |nRFMFR FAFa!!FFa!!a!GFP!Q! !`F }RFP!Q! !`F }!  FE!  F }F!E ! F F }@"   FE"   F }TF"E  " F F  EPF  EQF }"   F" E  F }F!" E  F F }!  F! E F }F!! E F FEF F F ~ZF|NFB EFF @Updateit Fa!!FF,F.F+bFf\*.A5P!!F. ~pFAF,F FvLF ! FFF,`F .F+dF%F! ! !GFN%F!0! !FFN%FE ppF(!!!FFVEGF(' !##@@ ! F $FGF0,`F0.F+gFEFEGF! !  ! !" F(!!!@F' !  !F2'! !" !F2 FG(!!!FFF$Yh!p " Enter no. ofFn&Yh! "frame to move..F.Yh! "(999 to return to menu)FYh! ".."F:FJ y F"AFFMF FEFF RFMFR F PF!AFP!Q! !`FF LRFP!Q! !`FF D!  FE!  F XF!E ! F F "  FE"  F F"E " F F  EPF EQF"" E F! E FYFF EGF  F ! ! !`Fo FAF  FG ! ! !`F AFEF F F dZFFB xZFF!MFZ.F+eFEFEGF! !  ! !" F(!!!@F' !  !F2'! !" !F2 FG(!!!FFF$Yh!p " Enter no. ofFn(Yh! "frame to erase..F .Yh! "(999 to return to menu)FYh! ".."F:FJ y F"AFFMF FEFF RFMFR F()!Erase this frame...!!Yes|No!F jF  EF EF " EF ! EF  EFMfFEEF tFMFE F ZFFB ZFF!MFZ.F+ Fo")! Print Page..!!Yes|No!Fy d FFFAF a!!FF;BX AB` "FsJEG`Fo E #` F (FVEGHFlEG Fi  EF rFEG FtEG`Fi \! JF E  F F F F ;BX LB B "Fa@EG Fi ;B "F *FF ;BP F ^FfMF  nFMFF F.F+F  On Error Gosub Menu u )! Storing *.A5!!CLICK!Ff\*.A5!!=F 7O!M!=F2 EGF On Error Gosub Menu u M! F M! F M!! F M!" F  FFM!COF EF8MFCFAF IEA Fy On Error Gosub Menu eI! !zF @Updateit FMFg.F+F )! Getting *.A5!!CLICK!Ff\*.A5!!=F = FYFAFAF FF! FF FF" FF FEF EF>*zz !zz ! zz !"zz !!zz F Fil$=Mid$(Fi$,1,8)  EF 7I!M!=FF On Error Gosub Menu :M! FF  Fd IEA FF I Fd I! FF F()!Main File Not Found!!Uh Oh!FMFM FAF  F Z COF :M! F :M!! FF :M!" F  ! !! !" ! F E FE FF*8MFMF FMF.F+hF")! Getting *.NEO!!CLICK!Fzf\*.NEO!!F x FvLF 7I!M!FE_!M FE_z!M F8MFFz@!z  Fa F6!n F6p!F F.F+lFYFFFF:4 Enter a 40 character long text/number string...FF2- [...^....^....^....^....^....^....^....]F  :"F` !KFWEFYFF Q VF pQVF lWa FWEWa FYF F F QVF WFWEWa FYF F FVEQF F(!!W!F'H!H!KF ZRF*FFZ { F,`FZAFFMFZ.F+fFEEFYFF Z!  FE!  F nF!E ! F F "  FE"  F F"E " F F" E F! E FF ! ! !`F AFEF E FF EFF0F.F+oFEFEGF! !  ! !" F(!!!@F' !  !F2'! !" !F2 :FG(!!!FFF$Yh!p " Enter no. ofFn&Yh! "frame to copy..F.Yh! "(999 to return to menu)FYh! ".."F:FJ ny F"AFFMF FEFF RFMFR F ^F!AFP!Q! !`FF ZRFP!Q! !`FF !  FE!  F F!E ! F F GfABASICHHHLZZZ`jPXXXIJRLHOPPJTABSPPPALTRUEFALSEBIOS_REZMREZHREZ SCR_ORG_X SCR_ORG_YREZ SCR_MAX_Y SCR_MAX_XW_GETW_SETW_CALC TOP_MARGINWFULLOLD_FULXOLD_FULYOLD_FULWOLD_FULHWATTRIBSWCLOSEDWFULLEDWARROWEDWHSLIDEDWVSLIDEDWSIZEDWMOVEDWGUESS SLID_HORZ_POS SLID_VERT_POSSLID_HORZ_SIZESLID_VERT_SIZECHAR_CELL_WIDTHCHAR_CELL_HEIGHTTXT_CHARTXT_LINE TXT_WIND_W TXT_WIND_H TOT_TXT_LEN TOT_TXT_LINESATTRXPOSYPOSWIDTHHEIGHTWXWYWWWHMAXYWMARKI1WTEMPHTEMPXTEMPYTEMPMENUEXITOMXOMYMMMMPNIIIOPNINVERTEDINVEREDTLZHDIAKFILENAMESDSUPAGEJKLRTYSCRCHRADTESTTEXRSTARTSTARTFSTHSAVELOADKILLOFFPRINTOUTPRINTSETUP MSG_EVENT OPEN_WINDOW SETWINDFULLPAGE_UPPAGE_DNROW_UPROW_DNPAGE_LTPAGE_RTCOL_RTCOL_LTSETHSLIDSETVSLID SETWINDSIZ SETWINDMOV CALC_VERT_POS SETWINDVSLID DRAW_WINDOW CALC_HORZ_POS SETWINDHSLID CALC_TXT_WIND SIZE_SLIDERS CALC_HORZ CALC_VERTEXITWHILEENDFSTREFEFKEFMEFE FE FPEF!E[FcEG# F.cEGF E.F cFFEB~ F cFF EF# d6 FE?@@6  F Rl=Rl-1  F E]F*< F'!!B< FMF +FF(!!!PF dM KF EFdLEGF E -FF dLFFMEKF EPage: AK F'!! F'!p!F'!8! F FFESF eZF"dF eB F efNF!6!`!`!`F 6!!!FNEFMF F eNF!6!`!`!`F 6!!!FNEFMF! F F fBPP 6 FF fD8F'!!  F'!!  F EF KEKFYFEF fF'!!  F'!!  F EF EF F'!!B< FMF F g.B F g*6 F E? @@6  FF$'!! B<  FJEFMF F F oBXX F F T!p!k!  F(!!!@FL' p!H!. 1: SAVE '.A5T' FL' p!!. 2: LOAD '.A5T' FT' p!!. 3: KILL '.A5T' FT' p!!. 4: CHANGE RULER F\' p!!. 5: ERASE CURRENT TEXT FT' p!!. 6: PRINT CURRENT TEXT F\' p!!. 7: EXIT TEXT ED. TO GEM Fl' p!!. 0: RETURN TO EDITOR Fd' p!!. 9: RETURN TO 'DTP.A5' FFESF jF kV9F0)!You will lose edits..!! Leave|Cancel! F kB Fl9 \dtp_a5.prgF kRFp FFMFF F F k1Fr,F Closew 3  FMF F k2Fr,F Closew 3  FMF F l27Fe,)!EXIT:| Are You Sure... !!Yes|No! F l F F FJEF Closew 3  FMF F lf6Fe,F Closew 3  FMF F m>5FT6)! ERASE CURRENT:| Are you Sure... !!Yes|No! F m FolEG# F  EF lFEFKEFMEFEFc FJEF Closew 3 YF'!!B< FMFF F mr0FTJEF Closew 3  FMFF F o4FT Fl$Y !  " Change rulerF length to...F:FF Tab spaceingF is "".FFNew spaceing is...FD:FwE[FndEG# F.nHEGF E.F n2FFEB~ F n"FF EF# n6 FE?@@6  F Rl=Rl-1  F E]F EFnLEGF E -FF nLFF Opn=Pn  Page$="Page: "+Str$(Pn) F F (!!!PF'!!  F'!p!  F'!8!  F'!! F'!p!F'!8! FJEF Closew 3  Sput Scr$ eMF F Closew 3  FnMFP F E F E B< F '!!  FJEFMF.F+FvLFf\*.A5T! UNTITLED.A5T!F 7o!M!FpEGF M! F p~FG8MF!.F+FvLFf\*.A5T! UNTITLED.A5T!F 7U!M!FEFF :M! F EFF q ZrM FpF8MFYFq4EGF F q"FG.F+FvLFf\*.A5T! UNTITLED.A5T!F,)!KILL:| Are You Sure... !!Yes|No! F q FoAF F.F+F,)!PRINT:| Are You Sure...!!Yes|No! F r F|, FrEGF; F qFG F.F+ FZF Setup or useFYdefault..(S/D).:"F`!F E F. rDF5;BX -"B "FF;BX W"B "FF;BX F"F;BX x"B "FF;BX 5"F;BX pB "F" uFZFAnswer Y or N..FFF:Italic.."F E F sNYF;BX 4"F sdF;BX 5"F FZFAnswer D or N..FFF:Draft/NLQ..(D/N)."F E F sDF.;BX x"B "F" sF;BX xB "F" FZFAnswer Y or N..FFF: Prop.Spc..."FF E F tXYF;BX pB "F" trF;BX pB "F" FZFAnswer Y or N..FFF:Bold.."F E F tYF;BX E"F tF;BX F"F FZFAnswer Y or N..FFF:Double Width.."F E F uTYF;BX W"B "FF unF;BX W"B "FF FZFAnswer Y or N..FFF: Underlined.."F E F uYF;BX -"B "FF uF;BX -"B "FF F F.Ft  $  ((=}xdTp>pq>qr`rv!".|-N B&B&B&B&#xa23% #3 $#r'a3% ?<NNT3 ?<NAT<A g y g2<*| Z` 2<*| b0<z(| z8Q*| za&# *h<#L *mT#L y g*i*<` *i*<*mL(|(Q#B$a**|(|Iz gR` M fQ # "¼ AU"f# *| ^Ba0kN3 *| zFa*a@*| 9D g" 9d g 98 fa`a## ,'ar y( ,f09 4y f?<NAT3 ?</< |?<GNAP# j aBy a y f ab`& y f a"` y fa3 a?9 ?<NAX/< |?<;NA\(y ( `*(y (W | ga\J9 fNu y%gNu*| Bak3 *| *<akza(|*|z_ y g@ | Jhf*|:<a^`NAXJ@Nux6:6:QQNu$| rBZQNu# a## '# 'aB y <A??<NAX y T"|  4 : %@ jFONT.DEFA:\*.FNTA:\*.FN8    &           N   N  0 &        H #a000000 #b000000 #c7770007000600070055200505552220770557075055507703111103 #d #E 1B 03 #W 00 00 0C 01 20 09 08 A:\*.*@ #W 00 00 2C 01 20 09 08 A:\*.*@ #W 00 00 00 0A 21 09 08 A:\*.*@ #W 03 00 1E 09 32 0F 08 A:\*.*@ #M 00 00 00 FF A DTP A5....@ @ #M 00 01 00 FF B THE ONLY ONE@ @ #T 07 07 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@ @ <"  FE"  F PF"E " F F  EPFB  EQFB" E  F! E F E FYFF For P=0 To I  If P<>No & Put Bx1(P),By1(P),F$(P),7 F Endif B Sget Scr1$  Next P  !  ! !`F7 EFAFEF F F rZFxFB ZFF!MFZ.FP@@     @xJCO@B} n}r% :(TXLDhpx{"~Bz^~"l&NN>CpNN ANCdNN?ANCjNN?ANC톲NHPp _"NAXNA @0AAANA퀮N&<x*<N>ANNJBgNNB=4J, ,,,,d(b(~((t(( ( ( ( ( ( ( ("("("("("("("(& (& (& (& (& (@((BrR*2Jl(B^:j:4l4nH@ "`@ (>^:j:& @ fl&& th $r6Z tf$D$B:j:8AN~A N0N8NpANpNAHNABNNڂANNNڂATNNڂAZNNڂAfNNڂNNA NNArNN <"<NA텚NDNfSWHgNt`pANp NNAWHN`A^NA=HN`NBmN8ANCvNHANCjNL8NJBfNu@ANCvNHANCjNL8N~A탴N0NutANCjNHANCvNL8N~A탴N0ANC|NHANCpNL8NJBfNuANC|NHANCpNL8N~A탺N0NvANCpNHANC|NL8N~A탺N0AN/ANCpNA탺NNڂC|NAN/ANCjNA탴NNڂCvNN ANCjNN?ANCpNN?ANC톸NHPp _"NVA^NA @0A^:j:& @ fl&& th rr,B6 tf$D$F:j: (>^:j:&  E6F EF-  EFileF- 0 E Import *.A5P FC @ E Import *.NEO F P E----------------F ` E Import *.A5T F p E Import ASCII F  E----------------F  E Load A5 Page FF  E Save A5 Page FF  E----------------F|  E Print Page F| ( E----------------F 0 E Erase Page F^8 EFu@ EFrameF"H EANpNANrC턴NNNpNANrCTNNNN`NqNqBmANvANpNANrCt2fdNNN^NuNV>"NNN^NuNV>NAN^NuNV>?<NAN^NuNV>?<NAN^NuNV>NAN^NuNV.?< NAN^NuNV.?< NAN^NuNV>?<NAN^NuNV>NAN^NuNV>NAN^NuNV>*NAN^NuNV>?<+NAN^NuNV>,NAN^NuNV>?<-NAN^NuNV> /.?<6NAN^NuNV> /.?< /.?<=NAN^NuNV>?<>NAN^NuNV./. ?.?<?NAN^NuNV./. ?.?<@NAN^NuNV.?<ANAN^NuNV.?<HNAN^NuNV.?<INAN^NuNV. /.?<?<JNAN^NuNV>/NAN^NuNV.?<NAN^NuNV> /.?<NNAN^NuNV>ONAN^NuNV./. ?.?<VNAN^NuNV>?. /.?<WNAN^NuNV>?<NMN^NuNV>?<NMN^NuNV> ?.?<NMN^NuNV>?<NMN^NuNV> NMN^NuNV>NNN^NuNV>NNN^NuNV>NNN^NuNV>/. /.?<NNN^NuNV.?<NNN^NuNV> ?.?<NNN^NuNV>NNN^NuNV>%NNN^NuNV.?<&NNN^NuNV>?.?.?. ?. ?.?<NNN^NuNV.?<NNN^NuNV>NNN^NuNV> /.?<1NAN^Nu?/?<LNANu#. "< psNBNu0/2/ҀgV 4<eHA4<|cRBA`B6<c4BfSB2C|gAC8be0Nu4`6`0Nur0/jDA4/BjDADB/&HCCjDCCBmA&Nu0/@kR@`S@@Nu0/@R@@Nu# aF3,pN^NuNV>a*pN^NuNV#V>NN^NuNV3# V>4NN^NuNV3# V>#NN^Nu [0][Available RAM: 0000000 bytes][ OK ] Free RAM sizevf  &8  $   xxxxxxxx`dMbOAC C!IC!IC`!I C!IC!Ia ?<NATa`T=|=|-|-|-|-|a=n`=nA-HaZ=n``A-H=|a0. @(f0.İnfMa`=|A-Hab=|A-HaP0.`S@=|A-Ha82.`=|A-Ha" n`gDA=A=@Nu?<"NNT @-@C#hC!INu n!y$NuHMkL nD((fJg2HHJng4jDB4jDB@AL@N4VxHA" <NBLNu=|#=|=|=|Bn`=| Bn=|BnBn`B?< NA\-@Nu/.?< NA\Nu=|4=|=|=|Bn`p=|=|=|=|Bn`P Mouse Tools[0][ MOUSE TOOLBOX| | Written by:|Anthony Dervish| ][SETMOUSE][0][Select Major Character| ][LINEAR|QUADRATIC][0][Select Velocity| Factor| ][X1|X2|X3][0][Select Direction Mode| ][NORMAL|REVERSE] nFY !F F nF !F F n}FF0!F F oFF,!F F  DTP.A5 MANUAL ------------- A program for all ST computers with a monochrome monitor.... This program was written and compiled using GFA- SYSTEM II by James Cox. This program is ShareWare. (If you like it and still use it after a trial period, send a donation to the address at the end of this manual.) HISTORY ------- DTP.A5 was initially going to be a label printer, allowing you to paste text and bits of pictures onto a small area so you can print it out...It came out at what it is now, a cheap DTP package that's accessible to everyone! If you have used anything like Timeworks or even Easy Text then you will notice that this is not a professional package to create a weekly newsletter with! I use it to create leaflets advertising new PD programs in my Public Domain library when I send new catalogues out. What ever you use this package for you will have loads of fun using it. SPEAKING OF USING IT, HOW! -------------------------- I tried to make this package as easy to get to grips with as I could and I tried to get as many bugs out of it as possible but there may be something I missed so please write to me if there is. Firstly there's one thing I must get straight with you: The left mouse button does most of the work so I call it the action button. The right button, however, cancels most operations involving frames so I call it the Cancel button. When you first load up you will notice that the desktop is slightly different to the norm. The windows only display program files except for one which displays page files (*.A5) This is so you don't get millions of files floating around all over the place. Double click on 'DTP_A5.PRG' to load-up. You will be faced with the main screen. This is where you page will be shown and the text style/size status. The should be a menu bar at the top and some writing to the right of the screen - TEXT - and just below it -Text- that is in the current style and size. If at any time part of this is missing then move the mouse down and click the action button. This should resolve the problem. The first thing I will teach you is how to change the text style, size and font. If you looked at the -Desk- menu then you would have noticed that there is an accessory installed called -FontTrix- This is also PD but I didn't write it. You can load Analogue or Degas fonts using at. (NOTE: After usage, the screen has an ugly grey rectangle in the middle of the screen, to remove it select one of the font sizes and the screen will be updated.) To change the font size, go to the -Text Size- menu and you will see different point sizes and a tick by the current one. Experiment with the different sizes so you know what's available. To change the style, go to the -Text Style- menu and there should be different features to choose from. Experiment with them so you know what's available. to return to normal style, select -Normal- and the font style will have no added extra's. Now, we will import a picture, so go to the -File- menu and select -Import *.NEO-. After a 'Tell you what's goin' on box' there will be a file selector box allowing you to load a picture file. Enter the Clipart folder and load one of the tree pictures there. (NOTE: After a NEO import, press any key to continue) clicking once with the action button will activate the top-left corner of the frame you are cutting to appear at the mouse position. Moving the mouse will enlarge the area you are cutting. When you have enclosed part of the picture with the box, click the action button and you will have cut that frame. The new frame will now be flashing at the mouse' position. You can move your frame until you are satisfied with its position, at which you click the action button to paste it. (NO#a000000 #b000000 #c7770007000600070055200505552220770557075055507703111103 #d #E 1B 03 #W 00 00 0C 01 20 09 08 A:\*.PRG@ @ #W 00 00 2C 01 20 09 08 A:\*.PRG@ @ #W 00 00 00 0A 21 09 08 A:\*.A5@ @ #W 03 00 1E 09 32 0F 08 A:\*.DOC@ @ #M 00 00 00 FF A DTP A5....@ @ #M 00 01 00 FF B THE ONLY ONE@ @ #T 07 07 02 FF SHREDDER@ @ #F FF 04 @ *.*@ #D FF 01 @ *.*@ #G 03 FF *.APP@ @ #G 03 FF *.PRG@ @ #F 03 04 *.TOS@ @ #P 03 04 *.TTP@ @ f pictures onto a small area so you can print it out...It came out at what it is now, a cheap DTP package that's accessible to everyone! If you have used anything like Timeworks or even Easy Text then you will notice that this is not a professional package to create a weekly newsletter with! I use it to create leaflets advertising new PD programs in my Public Domain library when I send new catalogues out. What ever you use this package for you will have loads of fun using it. SPEAKING OF USTE: You can cancel this operation and return to the menu at any time with the Cancel (right) button.) There is another picture file that DTP.A5 can handle and that is an A5P file. (*.A5P) This is a special format that Wierd Draw 5.2 uses. You can import them in the same way you can with the NEO pictures. Lets import some text now, so go to the -File- menu and select, -Import ASCII-. A file selector will appear allowibng you to load ASCII format text files, like this one. Load up -DTPA5MAN.DOC- and before your very eyes, this file will be displayed, well the first page of it anyhow. Now you cut a frame in the same way you did the pictures. A hint for cutting frames: When you cut a frame always take only what you need for that frame, ie. with as little border around is a possible. When the page is re-loaded you will find that the frames may have been corrupted where they overlap. If you want to save or load a page then select the appropriate option from the -File- menu and a file selector box will open. To move a frame or copy or erase one, select one of the functions from the -Frame- menu. If you selected either -Erase, Copy or Move- then type in the frame no. of the appropriate frame and re- paste it (Move or Copy) or select -Yes- from the alert box to erase it. (NOTE: The frame no. will be displayed in the top left corner of the frame.) If you selected -Rotated Text- you will find you have to type in a sentence of up to 40 characters in length. When finished, press return and your text will be displayed at either 0, 90, 180 or 270 degrees. Moving the mouse up and down selects the angle. Click the action button and the cut and paste your text as with the pictures. Before you start diving in at the deep end and making your own new pages, practise using this package and have a blank formatted disk ready so you can save you work when you do get going. (There is no more room left on the Master Disk.) To move to a different package, ie. Wierd Draw 5.2 or TextEd.A5T select the package from the -Change...- menu and you will be transported to a different package. WIERD DRAW 5.2 -------------- This package is a direct upgrade of Wierd Draw 4. This is a more professional package using the left mouse button at the action button. To return to the Menu at any time press the F1 button and it will suddenly appear! The undo function is F2. Everything on this package is very straight forward so you shouldn't have any difficulty in using it. You can load *.NEO and *.A5P picture files but you can save only in *.A5P files. If you wish to load *.A5P files in GFA BASIC then use: Bload Filename$,Xbios(2) Sget Scr$ to display it type in: Sput Scr$ To change the colour select Change Colour from the -Change..- menu and the colour displayed in the menu bar will change. Remember: Left button is the action button. F1 returns to the menu at ALL times. (Even whilst selecting a pattern or changing the text.) VECTOR 2D --------- This is an extra for WD5. You can draw objects (3) with aid of mirrors at any place on the screen. Select -Draw objects- to plot out your object for the current mode no. Changing the mode no. with change to edit the second object and so on. You can also have a grid on the background to help you if you wish. There are two demo *.VCT files in the VECTOR.2D folder. TEXTED.A5T ---------- This is a SIMPLE TEXT EDITOR. It is not a word processor. You can create simple texts to place on your DTP.A5 page. Press escape to get a menu- Erase Text, Load Text, Save Text, Change ruler, Return to DTP.A5, Return to GEM etc... Press any key to cancel and return to the editor, else press the no. the command is next to that you want and thy will be done! (The is a secret way to invert the screen colour, try and find it!) Well thats it. A simple way to create reasonable pages for that leaflets you have to get out on time! Please send details on any bugs you find, donations to this address: Mr. James Cox 21 Coronation Ave. Long Clawson Melton Mowbray Leicestershire LE14 4NF -------------------------------------------------- Please support this program so I can make it better and better. There isn't one desent PD DTP package that comes to my mind, do support the only one! Thankyou.