Wp  /@o! #@%`')+-/1 O9;=?A C@EIKMOQ S@U`WY[]_aOe`gimoq s@u`wy{} O/ ` @ ` @ ` ` ǀ ɠ / ׀  O` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMO/Y[]_ /@o! #@%`')+-/1 O9;=?A C@EIKMOQ S@U`WY[]_aOe`gimoq s@u`wy{} O/ ` @ ` @ ` ` ǀ ɠ / ׀  O` @`!Aa   !Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMO/Y[]_AUTO oDIV_DEMO oRCS  oSPRITEED oCTRL ACC oN)NDESKTOP INF b EMULATORACC ocEGEM LIB ok6\GEMDEFS BAS o GEMDEMO BAS oRGEMDEMO RSB oGEMDEMO RSC oGEMDEMO RSD oKGEMDEMO2BAS o GEMLIB BAS o7GEMSEL BAS o0GEMSEL DOC o| GEMSEL RSC oIS_DEMO BAS o0 IS_LIB BAS o$IS_LIB DOC oMK_DESK BAS oOM-BASICPRG o$PROTECT BAS oQREADME DOC oS. o.. oSTE_FIX PRG o.  o..  o3D BAS oBALLS BAS o DRAW BAS oERATOS BAS oF-TASTENBAS oFIGUR BAS o FILES BAS o0TEXTPGM1BAS oTEXTPGM2BAS o. o.. oRCS BAS ov\RCSDEMO BAS o3RCSDEMO RSB o5RCSDEMO RSC o6RCSDEMO RSD o7]READ_ME DOC o8jR_TRANSLBAS o<&TEST DEF oFTEST H oG)TEST RSC oJ` . o.. oRAHMEN SP2 oT@RAHMEN SP4 oURAHMEN SP6 oVSPRITEEDBAS oWSPR_DEMOBAS o^`:` f`dJxfA`A P=f" hmBCzp f8QP`, P?f J9g##/|vByN"m y #f EgQ`R( yNJDESKTOP.INF&o k  Ј<.@// ?<?<JNAO aBg/<?<1NAJ/ / B@rC02 x$f*`0 _INFf2` _MCHf fpRPH$fJ@f2`p$x )g2`\o _INF!|PHBpЁ!@`: xC!` $HPH&IPI&& f"_INF#|PIB#|(&_$_NuA8NA NZ090g A#NH090D@HA pN0A+N&090gNAp!N#rNu?<NA/?< NA\ONu/ /??<NMPO @$_Nu/ /?<&NN\O$_NuDESKTOP.INF patch installedalready installedthis machine is not an STEthis STE ROM version does not need the patch ERROR: . mytrap1main_StkSizeerrno0Pterm0dmsgCconwsjstartt1savercookie_jvalidate:SetexcvSupexecMADMAClongframjmp_abs_NFopen=opcodeFO_filenFO_modeFread?FR_handlFR_countFR_bufstartupsuptrp gheadplstkchkfnckreadDdeskinftstb4gotopennoreadjreadbufsaveretmungeitvxmunggetbytnxbytgoteresendTpaStartTpaEndTextSegSTextSegS DataSegSDataSegSBssSegStBssSegSiDtaPtr PntPrcPt$Reserved(EnvStrPt,Reserved0CurDrv7Reserved8CmdLineBasePage> h""   <f@l* : B F H Z`tDJvDZ !"#$%&:'BDA-Z0f$L|#"@" 16-Farb-ModusL|#"" 4-Farb-ModusL|%"" schwarz/weiss" """""P "-$" (","$0"(4" 8" <"2%@"D"HL"@P"DT"L$<X"P\"L`"P(<d"Th"`l"LPpt"TXpx"\`p|"dhpL>P>l?T>X>t?\>`>x?d>h>|?LPTXdh\`LPD"D(<D H@"@$<D"@  HU  p@D"@D@"@Ő@Ő65@5D"@,"D0"@"4D"^846CX"3"`PhXʍLPTX 3"`PhXʍ\`dh CX"4o",6@JVbnx (6>HR^lvWHXAXEYAYEZ0ZFPHIDX1DY1DXDYCOSPHISINPHIANZLINXYNOCHMALX1Y1X2Y2X3Y3X4Y4Z1FNFUNZ2Z3Z4CALCLOESCHENENDEFNFUN2ZSXSYSZI pd$Jr  6 N \ r8Vbx6^l~X !"#$% &2'D(H)t*z+,-./N0123485:6^7v89:;<8=^>~?@ABC D FE HF G H I J K L M N O  N~"N~"& f fc0b1EDAS gibt es jetzt nicht mehr:'BITTE WARTEN...',OMIKRON-BASIC hat Multi-Tasking-Fhigkeiten.Hier kommt einigesBLA-BLA,#weil man jetzt WIRKLICH warten mu,weil der Interruptzu unregelmigkommt.&" = "\ Das Linien-Programm und diese Laufschrift werden im Hintergrundprogramm bearbeitet,  " Vwhrend das Hauptprogramm eine Grafik-Demonstration berechnet, die in 16 Bildschirmen  " abluft... $d"X"CX""X""R"$(",", "~]2N, c1b0El OMIKRON BASIC BOUNCING BALLS ! R"2Nc0b1EJh30F,"4",(8",88"8<", <<"<@, >F@<ƐF<(<(((@@, >@",Ɛ(d(4(4(>(>"@, >068ƐP8(8(((6 ,"D" Jh3HL" |, ),,, P,,",,T"D  "6@XL\`dhlpt7,2NXE,"L`\t`\t ,, "X"L`\t`\t X"".,"L\`,, L\`6,"Zd-lL\,`` 4,"h-pL\`,` 46$x|"x"|"h"R"""""""  " 40""4R""N~2N" ">>>>>>>>""""" "", N"R"2N"4655""" ""46\" 6\\'܊"\46"]G/," D|0,,0,| 0,0,46P0g ,4 - o  *6BLXdr|",4<FPXbpx 0<HV`READ_SNDHSCRKEYPRSCRCENTERCENTERLINDELAYLAUFLINESSTPIDOLINESSI2I3DRAW_EARTH VXPLAYJADRYRSXSYSTXSTYMINYLALINSABSTTTIMEACT_LIND0D1D2D3LAUFMAXLAUFSEADR2LASTX1LININCY1X2Y2DELVARADDVMAXACENTER_YCENT1SOUNDSNDDATATUNE4j6>d& b f    2FLinker Mausknopf: MalenRechter Mausknopf: Ende10f"'& L|#"@" 16-Farb-ModusL|#"" 4-Farb-ModusL|%"" schwarz/weissX""R""" 8 "i$"j $ $k ` "i$"j("k`," ,"$, "(,",R"( $ $k k("0", v0d,"0k ("FR", ,,,, ,(o $,4<DLT\fMXXYBWHBWBHXYBIANZf`R &4\tv  $JLv"h"?&" N" "- " "h Sekunden"" "-"   Primzahlen in ZahlenPrimzahlen ausdrucken (j/n) ? >l+j+nno& "-     &das "Menge=1" nimmt die Zahl 2 vorweg.o (0<DNANZAHLFELDPRIMZAHLITMENGEJNX n(,>BN 0Z`$Beispiel zur Funktionstasten-Abfrage Ende mit F10 v"ASCII-Code der Taste : , Scancode : #Das war Funktionstaste  o67"#" 47 "7"";D ":  "4o&:BN\jTASTEN_BELEGENAFNTASTEFUNKTIONSTASTEITASTETASTESCANCODELp   .>N^ntx`8 !""(#:$L%^&p'z()*+,-."/j012B3456,728D9V:h;z<=>?@ABC D,E6FHG\Hbd`Jh3R"""L|"L| "@ "N~"~]CX"  c1HHEf  $($(,0,048Ec0<@DHDHLPLPTXTX\`d"h"l"p"t"x"|""32N CX"  $($(,0,048"dd"d"d"""ll"l"l"""tt"t"t"$""||"|"|",""hh"h"h"""pp"p"p" ""xx"x"x"("""""0"4"8"CX"  $($(,0,048 ?"2NCX"<@DHDHLPLPTXTX\`"dd"d"d"<""ll"l"l"D""tt"t"t"L""||"|"|"T""hh"h"h"@""pp"p"p"H""xx"x"x"P"""""X"\"<`"@CX"<@DHDHLPLPTXTX\` ? d"dh"hl"lp"pt"tx"x|"|"46`/0^0`4o",6@JT^hr|&0:DPXblvSPEEDWHSCR1SCR2X01Y01X11Y11X21Y21X31Y31X41Y41X02Y02X12Y12X22Y22X32Y32X42Y42X03Y03X13Y13X23Y23X33Y33LOOPYXX00X10X20X30YY00Y10Y20Y30SETSCRSCR@Lh  . P`pRha:\o6467  >46 $7("$8F(*.*? P:((pF9( $"܃ ...    ###.###.###  , 0  L4" 4 /R/OHIDSYSVOLSUBCLO4   4    \$(4,8"8 <:8?<:8<08"8<.8<.8 Ʌ<8"d8Ʌo&2>JVbnxDIRDIRPATHATTTIMDATLENNAMEDIRLEVELF_NRFNTIMFNDATIXFNXX~$ZJ6X   6 ^  LfF 14-Zeilen-Textverarbeitung in OMIKRON.BASIC ('Spaghetticode'-Version)E Kann in eigene Programme z.B. als Texteditor eingebaut werden - dazu& alle Variablen mglichst LOCAL machen; Besser analysierbar ist die strukturierte Version TEXTPGM29 [Control]-[] fgt Zeile ein, [Control]-[] lscht Zeile Speichern & Drucken mit [ESC]0&H Textname: a0+_".TXT8rP9P *"G@ ":" "a0%^x sHsPs c O " HI">"  ""O PG" H1"F" G" P P5""F-" " P " 8RP9P 0""G@ "; Druck mit Return z RD"G o$.:DLVANAMTASTEAIUSINGYXSCANz$ZH.PT\ |     .@NXdptx !"#$%&'()* +,(-:.>/L0P1^2r3456789:;<=>?@ A*B6CFDPETFVXE sehr kurze Textverarbeitung in OMIKRON.BASIC (Strukturierte Version)E Kann in eigene Programme z.B. als Texteditor eingebaut werden - dazu& alle Variablen mglichst LOCAL machen4 Nur 14 Zeilen hat die komprimierte Version TEXTPGM19 [Control]-[] fgt Zeile ein, [Control]-[] lscht Zeile Speichern & Drucken mit [ESC]0&H Textname: a0+_".TXT8rP9P 2"G@ ":" "a%^0x sHsPs  O " H-  I " M" $  "O " P( G  " H:""F " G"P P>&"F- " "P 08RP9P ("G@ "; ,Druck mit Return; Abbruch mit anderer Taste  "z ""G oo$.:DLVAFILETASTEAIUSINGYXSCAN @( dnx4Vn$6BXj",6@JT4^Nhxr|ltx&0: DNX<bDlXvj0<@N   ,*042>VHjR\fpuz4,Vb  8$ H. X8 B L V ` j Xt ^~     *        V       f    ` (2<(FPZdnx(Bptx| "",.6J@XJzT^hr|"Jjp~(@&F0:DNXblv >BFLPTX\j|  *4>H(RH\tfpz "N    $| . 8 B L V ` j t ~  . 2 8 B N ` d j t       ( 2 < F P Z d n xT n       2 X     < D L "d ,j 6 @ J T ^ h r |X  6 p     f     2    D & X 0 : D N! X!4 b!L l! v! ! ! ! " " " #& # # $8 $ $ % %" %$ %X %d % % *& 4&& >&8 H& R& \& f& p'. u'D z' ' ' ( ( ( ( ) )< )H )r ) ) ) )* *>*$*.+8+lB+rL+V+`+e,:j,ft,~,,,-2->-x-------- -.&.l(.2.<.F.P/Z/t[/z\/d/n0Bx0r0011J1|112<2233T3344N"4X,4b64z@4~J4T4^5h5>r5D|5N5h5l5|5556Z6667727N777&708:8D80N8X8b8l9(v9\999::F:\::;T;;;;< <><` <*<4<><H<R<\="f=2p=tz===>>2>N>l>>>>>?P??D\GEM.LIB"" " """"  "$"("d,"]0"]4"]8"RESOURCE CONSTRUCTION SET]<@TD>H>L>P?X&\`d&dhdl p& t x& |&"c"B"~b~cG^_"PƸ"܃"Aɀ:\*.RSC* o"\""..܃.RSD8R"q'1,1,<,",}",}J' 8I""Cd <pC(d" p"( )#[1][Error reading|definition file:|\|\ ][ OK ]OJ' R.C.S.SAVE"n"X"" ! >>d  "QUITJ' k"i"j"dƸ"qu Ƹ  )p[0][Resource Construction Set|Version 0.0 - preliminary|(C) 1986 Artur Sdler|(C) 1986 OMIKRON Software][ OK ]  O*   o q"R"X""d Z  "  ?$D>H>L>P?$D>H>L>P? ()[3][Runtime-error at line[:|\|\][Retry|Abort] O( ,.67"~ ~FW"0"  46idƸjqu Ƹ Fk 4468R""X"d ZX"R"dF8  846Uddd Z 467<"$ +@"@@""D",h"H"'L"0D<LL L"<<"< <"<1,<_ +P"PP""h"T"'L"0D<LL L"<<"< 1, <_ 1, 1,2"2,<h<"< 1,<_ /X"XX""""\ j2,<%L"1,<LL "<_<"<" 1,<_1, /`"``"||"""d |2,<|2,<|2,<|%L"1,<LL| |"<_<"<"" 1,<_1, /h"hh"tt"""l t2,<t2,<t2,<t%L" 1,<LLt t"<_<"<" 1,<_1,"p "tt"tp"1,x"<<""hh"<|"<,? 1,<_*"2,<h<"< 1,"<_1,4!-------------ASSEMBLE------------67D%" 1,<p D",<"D p` pd=D|Ƹ" pd<xɸJp3<"< p"p D1D<,|D"<,?"p1D|1D|442,< pt4bitblk2,< p4appblk.wird nicht implementiertstringstringstring2,< p4iconblk2,< p|467t"h"`"X"@"P""p"l"d"\"H"T"p"h"pl" |",,,~~rekur den ganzen Baum p"h"Hl"$|",,,~~H"| 46D"|7"p&" pp"D} JD}3 "p D~p"p"D}? |};p"p"p"|} $p"p"44p"l"D ~,&" lt"} lt"HH",~lt"HH",~lt"HH",~4p"\\"T*"\",D ~} T",,D ~~\\ $(4.wird nicht implementiert44p"HH",D ~4 p"d*"d|",D ~} d|"TT",,D ~~d |d | (d|"TT",,D ~~d |d | (d|"HH",,D ~~,46("((R)E[3][There is no space but for|20 names.|SAVE your work.][I will SAVE](I)<[3][Last possible name used.|SAVE immediately.][I will SAVE]46$\"\ \0BITBLK46l"l l0TEDINFO46,d"d d 0ICONBLK46p"p p0OBJECT46(T"T T0DATA46H"H H0STRING4604) [3][Too many 4--Structures.|Please change line 110.][ Stop ]o 74"#"4"4| 4474" $"|4"4Ȁ"446"\""..܃.RSD8"..܃.RSB8O"d 8O8"Hdef proc resourcedefs"4"d=" 8"d=" 46 J' <=,, ~ @)[1][Save error:|\|\ ][ OK ]O@J' 46D46H46 7Ll$Ph? T),[2][Edit object tree as...][...FREE|...MENU])[3][I'm very sorry, but this is|only a preliminary version.|This program is not yet able|to edit object trees as FREE.][Cancel]4X"\h`"Xpd"XpXp`d4h"`p`pd`ph`p4l"dpdplphp4p"hpp4pp 4t"hx"d|"$D>H>L>P?$D>H>L>P? eMenuename : d au----+_0f$D>H>L>P?$D>H>L>P? Home : quit #Delete/Insert : delete/insert entry Help : Name object Cursor keys : change objectX"hp"dp<"|"X"X"Xp"p "XpX p""Xp"X" cph"p"pp"p"hp" ph p""̊ Xp"Xp`>?Xp"Xp "̊"̵""M(Xhp |"| K ||"|  aG X4S|@)![3][Are you sure?][Delete|Cancel] R| P bXp>X?  Xp ">Xp>  XpX php"Xp"|"|"">p>>>p>dp"p">>  Xp?p"XphpXhp"|"|Xpp"Xp"p 0p?"p?"p"pdpdp"pp"XpX?? ">X>  Xp>p""">>>>p>p">>   46544"444 b p9 p""d p"(  eName :  pd au----+_0f44"44"44܃467"pPB +?""pAp.4""p%"""p ""p 3"pp"p"p" l p" p"p) p"p"-"p" p" p""̊ $D>H>L>P?$D>H>L>P?p"p"dp "dp"pdp"dp"p"dd>?dp"dp" p"p"p "̊"̵""aGH  S|p" p"pp"pp""p??  R|  "p"p">p> >> H" P|r" V"p">> >> b?p>?p?"p-   6"@@"46 p pd"ą"p"tt"46X1020102020 82020P$0?(L>P>0?46LDHLP6,L7"Lp1020!" 10Lp JLp3048<@DHLPTX\`$0?"0}"0}1010(D>H>L>P>0?"Lp4 !,>>?"pL40DL448TXd24th24th24th!" 14t 20 44<.noch nicht implementiert\.noch nicht implementiert@.wird nicht implementiertHP`d20 h4h"~b~~b~6dv 4Ov 4@)%[0][I'm nearly out of memory][ Ok ]7"v46L"l" "h""""l"p"t"x"|"h""""""""">>p>P>p>>>P>>>l> >l>  Deskl>>  Filep>>t>>Pt>>x>>x>|> Your message here|>>-------------------->> Desk accessory#1>> Desk accessory#2>> Desk accessory#3>> Desk accessory#4>> Desk accessory#5>t> Desk accessory#6>p>>> >> Quit 44 @7"@@"27"HH"HH0STRING"446xxxxxxxxx x x x7" p"x 4 t!7"tt"p7"p46P54R""d&Name : _______________________________<"4[<Z<"<4][<B<"<4][<)<"<4]ɉ<4 14"44܃Text : _4"d> ua----+_0J 4>a^%0-J HH4"44654e4sPsHxf"" " H" P"  4_44)*[2][Edit String as...][...ALERT|...STRING] &Symbol : _ 1= 2= \?/ 3= 2Zeile 1 : ________________________________________ (Zeile 2 : ______________________________ (Zeile 3 : ______________________________ (Zeile 4 : ______________________________(Zeile 5 : ______________________________Button 1 : ________$Button 2 : ________ ESC = Ende(Button 3 : ________ HELP = Anzeigen" J4["44]]܃4"4ЊɁ""""  "d???#" ? #" ? "  ua----+_0J  +0+1+2+3+ J  (J  J  J  J J J J  J    d" 4647"44 464<"4|<0"4<܃"4"4<ہ "4467" a%^0-|-[-]-6esPsHsbxf"" " H" P" b 3 )4 $Ԋ_Ԋ"[0Ԇɀ][||||| |"̊܃"][|| |"̊܃ 6<"||<F"< <ہ4"]4o(:J\jx  ,8FPZdp~&4DPZdlt| (8DPXfv"0BPbp~&6HXhz(:N^p ,<P\dt~ ,8@HPX`ht   $ 6 > N V ` h p z               " 2 D T f x              $ . 8 B L V ` h v                 & . 6 > F N V ^ f n v ~ GEMOBJECT_MAXTEDINFO_MAXICONBLK_MAXBITBLK_MAXSTRINGS_MAXDATA_MAXDEF_MAXDIALOGALERTDEF_MEMOBJECT_MEMTEDINFO_MEMHEADMEMAPPL_INITV_OPNVWKX0Y0W0H0WIND_GETHEADERTITELEINTRAGDEFTREETYPEOBJECTTEDINFOOICONBLKDATABITBLKSTRINGSSTRINGS_VARPTRDRIVEPATHAYMAXNAMEBUTTONAPPL_EXITLFILENAMEFILEDEFFLENSTR1STR2IADEF_ALLOCMTRASHREASSEMBLEBOX_QUITXYpBOX_INVBOX_OFFNRSRC_SAVE1ASSEMBLERSRC_SAVEHIDE_CSHOW_CbRESOURCERSRC_EDITFORM_DIALV_CLSVWKEVNT_MULTITEXTPSTRINGS_DELM2STRINGS_KDATA_DELDATA_BITBLK_DELBITBLK_ICONBLK_DELICONBLK_TEDINFO_DELTEDINFO_OBJECT_OBJECT_DELPOMASSEMBLEOBJM3LNRASS_BOXASS_TEXTASS_BOXTEXTASS_IMAGEASS_PROGDEFASS_IBOXASS_BUTTONASS_BOXCHARASS_STRINGASS_FTEXTASS_FBOXTEXTASS_ICONASS_TITLEDEF_DELREASSEMBLEFNREADSTRINGS_ALLOCOO2POINTERREASS_BOXREASS_TEXTREASS_BOXTEXTREASS_IMAGEREASS_PROGDEFREASS_IBOXREASS_BUTTONREASS_BOXCHARREASS_STRINGREASS_FTEXTREASS_FBOXTEXTREASS_ICONREASS_TITLEOBJECT_ALLOCXTEDINFO_ALLOCFNREAD2BITBLK_ALLOCDATA_ALLOCICONBLK_ALLOCBELCH_XFILEBAS , 6V_SHOW_CV_HIDE_CLEERMENUEDIT_ALERTTOBJECTSES2E2T1TITLE_DROPDOWN_TITLETASTEDTLDLWT2D2CHRGOTOBJDRAWASCIISCAN  RTEXT_EDIT O1FNOBJECT_NRFNSTRINGS_NROBJECT_DEF O3STRINGS_DELD3OBJECT_DEL LISX2X3DROPDDDDL BC f \ RSRC_OBFIXOBJC_DRAWOBJDRAWOBDR_BOXOBDR_TEXTOBDR_BOXTEXTOBDR_IMAGEOBDR_PROGDEFOBDR_IBOXOBDR_BUTTONOBDR_BOXCHAROBDR_STRINGOBDR_FTEXTOBDR_FBOXTEXTOBDR_ICONOBDR_TITLEFREETESTFNSTRADRO4O5O6O7O8O9O10O11O12O13O14O15O16DPRINTATPOSITIONIN2FU:BAVERTEILEIN4IN  *NfHt~ vz(2<FPZdnxJLZHJLNPRT VXZ$&D\GEM.LIB a:\rcs\rcsdemo.rsc?:.ICH KONNTE DIE DATEI RCSDEMO.RSC NICHT FINDEN!o>? ?($?",",0"$, 0  480> 0<"0@DHo 0L00P BBRCS Demo!AA 0T~0XE\;d?`?h`>?\"0l\p`?\" 4o6"L"<"T"P"@"X"l"4o.>P`p~&2:L\hzGEMAPPL_INITXRSRC_LOADAPPL_EXITRESOURCEDEFSMENU_TREERSRC_GADDRMENU_BARXEVNT_MESAGIMSG(MENU_TNORMALFILEQUITMENU_BARRSRC_FREEDESKMESSAGEWINDOWOPENWOFFENHWIND_CREATEWIND_OPENCLOSEWWIND_DELETE 61000def proc resourcedefs 61002MENU_TREE= 0 61004DESK= 3 61006FILE= 4 61008WINDOW= 5 61010MESSAGE= 8 61012QUIT= 17 61014OPENW= 19 61016CLOSEW= 20  Desk File Window R.C.S. Demo -------------------- Desk accessory#1 Desk accessory#2 Desk accessory#3 Desk accessory#4 Desk accessory#5 Desk accessory#6 Quit Open ClosePP $ * 0 P 8 L a t MENU_TREE DESK 3 FILE 4 WINDOW 5 MESSAGE 8 QUIT 17 OPENW 19 CLOSEW 20  ************************************************************** * * * Gebrauchs-Informationen zur Bedienung des RESOURCE_TRANSLATORS * * * ************************************************************** Fr alle OMIKRON-USER, die das RCS der Firma Digital-Research benutzen. Bisher muten Sie anschlieend smtliche Objekt- und Baum-Namen nochmals umdefinieren, weil die vom RCS erzeugte *.H-Datei zur Einbindung in C-Programme gedacht war. Dieser feh- lertrchtige und langwierige Vorgang gehrt der Vergangenheit an. Der RESOURCE_TRANSLATOR nimmt Ihnen heute diese Arbeit auf komfortable und fehlerfreie Weise ab. Erstellen Sie Ihre Resource- Files mit einem beliebigen RCS, und wandeln Sie anschlieend die *.H-Files mit diesem Programm um. Wenn Sie diesen Informations-Service beenden, wird das Programm das Symbol des Quell-Laufwerks schwarz unterlegen und Sie nach dem QUELL-Laufwerk fragen; das gewnschte Quell-Laufwerk klicken Sie bitte an. Aus der nun erscheinenden File-Selector-Box whlen Sie das zu bearbeitende *.H-File aus, worauf dieses in den Speicher geladen wird. Daran anschlieend findet die Umwandlung in OMIKRON-BASIC- Format statt. Diesen Vorgang knnen Sie in der Box am unteren Bildschirmrand verfolgen, da hier jede umgewandelte Zeile kurz abgebildet wird. Sollten Sie aus der File-Selector-Box ein nicht existierendes File oder Abbruch auswhlen, dann haben Sie die Gelegenheit, das Programm abzubrechen oder neu zu starten. Nach vollendeter Umwandlung wird das Programm das Symbol des ZIEL_LAUFWREKS schwarz unterlegen und Sie nach dem ZIEL-LAUFWERK fragen, auf welches das nun umgewandelte File mit dem Extender *.OMI geschrieben werden soll. Sie klicken also das gewnschte ZIEL-LAUFWERK mit der Maus an oder quittieren mit RETURN, falls es bereits als aktiv gekennzeichnet ist. Das Programm wird bei nderung die Anzeige im Symbol des ZIEL-LAUFWERKS korrigieren und anschlieend fragen ob das End-File mit Zeilen-Nummern ab 60000 versehen werden soll oder nicht. Auerdem haben Sie an dieser Stelle die Mglichkeit, das Programm abzubrechen und neu zu starten. Die Frage nach Zeilen-Nummern hat folgende Bewandnis: Wenn das End-File Zeilen-Nummern ab 60000 besitzt, dann knnen Sie, wenn sich Ihr Programm im Speicher befindet, an welches das End-File angefgt werden soll, im Direkt-Modus mit MERGE "????????.OMI" das End-File zu dem vorhandenen Programm dazumergen. Im Format ohne Zeilen-Nummern knnen Sie das End-File im Editor von OMIKRON- BASIC mit BLOCK LOAD "????????.OMI" an jeder beliebigen Stelle in eines Ihrer Programme einfgen, was einen nicht zu unterschtzen- den Vorteil bietet. Wenn das Schreiben auf das ZIEL-LAUFWERK beendet wurde, werden Sie vom Programm gefragt, ob das End-File auch ausgedruckt werden soll. Falls Sie dies wnschen, so klicken Sie mit der Maus bei eingeschaltetem und "ON LINE" befindlichem Drucker [ JA ] an, worauf der Ausdruck des End-Files beginnt. Schlielich wird gefragt, ob Sie das Programm beenden wollen oder nicht. Falls [NEIN] wird das Programm neu gestartet, ansonsten kehrt das Programm in den Direkt-Modus von OMIKRON-BASIC zurck. Der Autor dieses Programmes hofft, Ihnen mit dem RESOURCE- TRANSLATOR ein Programm zur Verfgung zu stellen, das Ihnen das Programmiererleben ein wenig erleichtern wird. PANCREATION 1987 Rainer Pankratz, Im Weidenkamp 18, 3340 Wolfenbttel ************** ENDE DER GEBRAUCHS-INFORMATIONEN ***************** D\6:pt  , 0 8BPfx !"#$ %&'*(.)2*8+<,@-D.F/J0N1R2T3X4\5`6f7h8l9p:;<=>?@ABCDEFGHIJK$LRMXNZO`PfQrRzSTUVWXYZ[>\Z]v^~_`abcdefgh i2j:k<l@mFn^ozpqrstuvwx$y.z0{6|@}F~JVbdhnx&,>DTdpvx|"&(,8DNXjt 8 N T     $ 4 F X j ~    * 6 B R f v   ( 8 N ^ n z               : \ h p v x |         !""#6$<%@&B'F(L)X*`+j,~-./012<3D4F5J6P7V89:;<=>?@ABCDEDFRG\HfIpJ|KLMNO(P2QxRSTUVWXY Z [\]^$_*`>aVbbcldxefghijklmnopq@rFs\tbutvwxyz{|}~  (<Pp(4>Jbp|"3***************************************************2 OMIKRON_PROGRAMMERS_TOOL VERSION 1.0 03.05.873***************************************************written by PANCREATION 1987 Rainer Pankratz Im Weidenkamp 18 3340 WolfenbttelJ' ? "Aɀ" :""  " $"("$,40? 08" [ A | B ]8" [ A | B | C ]%Aɀ:<@DHLPTX`\?J\3dhlpt Dhx4d|4ltFD4"[1][\ |IN ZEILE [ ][ABBRUCH])0![Oo*** PROCEDUREN6<0f"X"X"0 RESOURCE_TRANSLATOR `46H"X"CX"QUELL-LAUFWERK]PPYHH"0,"   ZIEL-LAUFWERK]PPYHH"0, " 46R""X"CX"]PP R"46,&"""""X"" """" ""4645"J' %C:J' 4"O65c46L"[2][ |QUELL-LAUFWERK:]8,)$-"@ɀ":$"H46X"[2][ |ZIEL-LAUFWERK:]8,)(- "@ɀ" :("H46P"\*.H,+- DH?H FD HtFD4657"J' 8IJ' 4" $p" "4"O6`5\".OMI" DEF PROC RSC_DEFINE ' >>>  " RETURN,)I[2][Ausgabe mit oder ohne|Zeilen-Nummern ab 60000?][ MIT | OHNE |ABBRUCH]-\"46x78O "  46|78OD" "`" 46t,)#[2][ |Programm beenden?][ JA |NEIN]-0SYSTEMo46( 5$7,048," 4" 0"4 40" 0"4 4"4,0ʄ0"4 40"=0"4 4"40܃ '4" 40"4 04"4 08" 0"8*8"8,0ʄ0"8*8"80܃8"80"8 08"8 0$"4846T7<X"@D"t<" (<><?  D <1 <H46@"X"R"R"46H"X"46"X"L"R"R"" H *** EIN PROGRAMM DER OMIKRON-TOOL-EDITION *** (C) PANCREATION 1987 *** " 46@,)G[2][Werden Informationen|zum RESOURCE_TRANSLATOR|gewnscht?][ JA |NEIN]-4P4T"O6p70,):[2][Variablen-Definition|auf Drucker ausgeben?][ JA |NEIN]4J' T8PJ' X"0"X.X"X0RSC;-----------------------------------------------------------(VARIABLEN-DEFINITION FR RESOURCE-FILE: X;----------------------------------------------------------- "  ;-----------------------------------------------------------46P7\`d8I READ_ME.DOC\"h" hpl?\"\ \@ tkk t kFx | \"\lx,)4[2][Gebrauchs-Informationen|wiederholen?][ JA |NEIN]-  `"X"H46|U46d"X"CX""GWEITER IM TEXT MIT LINKER MAUS-TASTE * ABBRUCH MIT BEIDEN MAUS-TASTEN" 46p5l70,l" Z0 p h"F"{h"pl"l0","ll"l,܃l"l E,4H---------------- PROGRAMM-ENDE VON RESOURCE_TRANSLATOR -----------------o 2:JZhv&4DVfz &2>JTdr (6BN\hv 2<FP^hv &2>NVERROR_NORMALSTART_DRIVEDRIVE_HOLENDS_DRIVED_DRIVES_DISKS_CHARD_CHARS_DRIVED_DRIVEINITIALIZEFLAGC_TESTD_WAHLMAKE_SCREENINFO_QUESTSTARTSHOW_DISKSGET_S_DRIVEGET_FILECHANGE_ITGET_D_DRIVESAVE_FLAGREADY_TO_SAVEMERGE_LIKEEDIT_LIKEABBRUCHPRINT_QUESTENDESAVE_EDIT_LIKESAVE_MERGE_LIKEERR_NORDUMMYERR_EXITBASE_BOXX_DISKY_DISKX_ABSTZAHLBLACK_DISKS_ZEILED_ZEILESORTEDEX_CLIPEY_CLIPEW_CLIPEH_CLIPIX_CLIPIY_CLIPIW_CLIPIH_CLIPFIRST_LINELAST_LINEC_FLAGC_ERRORDRIVEQUESTBUTTONSELECTS_NAMEOKAYL_FLAGS_LOADICOUNTERLOAD_ERRORZ_COUNTSAVE_NAMEWORKLINE_NRLINE_NREINAUSDO_CHANGELANGPTRLINKRECHTJECHO_ONP_DIFFECHO_OFFLINE_COLORINFO_AUSGABEPRINT_ERRP_NAMEACT_LINEAGAIN_LOOPSHOW_I_BOXEND_FLAGLINEGET_LINEI_LOOPREPLAYDO_SCROLLA/MENU_1S_DIALOGS_REQUES MESSAGEDESKDISKF_SAVEF_LOADK_LOADNEW_DISKQUITNDEWORKB_NOTENB_SCHUELINTERNAANALYSIS!A_KLASSE"A_SCHUEL$A_ZEUGNSPRINTER&F_PRINT'HARDCOPYSCHRIFT)LITTLE*NORMAL+GREATN_NAMEV_NAMEGEB_DATSTRASSEORTPHONE S_WRITE S_FIRST S_PRIOR S_NEXTS_LASTS_SEARCHS_REPLACS_PRINTS_DELETES_QUITS_SHOWNS_BACKWDS_FORWRDS_CANCELSELECTED#define MENU_1 0 /* TREE */ #define S_DIALOG 1 /* TREE */ #define S_REQUES 2 /* TREE */ #define MESSAGE 11 /* OBJECT in TREE #0 */ #define DESK 3 /* OBJECT in TREE #0 */ #define DISK 4 /* OBJECT in TREE #0 */ #define F_SAVE 20 /* OBJECT in TREE #0 */ #define F_LOAD 21 /* OBJECT in TREE #0 */ #define K_LOAD 23 /* OBJECT in TREE #0 */ #define NEW_DISK 24 /* OBJECT in TREE #0 */ #define QUIT 26 /* OBJECT in TREE #0 */ #define WORK 5 /* OBJECT in TREE #0 */ #define B_NOTEN 28 /* OBJECT in TREE #0 */ #define B_SCHUEL 29 /* OBJECT in TREE #0 */ #define INTERNA 31 /* OBJECT in TREE #0 */ #define ANALYSIS 6 /* OBJECT in TREE #0 */ #define A_KLASSE 33 /* OBJECT in TREE #0 */ #define A_SCHUEL 34 /* OBJECT in TREE #0 */ #define A_ZEUGNS 36 /* OBJECT in TREE #0 */ #define PRINTER 7 /* OBJECT in TREE #0 */ #define F_PRINT 38 /* OBJECT in TREE #0 */ #define HARDCOPY 39 /* OBJECT in TREE #0 */ #define SCHRIFT 8 /* OBJECT in TREE #0 */ #define LITTLE 41 /* OBJECT in TREE #0 */ #define NORMAL 42 /* OBJECT in TREE #0 */ #define GREAT 43 /* OBJECT in TREE #0 */ #define N_NAME 2 /* OBJECT in TREE #1 */ #define V_NAME 3 /* OBJECT in TREE #1 */ #define GEB_DAT 4 /* OBJECT in TREE #1 */ #define STRASSE 5 /* OBJECT in TREE #1 */ #define ORT 6 /* OBJECT in TREE #1 */ #define PHONE 7 /* OBJECT in TREE #1 */ #define S_WRITE 10 /* OBJECT in TREE #1 */ #define S_FIRST 11 /* OBJECT in TREE #1 */ #define S_PRIOR 12 /* OBJECT in TREE #1 */ #define S_NEXT 13 /* OBJECT in TREE #1 */ #define S_LAST 19 /* OBJECT in TREE #1 */ #define S_SEARCH 14 /* OBJECT in TREE #1 */ #define S_REPLAC 15 /* OBJECT in TREE #1 */ #define S_PRINT 18 /* OBJECT in TREE #1 */ #define S_DELETE 16 /* OBJECT in TREE #1 */ #define S_QUIT 17 /* OBJECT in TREE #1 */ #define S_SHOWN 2 /* OBJECT in TREE #2 */ #define S_BACKWD 3 /* OBJECT in TREE #2 */ #define S_FORWRD 4 /* OBJECT in TREE #2 */ #define S_CANCEL 5 /* OBJECT in TREE #2 */ #define SELECTED 6 /* OBJECT in TREE #2 */ ```$` TG `  Disk Bearbeiten Auswerten Drucken Schrift ... Noten-Artist------------------- Desk accessory#1 Desk accessory#2 Desk accessory#3 Desk accessory#4 Desk accessory#5 Desk accessory#6 Fenster sichern Fenster laden------------------ Klasse einlesen Neue Diskette------------------ Programm-Ende Noten Schler---------- Intern Klasse Schler---------- Zeugnis Fenster Bildschirm Klein Normal Gro________________________NAME: ________________________aaaaaaaaaaaaaaaaaaaaaaaa________________________VORNAME: ________________________aaaaaaaaaaaaaaaaaaaaaaaa______GEB.-DATUM: __.__.__999999________________________STRASSE: ________________________nnnnnnnnnnnnnnnnnnnnnnnn____________________________ORT: ____ ________________________9999nnnnnnnnnnnnnnnnnnnnnnnn________________TELEFON: ________/________9999999999999999 SCHLER BEARBEITEN SPEICHERN|<<>SUCHENNDERNLSCHENBEARBEITUNGS-ENDEDRUCKEN>| SCHLER AUSWHLEN ________________________________________ABBRUCHOK8Qs"" C#`q     !"KL)MOPQST P P3 $ ( .  :  E!  N*  (P  W j~ %7GZ  j r |  %!$ " # $   (&'# ' %  )+, * + (   H+` |! ! "  D 1/ A$ A@ A\Ax AAA C A  a > <:X.At2A8AU2 c]2  `3@ $.|MNB.NA"/0<NBNu#INN/9INu#INA/9INu op0/ g<0H@<0Nu?ON^NuNV>P*?9P.?9P4?9P2?< N+P3O4BWBg/<H?<?9O4N* .P,/<R/<R/<R?9OH?<?9P4?9P2?< BgN*$09P.yRHyR09P*yP,|HyR>P,?9R?9R?9R?9O4N+xP>P,?9R?9R?9R?<$?<$09P,H?09RW09RH?09RWN.(N^NuNV.///?< ?9O4N*=n =n =n=n`=n=n=n=n./N)XJ@g,>?.?.?.?<?./<9N,.///?< ?9O4N*Jng Jnf\3S"P3S$P09S"yS|3P09S$yR|3P.P?<?9SBN1XN^NuNV.HN0@=@ ngX3cORBn`*0n"|P60H2nOR2n no.OR?<?.N0ZXN^NuNVN0.O@/<Oh/<O$/<O2N-0 3Od3pOp3OH yO$o=|`00.мB @0.мB @n nmBn`00.м> @0.м> @n n&m>Op>09O$yOH3OH9*3OpB.H?9O&N-T3O:.P*/<P./<P4/<P2?<BgN*3O43OByP0NNPN >SBN3N#TNfNN^NuNV`.S(/<OD/<S(/<S(/<OP/<OLBg?N*.S(/<S(/<S(/<O?< ?9O4N*.gNN<09O4yOfj>R?9S?9S$?9S"?<?</<9N,>R?9S?9S$?9S"?<?</<9N,`v yO4gj>;?9;?9;09S$W?9;09S"W?<NrP>;?9;?9;09S$W?9;09S"W?<NrP.g09OR`Bn`,0n"|OR00H"|P64nn no9P7HHмE| @OF`09OXyO4f$>O`?9O^?9O\?9OZBgNrP`T09OXyO4f BWBgBgBg?< ?9O4N* `"09OXyO:f( yO4gN6>SBN33O4`09OXyO4fN6>O4N+^>R?9S?9S$?9S"?9O@?9Oh09RH?09S$W09SH?09S"WN->O4N+D>SBN33O4`F09OXyO4fr>O`?9O^?9O\?9OZ?<?9O4N* .R/<S/<S$/<S"?<?9O4N*3S"9$3S$9&`09OZyO:fNf yO4ffNN NNOP?9OL?<Bg/<9N, =@` >Oj?<?<?</<9N-r ?0<_HO?N)VT3On.9/<4?<?9OnNPN` v>Oj?<?<?</<9N-r ?0<_HO?N)VT3Ob.9/<4?<?9ObNPN` >Oj?<?< ?</<9N-r ?0<_HO?N)VT3ON.9/<4?<?9ONNPN` BW?9OnWN)rT3On.9/<4?<?9OnNPNByO` V>Oj?9OnWN)VT3On.9/<4?<?9OnNPNByO` BW?9ObWN)rT3Ob.9/<4?<?9ObNPNByO` >Oj?9ObWN)VT3Ob.9/<4?<?9ObNPNByO` vBW?9ONWN)rT3ON.9/<4?<?9ONNPNByO` .>Oj?9ONWN)VT3ON.9/<4?<?9ONNPNByO`>Q/<W?9Q NT`^=|6`X0.м9 @( g8>Bg?9R?9S?9S$?9S"Bg?./<9N,0n n:o>?<?9R?9S?9S$?9S"Bg?./<9N,00.|3Q>?.WN/@TByO`BW?<?./<9N-PJ@g>/<9N/X>Bg?9R?9S?9S$?9S"Bg?</<9N,0>Bg?9R?9S?9S$?9S"Bg?</<9N,0NNN<>R?9S?9S$?9S"?<?</<9N,>R?9S?9S$?9S"?<?</<9N,`| yQ N">R?9S?9S$?9S"?<?<1/<9N,ByO`2 yQN">R?9S?9S$?9S"?<?<3/<9N,ByO`BW?<?./<9N-PJ@g0N By>>R?9S?9S$?9S"BgNrP`0.|3P0.S?<?9P0?9SBN28\09SHOJ3On.9/<4?<?9OnNP09SHOJ3Ob.9/<4?<?9ObNP09S HOJ3ON.9/<4?<?9ONNP=|`n0.м9 @( fN <2.Ҽ9"A >R?9S?9S$?9S"?<?./<9N,n no09:\y:tf <:X>R?9S?9S$?9S"?<?< /<9N,y:\y:^y:`y:b:X>R?9S?9S$?9S"?<?< /<9N,JyP0g <2.Ҽ9"A `*3:t:\3::^3:x:`3:z:b>R?9S?9S$?9S"?<?./<9N,ByO`"3>>R?9S?9S$?9S"Bg?<=/<9N,N#By>>R?9S?9S$?9S"Bg?<=/<9N,`3>>R?9S?9S$?9S"Bg?<>/<9N,N#T=|`0.мB @Bh n nmBn`80n"|Sb0H2.A|мB @1| n nm.////<BN.z0.|3B0.|3B>?.?.?.?<$?<$BgBgBgN.>?.?.?.?<$?<$BgBg?<N.>?.?.?.?<Bg/<BN,BW/<BN/X|f^Bn`B0.|мB @( gB@`0<"|Sb4nn nmN#TN>?.?.?.?<$?<$BgBg?<N.>?.?.?.?<$?<$BgBg?<N.By>>R?9S?9S$?9S"Bg?<>/<9N,`(ByO``||=b@0@E PN` 3O.g<09OD|| f*N >R?9S?9S$?9S"BgNrPBWN*`N^NuNV. ?.N@T>?<V09Ojn29OJ|?N1xX? n0>R?9S?9S$?9S"?<?. /<9N,N^NuNVBW?. ?. /<9N-rP=@/.?<?<m?.N1x\ _0"n2>R?9S?9S$?9S"?<?./<9N,0.`N^NuNV09OnOJ3S09ObOJ3S09ONOJ3S .S?9P0?9SBN1XBn`009P0n0@P<2nS1Qjn nmN^NuNV> ?.?<#N X3Q 3 QN^NuNV>,N0=@0.@|?3T 0.2< `|3O">*N0=@0.|3S&0.@|3R0.2< `||PHdH@3O N^NuNV>?9S&/<4N\>?9R/<4N\BW?9O /<4N\BW?9T /<4N\>?9O"/<4N\N^NuNV.4N=@ nPl0.|` 0.|=@0.2< `=@.4N|@n.4N|n>?<+N0T.4N|=@.4N|?@2.4< aA=@>?<-N0T>,N0/?<*N0THr㠀.?<N TN^NuNV n  fB@` nH| =@ nHn|`N^NuNVJng0. H f 0< `0. H |0"n0. H H@|0"nN^NuNV>/<ShN,X-|Sh` n #@Df n a@DfBn`( nH|2nP6n no9P7HHмE| @OF-|Sh` n #@Df n b@DfBn`( nH|2nSbn nm-|Sh` n #@Df n c@DfBn`0 nH|OJ2nP<2n n0m=|0`* nH|2nP<2n n3m.N3P.N3PN^NuNV>/<ShN,X-|ShBn``.S?<?.?9SBN28\Bn`.0.n0@P<2nS1Qjn nmn0.yOfmBn`$0nP<2nP<0jn n5m` n #@Df n c@DfBn`20n"|P<00jHOJ|0"nn n0m=|0`*0n"|P<00j|0"nn n3mBW?9Q /.N\BW?9Q/.N\>/<ShN+XN^NuNV>/<ShN,X-|Sh` n #@Df n b@DfBn`*0n"|Sb0H|0"nn nm>/<ShN+XN^NuNVBn`$0nP<2nP<1Qjn n5mBn`.0.@HмP<.?.?9SBN1Xn nm09P00@"|P<00HOJ3On.4?9OnN@T>?<V09OJ|29OjyOn?N1xX3909P0|0@"|P<00HOJ3Ob.4?9ObN@T>?<V09OJ|29OjyOb?N1xX3909P0|0@"|P<00HOJ3ON.4?9ONN@T>?<V09OJ|29OjyON?N1xX39N"=|6`0.м9 @Bh n n:o09P|6м9 @1| >?<m09P|?N1xX3<3=,>?<m09P|2?N1xX3=\3=>P?9PNTN^NuNV>Q?9Q NVTJyQ g <8` <8#=JyQg <8` <8#>N^NuNV9SgH@>9SfH@W9SeH@W9SdH@W9ScH@W9SbHW?<!N TN^NuNVBnN'ByB~ByBf.////<>N.z>?.?.?.?<$?<$BgBgBgN.>?.?.?.?<$?<$BgBg?<N.>?.?.?.?<Bg/<>N,BW/<>N/X`tN'=|`N&=|`xBn`n n'm9OFl OF9OFH0@E,#@@>?.?.?.?<?< /<>N,>?<?.?.?.?.Bg?</<>N,0`Bn`n n'm 9OF@9OFDmB9OF9OFH0@E,#@@>?.?.?.?<?< /<>N,>?<?.?.?.?.Bg?< /<>N,0`*`&| gJ|g|$g|%gp`JngP>?.?.?.?<$?<$BgBg?<N.>?.?.?.?<$?<$BgBg?<N.N^NuNV |El9OFHHP7=|`20.м> @ h f0.|HP8n no y@f B9P6` P6 yAf B9P;` P;=|`20.м> @ h f0.|HP9n noB9P: yAf 9P: yB6f 9P:N(NfNN^NuNV=| `0.м> @Bh n n&m9P7H0@"|E|0H0@E,#@@9P6H|м> @1| 9P8H|м> @1| 9P9H|м> @1| 9P;H|м> @1| 9P:g3A` 3B9P:g3B6` 3BNN^NuNV>/<ShN,X-|Sh` n #@Df n a@DfBn`*0n"|P60H|0"nn no>/<ShN+XN^NuNV0.n l0.`0. N^NuNV0.n o0.`0. N^NuNVH *n(n >0-W?0,WN)VT:>0-W?,0,WN)VT8>?N)rT>>?,N)rT<89F0G9@0F9@GoFnB@`pJL0N^NuNV3S3 S3 S3S3S3S>lN0 n0O n0O n0O n 0OB@09ON^NuNV3S>kN0N^NuNV3S3 S3 S3S3S3S>iN0N^NuNV3S3 S>hN0 n 0O n0O n0O n0OB@09ON^NuNV3S>gN0N^NuNV3S>fN0N^NuNV3S3 S3 S3S3S>eN0N^NuNV3S3 S3 S3S3S>dN0N^NuNV#O(3 S>{N0N^NuNV#O(3 S>zN0N^NuNV#O(3 S3S3S3S3S3S3S3S>/N0N^NuNV#O(3 S3S3S3S>+N0N^NuNV#O(3 S3S3S3S3S3S>*N0N^NuNV3S# O(>#N0N^NuNV>MN0 n0O n 0O n0O n0OB@09ON^NuNV#O(3 S3S3S>LN0N^NuNV#O(3 S3S3S>KN0N^NuNV3S3 S3 S3S3S3S3S3S>JN0N^NuNV3S3 S3 S3S3S3S3S3S>IN0N^NuNV#O(>6N0 n 0O n0O n0O n0OB@09ON^NuNV3S3 S3 S3S3S3S3S3S3S>3N0N^NuNV#O(3 S>2N0N^NuNV3S3 S>N0N^NuNV3S3 S3 S3S3S3S3S3S3S3S3S3S3 T3"T#$O(3(T3*T>N0 n,0O n00O n40O n80O n<0O n@0OB@09ON^NuNV#O(> N0N^NuNV3S3 S# O(> N0N^NuNV3O0.|Hм3@-@=|` nH2nO2RRn nm.TNB@09ON^NuNV#OS*#SDS.#SS2#OS6#O(S:#O6S>#S*T> aF3OO&pN^NuNV>a*pN^Nu#TM "<M psNBNu0/@kR@`S@@NuNV3 Q=|`0nQ"n 0T Rn nm3TByT3T3TN1bN^NuNV# M3 Q3T3T3T3TN1b#RMN^NuNV3 Q3 Q3TByT3T3TN1b n0M" n1yM$ n1yM&N^NuNV#M#M .мZ#M3dTByT3 T n 3TN1b n 0T#QM#M M#N M#RMN^NuNV3eTByTByT3TN1bN^Nu RdGrBl153320 7874FF4FF 4FF!4FF14FFA 0@@@ 0 @@@@@@@??7x5njUx``paa??q/0 2ax ъQQQ i   i QQQш UU@PTATTAPUU3fAf3aD!D!D!D! 0a@PPP T*T(((llll(((5B5b55566Z 6 7Z 7 8Z>Rr Gs Bt0  b4  b5  0 b5&( Rrl Gsl Bt0l pxqr#xs#tBxuBvaxwaxxyzx{|x}~x4HX 4X0 ,qH("!! 8 $##"8z &%%$8 (''&8 ,)*qt*9(++t*q-.qt.9,//t.q615AHR$322 18 5440 38 0FX P7Gm>8G>9G>:G>;G ><8L>=8>>G vGv%,G*PG>PGI 8GR(,8GZ8PGe0DPGl8R G`H G n@ j P( QG G( QG< j G0G4(G`(j,G0G4(j8G0G4(G`(G(jDG0G4(! j` G0G4($"#jn#G0!G4(%G@'G@(pG hG,`GDhH PXH< 0H$8@  p H(@H/h@ p  H8@ H<h@p,HB@ HGh@p8HK@HPh@pDHX@H`h@pPHf@Hmh@HtPHP`8'H`8HHHHHHHHHHHHHHHH    ()c  &  J j F nt t &t &  ttttttttttttttt tj>>>>>ttz__:__9999__/__/__999999__nn__nn__nnNEUSTART01234RS232-ParameterDrucker-DatenRS232 KONFIGURATIONBaud Rate:Paritt:Duplex:Bits/Zchn:Bit 8:KommunikationsparameterXon/Xoff:Rts/Cts:19200KeineOddEvenVollHalb8765AnAusAnAusAnAusOKABBRUCHDrucker Typ:Punkte/Zeile:Drucker Port:Papier Typ:Farbe:Qualitt:MATRIXTYPENRADS/WFARBE1280960TESTMAXIMUMPRINTERMODEMENDLOSEINZELDRUCKER ANPASSUNGOKABBRUCH1920096004800360024002000180012006003002001501341107550 KONTROLLFELD EMULATOR Kontrollfeld>FP"        8P&0    *                                                      "                    &<$,"(&,     ,       :$ P PL :" " V 6,  D0 ,             &*," ( *( *`,         D0d>                           ,   R00H0000`x00H0000000000000 H#a000000 #b000000 #c???000?000<000?00::400:0:::4440??0::?0?:0:::0??03111103 #d ##E 18 12 #W 00 00 04 03 43 10 00 @ #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 DISKSTATION@ @ #M 00 01 00 FF B DISKSTATION@ @ #T 00 03 02 FF PAPIERKORB@ @ #G FF 04 D:\EDIT.PRG@ *.*@ #D FF 01 @ *.*@ #G 03 FF *.PRG@ @ #G 03 FF *.APP@ @ #F 03 04 *.TOS@ @ #P 03 04 *.TTP@ @ #G 03 04 OM-BASIC.PRG@ *.BAS@  OM-BASIC.PRG@ *.BAS@ ` .|VN~.NA"/0<NBNuNV>'N \N^NuNV>'N N^NuNVJy'fB?<N`T3'N^NuNVJy'gB?<N`TBy'N^NuNVBn`0n(0Rn n m3)3)'.)H/<'/<(N PN^NuNV>)?9*h?9*p?9*nBgNP3)Jy)m\>)?9*h?9*p?9*n?9)NP>)?9*h?9*p?9*n?<$?<$BgBgNzp``B@N^NuNVN.' /<(/<)F/<)N 3) y)Ff:Bn`,0.м @0.м @Rn n&m.E?9)NT3*fa9HHм @'N paN^NuNV`b.'Nx>N09'`,By)N p09'İy*ffa.)/<*h/<*p/<*n?<BgN4a)N>)N>)?9*h?9*p?9*n?9' ?9(BgBgN`.?<NT>'N 2Jy)ga `^Bn`&0nRH"|'00H"|4nRn no9HHм @'``|(gа|cgBWN`N^NuNVBnaBy~Byf.'/<(/<) /<) /<N0>'?9(?9) ?9) ?<$?<$09'H?09) W09(H?09) WBgN>'?9(?9) ?9) ?<$?<$09'H?09) W09(H?09) W?<N>'?9(?9) ?9) ?<Bg/<NBW/<NX`|a=|`a=|`Bn`Rn n'mS9'l'9'H0@#@>'?9(?9) ?9) ?<?< /<N>?<?9'?9(?9) ?9) Bg?</<N`Bn`Rn n'm 9'@R9'DmB9'9'H0@#@>'?9(?9) ?9) ?<?< /<N>?<?9'?9(?9) ?9) Bg?< /<N`"` | gF|g|$g~|%ghJngL>'?9(?9) ?9) ?<$?<$09'H?09) W09(H?09) W?<N>'?9(?9) ?9) ?<$?<$09'H?09) W09(H?09) W?<NN^NuNV.UN^=@ ngP3c'Bn`$0n"|0H2nRI'2Rn no.'?<?.N4XN^NuNV |9'HH=|`*0.м @ h f0.|Rn no yfB9` yfB9`=|`*0.м @ h f0.|Rn noB9 yf9 y6f9aN p3)N^NuNV=| `0.м @Bh Rn n&m9H0@"|0H0@#@9H|м @1| 9H|м @1| 9H|м @1| 9H|м @1| 9g 3`39g 36`3NN^NuNV>/<)NHX-|) n #@RDf n a@RDfBn` nH|2nRRn noN^NuNV>/<)NHX-|) n #@RDf n a@RDfBn`"0n"|0H|0"nRnR no>/<)NjXN^Nua?<NNT#baa6aJa6<van6<HafGfaD?<?<NMX|f*?<?<NMX6 9fC??<?<NM\?<?<NMX|f?<?<NMX6H@<bf8aaa a@aaaa\a|6<HaGfa`f<ag* 9g??<?<NM\??<?<NM\`66<waaafaNNuB?< NA\#^Nu/9^?< NA\Nu yb0<?BQNu ybCZ0<"QNu ybCZ0< QNuB@g??<?<NM\`Nu?<?<?<NM\??<?<NM\Nu? aF3)8)pN^NuNV>a*pN^NuNV3)3 )# )> NVN^NuNV#)> NVN^NuNV#)>NVN^NuNV#)3 )>2NVN^NuNV3)3 )3 )3)3) 3)"3)$3)&3)(>3NVN^NuNV3)# )>4NVN^NuNV#)>6NV n 0): n0)< n0)> n0)@B@09)8N^NuNV3)3 )3 )3)3) 3)"3)$3)&>INVN^NuNV3)3 )3 )3)3) 3)"3)$3)&>JNVN^NuNV>MNV n0): n 0)< n0)> n0)@B@09)8N^NuNV3)# )>NNVN^NuNV3)# )>#NVN^NuNV#)3 )3)3)3)3) 3)">*NVN^NuNV#)3 )3)3)3)3) 3)"3)$3)&>/NVN^NuNV#)3 )>zNVN^NuNV#)3 )>{NVN^NuNV3)3 )3 )3)3) >dNVN^NuNV3)3 )3 )3)3) >eNVN^NuNV3)>fNVN^NuNV3)>gNVN^NuNV3)3 )>hNV n 0): n0)< n0)> n0)@B@09)8N^NuNV3)>kNVN^Nu %,FPZPe 8n(,8v8P0DP8R `H  n@ j P( Q ( Q< j 04(`(j,04(j804(`((jD04(! j` 04($"#jn#0!4(%@'@ "'+/37;?B    [2][Keine weiteren Fenster|vorhanden! Abhilfe durch|Schlieen eines Fensters.][OK]RS232 KONFIGURATIONBaud Rate:Paritt:Duplex:Bits/Zchn:Bit 8:KommunikationsparameterXon/Xoff:Rts/Cts:19200KeineOddEvenVollHalb8765AnAusAnAusAnAusOKABBRUCH1920096004800360024002000180012006003002001501341107550 VT52 EmulatorCONTROL ************************************* | Atari VT52 Terminal Emulator | | Copyright Atari Corporation. 1987 | ************************************* Mit Taste: 1) UNDO zurck zum Desktop. 2) HELP zur RS232 Konfiguration.                :  $  8          B$6*&,lDZ@F    $                      H000000a APPL_INITXYWHI PATCH_BASICCTRLINTINADDROUTINTOUTPTSINPTSOUTADDRINGLOBALVS_NDC GRAF_HANDLE VST_HEIGHT MN_SELECTED WM_REDRAW WM_TOPPED WM_CLOSED WM_FULLED WM_ARROWEDWM_HSLIDWM_VSLIDWM_SIZEDWM_MOVED WM_NEWTOPAC_OPENAC_CLOSEMU_KEYBD MU_BUTTONMU_M1MU_M2MU_MESAGMU_TIMER APPL_EXIT GRAF_MOUSEWIND_GET ACCESSORY FORM_DIALTEXT APPL_READ APPL_WRITE APPL_FIND APPL_TPLAY APPL_TRECORD FNRESERVEDV_CLSVWKV_CLSWK WIND_DELETE WIND_UPDATEMENU_BAR RSRC_FREE EVNT_KEYBD EVNT_BUTTON EVNT_MOUSE EVNT_MESAGT EVNT_TIMER EVNT_MULTI EVNT_DCLICKMENU_BARMENU_BAR FNWIND_CHECK MENU_ICHECK MENU_IENABLE MENU_TNORMAL MENU_TEXT MENU_REGISTEROBJC_ADD OBJC_DELETE OBJC_DRAW OBJC_FIND OBJC_OFFSET OBJC_ORDER OBJC_EDIT OBJC_CHANGE OBJC_CHANGEFORM_DO FORM_DIAL FORM_ALERT FORM_ERROR FORM_CENTER FORM_KEYBD FORM_BUTTONGRAF_RUBBERBOX GRAF_DRAGBOX GRAF_MOVEBOX GRAF_GROWBOXGRAF_SHRINKBOX GRAF_WATCHBOX GRAF_SLIDEBOX GRAF_HANDLE GRAF_MOUSE GRAF_MOUSE GRAF_MKSTATE SCRP_READ SCRP_WRITEPATH FSEL_INPUTLABEL FSEL_EXINPUTL VSWR_MODE VSF_PERIMETER VSF_INTERIOR VSF_COLOR VQT_EXTENT V_BARV_GTEXT WIND_CREATE WIND_OPEN WIND_CLOSEWIND_GETWIND_SETWIND_SETWIND_SETWIND_SETWIND_SET WIND_FIND WIND_CALC WIND_NEWV FNRSRC_CHECK RSRC_LOAD RSRC_GADDR RSRC_SADDR RSRC_OBFIX SHEL_READ SHEL_WRITESHEL_GETSHEL_PUT SHEL_FIND SHEL_ENVRNV_PLINE V_PMARKER V_FILLAREA V_CELLARRAY V_ARC V_PIESLICEV_CIRCLE V_ELLIPSEV_ELLARCV_ELLPIEV_RBOXV_RFBOX V_JUSTIFIED VST_HEIGHT VST_ROTATIONVS_COLORVST_FONTVSL_TYPE VSL_WIDTH VSL_COLORVSM_TYPE VSM_HEIGHT VSM_COLOR VST_COLOR VSF_STYLEVQ_COLOR VRQ_LOCATOR VSIN_MODE VSM_LOCATOR VRQ_VALUATOR VSM_VALUATOR VRQ_CHOICE VSM_CHOICE VRQ_STRING VSM_STRINGVQL_ATTRIBUTESVQM_ATTRIBUTESVQF_ATTRIBUTESVQT_ATTRIBUTES VST_ALIGNMENTV_OPNWKV_OPNWK FNV_OPN_CHECKV_OPNVWKV_OPNVWK FNV_OPNV_CHECKVQ_EXTND V_CONTOURFILL V_GET_PIXEL VST_EFFECTS VST_POINT VST_POINTVSL_ENDS VRO_CPYFM VR_TRNFMVSC_FORM VSF_UDPATVEX_TIMV VSL_UDSTYV_RECFL VQIN_MODEVQT_NAME VQT_FONTINFO VQ_CHCELLS V_EXIT_CUR V_ENTER_CURV_CURUP V_CURDOWN V_CURRIGHT V_CURLEFT V_CURHOMEV_EEOSV_EEOL V_CURADDRESS V_CURTEXTV_RVONV_RVOFF VQ_CURADDRESS VQ_TABSTATUS V_HARDCOPYV_DSPCURV_RMCUR V_FORM_ADVV_OUTPUT_WINDOWV_CLEAR_DISP_LIST V_BIT_IMAGEVQ_SCAN V_ALPHA_TEXT VS_PALETTE VQP_FILMS VQP_STATE VSP_STATEVSP_SAVE VSP_MESSAGE VQP_ERRORV_META_EXTENTS V_WRITE_META VM_FILENAME VS_SCANLINE VS_SYSFONT VQT_WIDTH VQ_CELLARRAY VRT_CPYFM V_SHOW_CV_SHOW_CV_HIDE_CVQ_MOUSEVEX_BUTVVEX_MOTVVEX_CURVVQ_KEY_SVS_CLIPVS_CLIPV_CLRWKV_UPDWKVST_LOAD_FONTSVST_UNLOAD_FONTSVS_NDCNROFFSETV_OLDV_NEWGEMAAAAAAAAAAAAAAAAO:EF6467 c ffH&dd&  $(,048B<R"X""MJCX"C":X""7@> >>@"dD>>?  "F H" L"P"T"X"\"`"d"h"l"p"t"(x")|"""""" ,>> >?f"  " ,FHH! OMIKRON.BASIC>> >?>> >?46 55( "8" 4"~b~e 8 4($46 5( "4"~b~e 8 4($465(4"]e 8 4($v446  4e8 4($46 4e8 4($467#"-"} #"-"} " ? <N""-  "8"}8"} -HHe0465(e8 4($46   5(5(5(5(5(e8 4($46     5(5(5(5(e8 4($465"4"~b~e8 4($)+2  ~2~46 "_ "^e8 4($46           55(5(5(5(5(5(5( " " "  " "_ "^"4"~b~e8 4($ (<)+2  ~2~46 5( "(e8 4($46"4" ""e8 4($46 "4" >"e8 4($"46  4" ,e8 4($46  4" ,e 8 4($46  4" ,e!8 4($46 4"4"~b~ ,e"8 4($465(4"] "8e#8 4($46  4e(8 4($46 4e)8 4($46$      4e*8 4($46(    45(e+8 4($46, 45(5(e,8 4($460  4e-8 4($464  5  4e.8 4($ "(468  4 " "e/8 4($46<      4 " "e/8 4($46@ 45(e28 4($46 D> >> >?46D         ""F "" "Fe38 4($46H 5(4"]e48 4($v446L e58 4($46P45(5(5(5(e68 4($46T   45(5(5(e78 4($46X  45(e88 4($46\    5(5(eF8 4($46`        5(5(eG8 4($46d      eH8 4($46h        eI8 4($46l        eJ8 4($46p   45(eK8 4($46t   45(eL8 4($46@5(5(5(5(5(eM8 4($46x5(eM8 4($46| 7 "J]"~b~ "1111 1%">-1 } 4"eN8 4($46 eN8 4($465(5(5(5(eO8 4($4654"~b~eP8 4($464"~b~eQ8 4($46555(7"@@" "4"~b~4"~b~eZ8 4($"܃"܃46555(7  ~}QL|#"" "@"L|#"" "F"L|#""6 "F""b~"}1"x?->>"  #"  ">   ? ?,6>>(?> >?> >?"1b~"@@" ""4"~b~4"~b~4"~b~e[8 4($"܃"܃4   "" ~46     5(ed8 4($(2  ~(46     e N2~  " ee8 4($46 O2~  " ef8 4($46  ? O2  ~  " eg8 4($46  5(  Feh8 4($46  5(5(5(5(  Feh8 4($46  F "  " ei8 4($46  "^ "_ " "ei8 4($46    Fei8 4($46  7 F "^ "_""0 0ei8 4($46      F "ei8 4($46  5(ej8 4($46 "$F ""F "$F ""F "ek8 4($46      5(5(5(5(el8 4($467 ~}" ? f ? C2~2  ~?Bem8 4($2 24 ~"D ~"' "~"" "465(("F4"]en8 4($288v4467"88("Feo8 4($246  5$ep8 4($46  4eq8 4($46 4er8 4($46557"""4"~b~4"~b~ex8 4($"܃"܃46   4"4"]ey8 4($v4v4465 "4"~b~ez8 4($"܃46 "4"~b~e{8 4($4655("4"~b~e|8 4($4657"]  ~}b~ "@ " "b~,~ |"" 2"| | " " |= | |=" F  | " "vl"]4"4"e}8 4($v"~v"" p"| " !|"|"|= "46 d  ,(046$d  ,(046,,7$" " d  ,(046(d   ,(046,  ,,,,d   ,(046,,,,"d   ,(0460  ,,,",",",",","d   ,(0464  ,,,",",",",","d   ,(0468,,,",",","d   ,(046<,,,,"d   ,(046@,,,,  "d   ,(046D,,,,  "d   ,(046H,,,,"d   ,(046L,,,," d   ,(046P,,  ,7" !" "  "d   ,(046T,d   ,(046D,50505050d   ,(046X d   ,(046\    d  ,(046` d  ,(046d d  ,(046h,d  ,(046l d  ,(046p d  ,(046t,,"d  ,(046x d  ,(046| d  ,(046 d  ,(046 d  ,(046 d  ,(046  5(5(5(5(d  ,(046,,5(5050d  ,(046,,55(5050d  ,(0"46 5(5(d  ,(046 55(5(d  ,(0"46 5(d  ,(04655(d  ,(0"46  ,,57" d  ,(0" /"""( ,"""( 46  ,,57" d  ,(0" /"""( ,"""( 46 d   ,(046  d!  ,(0465(5(5(5(5(5050d#  ,(0465(5(5(5050d$  ,(0465(5(5(5(5(d%  ,(0465(5(5(5(5(5(50505050d&  ,(046  d'  ,(046>4 }"D }"' }" "46           ("Fd?  ,-(0146Fd  ,(01464 }"D }"' }" "46           ("Fd?d  ,-(0146Fde  ,(0146 d?f  ,-(046,, dg  ,(046 dh  ,(046,,5(5(di  ,(046 dj  ,(046 dk  ,(046 0000dk  ,(046  dl  ,(046 ,,,,,,,,"^"_ "^ "_dm  ,(046"^"_ "^ "_dn  ,(046     7#" "ہ do % ,(046dp  ,(04655("^"_dv  ,(0"  46 dq  ,(046 ,,,,dr  ,(046 5(ds  ,(046 5(57d  , (0"" "( 465(5(d  ,(0465(5("d  ,(046 fE46$Ee46(A46,B460C464D468H46<J46@K46D46H46Lp46Pq46T55"Y"x46X5("d  ,(046\g46`,,"d  ,(046d"d  ,(046h"d  ,(046l,,,,"d  ,(046p"d  ,(046t  ,,,,7 "" ;#" "  "d  ,(046x5(5(5(5(5("d  ,(046|7"""" "  "d  ,(046 "<d  ,(0465"["d  ,}(0"|"( 46"\d  ,(046"]d  ,(046"^d  ,(046"_d  ,(0465("`d  ,(046,,,,"bd  ,(046 "cd  ,(0467 " ;#" "  ""dd  ,(046 "ed  ,(046"f "^ "_d  ,(04650505050505050507!" " dt  ,(046 5(505050du  ,(046,,,,555"d  ,(0" " " 46   ,,,,,,,,"^"_ "^ "_dy  ,(04646 dz  ,(046d{  ,(0465(5050d|  ,(0465"^"_d}  ,(0"  465"^"_d~  ,(0"  465"^"_d  ,(0"  465(d  ,(046,,,, "d  ,(046 "d  ,(046d  ,(046d  ,(0465 "dw  ,(0"(46 dx  ,(046<1b~46 7"b~1111 1467b~F"b$~"}} 14"b~o0 ' 1 'Gemdefs definiert saemtliche Variablen, die unter C standardmaessig 2 'fuer die Arbeit mit GEM vordefiniert sind. 3 ' 4 ' 5 DEF PROC Gemdefs 6 'MULTI EVENT FLAGS 7 K_Rshift%L=$1:K_Lshift%L=$2:K_Ctrl%L=$4:K_Alt%L=$8 8 Scr_Mgr%L=$1:Ap_Msg%L=0 9 Mu_Keybd%L=$1:Mu_Button%L=$2:Mu_M1%L=$4:Mu_M2%L=$8:Mu_Mesag%L=$10:Mu_Timer%L=$20 10 Mn_Selected%L=10:Wm_Redraw%L=20:Wm_Topped%L=21:Wm_Closed%L=22:Wm_Fulled%L=23:Wm_Arrowed%L=24:Wm_Hslid%L=25 11 Wm_Vslid%L=26:Wm_Sized%L=27:Wm_Moved%L=28:Wm_Newtop%L=29:Ac_Open%L=40:Ac_Close%L=41 12 Ct_Update%L=50:Ct_Move%L=51:Ct_Newtop%L=52 13 'FORM FLAGS 14 Fmd_Start%L=0:Fmd_Grow%L=1:Fmd_Shrink%L=2:Fmd_Finish%L=3 15 'WINDOW FLAGS 16 Wname%L=$1:Closer%L=$2:Fuller%L=$4:Mover%L=$8:Info%L=$10:Sizer%L=$20:Uparrow%L=$40:Dnarrow%L=$80 17 Vslide%L=$100:Lfarrow%L=$200:Rtarrow%L=$400:Hslide%L=$800 18 Wc_Border%L=0:Wc_Work%L=1 19 Wf_Kind%L=1:Wf_Name%L=2:Wf_Info%L=3:Wf_Workxywh%L=4:Wf_Currxywh%L=5:Wf_Prevxywh%L=6:Wf_Fullxywh%L=7:Wf_Hslide%L=8 20 Wf_Vslide%L=9:Wf_Top%L=10:Wf_Firstxywh%L=11:Wf_Nextxywh%L=12:Wf_Resvd%L=13:Wf_Newdesk%L=14:Wf_Hslsize%L=15 21 Wf_Vslsize%L=16:Wf_Screen%L=17 22 Wa_Uppage%L=0:Wa_Dnpage%L=1:Wa_Upline%L=2:Wa_Dnline%L=3:Wa_Lfpage%L=4:Wa_Rtpage%L=5:Wa_Lfline%L=6:Wa_Rtline%L=7 23 'UPDATE FLAGS 24 End_Update%L=0:Beg_Update%L=1:End_Mctrl%L=2:Beg_Mctrl%L=3 25 'MOUSE FORMS 26 Arrow%L=0:Text_Crsr%L=1:Hourglass%L=2:Point_Hand%L=3:Flat_Hand%L=4:Thin_Cross%L=5:Thick_Cross%L=6:Outln_Cross%L=7 27 User_Def%L=255:M_Off%L=256:M_On%L=257 28 'RESOURCE DATA TYPES 29 R_Tree%L=0:R_Object%L=1:R_Tedinfo%L=2:R_Iconblk%L=3:R_Bitblk%L=4:R_String%L=5:R_Imagedata%L=6:R_Obspec%L=7 30 R_Teptext%L=8:R_Teptmplt%L=9:R_Tepvalid%L=10:R_Ibpmask%L=11:R_Ibpdata%L=12:R_Ibptext%L=13:R_Bipdata%L=14 31 R_Frstr%L=15:R_Frimg%L=16 32 'OBJEKT FLAGS 33 Root%L=0 34 Max_Len%L=81 35 Max_Depth%L=8 36 Ip_Hollow%L=0:Ip_1patt%L=1:Ip_2patt%L=2:Ip_3patt%L=3:Ip_4patt%L=4:Ip_5patt%L=5:Ip_6patt%L=6:Ip_Solid%L=7 37 Md_Replace%L=1:Md_Trans%L=2:Md_Xor%L=3:Md_Erase%L=4 38 All_White%L=0:S_And_D%L=1:S_And_Notd%L=2:S_Only%L=3:Nots_And_D%L=4:D_Only%L=5:S_Xor_D%L=6:S_Or_D%L=7:Not_Sord%L=8 39 Not_Sxord%L=9:D_Invert%L=10:Not_D%L=11:S_Or_Notd%L=12:Nots_Or_D%L=13:Not_Sandd%L=14:All_Black%L=15 40 Ibm%L=3:Small%L=5 41 G_Box%L=20:G_Text%L=21:G_Boxtext%L=22:G_Image%L=23:G_Progdef%L=24:G_Ibox%L=25:G_Button%L=26:G_Boxchar%L=27 42 G_String%L=28:G_Ftext%L=29:G_Fboxtext%L=30:G_Icon%L=31:G_Title%L=32 43 None%L=$0:Selectable%L=$1:Default%L=$2:Exitb%L=$4:Editable%L=$8:Rbutton%L=$10:Lastob%L=$20:Touchexit%L=$40 44 Hidetree%L=$80:Indirect%L=$100 45 Normal%L=$0:Selected%L=$1:Crossed%L=$2:Checked%L=$4:Disabled%L=$8:Outlined%L=$10:Shadowed%L=$20 46 White%L=0:Black%L=1:Red%L=2:Green%L=3:Blue%L=4:Cyan%L=5:Yellow%L=6:Magenta%L=7:Lwhite%L=8:Lblack%L=9:Lred%L=10:Lgreen%L=11 47 Lblue%L=12:Lcyan%L=13:Lyellow%L=14:Lmagenta%L=15 48 Edstart%L=0:Edinit%L=1:Edchar%L=2:Edend%L=3 49 Te_Left%L=0:Te_Right%L=1:Te_Cntr%L=2 50 RETURN ^tn JN^f  $ & Hdt,Xft !H"|#$%&'( )*l+z,~-./0123456789 :;,<:=f>l?@ABC DEF"G8HZIhJvKLMNOPQRSTUV,WLXRYpZt[\]^_`abc8d<ePffgzhijklmn o 2p @q Nr bs t u v w x y z { (| 6} J~ h  ( V r . < Z  . L b  "8Zhv@^bptx|6r"&*@Vj8<@Vl GEMDEMO 1;Demonstrations-Programm fr Window- & Menzeilen-VerwaltungDGEM.LIB$"~]"}] ""  GEMDEMO.RSC? _)E[3][Ich konnte die Datei| 'GEMDEMO.RSC'|nicht finden.][ Abbruch ]$o0(>,?4,?8L<>@>D>H?C"R"-T"DX"@Hf Cursor aus$"TTX $\"XT\X\ \UD@H,d"l<>@>D>H>h?dp"hdt"B]dx"B]|h> Window Nrd dt?|h> Das Handle dieses Windows isth dx? d"<"@"D"H"<D"@"D"H"<"@H"D"H"<D"@H"D"Hp>  ?"""   d )D[1][Dies ist ein Beispielprogramm|fr GEM unter OMIKRON-BASIC][ OK ] > n 8 >d" dd?  d? d > $ o  d" dd"d d5 ) [3][Zu viele Windows][ Abbruch ]  h"dp"d\"dT"dX"d >\>T>X? h>d>d>d>d?d"   > nd"h" ddphd"d d% d h?  Nd"h" ddphd"d d d " Lh>>\>T>X? )""T horizontal $" "Xvertikal  #" einzelschritt 2"seite hoch/runter/rechts/links  7(Schritt=+Schritt 'nach unten oder rechts *"nach oben oder links  h>>? " h>>? Lh>>\>T>X? >\>T>X?>\>T>X?redraw erzwingen  d"h" ddphd"d d d h>? Lh>>\>T>X? >\>T>X?>\>T>X?redraw erzwingen  d"h" ddphd"d d d h> ? Lh>>\>T>X? >\>T>X?>\>T>X?redraw erzwingen   d"h" ddphd"d d d "\"T"X" h>>\>T>X?  L>\>T>X?>\>T>X?redraw erzwingen   d"h" ddphd"d d d Lh>>\>T>X? d"d"\d"Td"X h?d" >\>T>X?  :d"h" ddphd"d d d Lh>>\>T>X? TDXHLh>>\>T>X?h>>\>T>X?>\>T>X?>\>T>X?redraw erzwingen "h><>@>D>H?    \d"h" ddphd"d d d $- Lh>(>,>0>4? Lh> >\>T>X? TX8>\>T>X>>>>?TX+<d>(>,>0>4>>\>T>X?Lh> >\>T>X?  ,$ 6855\5T5X@DHLP"TT"\XX"@H\"DL"@\"\DP"PXT"T\T"PX"T\46<d(,04\TX\TX"X"R"\TXJd `dhl`"X"\TXCX"C"\T\X\XT\4ddp>?dp> \?" "X"(0,\0m(0,\0l4h"X"dp>?dp> \?(0,404fff\fff4ldp>?dp> \?U(,\N N 46("""""""4o&0<N^fv &8L`t &6HXjt ",:HVdr(2@N\jGEMSCR2BITBLT_SPEICHERTRUEFALSERESOURCEDEFSAPPL_INITXRSRC_LOADAPPL_EXITMENUMENU_ADRRSRC_GADDRMENU_BARGRAF_MOUSEX0Y0W0H0WIND_GETWHYNRWINDOWWIND_CREATEWINDOW_HANDLEWIND_NAME_ADRWIND_INFO_ADRWIND_SETXYWHWIND_SETXEVNT_MESAGIMESSAGEMN_SELECTEDMESSAGEDESKMENU_TNORMALQUITWIND_OPENWIND_HANDLEWIND_CLOSEWIND_DELETEFILEOPENWFORM_DIALWIND_OPENTWINDOWWM_TOPPEDWIND_SETWM_ARROWEDMSLIDERSEITESCHRITTALTWIND_GETNEUWM_HSLIDWM_VSLIDWM_SIZEDWM_MOVEDWIND_SETWM_CLOSEDWM_FULLEDWM_REDRAWWIND_UPDATEFXFYFWFHSCHNITTREDRAW XSYSWSHSX2Y2X2SY2SREDRAW_1REDRAW_2REDRAW_3REDRAW_4 61000def proc resourcedefs 61002MENU= 0 61004DESK= 3 61006FILE= 4 61008TWINDOW= 5 61010MESSAGE= 8 61012QUIT= 17 61014OPEN= 19  Desk File Window GEM DEMO -------------------- Desk accessory#1 Desk accessory#2 Desk accessory#3 Desk accessory#4 Desk accessory#5 Desk accessory#6 Quit Open PP $ * 0 P 8 L a t MENU DESK 3 FILE 4 TWINDOW 5 MESSAGE 8 QUIT 17 OPEN 19 @@ LPp  (FJPnr*Jj B!x"#$%"&T'z()*+,0-N./01*2n345678V9t:;<=> GEMDEMO 21 OR Name$="" THEN STOP0" \Ceine intelligente Methode, um von rechts den String Path$ nach \ zu durchsuchen4" 0(Djetzt ist Filename$ der Pfadname plus dem ausgewhlten Programmnamenman kann es jetzt einladen!?und jetzt fr alle, die's gerne einfach haben, dasselbe nochmalPath$="A:\*.*":Name$=""Fsel_Input(Path$,Name$,Button)RUN "A:\"+Name$ auch fertig.8<oo$2BJVblvGEMAPPL_INITV_OPNVWKV_CLRWKGRAF_MOUSEKBUTTONDRIVEPATHANAMELFILENAMEV_CLSVWKAPPL_EXIT64000 DEF PROC Gem: RETURN 'GEM Library fr OMIKRON-BASIC. Version 3.00. 64001 'Copyright (C) Artur Sdler, Pforzheim & Thomas Kemp, Birkenfeld 64002 ' 64003 'AES 64004 ' 64005 DEF PROC Appl_Init: LOCAL X%L,Y%L,W%L,H%L,I%L 64006 Patch_Basic $63,32,$6604,$6602:Patch_Basic $148,38,$6402,$6404 64007 DIM Ctrl%(12),Intin%(128),Addrout%L(1),Intout%(128),Ptsin%(1,128),Ptsout%(1,6),Addrin%L(3),Global%(15) 64008 NDC :Vs_Ndc: MODE =1: FILL COLOR =1: FILL STYLE =1,1: OUTLINE ON : LINE COLOR =1: LINE STYLE =1 64009 LINE WIDTH = 1: TEXT COLOR =1: TEXT STYLE =0: TEXT ROTATION = 0:Graf_Handle(Ctrl%(6),W%L,H%L,0,0) 64010 FOR I%L=1 TO 100:Vst_Height(I%L,0,0,X%L,Y%L): IF X%L=W%L AND Y%L=H%L THEN TEXT HEIGHT =I%L: EXIT ENDIF NEXT I%L 64011 Mn_Selected%L=10:Wm_Redraw%L=20:Wm_Topped%L=21:Wm_Closed%L=22:Wm_Fulled%L=23:Wm_Arrowed%L=24 64012 Wm_Hslid%L=25:Wm_Vslid%L=26:Wm_Sized%L=27:Wm_Moved%L=28:Wm_Newtop%L=29:Ac_Open%L=40 64013 Ac_Close%L=41:Mu_Keybd%L=1:Mu_Button%L=2:Mu_M1%L=4:Mu_M2%L=8:Mu_Mesag%L=16:Mu_Timer%L=32 64014 MOUSEON :Appl_Exit:Graf_Mouse(0):Wind_Get(0,4,X%L,Y%L,W%L,H%L): PRINT CHR$(27);"f"; 64015 FILL STYLE =0,1: CLIP 0,0,W%L,Y%L+H%L: PBOX -1,-1,W%L+2,Y%L+1: FILL STYLE =1,1: CLIP X%L,Y%L,W%L,H%L: MOUSEON 64016 IF Accessory%L THEN EXIT 64017 PRINT CHR$(27);"H"; CHR$(27);"H";@(0,33);"OMIKRON.BASIC";:Form_Dial(0,X%L,Y%L,W%L,H%L):Form_Dial(3,X%L,Y%L,W%L,H%L) 64018 RETURN 64019 ' 64020 DEF PROC Appl_Read(Intin%(1),R Text$,R Intout%(0)) 64021 Intin%(0)=Global%(2):Text$= CHR$(0)*Intin%(1) 64022 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64023 AES (11,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64024 RETURN 64025 ' 64026 DEF PROC Appl_Write(Intin%(0),Text$,R Intout%(0)):Intin%(1)= LEN(Text$) 64027 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64028 AES (12,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64029 RETURN 64030 ' 64031 DEF PROC Appl_Find(Text$,R Intout%(0)) 64032 Addrin%L(0)= MEMORY( LEFT$(Text$+ SPC(8),8)) 64033 AES (13,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64034 FRE Addrin%L(0): RETURN 64035 ' 64036 DEF PROC Appl_Tplay(Intin%(0),Intin%(1),Addrin%L(0)) 64037 AES (14,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64038 RETURN 64039 ' 64040 DEF PROC Appl_Trecord(Intin%(0),Addrin%L(0)) 64041 AES (15,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64042 RETURN 64043 ' 64044 DEF PROC Appl_Exit: LOCAL I%L 64045 FOR I%L=24 TO 28 STEP 2:Ctrl%(6)= WPEEK(FN Reserved%L(I%L)):V_Clsvwk: NEXT 64046 FOR I%L=18 TO 22 STEP 2:Ctrl%(6)= WPEEK(FN Reserved%L(I%L)):V_Clswk: NEXT 64047 FOR I%L=1 TO 10:Wind_Delete(I%L): NEXT 64048 Form_Dial(3,0,0,1,1) 64049 Wind_Update(0):Wind_Update(2) 64050 Vs_Ndc:Menu_Bar 64051 FOR I%L=6 TO 34 STEP 4 64052 IF I%L=10 THEN I%L=30 64053 Global%(5)= WPEEK(FN Reserved%L(I%L)):Global%(6)= WPEEK(FN Reserved%L(I%L+2)):Rsrc_Free 64054 NEXT I%L 64055 MOUSEOFF : PRINT CHR$(27);"H"; CHR$(27);"H"; CHR$(27);"e";: CLS 64056 RETURN 64057 ' 64058 DEF PROC Evnt_Keybd(R Intout%(0)) 64059 AES (20,Global%(15),Intin%(0),Addrin%L(0),Intout%(1),Addrout%L(0)) 64060 RETURN 64061 ' 64062 DEF PROC Evnt_Button(Intin%(0),Intin%(1),Intin%(2),R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64063 AES (21,Global%(15),Intin%(3),Addrin%L(0),Intout%(5),Addrout%L(0)) 64064 RETURN 64065 ' 64066 DEF PROC Evnt_Mouse(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64067 AES (22,Global%(15),Intin%(5),Addrin%L(0),Intout%(5),Addrout%L(0)) 64068 RETURN 64069 ' 64070 DEF PROC Evnt_Mesag(R Text$):Text$= CHR$(0)*16 64071 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64072 AES (23,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64073 IF CVI(Text$)=41 THEN LPOKE FN Reserved%L(10), LPEEK(FN Reserved%L(10)) AND 7 SHL 29: LPOKE FN Reserved%L(14), LPEEK(FN Reserved%L(14)) AND 7 SHL 29 64074 RETURN 64075 ' 64076 DEF PROC Evnt_Timer(T%L):Intin%(0)= LOW(T%L):Intin%(1)= HIGH(T%L) 64077 AES (24,Global%(15),Intin%(2),Addrin%L(0),Intout%(1),Addrout%L(0)) 64078 RETURN 64079 ' 64080 DEF PROC Evnt_Multi(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8),Intin%(9),X%L,Y%L,W%L,H%L,T%L,R Text$,R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4),R Intout%(5),R Intout%(6)) 64081 Intin%(10)=X%L:Intin%(11)=Y%L:Intin%(12)=W%L:Intin%(13)=H%L 64082 Intin%(14)= LOW(T%L):Intin%(15)= HIGH(T%L):Text$= CHR$(0)*16 64083 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64084 AES (25,Global%(15),Intin%(16),Addrin%L(1),Intout%(7),Addrout%L(0)) 64085 IF Intout%(0) AND Mu_Mesag%L THEN 64086 IF CVI(Text$)=41 THEN LPOKE FN Reserved%L(10), LPEEK(FN Reserved%L(10)) AND 7 SHL 29: LPOKE FN Reserved%L(14), LPEEK(FN Reserved%L(14)) AND 7 SHL 29 64087 ENDIF RETURN 64088 ' 64089 DEF PROC Evnt_Dclick(Intin%(1),R Intout%(0)):Intin%(0)=Intout%(0) 64090 AES (26,Global%(15),Intin%(2),Addrin%L(0),Intout%(1),Addrout%L(0)) 64091 RETURN 64092 ' 64093 DEF PROC Menu_Bar(X%L) 64094 Menu_Bar%L=X%L:Addrin%L(0)=X%L:Intin%(0)=1 64095 BIT (6,(FN Reserved%L(14)))=1 64096 AES (30,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64097 RETURN 64098 DEF PROC Menu_Bar 64099 Intin%(0)=0:Addrin%L(0)=Menu_Bar%L 64100 IF FN Wind_Check%L(30,4) THEN 64101 BIT (6,(FN Reserved%L(14)))=0 64102 AES (30,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64103 ENDIF Menu_Bar%L=0: RETURN 64104 ' 64105 DEF PROC Menu_Icheck(Intin%(0),Intin%(1)):Addrin%L(0)=Menu_Bar%L 64106 IF Menu_Bar%L THEN 64107 AES (31,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64108 ENDIF RETURN 64109 ' 64110 DEF PROC Menu_Ienable(Intin%(0),Intin%(1)):Addrin%L(0)=Menu_Bar%L 64111 IF Menu_Bar%L THEN 64112 AES (32,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64113 ENDIF RETURN 64114 ' 64115 DEF PROC Menu_Tnormal(Intin%(0),Intin%(1)):Addrin%L(0)=Menu_Bar%L 64116 IF Menu_Bar%L THEN 64117 AES (33,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64118 ENDIF RETURN 64119 ' 64120 DEF PROC Menu_Text(Intin%(0),Text$):Addrin%L(0)=Menu_Bar%L 64121 Addrin%L(1)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64122 IF Menu_Bar%L THEN 64123 AES (34,Global%(15),Intin%(1),Addrin%L(2),Intout%(1),Addrout%L(0)) 64124 ENDIF RETURN 64125 ' 64126 DEF PROC Menu_Register(Text$,R Intout%(0)) 64127 Addrin%L(0)= MEMORY(Text$):Intin%(0)=Global%(2) 64128 AES (35,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64129 RETURN 64130 ' 64131 DEF PROC Objc_Add(Intin%(0),Intin%(1),Addrin%L(0)) 64132 AES (40,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64133 RETURN 64134 ' 64135 DEF PROC Objc_Delete(Intin%(0),Addrin%L(0)) 64136 AES (41,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64137 RETURN 64138 ' 64139 DEF PROC Objc_Draw(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Addrin%L(0)) 64140 AES (42,Global%(15),Intin%(6),Addrin%L(1),Intout%(1),Addrout%L(0)) 64141 RETURN 64142 ' 64143 DEF PROC Objc_Find(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Addrin%L(0),R Intout%(0)) 64144 AES (43,Global%(15),Intin%(4),Addrin%L(1),Intout%(1),Addrout%L(0)) 64145 RETURN 64146 ' 64147 DEF PROC Objc_Offset(Intin%(0),Addrin%L(0),R Intout%(1),R Intout%(2)) 64148 AES (44,Global%(15),Intin%(1),Addrin%L(1),Intout%(3),Addrout%L(0)) 64149 RETURN 64150 ' 64151 DEF PROC Objc_Order(Intin%(0),Intin%(1),Addrin%L(0)) 64152 AES (45,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64153 RETURN 64154 ' 64155 DEF PROC Objc_Edit(Intin%(0),Intin%(1),R Intin%(2),Intin%(3),Addrin%L(0)) 64156 AES (46,Global%(15),Intin%(6),Addrin%L(1),Intout%(2),Addrout%L(0)) 64157 Intin%(2)=Intout%(1): RETURN 64158 ' 64159 DEF PROC Objc_Change(Intin%(0),Intin%(6),Addrin%L(0)) 64160 Intin%(1)=0:Intin%(7)=0 64161 AES (47,Global%(15),Intin%(8),Addrin%L(1),Intout%(1),Addrout%L(0)) 64162 RETURN 64163 DEF PROC Objc_Change(Intin%(0),Intin%(6),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Addrin%L(0)) 64164 Intin%(1)=0:Intin%(7)=1 64165 AES (47,Global%(15),Intin%(8),Addrin%L(1),Intout%(1),Addrout%L(0)) 64166 RETURN 64167 ' 64168 DEF PROC Form_Do(Intin%(0),Addrin%L(0),R Intout%(0)) 64169 AES (50,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64170 RETURN 64171 ' 64172 DEF PROC Form_Dial(I%L,X%L,Y%L,W%L,H%L) 64173 Form_Dial(I%L,X%L+W%L SHR 1,Y%L+H%L SHR 1,1,1,X%L,Y%L,W%L,H%L): RETURN 64174 DEF PROC Form_Dial(X%L,Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8)) 64175 Intin%(0)=X%L 64176 IF X%L=0 THEN IF FN Wind_Check%L(29,0) THEN EXIT ELSE BIT (5,(FN Reserved%L(10)))=1 64177 IF X%L=3 THEN IF FN Wind_Check%L(29,0) THEN BIT (5,(FN Reserved%L(10)))=0 ELSE EXIT 64178 AES (51,Global%(15),Intin%(9),Addrin%L(0),Intout%(1),Addrout%L(0)) 64179 RETURN 64180 ' 64181 DEF PROC Form_Alert(Intin%(0),Text$,R Intout%(0)) 64182 Addrin%L(0)= MEMORY(Text$) 64183 AES (52,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64184 FRE Addrin%L(0): RETURN 64185 ' 64186 DEF PROC Form_Error(Intin%(0)) 64187 AES (53,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 64188 RETURN 64189 ' 64190 DEF PROC Form_Center(Addrin%L(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64191 AES (54,Global%(15),Intin%(0),Addrin%L(1),Intout%(5),Addrout%L(0)) 64192 RETURN 64193 ' 64194 DEF PROC Form_Keybd(Intin%(0),Intin%(1),Intin%(2),Addrin%L(0),R Intout%(0),R Intout%(1),R Intout%(2)) 64195 AES (55,Global%(15),Intin%(3),Addrin%L(1),Intout%(3),Addrout%L(0)) 64196 RETURN 64197 ' 64198 DEF PROC Form_Button(Intin%(0),Intin%(1),Addrin%L(0),R Intout%(0)) 64199 AES (56,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64200 RETURN 64201 ' 64202 DEF PROC Graf_Rubberbox(Intin%(0),Intin%(1),Intin%(2),Intin%(3),R Intout%(1),R Intout%(2)) 64203 AES (70,Global%(15),Intin%(4),Addrin%L(0),Intout%(3),Addrout%L(0)) 64204 RETURN 64205 ' 64206 DEF PROC Graf_Dragbox(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),R Intout%(1),R Intout%(2)) 64207 AES (71,Global%(15),Intin%(8),Addrin%L(0),Intout%(3),Addrout%L(0)) 64208 RETURN 64209 ' 64210 DEF PROC Graf_Movebox(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5)) 64211 AES (72,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64212 RETURN 64213 ' 64214 DEF PROC Graf_Growbox(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7)) 64215 AES (73,Global%(15),Intin%(8),Addrin%L(0),Intout%(1),Addrout%L(0)) 64216 RETURN 64217 ' 64218 DEF PROC Graf_Shrinkbox(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7)) 64219 AES (74,Global%(15),Intin%(8),Addrin%L(0),Intout%(1),Addrout%L(0)) 64220 RETURN 64221 ' 64222 DEF PROC Graf_Watchbox(Intin%(1),Intin%(2),Intin%(3),Addrin%L(0),R Intout%(0)) 64223 AES (75,Global%(15),Intin%(4),Addrin%L(1),Intout%(1),Addrout%L(0)) 64224 RETURN 64225 ' 64226 DEF PROC Graf_Slidebox(Intin%(0),Intin%(1),Intin%(2),Addrin%L(0),R Intout%(0)) 64227 AES (76,Global%(15),Intin%(3),Addrin%L(1),Intout%(1),Addrout%L(0)) 64228 RETURN 64229 ' 64230 DEF PROC Graf_Handle(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64231 AES (77,Global%(15),Intin%(0),Addrin%L(0),Intout%(5),Addrout%L(0)) 64232 RETURN 64233 DEF PROC Graf_Handle(R Intout%(0)) 64234 AES (77,Global%(15),Intin%(0),Addrin%L(0),Intout%(5),Addrout%L(0)) 64235 RETURN 64236 ' 64237 DEF PROC Graf_Mouse(X%L,Y%L,W%L,H%L,T%L): LOCAL I%L 64238 IF Graf_Mouse%L=0 THEN Graf_Mouse%L= MEMORY(74) 64239 T%L= LPEEK(T%L)+ LPEEK( SEGPTR +20):Intin%(0)=255 64240 WPOKE Graf_Mouse%L,X%L: WPOKE Graf_Mouse%L+2,Y%L: WPOKE Graf_Mouse%L+4,0 64241 WPOKE Graf_Mouse%L+6,W%L: WPOKE Graf_Mouse%L+8,H%L 64242 FOR I%L=0 TO 62 STEP 2: WPOKE Graf_Mouse%L+10+I%L, WPEEK(T%L+I%L): NEXT 64243 Addrin%L(0)=Graf_Mouse%L 64244 AES (78,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64245 RETURN 64246 DEF PROC Graf_Mouse(Intin%(0)) 64247 AES (78,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64248 RETURN 64249 ' 64250 DEF PROC Graf_Mkstate(R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64251 AES (79,Global%(15),Intin%(0),Addrin%L(0),Intout%(5),Addrout%L(0)) 64252 RETURN 64253 ' 64254 DEF PROC Scrp_Read(R Text$) 64255 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64256 AES (80,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64257 RETURN 64258 ' 64259 DEF PROC Scrp_Write(Text$) 64260 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64261 AES (81,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64262 RETURN 64263 ' 64264 DEF PROC Fsel_Input(R Path$,R Text$,R Intout%(1)): LOCAL X%L 64265 Path$= LEFT$(Path$+ CHR$(0)*64,64):Text$= LEFT$(Text$+ CHR$(0)*13,13) 64266 X%L= VARPTR(Text$):Addrin%L(0)= LPEEK( VARPTR(Path$))+ LPEEK( SEGPTR +28) 64267 Addrin%L(1)= LPEEK(X%L)+ LPEEK( SEGPTR +28) 64268 AES (90,Global%(15),Intin%(0),Addrin%L(2),Intout%(2),Addrout%L(0)) 64269 Text$= LEFT$(Text$, INSTR(Text$+ CHR$(0), CHR$(0))-1) 64270 Path$= LEFT$(Path$, INSTR(Path$+ CHR$(0), CHR$(0))-1): RETURN 64271 ' 64272 DEF PROC Fsel_Exinput(R Path$,R Text$,Label$,R Intout%(1)): LOCAL X%L,Y%L,W%L,H%L,I%L,L%L,T%L 64273 IF WPEEK( LPEEK($4F2)+2)<$104 THEN 64274 IF PEEK($44C)=0 THEN X%L=0:Y%L=26:W%L=320:H%L=15 64275 IF PEEK($44C)=1 THEN X%L=157:Y%L=26:W%L=326:H%L=15 64276 IF PEEK($44C)=2 THEN X%L=157:Y%L=54:W%L=326:H%L=30 64277 L%L= LPEEK( SEGPTR -24):T%L= WPEEK(L%L): WPOKE L%L,0:L%L=Ctrl%(6):Graf_Handle(Ctrl%(6)) 64278 MOUSEOFF :Vswr_Mode(1):Vsf_Perimeter(1):Vsf_Interior(0):Vsf_Color(1) 64279 Vqt_Extent(Label$,0,0,I%L,0,0,0,0,0):I%L=I%L+10: IF I%L>=W%L THEN X%L=X%L-(I%L+1-W%L) SHR 1:W%L=I%L+1 64280 V_Bar(X%L,Y%L-H%L,X%L+W%L-1,Y%L+4):V_Bar(X%L+3,Y%L-H%L+3,X%L+W%L-4,Y%L+1):V_Bar(X%L+4,Y%L-H%L+4,X%L+W%L-5,Y%L) 64281 V_Gtext(X%L+(W%L-I%L-1) SHR 1+5,Y%L-H%L\3+3,Label$): MOUSEON 64282 PROC Fsel_Input(Path$,Text$,Intout%(1)) 64283 Form_Dial(0,X%L,Y%L-H%L,W%L,H%L):Form_Dial(3,X%L,Y%L-H%L,W%L,H%L):Ctrl%(6)=L%L: WPOKE LPEEK( SEGPTR -24),T%L 64284 ELSE 64285 Path$= LEFT$(Path$+ CHR$(0)*64,64):Text$= LEFT$(Text$+ CHR$(0)*13,13) 64286 X%L= VARPTR(Text$):Y%L= VARPTR(Label$) 64287 Addrin%L(0)= LPEEK( VARPTR(Path$))+ LPEEK( SEGPTR +28) 64288 Addrin%L(1)= LPEEK(X%L)+ LPEEK( SEGPTR +28) 64289 Addrin%L(2)= LPEEK(Y%L)+ LPEEK( SEGPTR +28) 64290 AES (91,Global%(15),Intin%(0),Addrin%L(3),Intout%(2),Addrout%L(0)) 64291 Text$= LEFT$(Text$, INSTR(Text$+ CHR$(0), CHR$(0))-1) 64292 Path$= LEFT$(Path$, INSTR(Path$+ CHR$(0), CHR$(0))-1) 64293 ENDIF RETURN 64294 ' 64295 DEF FN Wind_Check%L(W%L,H%L) 64296 IF W%L<1 THEN H%L=0 ELSE H%L= BIT(W%L, LPEEK(FN Reserved%L(10+H%L))) 64297 RETURN H%L 64298 ' 64299 DEF PROC Wind_Create(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),R Intout%(0)) 64300 AES (100,Global%(15),Intin%(5),Addrin%L(0),Intout%(1),Addrout%L(0)) 64301 IF Intout%(0)>0 THEN LPOKE FN Reserved%L(10), LPEEK(FN Reserved%L(10)) OR 1 SHL Intout%(0) 64302 RETURN 64303 ' 64304 DEF PROC Wind_Open(W%L,Intin%(1),Intin%(2),Intin%(3),Intin%(4)) 64305 IF W%L>0 THEN 64306 IF FN Wind_Check%L(W%L,4)=0 THEN 64307 LPOKE FN Reserved%L(14), LPEEK(FN Reserved%L(14)) OR 1 SHL W%L:Intin%(0)=W%L 64308 AES (101,Global%(15),Intin%(5),Addrin%L(0),Intout%(1),Addrout%L(0)) 64309 ENDIF 64310 ENDIF RETURN 64311 ' 64312 DEF PROC Wind_Close(W%L) 64313 IF FN Wind_Check%L(W%L,4) THEN 64314 LPOKE FN Reserved%L(14), LPEEK(FN Reserved%L(14)) XOR 1 SHL W%L:Intin%(0)=W%L 64315 AES (102,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 64316 ENDIF RETURN 64317 ' 64318 DEF PROC Wind_Delete(W%L):Wind_Close(W%L) 64319 IF FN Wind_Check%L(W%L,0) THEN 64320 LPOKE FN Reserved%L(10), LPEEK(FN Reserved%L(10)) XOR 1 SHL W%L:Intin%(0)=W%L 64321 AES (103,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 64322 ENDIF RETURN 64323 ' 64324 DEF PROC Wind_Get(Intin%(0),Intin%(1),R Intout%(1)) 64325 IF FN Wind_Check%L(Intin%(0),0)=0 AND Intin%(1)<>10 THEN EXIT 64326 AES (104,Global%(15),Intin%(2),Addrin%L(0),Intout%(5),Addrout%L(0)) 64327 RETURN 64328 DEF PROC Wind_Get(Intin%(0),Intin%(1),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64329 IF FN Wind_Check%L(Intin%(0),0)=0 AND Intin%(0) THEN EXIT 64330 AES (104,Global%(15),Intin%(2),Addrin%L(0),Intout%(5),Addrout%L(0)) 64331 RETURN 64332 ' 64333 DEF PROC Wind_Set(Intin%(0)) 64334 IF FN Wind_Check%L(Intin%(0),4)=0 THEN EXIT 64335 Intin%(1)=10:Intin%(2)=Intin%(0) 64336 AES (105,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64337 RETURN 64338 DEF PROC Wind_Set(X%L,Intin%(4)) 64339 Intin%(2)= HIGH(X%L):Intin%(3)= LOW(X%L):Intin%(0)=0:Intin%(1)=14 64340 AES (105,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64341 RETURN 64342 DEF PROC Wind_Set(Intin%(0),Intin%(1),Intin%(2)) 64343 IF FN Wind_Check%L(Intin%(0),0)=0 THEN EXIT 64344 AES (105,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64345 RETURN 64346 DEF PROC Wind_Set(Intin%(0),Intin%(1),Text$,X%L): LOCAL I%L 64347 IF FN Wind_Check%L(Intin%(0),0)=0 THEN EXIT 64348 Intin%(2)= HIGH(X%L):Intin%(3)= LOW(X%L) 64349 FOR I%L=1 TO LEN(Text$): POKE X%L+I%L-1, ASC( MID$(Text$,I%L)): NEXT : POKE X%L+I%L-1,0 64350 AES (105,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64351 RETURN 64352 DEF PROC Wind_Set(Intin%(0),Intin%(2),Intin%(3),Intin%(4),Intin%(5)) 64353 IF FN Wind_Check%L(Intin%(0),0)=0 THEN EXIT 64354 Intin%(1)=5 64355 AES (105,Global%(15),Intin%(6),Addrin%L(0),Intout%(1),Addrout%L(0)) 64356 RETURN 64357 ' 64358 DEF PROC Wind_Find(Intin%(0),Intin%(1),R Intout%(0)) 64359 AES (106,Global%(15),Intin%(2),Addrin%L(0),Intout%(1),Addrout%L(0)) 64360 RETURN 64361 ' 64362 DEF PROC Wind_Update(X%L):Intin%(0)=X%L 64363 IF X%L=0 THEN IF FN Wind_Check%L(30,0)=0 THEN EXIT ELSE BIT (6,(FN Reserved%L(10)))=0 64364 IF X%L=1 THEN IF FN Wind_Check%L(30,0) THEN EXIT ELSE BIT (6,(FN Reserved%L(10)))=1 64365 IF X%L=2 THEN IF FN Wind_Check%L(31,0)=0 THEN EXIT ELSE BIT (7,(FN Reserved%L(10)))=0 64366 IF X%L=3 THEN IF FN Wind_Check%L(31,0) THEN EXIT ELSE BIT (7,(FN Reserved%L(10)))=1 64367 AES (107,Global%(15),Intin%(1),Addrin%L(0),Intout%(1),Addrout%L(0)) 64368 RETURN 64369 ' 64370 DEF PROC Wind_Calc(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64371 AES (108,Global%(15),Intin%(6),Addrin%L(0),Intout%(5),Addrout%L(0)) 64372 RETURN 64373 ' 64374 DEF PROC Wind_New: LOCAL I%L 64375 IF WPEEK( LPEEK($4F2)+2)<$104 THEN 64376 FOR I%L=1 TO 10:Wind_Delete(I%L): NEXT 64377 REPEAT 64378 Wind_Get(0,10,I%L) 64379 IF I%L>0 THEN 64380 LPOKE FN Reserved%L(14), LPEEK(FN Reserved%L(14)) XOR 1 SHL I%L 64381 LPOKE FN Reserved%L(10), LPEEK(FN Reserved%L(10)) XOR 1 SHL I%L 64382 Wind_Delete(I%L) 64383 ENDIF 64384 UNTIL I%L<=0 64385 Form_Dial(3,0,0,1,1) 64386 Wind_Update(0):Wind_Update(2) 64387 ELSE 64388 AES (109,Global%(15),Intin%(0),Addrin%L(0),Intout%(0),Addrout%L(0)) 64389 LPOKE FN Reserved%L(10),0: LPOKE FN Reserved%L(14),0 64390 ENDIF RETURN 64391 ' 64392 DEF FN Rsrc_Check%L(V%L) 64393 IF LPEEK(FN Reserved%L(6))=V%L THEN 64394 V%L=6 ELSE IF LPEEK(FN Reserved%L(30))=V%L THEN 64395 V%L=30 ELSE IF LPEEK(FN Reserved%L(34))=V%L THEN 64396 V%L=34 ELSE V%L=0 ENDIF ENDIF ENDIF RETURN V%L 64397 DEF PROC Rsrc_Load(Text$,R Intout%(0)) 64398 IF FN Rsrc_Check%L(0)=0 THEN Intout%(0)=0: EXIT 64399 Rsrc_Free:Addrin%L(0)= MEMORY(Text$) 64400 AES (110,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64401 LPOKE FN Reserved%L(FN Rsrc_Check%L(0)),Global%(5) SHL 16 OR Global%(6) AND $FFFF: FRE Addrin%L(0) 64402 RETURN 64403 ' 64404 DEF PROC Rsrc_Free: LOCAL X%L 64405 X%L=FN Rsrc_Check%L(Global%(5) SHL 16 OR Global%(6) AND $FFFF) 64406 IF X%L=0 THEN Intout%(0)=0: EXIT 64407 AES (111,Global%(15),Intin%(0),Addrin%L(0),Intout%(1),Addrout%L(0)): LPOKE FN Reserved%L(X%L),0 64408 RETURN 64409 ' 64410 DEF PROC Rsrc_Gaddr(Intin%(0),Intin%(1),R Addrout%L(0)) 64411 AES (112,Global%(15),Intin%(2),Addrin%L(0),Intout%(1),Addrout%L(1)) 64412 RETURN 64413 ' 64414 DEF PROC Rsrc_Saddr(Intin%(0),Intin%(1),Addrin%L(0)) 64415 AES (113,Global%(15),Intin%(2),Addrin%L(1),Intout%(1),Addrout%L(0)) 64416 RETURN 64417 ' 64418 DEF PROC Rsrc_Obfix(Intin%(0),Addrin%L(0)) 64419 AES (114,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64420 RETURN 64421 ' 64422 DEF PROC Shel_Read(R Path$,R Text$): LOCAL X%L 64423 Path$= CHR$(0)*128:X%L= VARPTR(Path$):Text$= CHR$(0)*128 64424 Addrin%L(1)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64425 Addrin%L(0)= LPEEK(X%L)+ LPEEK( SEGPTR +28) 64426 AES (120,Global%(15),Intin%(0),Addrin%L(2),Intout%(1),Addrout%L(0)) 64427 Text$= LEFT$(Text$, INSTR(Text$+ CHR$(0), CHR$(0))-1) 64428 Path$= LEFT$(Path$, INSTR(Path$+ CHR$(0), CHR$(0))-1) 64429 RETURN 64430 ' 64431 DEF PROC Shel_Write(Intin%(0),Intin%(1),Intin%(2),Path$,Text$) 64432 Addrin%L(0)= VARPTR(Path$) 64433 Addrin%L(1)= MEMORY(Text$) 64434 AES (121,Global%(15),Intin%(3),Addrin%L(2),Intout%(1),Addrout%L(0)): FRE Addrin%L(0): FRE Addrin%L(1) 64435 RETURN 64436 ' 64437 DEF PROC Shel_Get(R Text$) 64438 Intin%(0)= LEN(Text$):Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64439 AES (122,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64440 Text$= LEFT$(Text$, INSTR(Text$+ CHR$(0), CHR$(0))-1) 64441 RETURN 64442 ' 64443 DEF PROC Shel_Put(Text$) 64444 Intin%(0)= LEN(Text$):Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64445 AES (123,Global%(15),Intin%(1),Addrin%L(1),Intout%(1),Addrout%L(0)) 64446 RETURN 64447 ' 64448 DEF PROC Shel_Find(R Text$,R Intout%(0)) 64449 Text$= LEFT$(Text$+ CHR$(0)*128,128) 64450 Addrin%L(0)= LPEEK( VARPTR(Text$))+ LPEEK( SEGPTR +28) 64451 AES (124,Global%(15),Intin%(0),Addrin%L(1),Intout%(1),Addrout%L(0)) 64452 RETURN 64453 ' 64454 DEF PROC Shel_Envrn(Text$,R Path$): LOCAL X%L= MEMORY(Text$),Y%L,W%L,H%L 64455 IF WPEEK( LPEEK($4F2)+2)<$104 THEN 64456 ' TOS vor 1.04 64457 IF LPEEK( SEGPTR +20)=0 THEN Y%L=64 ELSE Y%L=-12 64458 W%L= LPEEK( LPEEK( SEGPTR +Y%L)+$2C) 64459 WHILE PEEK(W%L) 64460 H%L=-1:Y%L=X%L 64461 REPEAT 64462 H%L=H%L AND ( PEEK(Y%L)= PEEK(W%L)) 64463 W%L=W%L+1:Y%L=Y%L+1 64464 UNTIL PEEK(W%L-1)= ASC("=") OR PEEK(W%L-1)=0 64465 IF PEEK(W%L-1)= ASC("=") AND H%L THEN H%L=W%L: EXIT 64466 WHILE PEEK(W%L-1):W%L=W%L+1: WEND 64467 H%L=0 64468 WEND 64469 FRE X%L 64470 ELSE 64471 Y%L= MEMORY(4):Addrin%L(1)=X%L:Addrin%L(1)=Y%L 64472 AES (125,Global%(15),Intin%(0),Addrin%L(2),Intout%(1),Addrout%L(0)) 64473 FRE X%L:H%L= LPEEK(Y%L): FRE Y%L:Path$="" 64474 ENDIF 64475 Path$="" 64476 IF H%L THEN 64477 Y%L=H%L 64478 IF PEEK(H%L)=0 THEN H%L=H%L+1 64479 WHILE PEEK(H%L):Path$=Path$+ CHR$( PEEK(H%L)):H%L=H%L+1: WEND 64480 IF PEEK(Y%L)=0 AND RIGHT$(Path$,1)="=" THEN Path$="" 64481 ENDIF RETURN 64482 ' 64483 'VDI 64484 ' 64485 DEF PROC V_Pline(X%L) 64486 VDI (6,Ctrl%(12),Intin%(0),Ptsin%(0,X%L),Intout%(0),Ptsout%(0,0)) 64487 RETURN 64488 ' 64489 DEF PROC V_Pmarker(X%L) 64490 VDI (7,Ctrl%(12),Intin%(0),Ptsin%(0,X%L),Intout%(0),Ptsout%(0,0)) 64491 RETURN 64492 ' 64493 DEF PROC V_Gtext(Ptsin%(0,0),Ptsin%(1,0),Text$): LOCAL I%L 64494 FOR I%L=0 TO LEN(Text$)-1:Intin%(I%L)= ASC( MID$(Text$,I%L+1,1)): NEXT 64495 VDI (8,Ctrl%(12),Intin%(I%L),Ptsin%(0,1),Intout%(0),Ptsout%(0,0)) 64496 RETURN 64497 ' 64498 DEF PROC V_Fillarea(X%L) 64499 VDI (9,Ctrl%(12),Intin%(0),Ptsin%(0,X%L),Intout%(0),Ptsout%(0,0)) 64500 RETURN 64501 ' 64502 DEF PROC V_Cellarray(Ctrl%(7),Ctrl%(8),Ctrl%(9),Ctrl%(10),X%L,Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64503 VDI (10,Ctrl%(12),Intin%(X%L),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64504 RETURN 64505 ' 64506 DEF PROC V_Bar(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64507 Ctrl%(5)=1 64508 VDI (11,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64509 RETURN 64510 ' 64511 DEF PROC V_Arc(Intin%(0),Intin%(1),Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,3)) 64512 Ctrl%(5)=2:Ptsin%(0,1)=0:Ptsin%(1,1)=0:Ptsin%(0,2)=0 64513 Ptsin%(1,2)=0:Ptsin%(1,3)=0 64514 VDI ($800000B,Ctrl%(12),Intin%(2),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 64515 RETURN 64516 ' 64517 DEF PROC V_Pieslice(Intin%(0),Intin%(1),Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,3)) 64518 Ctrl%(5)=3:Ptsin%(0,1)=0:Ptsin%(1,1)=0:Ptsin%(0,2)=0 64519 Ptsin%(1,2)=0:Ptsin%(1,3)=0 64520 VDI ($800000B,Ctrl%(12),Intin%(2),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 64521 RETURN 64522 ' 64523 DEF PROC V_Circle(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,2)) 64524 Ctrl%(5)=4:Ptsin%(0,1)=0:Ptsin%(1,1)=0:Ptsin%(1,2)=0 64525 VDI ($400000B,Ctrl%(12),Intin%(0),Ptsin%(0,3),Intout%(0),Ptsout%(0,0)) 64526 RETURN 64527 ' 64528 DEF PROC V_Ellipse(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64529 Ctrl%(5)=5 64530 VDI ($200000B,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64531 RETURN 64532 ' 64533 DEF PROC V_Ellarc(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1),Intin%(0),Intin%(1)) 64534 Ctrl%(5)=6 64535 VDI ($200000B,Ctrl%(12),Intin%(2),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64536 RETURN 64537 ' 64538 DEF PROC V_Ellpie(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1),Intin%(0),Intin%(1)) 64539 Ctrl%(5)=7 64540 VDI ($200000B,Ctrl%(12),Intin%(2),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64541 RETURN 64542 ' 64543 DEF PROC V_Rbox(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64544 Ctrl%(5)=8 64545 VDI (11,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64546 RETURN 64547 ' 64548 DEF PROC V_Rfbox(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64549 Ctrl%(5)=9 64550 VDI (11,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64551 RETURN 64552 ' 64553 DEF PROC V_Justified(Ptsin%(0,0),Ptsin%(1,0),Text$,Intin%(0),Intin%(1),Ptsin%(0,1)) 64554 LOCAL I%L:Ctrl%(5)=10 64555 FOR I%L=1 TO LEN(Text$):Intin%(I%L+1)= ASC( MID$(Text$,I%L)): NEXT :Intin%(I%L+1)=0 64556 VDI ($200000B,Ctrl%(12),Intin%(I%L+2),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64557 RETURN 64558 ' 64559 DEF PROC Vst_Height(Ptsin%(1,0)) 64560 VDI ($103000C,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(0),Ptsout%(0,2)) 64561 RETURN 64562 DEF PROC Vst_Height(Ptsin%(1,0),R Ptsout%(0,0),R Ptsout%(1,0),R Ptsout%(0,1),R Ptsout%(1,1)) 64563 VDI ($103000C,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(0),Ptsout%(0,2)) 64564 RETURN 64565 ' 64566 DEF PROC Vst_Rotation(Intin%(0)) 64567 VDI (13,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64568 RETURN 64569 ' 64570 DEF PROC Vs_Color(Intin%(0),Intin%(1),Intin%(2),Intin%(3)) 64571 VDI (14,Ctrl%(12),Intin%(4),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64572 RETURN 64573 ' 64574 DEF PROC Vst_Font(Intin%(0)) 64575 VDI (21,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64576 RETURN 64577 ' 64578 DEF PROC Vsl_Type(Intin%(0)) 64579 VDI (15,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64580 RETURN 64581 ' 64582 DEF PROC Vsl_Width(Ptsin%(0,0)) 64583 VDI ($1010010,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(0),Ptsout%(0,0)) 64584 RETURN 64585 ' 64586 DEF PROC Vsl_Color(Intin%(0)) 64587 VDI (17,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64588 RETURN 64589 ' 64590 DEF PROC Vsm_Type(Intin%(0)) 64591 VDI (18,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64592 RETURN 64593 ' 64594 DEF PROC Vsm_Height(Ptsin%(1,0)) 64595 Ptsin%(0,0)=0 64596 VDI ($1010013,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(0),Ptsout%(0,1)) 64597 RETURN 64598 ' 64599 DEF PROC Vsm_Color(Intin%(0)) 64600 VDI (20,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64601 RETURN 64602 ' 64603 DEF PROC Vst_Color(Intin%(0)) 64604 VDI (22,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64605 RETURN 64606 ' 64607 DEF PROC Vsf_Interior(Intin%(0)) 64608 VDI (23,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64609 RETURN 64610 ' 64611 DEF PROC Vsf_Style(Intin%(0)) 64612 VDI (24,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64613 RETURN 64614 ' 64615 DEF PROC Vsf_Color(Intin%(0)) 64616 VDI (25,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64617 RETURN 64618 ' 64619 DEF PROC Vq_Color(Intin%(0),Intin%(1),R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3)) 64620 VDI (26,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(4),Ptsout%(0,0)) 64621 RETURN 64622 ' 64623 DEF PROC Vrq_Locator(Ptsin%(0,0),Ptsin%(1,0),R Intout%(0),R Ptsout%(0,0),R Ptsout%(1,0)) 64624 Vsin_Mode(1,1) 64625 VDI (28,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(1),Ptsout%(0,1)) 64626 RETURN 64627 ' 64628 DEF PROC Vsm_Locator(Ptsin%(0,0),Ptsin%(1,0),R X%L,R Intout%(0),R Ptsout%(0,0),R Ptsout%(1,0)) 64629 Vsin_Mode(1,2) 64630 VDI (28,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(1),Ptsout%(0,1)) 64631 X%L=Ctrl%(4)*2+Ctrl%(2) 64632 RETURN 64633 ' 64634 DEF PROC Vrq_Valuator(Intin%(0),R Intout%(0),R Intout%(1)) 64635 Vsin_Mode(2,1) 64636 VDI (29,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(2),Ptsout%(0,0)) 64637 RETURN 64638 ' 64639 DEF PROC Vsm_Valuator(Intin%(0),R X%L,R Intout%(0),R Intout%(1)) 64640 Vsin_Mode(2,2) 64641 VDI (29,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(2),Ptsout%(0,0)) 64642 X%L=Ctrl%(4) 64643 RETURN 64644 ' 64645 DEF PROC Vrq_Choice(Intin%(0),R Intout%(0)) 64646 Vsin_Mode(3,1) 64647 VDI (30,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64648 RETURN 64649 ' 64650 DEF PROC Vsm_Choice(R X%L,R Intout%(0)) 64651 Vsin_Mode(3,2) 64652 VDI (30,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64653 X%L=Ctrl%(4) 64654 RETURN 64655 ' 64656 DEF PROC Vrq_String(Intin%(0),Intin%(1),Ptsin%(0,0),Ptsin%(1,0),R Text$): LOCAL X%L,I%L 64657 Vsin_Mode(4,1):X%L=Intin%(0) 64658 VDI (31,Ctrl%(12),Intin%(2),Ptsin%(0,1),Intout%(128),Ptsout%(0,0)) 64659 Text$="" 64660 IF X%L<0 THEN 64661 FOR I%L=1 TO Ctrl%(4):Text$=Text$+ MKI$(Intout%(I%L-1)): NEXT 64662 ELSE 64663 FOR I%L=1 TO Ctrl%(4):Text$=Text$+ CHR$(Intout%(I%L-1)): NEXT 64664 ENDIF RETURN 64665 ' 64666 DEF PROC Vsm_String(Intin%(0),Intin%(1),Ptsin%(0,0),Ptsin%(1,0),R Text$): LOCAL X%L,I%L 64667 Vsin_Mode(4,2):X%L=Intin%(0) 64668 VDI (31,Ctrl%(12),Intin%(2),Ptsin%(0,1),Intout%(128),Ptsout%(0,0)) 64669 Text$="" 64670 IF X%L<0 THEN 64671 FOR I%L=1 TO Ctrl%(4):Text$=Text$+ MKI$(Intout%(I%L-1)): NEXT 64672 ELSE 64673 FOR I%L=1 TO Ctrl%(4):Text$=Text$+ CHR$(Intout%(I%L-1)): NEXT 64674 ENDIF RETURN 64675 ' 64676 DEF PROC Vswr_Mode(Intin%(0)) 64677 VDI (32,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64678 RETURN 64679 ' 64680 DEF PROC Vsin_Mode(Intin%(0),Intin%(1)) 64681 VDI (33,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64682 RETURN 64683 ' 64684 DEF PROC Vql_Attributes(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4),R Ptsout%(0,0),R Ptsout%(1,0)) 64685 VDI ($10023,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(5),Ptsout%(0,1)) 64686 RETURN 64687 ' 64688 DEF PROC Vqm_Attributes(R Intout%(0),R Intout%(1),R Intout%(2),R Ptsout%(0,0),R Ptsout%(1,0)) 64689 VDI ($10024,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(3),Ptsout%(0,1)) 64690 RETURN 64691 ' 64692 DEF PROC Vqf_Attributes(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64693 VDI (37,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(5),Ptsout%(0,0)) 64694 RETURN 64695 ' 64696 DEF PROC Vqt_Attributes(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4),R Intout%(5),R Ptsout%(0,0),R Ptsout%(1,0),R Ptsout%(0,1),R Ptsout%(1,1)) 64697 VDI ($30026,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(6),Ptsout%(0,2)) 64698 RETURN 64699 ' 64700 DEF PROC Vst_Alignment(Intin%(0),Intin%(1)) 64701 VDI (39,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64702 RETURN 64703 ' 64704 DEF PROC V_Opnwk(X%L) 64705 V_Opnwk(X%L,1,1,1,1,1,1,1,1,1,2) 64706 RETURN 64707 DEF FN V_Opn_Check%L(V%L) 64708 IF WPEEK(FN Reserved%L(18))=V%L THEN 64709 V%L=18 ELSE IF WPEEK(FN Reserved%L(20))=V%L THEN 64710 V%L=20 ELSE IF WPEEK(FN Reserved%L(22))=V%L THEN 64711 V%L=22 ELSE V%L=0 ENDIF ENDIF ENDIF RETURN V%L 64712 DEF PROC V_Opnwk(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8),Intin%(9),Intin%(10)) 64713 IF FN V_Opn_Check%L(0)=0 THEN Intout%(6)=0: EXIT 64714 VDI ($3F0001,Ctrl%(12),Intin%(11),Ptsin%(0,0),Intout%(45),Ptsout%(0,6)) 64715 WPOKE FN Reserved%L(FN V_Opn_Check%L(0)),Ctrl%(6) 64716 RETURN 64717 ' 64718 DEF PROC V_Clswk 64719 IF FN V_Opn_Check%L(Ctrl%(6))=0 THEN EXIT 64720 VDI (2,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64721 WPOKE FN Reserved%L(FN V_Opn_Check%L(Ctrl%(6))),0 64722 RETURN 64723 ' 64724 DEF PROC V_Opnvwk 64725 V_Opnvwk(1,1,1,1,1,1,1,1,1,1,2) 64726 RETURN 64727 DEF FN V_Opnv_Check%L(V%L) 64728 IF WPEEK(FN Reserved%L(24))=V%L THEN 64729 V%L=24 ELSE IF WPEEK(FN Reserved%L(26))=V%L THEN 64730 V%L=26 ELSE IF WPEEK(FN Reserved%L(28))=V%L THEN 64731 V%L=28 ELSE V%L=0 ENDIF ENDIF ENDIF RETURN V%L 64732 DEF PROC V_Opnvwk(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Intin%(5),Intin%(6),Intin%(7),Intin%(8),Intin%(9),Intin%(10)) 64733 IF FN V_Opnv_Check%L(0)=0 THEN Intout%(6)=0: EXIT 64734 VDI ($3F0064,Ctrl%(12),Intin%(11),Ptsin%(0,0),Intout%(45),Ptsout%(0,6)) 64735 WPOKE FN Reserved%L(FN V_Opnv_Check%L(0)),Ctrl%(6) 64736 RETURN 64737 ' 64738 DEF PROC V_Clsvwk 64739 IF FN V_Opnv_Check%L(Ctrl%(6))=0 THEN EXIT 64740 VDI (101,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64741 WPOKE FN Reserved%L(FN V_Opnv_Check%L(Ctrl%(6))),0 64742 RETURN 64743 ' 64744 DEF PROC Vq_Extnd(Intin%(0)) 64745 VDI ($3F0066,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(45),Ptsout%(0,6)) 64746 RETURN 64747 ' 64748 DEF PROC V_Contourfill(Ptsin%(0,0),Ptsin%(1,0),Intin%(0)) 64749 VDI (103,Ctrl%(12),Intin%(1),Ptsin%(0,1),Intout%(0),Ptsout%(0,0)) 64750 RETURN 64751 ' 64752 DEF PROC Vsf_Perimeter(Intin%(0)) 64753 VDI (104,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64754 RETURN 64755 ' 64756 DEF PROC V_Get_Pixel(Ptsin%(0,0),Ptsin%(1,0),R Intout%(0),R Intout%(1)) 64757 VDI (105,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(2),Ptsout%(0,0)) 64758 RETURN 64759 ' 64760 DEF PROC Vst_Effects(Intin%(0)) 64761 VDI (106,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64762 RETURN 64763 ' 64764 DEF PROC Vst_Point(Intin%(0)) 64765 VDI ($3006B,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,2)) 64766 RETURN 64767 DEF PROC Vst_Point(Intin%(0),Ptsout%(0,0),Ptsout%(1,0),Ptsout%(0,1),Ptsout%(1,1)) 64768 VDI ($3006B,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,2)) 64769 RETURN 64770 ' 64771 DEF PROC Vsl_Ends(Intin%(0),Intin%(1)) 64772 VDI (108,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64773 RETURN 64774 ' 64775 DEF PROC Vro_Cpyfm(X%L,Y%L,Intin%(0),Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1),Ptsin%(0,2),Ptsin%(1,2),Ptsin%(0,3),Ptsin%(1,3)) 64776 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L):Ctrl%(9)= HIGH(Y%L):Ctrl%(10)= LOW(Y%L) 64777 VDI (109,Ctrl%(12),Intin%(1),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 64778 RETURN 64779 ' 64780 DEF PROC Vr_Trnfm(X%L,Y%L) 64781 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L):Ctrl%(9)= HIGH(Y%L):Ctrl%(10)= LOW(Y%L) 64782 VDI (110,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64783 RETURN 64784 ' 64785 DEF PROC Vsc_Form(Intin%(0),Intin%(1),Intin%(2),Intin%(3),Intin%(4),Text$) 64786 LOCAL I%L: FOR I%L=0 TO 31:Intin%(I%L+5)= CVI( MID$(Text$,I%L*2+1)): NEXT 64787 VDI (111,Ctrl%(12),Intin%(37),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64788 RETURN 64789 ' 64790 DEF PROC Vsf_Udpat(X%L) 64791 VDI (112,Ctrl%(12),Intin%(X%L*16),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64792 RETURN 64793 ' 64794 DEF PROC Vex_Timv(R X%L,R Intout%(0)) 64795 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L) 64796 VDI (118,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64797 X%L=Ctrl%(9) SHL 16 OR Ctrl%(10) AND $FFFF 64798 RETURN 64799 ' 64800 DEF PROC Vsl_Udsty(Intin%(0)) 64801 VDI (113,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64802 RETURN 64803 ' 64804 DEF PROC V_Recfl(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64805 VDI (114,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64806 RETURN 64807 ' 64808 DEF PROC Vqin_Mode(Intin%(0),R Intout%(0)) 64809 VDI (115,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64810 RETURN 64811 ' 64812 DEF PROC Vqt_Name(Intin%(0),R Intout%(0),R Text$) 64813 LOCAL I%L 64814 VDI (130,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(32),Ptsout%(0,0)) 64815 Text$="" 64816 FOR I%L=1 TO 32:Text$=Text$+ CHR$(Intout%(I%L)): NEXT 64817 RETURN 64818 ' 64819 DEF PROC Vqt_Fontinfo(R Intout%(0),R Intout%(1)) 64820 VDI ($1F0083,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(2),Ptsout%(0,5)) 64821 RETURN 64822 ' 64823 DEF PROC Vq_Chcells(R Intout%(0),R Intout%(1)) 64824 Ctrl%(5)=1 64825 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(2),Ptsout%(0,0)) 64826 RETURN 64827 ' 64828 DEF PROC V_Exit_Cur 64829 PRINT CHR$(27);"f"; CHR$(27);"E";: RETURN 64830 ' 64831 DEF PROC V_Enter_Cur 64832 PRINT CHR$(27);"E"; CHR$(27);"e";: RETURN 64833 ' 64834 DEF PROC V_Curup 64835 PRINT CHR$(27);"A";: RETURN 64836 ' 64837 DEF PROC V_Curdown 64838 PRINT CHR$(27);"B";: RETURN 64839 ' 64840 DEF PROC V_Curright 64841 PRINT CHR$(27);"C";: RETURN 64842 ' 64843 DEF PROC V_Curleft 64844 PRINT CHR$(27);"D";: RETURN 64845 ' 64846 DEF PROC V_Curhome 64847 PRINT CHR$(27);"H";: RETURN 64848 ' 64849 DEF PROC V_Eeos 64850 PRINT CHR$(27);"J";: RETURN 64851 ' 64852 DEF PROC V_Eeol 64853 PRINT CHR$(27);"K";: RETURN 64854 ' 64855 DEF PROC V_Curaddress(Y%L,X%L) 64856 PRINT @(Y%L-1,X%L-1);: RETURN 64857 ' 64858 DEF PROC V_Curtext(Text$) 64859 PRINT Text$;: RETURN 64860 ' 64861 DEF PROC V_Rvon 64862 PRINT CHR$(27);"p";: RETURN 64863 ' 64864 DEF PROC V_Rvoff 64865 PRINT CHR$(27);"q";: RETURN 64866 ' 64867 DEF PROC Vq_Curaddress(R Y%L,R X%L) 64868 Y%L= CSRLIN :X%L= POS(0)+1: RETURN 64869 ' 64870 DEF PROC Vq_Tabstatus(R Intout%(0)) 64871 Ctrl%(5)=16 64872 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64873 RETURN 64874 ' 64875 DEF PROC V_Hardcopy 64876 XBIOS (,20): RETURN 64877 ' 64878 DEF PROC V_Dspcur(Ptsin%(0,0),Ptsin%(1,0)) 64879 Ctrl%(5)=18 64880 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,1),Intout%(0),Ptsout%(0,0)) 64881 RETURN 64882 ' 64883 DEF PROC V_Rmcur 64884 Ctrl%(5)=19 64885 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64886 RETURN 64887 ' 64888 DEF PROC V_Form_Adv 64889 Ctrl%(5)=20 64890 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64891 RETURN 64892 ' 64893 DEF PROC V_Output_Window(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64894 Ctrl%(5)=21 64895 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64896 RETURN 64897 ' 64898 DEF PROC V_Clear_Disp_List 64899 Ctrl%(5)=22 64900 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64901 RETURN 64902 ' 64903 DEF PROC V_Bit_Image(Text$,Intin%(0),Intin%(1),X%L,Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64904 LOCAL I%L:Intin%(2)=0 64905 Ctrl%(5)=23 64906 IF LEN(Text$) THEN 64907 FOR I%L=1 TO LEN(Text$):Intin%(I%L+1)= ASC( MID$(Text$,I%L,1)): NEXT :Intin%(I%L+1)=0 64908 ENDIF 64909 VDI (5,Ctrl%(12),Intin%( LEN(Text$)+2),Ptsin%(0,X%L),Intout%(0),Ptsout%(0,0)) 64910 RETURN 64911 ' 64912 DEF PROC Vq_Scan(R Intout%(0),R Intout%(1),R Intout%(2),R Intout%(3),R Intout%(4)) 64913 Ctrl%(5)=24 64914 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(5),Ptsout%(0,0)) 64915 RETURN 64916 ' 64917 DEF PROC V_Alpha_Text(Text$): LOCAL I%L,L%L= LEN(Text$) 64918 Ctrl%(5)=25: FOR I%L=1 TO L%L:Intin%(I%L-1)= ASC( MID$(Text$,I%L,1)): NEXT :Intin%(L%L)=0 64919 VDI (5,Ctrl%(12),Intin%(L%L+1),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64920 RETURN 64921 ' 64922 DEF PROC Vs_Palette(Intin%(0)) 64923 Ctrl%(5)=60 64924 VDI (5,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64925 RETURN 64926 ' 64927 DEF PROC Vqp_Films(R Text$) 64928 Ctrl%(5)=91:Text$="" 64929 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(125),Ptsout%(0,0)) 64930 FOR I%L=0 TO 124:Text$=Text$+ CHR$(Intout%(I%L)): NEXT 64931 RETURN 64932 ' 64933 DEF PROC Vqp_State 64934 Ctrl%(5)=92 64935 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(21),Ptsout%(0,0)) 64936 RETURN 64937 ' 64938 DEF PROC Vsp_State 64939 Ctrl%(5)=93 64940 VDI (5,Ctrl%(12),Intin%(21),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64941 RETURN 64942 ' 64943 DEF PROC Vsp_Save 64944 Ctrl%(5)=94 64945 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64946 RETURN 64947 ' 64948 DEF PROC Vsp_Message 64949 Ctrl%(5)=95 64950 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64951 RETURN 64952 ' 64953 DEF PROC Vqp_Error(R Intout%(0)) 64954 Ctrl%(5)=96 64955 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64956 RETURN 64957 ' 64958 DEF PROC V_Meta_Extents(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 64959 Ctrl%(5)=98 64960 VDI (5,Ctrl%(12),Intin%(0),Ptsin%(0,2),Intout%(0),Ptsout%(0,0)) 64961 RETURN 64962 ' 64963 DEF PROC V_Write_Meta(X%L,Intin%(0),Y%L) 64964 Ctrl%(5)=99 64965 VDI (5,Ctrl%(12),Intin%(X%L+1),Ptsin%(0,Y%L),Intout%(0),Ptsout%(0,0)) 64966 RETURN 64967 ' 64968 DEF PROC Vm_Filename(Text$) 64969 LOCAL I%L:Intin%(0)=0 64970 IF LEN(Text$) THEN 64971 FOR I%L=1 TO LEN(Text$):Intin%(I%L-1)= ASC( MID$(Text$,I%L,1)): NEXT :Intin%(I%L+1)=0 64972 ENDIF 64973 Ctrl%(5)=100 64974 VDI (5,Ctrl%(12),Intin%( LEN(Text$)),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 64975 RETURN 64976 ' 64977 DEF PROC Vs_Scanline(Intin%(0)) 64978 Ctrl%(5)=101 64979 VDI (5,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64980 RETURN 64981 ' 64982 DEF PROC Vs_Sysfont(X%L) 64983 Ctrl%(5)=102:Intin%(0)= HIGH(X%L):Intin%(1)= LOW(X%L) 64984 VDI (5,Ctrl%(12),Intin%(2),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 64985 RETURN 64986 ' 64987 DEF PROC Vqt_Extent(Text$,R Ptsout%(0,0),R Ptsout%(1,0),R Ptsout%(0,1),R Ptsout%(1,1),R Ptsout%(0,2),R Ptsout%(1,2),R Ptsout%(0,3),R Ptsout%(1,3)) 64988 LOCAL I%L 64989 FOR I%L=1 TO LEN(Text$):Intin%(I%L-1)= ASC( MID$(Text$,I%L)): NEXT 64990 VDI ($F0074,Ctrl%(12),Intin%(I%L-1),Ptsin%(0,0),Intout%(4),Ptsout%(0,4)) 64991 RETURN 64992 ' 64993 DEF PROC Vqt_Width(Intin%(0),R Intout%(0),R Ptsout%(0,0),R Ptsout%(0,1),R Ptsout%(0,2)) 64994 VDI ($70075,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(1),Ptsout%(0,3)) 64995 RETURN 64996 ' 64997 DEF PROC Vq_Cellarray(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1),Ctrl%(7),Ctrl%(8),R X%L,R Y%L,R I%L) 64998 X%L=Ctrl%(7)*Ctrl%(8) 64999 VDI (27,Ctrl%(11),Intin%(0),Ptsin%(0,2),Intout%(X%L),Ptsout%(0,0)) 65000 X%L=Ctrl%(9):Y%L=Ctrl%(10):I%L=Ctrl%(11) 65001 RETURN 65002 ' 65003 DEF PROC Vrt_Cpyfm(X%L,Y%L,Intin%(0),Intin%(1),Intin%(2),Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1),Ptsin%(0,2),Ptsin%(1,2),Ptsin%(0,3),Ptsin%(1,3)) 65004 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L):Ctrl%(9)= HIGH(Y%L):Ctrl%(10)= LOW(Y%L) 65005 VDI (121,Ctrl%(12),Intin%(3),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 65006 RETURN 65007 ' 65008 DEF PROC V_Show_C:V_Show_C(0): RETURN 65009 DEF PROC V_Show_C(Intin%(0)) 65010 VDI (122,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65011 RETURN 65012 ' 65013 DEF PROC V_Hide_C 65014 VDI (123,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65015 RETURN 65016 ' 65017 DEF PROC Vq_Mouse(R Intout%(0),R Ptsout%(0,0),R Ptsout%(1,0)) 65018 VDI (124,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(1),Ptsout%(0,1)) 65019 RETURN 65020 ' 65021 DEF PROC Vex_Butv(R X%L) 65022 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L) 65023 VDI (125,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65024 X%L=Ctrl%(9) SHL 16 OR Ctrl%(10) AND $FFFF 65025 RETURN 65026 ' 65027 DEF PROC Vex_Motv(R X%L) 65028 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L) 65029 VDI (126,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65030 X%L=Ctrl%(9) SHL 16 OR Ctrl%(10) AND $FFFF 65031 RETURN 65032 ' 65033 DEF PROC Vex_Curv(R X%L) 65034 Ctrl%(7)= HIGH(X%L):Ctrl%(8)= LOW(X%L) 65035 VDI (127,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65036 X%L=Ctrl%(9) SHL 16 OR Ctrl%(10) AND $FFFF 65037 RETURN 65038 ' 65039 DEF PROC Vq_Key_S(R Intout%(0)) 65040 VDI (128,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(1),Ptsout%(0,0)) 65041 RETURN 65042 ' 65043 DEF PROC Vs_Clip(Ptsin%(0,0),Ptsin%(1,0),Ptsin%(0,1),Ptsin%(1,1)) 65044 Intin%(0)=1 65045 VDI (129,Ctrl%(12),Intin%(1),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 65046 RETURN 65047 ' 65048 DEF PROC Vs_Clip:Intin%(0)=0 65049 VDI (129,Ctrl%(12),Intin%(1),Ptsin%(0,4),Intout%(0),Ptsout%(0,0)) 65050 RETURN 65051 ' 65052 DEF PROC V_Clrwk 65053 VDI (3,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65054 RETURN 65055 ' 65056 DEF PROC V_Updwk 65057 VDI (4,Ctrl%(12),Intin%(0),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65058 RETURN 65059 ' 65060 DEF PROC Vst_Load_Fonts(R X%L) 65061 Intin%(0)=X%L' RESERVED FOR FUTURE USE 65062 VDI (119,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65063 X%L=Intout%(0) 65064 RETURN 65065 ' 65066 DEF PROC Vst_Unload_Fonts(Intin%(0)) 65067 VDI (120,Ctrl%(12),Intin%(1),Ptsin%(0,0),Intout%(0),Ptsout%(0,0)) 65068 RETURN 65069 ' 65070 DEF PROC Vs_Ndc 65071 WPOKE LPEEK( SEGPTR -24),0 65072 RETURN 65073 ' 65074 DEF PROC Vs_Ndc(X%L,Y%L,W%L,H%L): LOCAL I%L 65075 I%L= LPEEK( SEGPTR -24): WPOKE I%L,$FFFF: WPOKE I%L+2,X%L: WPOKE I%L+4,Y%L: WPOKE I%L+6,W%L-X%L+1: WPOKE I%L+8,H%L-Y%L+1 65076 RETURN 65077 ' 65078 ' Patchen von Fehlern in BASIC V 3.0 / 3.00 ( MEMORY_MOVEB / VS_NDC ) 65079 ' 65080 DEF PROC Patch_Basic(Nr%L,Offset%L,V_Old%L,V_New%L): LOCAL X%L 65081 IF LPEEK( SEGPTR +20)=0 THEN EXIT 65082 X%L= LPEEK( SEGPTR -36):X%L=X%L+ WPEEK(X%L+Nr%L*2)+Offset%L 65083 IF WPEEK(X%L)=V_Old%L THEN WPOKE X%L,V_New%L 65084 RETURN 65085 ' 65086 ' Simulation der Funktion RESERVED fr OMIKRON.BASIC V3.0 65087 ' 65088 DEF FN Reserved%L(X%L)= LPEEK( SEGPTR -28)+6+X%L nL0FR      ,JRV\fjn !"N#z$%&'()*+,-./012 3$445D6J7N8R9b:r;x<|=>?@ABCDEFGHI8JJKdL~MNOPQRS@T\UzVWXYZ[\]^_`abcd,e8f<gBhNihjtkxl~mnopqrstu:v~wxyz { | j} x~  8 D T ` r z  L   ( , 4 @ F J P V p   6 < R V f t z 0:Jd&@Jf(<R^bjt *:V^jx>FP~ $28@Ffnt ~     ,0Dbfp~ !"(#:$J%\&p'()*+,-./ 01,2<3B4567896:@;J<T=^>h?r@|ABCDEFFZGHIJKL>MtNOPQRSTUVW:XJYRZf[\]^_`abcd e*f@gXhrijklmnop,q4LI ************************************************************************I * GEMSEL.BAS 04.12.86, (C) 1986 Horst Mohr, Saarbrcken *I ************************************************************************DGEM.LIBRD8$ Platz fr GEMDOS u. STACK~]c"3 Standard Path-Name fr Basic-Programme "6 Standard Path-Name fr zugehrige Dateien(>> >$?$"$,"0",4",8",<"8@"8 DHLoD&PT"&X&\D`&`dh"`Dhd hltp?x"}]|"R]"R]"'GEM Library fr OMIKRON-BASIC% nicht ausschreiben, sonst krzt sich3& dieses Programm genau hier selbst ab.?,,?(h"h"h  > &  Ho              6>>>>?>>>?>>>?>@>?>> >$>?>?>>>?>>>?465 >> >$>?>.Programm zum selektieren von Gemlib-Proceduren|?>? $>> >$?>>> >$?(>> >$>(? $(,?46,"X"0 $(0X"460U $x0460Ux $0464"8"<-@"D"H"L"NPTX"\"`"2dGESC=Zeile lschen, UNDO=Vorgabe, CURSOR links/rechts, RETURN=bernehmenX\2Korrigieren Sie u.U. den Path-Namen fr GEMLIB.BAShX>\>>> u a0 +: +\ +_`>PATHPATHfd;Abbruch (ohne Datenverlust auf Disk) mit Maustaste mglich!Jk3l>8Bitte etwas Geduld, ...immer noch schneller als 'zu Fu'?tp>x"4t GEMLIB.BAS4"4h" h|h" h>DAlle Gemlib-Aufrufe im Programm suchen, Proceduren evtl markieren...?"x."?< h" hdJk3>EProgramm incl. bentigter Gemlib-Proceduren als ASCII-File schreiben.?>Sie knnen Ihr Programm p laden. Backup= ?d/Programm beendet! -- Bitte (Maus)Taste drcken!>?HH4l)1[2][Mchten Sie das|Programm abbrechen?][Ja|Nein]- 3F46<>>$> ?dIhr Programm mu mit SAVE "NAME.BAS"',A (also in ASCII) abgespeichert sein!"*.BAS"*p"\>>$> ? F46tpJ'  OJ' Jk3d -- FehlerZ Zeile[ beim lesen: \F8IpLesen p in Programm_zeile$(j pC4P4PF4 k4 )4"44TT"T&TPJ' 46|7>%Finden aller Proceduren in Gemlib ...?"x4"PDEF PROC  X"P Ɂ #######\"P Proc Nr. X  2 In Zeile \ "  "47h"h" 6hS"hh"h47" Ɍ0940 0-9AZ40 A-Z_40 "_"4<657h"0X4,h"`Xhd "0 h""X"\Proc Zeile07 Gemlib-Intern4 Programm-ZeileRh"h.hPhP"0h" h70 Aufruf JA  Aufruf NEIN467hnh"x84 hP\D  Markieren! hP"*8"h h"4 h467h""<J'  O"pp..܃.BAK$J' #p8Op h"hh4  0,hP' "<   hP*(hP"0   hP$hP"hP Auszug mhPhP  4? Folgende Proceduren bleiben immer bestehen, weil sie in GEMLIB& u.U. intern aufgerufen werden knnen. & Anzahl Datas-1 AES  Appl_Exit Menu_Bar  Form_Dial  Graf_Handle  Graf_Mouse  Wind_Close  Wind_Delete Wind_Get  Wind_Update  Rsrc_Free VDI  Vsin_Mode V_Opnvwk V_Clsvwk V_Show_C V_Hide_C6ld?H).[3][Ich kann GEMSEL.RSC nicht finden][Abbruch]Lo "$ >p?("$(>?"""""""4DEigene Proceduren/Funktionen ---------------------------------------6hX\,5048<@D\X\"xX"YH"ssa+'sHsPL",P"8TX"LX\eL4H\PX`"\d"\daL", T UndodL" T EscapedH<%h"<lFh Cursor hochdP@%h"@lFh Cursor tiefL'L"LL'܃0"Ll46lX\0_P046dp7t"hjHeolrvonpOOrvoff p--S khteolrvon OrvoffD@LHPk46PHHLHHLD@@D4xxc 4Exeol 4Kxrvon 4pxrvoff 4qd!Fehler in Funktion -- Fn Crt$(...47|"@]"hc|cG^_|.h"?h|"h| h4|Aɀ:\o&6HVbnz,@Nbjv (:LZhv&6BTdp~$4@L^hr| @JR^ &6>P\nz,BVdx&0:FPZhxFNCRTPRG_PATHFNGETDIRDAT_PATHAPPL_INITV_OPNVWKXDESKYDESKWDESKHDESKWIND_GETTRUEJAEINFALSENEINAUSPRGENDEAPPL_EXITPROGRAMM_ZEILEPGM_MAXLINPROCEDUR_NAMEPROCEDUR_ZEILEANZ_DATAGEMLIB_INTERNIR_INITRSC00MENU_BARBILDWMEM2WMEM3ERKENNUNGWI_TOPWINDOW_OPENEVNT_LOOPWINDOW_PUTMSGEVNT_MESAGMSGMN_SELECTEDMENU_TNORMALR_00FILER_00ENDER_00DESKR_00INFORSC01R_00WAHLR_00EXCLSTARTWINDOW_GETWM_REDRAWRSC01FO_CXFO_CYFO_CWFO_CHFORM_CENTERFORM_DIALR_01OKOBJC_CHANGEOBJC_DRAWR_EXITFORM_DOWI_HANDLEWIND_UPDATEWIND_CREATEWIND_SETGRAF_GROWBOXWIND_OPENXWORKYWORKWWORKHWORKWINDOW_CLEARGRAF_MOUSEZEILEMARKEFILE_AUSWAHLCY1CX1CY2CX2WINDOW_TEILPATHYXLINFOEF_ST BREAK_VOR_SCHREIBENFILELESE_PROGRAMMGEM_ZEIGERFINDE_ALLE_PROCEDUREN_IN_GEMLIBBISPRAUFRUFSUCHE_GEMLIB_AUFRUFE_IM_PRGGEMLIB_MARKIERENSCHREIBE_PROGRAMM_INCL_GEMLIBFILE_BACKSTART_1V_SHOW_CFO_RETBREAK_1PATHFILE_NAMEFSEL_RETNLESE_FEHLERLESENLESE_ABBRUCHANZAHLGEM_HELPFINDFNISOLIERE_PROCEDUR_NAMEZEILERETFNPROC_CHARCHARASCIIGEMLIB_INTERNPRZLUEBERSPRINGESCHREIBE_FEHLERSCHREIBE_KILLSCHREIBESCHREIBE_LOOPSCHREIBE_ENDR_NAMERETRSRC_LOADRSC00RSRC_GADDRRSC01VORGVARMASKAZURVOREXEXITINANZWDHLANGRET_CODERET_ASCIIRET_SCANLEF_AUSGINFOTCDRVBUFGEMDas Programm GEMSEL hat uns Horst Mohr, Saarbrcken freundlicherweise zur Weitergabe berlassen. Wir mchten uns an dieser Stelle nochmals ganz herzlich bei ihm bedanken. Der folgende Text stammt von Herrn Mohr selbst und erklrt die Bedienung seines GEM-SELECTORS ------------------------------------------------------------------------------- GEMSEL.BAS (Programm-Kurzbeschreibung/Anleitung) Zweck des Programms: Wenn Sie Programme schreiben, die das 'MERGE' von GEMLIB.BAS erforderlich machen, vergrern sich Ihre Programme dadurch erheblich. 'Von Hand' nur diejenigen Proceduren dazuzumergen die im jeweiligen Programm gebraucht werden, ist recht umstndlich, zumal einige Gemlib- Proceduren wiederum andere Gemlib-Proceduren aufrufen. Das Programm GEMSEL.BAS fhrt genau diese Ttigkeiten fr Sie durch. Dazu gehen Sie wie folgt vor: Schreiben Sie Ihr Programm. Mergen Sie GEMLIB.BAS hinzu. Testen bzw. erweitern/verbessern Sie Ihr Programm. Ist Ihr Programm fertig u. fehlerfrei: Saven Sie Ihr Programm (ohne GEMLIB) mit SAVE "NAME.BAS",A (Das heit Ihr Programm mu 'in ASCII' auf Disk/Platte vorligen.) Starten Sie GEMSEL.BAS Whlen Sie unter "GEMLIB" den Menpunkt "einbinden & aussortieren" Eine File-select-Box erscheint: Whlen Sie den Namen Ihres Programms. Eine weitere Abfrage erscheint: Disk+Pathname von GEMLIB.BAS (korrigierern bzw. ergnzen Sie wenn ntig. Nicht GEMLIB.BAS dahinterschreiben) Das Programm luft nun 'vollautomatisch' ab d.h. Sie brauchen keine weiteren Eingaben/Angaben mehr zu machen. Auf dem Bildschirm erscheinen eine Menge Angaben, die Sie darber informieren, was das Programm gerade macht. Ist das Programm abgearbeitet, verlassen Sie das Programm GEMSEL.BAS. Laden Sie nun Ihr Programm. Ihr Programm enthlt nun aus GEMLIB.BAS nur diejenigen Proceduren, die Ihr Programm benutzt, und alle Proceduren, die in GEMLIB.BAS 'intern' aufgerufen werden. Anmerkung: Unter dem Namen Ihres Programms, jedoch mit der Endung .BAK, finden Sie Ihr Programm, so wie es vor der Bearbeitung durch GEMSEL.BAS war. ------------------------------------------------------------------------------- In der Krze der Zeit war es nicht mglich, berall das einzubauen, was man noch so an Ideen hat. Ich wrde mich ferner auf Reaktionen Ihrerseits freuen. Sie knnen mir gerne schreiben. Vieleicht auch mal ein Listing einer besonders gelungenen Procedur, oder eines kleinen Demo-Programms mit GEM etc. Meine Adresse: Horst Mohr, Breite Strae 7, 6600 Saarbrcken 2  $& Desk File GEMLIB Information -------------------- Desk Accessory 1 Desk Accessory 2 Desk Accessory 3 Desk Accessory 4 Desk Accessory 5 Desk Accessory 6 Programmende aussortieren & einbindenHorst Mohr6600 Saarbrcken 2Breite Strae 7Ok, ich werd's lesen.GEMSEL.DOC auf Ihrer Diskette.Lesen Sie bitte die ProgrammbeschreibungDieses Programm ist frei kopierbar.8x>pwpyp kap ap kyp kip kip oypwx>8X0(    ,-.>?Vuvw)$PP $ + 2 P ; J _ t   * &  B ^ @ z   ( #\xF   $ , 6>FN$*.>R\j !"#$%&'()L*X+^,-./01*2@3H4L5b6z7|89:;<=>?@A  : IS_LIB.BAS/ Demo-Programm zur ISAM-Library, Stand 13.11.86N IS_DEMO legt 2 Dateien an: ADRESSEN.DAT (Stammdatei) und ADRESSEN.I01 (Index)RD"% Konstanten fr verschiedene" Suchtypen" (bei Is_Entry(...) ) """"" "$"x(", >>>> ?" Name als (einziges) Suchkriterium0 >adressen$>(> ?# "4 Taste [F10] belegen, damit sptere Reaktion mglich48<"@<@"<D H ? 4L@@"DT >>P? P4: XP<"<D"<@  4\` ?o687<dE Bildschirm lschenBSuchen nach Name mit [HELP], Abspeichern mit [F10], Ende mit [ESC]Gh/<"D<l<<l<D <" p<<l<D a0%UsbsDssHsPdd"ddDF Abspeichern bei [F10]dbFL bei [HELP]dF\ bei [ESC] dH%< <"< p< <"< endlosschleife4h  Name :  Strae :  PLZ, Ort :  Bemerkungen: 6t8i adressen.dat {p49X@@@@4o*DR`n| (4@P\ftASCIIALPHABETISCHNUMERISCHIS_HANDLE_ADDRESSENNR_NAMEPOS_NAMELEN_NAMETYP_NAMEANZAHL_SUCHKRITLEN_RECORD_ADDRESSEPHYS_HANDLEIS_ENTRYIS_OPENSCHLEIFEEINGABEIBUFFEREINGABEIS_INSERTSUCHENREC_NRIS_SEARCHIS_FNRENDEIS_CLOSETASTETITELTITELEINGABE1TYPE63000 END ' Isam-Library. Stand 05.07.88 63001 DEF PROC Is_Open(Handle%L,Is_Name$,Laenge%L,Filenr%L,Anzahl%L) 63005 Is_Namtest: DIM Is_Such$(1):Is_Fnr%L(Handle%L)=Filenr%L:Is_Nam$(Handle%L)=Is_Name$ 63010 Is_Anz%L(Handle%L)=Anzahl%L:Is_Rcl%L(Handle%L)=Laenge%L:Is_Open: RETURN 63015 ' 63020 DEF PROC Is_Close(Handle%L) 63025 Is_Close: RETURN 63030 ' 63035 DEF PROC Is_Update(Handle%L) 63040 Is_Close:Is_Open: RETURN 63045 ' 63050 DEF PROC Is_Backup(Is_Von$,Is_Nach$,Is_Name$,Anzahl%L): LOCAL I%L 63055 Is_Namtest:Is_Von$=Is_Von$+Is_Name$:Is_Nach$=Is_Nach$+Is_Name$ 63060 COPY Is_Von$+".DAT" TO Is_Nach$+".BAK" 63065 FOR I%L=1 TO Anzahl%L 63070 COPY Is_Von$+FN Is_Index$(I%L) TO Is_Nach$+".B"+ RIGHT$( STR$(100+I%L),2) 63075 NEXT : RETURN 63080 ' 63085 DEF PROC Is_Kill(Is_Von$,Is_Name$,Anzahl%L): LOCAL I%L 63090 Is_Namtest:Is_Von$=Is_Von$+Is_Name$: KILL Is_Von$+".DAT" 63095 FOR I%L=1 TO Anzahl%L: KILL Is_Von$+FN Is_Index$(I%L): NEXT : RETURN 63100 ' 63105 DEF FN Is_Index$(I%L)=".I"+ RIGHT$( STR$(100+I%L),2) 63110 ' 63115 DEF PROC Is_Namtest 63120 IF INSTR(Is_Name$,".") OR INSTR(Is_Name$,"*") OR INSTR(Is_Name$,"?") THEN ERROR 64 ELSE RETURN 63125 ' 63130 DEF PROC Is_Open: LOCAL I%L,Filenr%L=Is_Fnr%L(Handle%L) 63135 OPEN "R",Filenr%L,Is_Nam$(Handle%L)+".DAT",Is_Rcl%L(Handle%L): FOR I%L=1 TO Is_Anz%L(Handle%L) 63140 OPEN "R",Filenr%L+I%L,Is_Nam$(Handle%L)+FN Is_Index$(I%L),2+Is_Len%L(Handle%L,I%L): NEXT 63145 FIELD Filenr%L,6 AS Is_$: GET Is_Fnr%L(Handle%L),1 63150 IF EOF(Filenr%L) THEN LSET Is_$= MKIL$($20002)+ MKI$(0) 63155 Is_Next%L(Handle%L)= CVI(Is_$):Is_Free%L(Handle%L)= CVI( MID$(Is_$,3)):Is_Size%L(Handle%L)= CVI( MID$(Is_$,5)) 63160 ON Handle%L GOTO Is_1,Is_2,Is_3,Is_4,Is_5,Is_6,Is_7,Is_8,Is_9,Is_10 63200-Is_0 63205 FIELD Is_Fnr%L(0),0 63210 ' 63215 ' 63220 RETURN 63225-Is_1 63230 FIELD Is_Fnr%L(1),0 63235 ' 63240 ' 63245 RETURN 63250-Is_2 63255 FIELD Is_Fnr%L(2),0 63260 ' 63265 ' 63270 RETURN 63275-Is_3 63280 FIELD Is_Fnr%L(3),0 63285 ' 63290 ' 63295 RETURN 63300-Is_4 63305 FIELD Is_Fnr%L(4),0 63310 ' 63315 ' 63320 RETURN 63325-Is_5 63330 FIELD Is_Fnr%L(5),0 63335 ' 63340 ' 63345 RETURN 63350-Is_6 63355 FIELD Is_Fnr%L(6),0 63360 ' 63365 ' 63370 RETURN 63375-Is_7 63380 FIELD Is_Fnr%L(7),0 63385 ' 63390 ' 63395 RETURN 63400-Is_8 63405 FIELD Is_Fnr%L(8),0 63410 ' 63415 ' 63420 RETURN 63425-Is_9 63430 FIELD Is_Fnr%L(9),0 63435 ' 63440 ' 63445 RETURN 63450-Is_10 63455 FIELD Is_Fnr%L(10),0 63460 ' 63465 ' 63470 RETURN 63475 ' 63480 DEF PROC Is_Close: LOCAL I%L 63485 FOR I%L=0 TO Is_Anz%L(Handle%L): CLOSE Is_Fnr%L(Handle%L)+I%L: NEXT : RETURN 63490 ' 63495 DEF PROC Is_Entry(Handle%L,Nr%L,Position%L,Laenge%L,Typ%L) 63500 Is_Len%L(Handle%L,Nr%L)=Laenge%L:Is_Pos%L(Handle%L,Nr%L)=Position%L:Is_Typ%L(Handle%L,Nr%L)=Typ%L: RETURN 63505 ' 63510 DEF PROC Is_Insert(Handle%L): LOCAL Filenr%L=Is_Fnr%L(Handle%L),I%L,Von%L,Bis%L,Mitte%L,R%L 63515 FIELD Filenr%L,Is_Rcl%L(Handle%L) AS Is_Field$:Is_Field2$=Is_Field$ 63520 R%L=Is_Free%L(Handle%L): IF R%L=Is_Next%L(Handle%L) THEN 63525 Is_Free%L(Handle%L)=R%L+1:Is_Next%L(Handle%L)=R%L+1 ELSE 63530 GET Filenr%L,R%L:Is_Free%L(Handle%L)= CVI(Is_Field$): LSET Is_Field$=Is_Field2$ 63535 ENDIF PUT Filenr%L,R%L 63540 FOR I%L=1 TO Is_Anz%L(Handle%L):Is_Rec$= MKI$(R%L)+ MID$(Is_Field2$,Is_Pos%L(Handle%L,I%L)+1,Is_Len%L(Handle%L,I%L)) 63545 LSET Is_Field$=Is_Field2$:Is_Search:Is_Move(Mitte%L,Is_Size%L(Handle%L)+1) 63550 NEXT :Is_Size%L(Handle%L)=Is_Size%L(Handle%L)+1:Is_Update_Len: RETURN 63555 ' 63560 DEF PROC Is_Replace(Handle%L,Old%L): LOCAL Filenr%L=Is_Fnr%L(Handle%L),I%L,Von%L,Bis%L,Mitte%L,Mitte2%L,R%L 63565 FIELD Filenr%L,Is_Rcl%L(Handle%L) AS Is_Field$:Is_Field2$=Is_Field$ 63570 GET Filenr%L,Old%L:Is_Field3$=Is_Field$ 63575 FOR I%L=1 TO Is_Anz%L(Handle%L) 63580 LSET Is_Field$=Is_Field3$:Is_Search: WHILE CVI(Is_$)<>Old%L:Mitte%L=Mitte%L+1: GET Filenr%L+I%L,Mitte%L: WEND 63585 Mitte2%L=Mitte%L: LSET Is_Field$=Is_Field2$:Is_Search:Mitte%L=Mitte%L+(Mitte%L>Mitte2%L) 63590 Is_Rec$= MKI$(Old%L)+ MID$(Is_Field2$,Is_Pos%L(Handle%L,I%L)+1,Is_Len%L(Handle%L,I%L)):Is_Move(Mitte%L,Mitte2%L) 63595 NEXT : LSET Is_Field$=Is_Field2$: PUT Filenr%L,Old%L: RETURN 63600 ' 63605 DEF PROC Is_Delete(Handle%L,Old%L): LOCAL Filenr%L=Is_Fnr%L(Handle%L),I%L,Von%L,Bis%L,Mitte%L,Is_Rec$,Is_T$ 63610 FIELD Filenr%L,Is_Rcl%L(Handle%L) AS Is_Field$: GET Filenr%L,Old%L:Is_Field2$=Is_Field$ 63615 FOR I%L=1 TO Is_Anz%L(Handle%L) 63620 LSET Is_Field$=Is_Field2$:Is_Search: WHILE CVI(Is_$)<>Old%L:Mitte%L=Mitte%L+1: GET Filenr%L+I%L,Mitte%L: WEND 63625 Is_Rec$= CHR$(0)*(Is_Len%L(Handle%L,I%L)+1+1):Is_Move(Is_Size%L(Handle%L),Mitte%L) 63630 NEXT : LSET Is_Field$= MKI$(Is_Free%L(Handle%L)): PUT Filenr%L,Old%L:Is_Free%L(Handle%L)=Old%L 63635 Is_Size%L(Handle%L)=Is_Size%L(Handle%L)-1:Is_Update_Len: RETURN 63640 ' 63645 DEF PROC Is_Update_Len 63650 FIELD Filenr%L,6 AS Is_Field$ 63655 LSET Is_Field$= MKI$(Is_Next%L(Handle%L))+ MKI$(Is_Free%L(Handle%L))+ MKI$(Is_Size%L(Handle%L)) 63660 PUT Filenr%L,1: RETURN 63665 ' 63670 DEF PROC Is_Search: LOCAL Flag%L 63675 FIELD Filenr%L,Is_Pos%L(Handle%L,I%L),Is_Len%L(Handle%L,I%L) AS Is_Such$:Is_Such2$=Is_Such$ 63680 Von%L=1:Bis%L=Is_Size%L(Handle%L): FIELD Filenr%L+I%L,2,Is_Len%L(Handle%L,I%L) AS Is_$ 63685 WHILE Von%L<=Bis%L:Mitte%L=(Von%L+Bis%L) SHR 1: GET Filenr%L+I%L,Mitte%L 63690 ON Is_Typ%L(Handle%L,I%L) GOTO Is_Search1,Is_Search2 63695 Flag%L=Is_Such2$>Is_$: GOTO Is_Search3 63700-Is_Search1:Is_Such$(0)=Is_Such2$:Is_Such$(1)=Is_$: SORT Is_Such$(0) 63705 Flag%L=Is_Such$(0)<>Is_Such2$: GOTO Is_Search3 63710-Is_Search2:Flag%L= VAL(Is_Such2$)> VAL(Is_$) 63715-Is_Search3: IF Flag%L THEN Von%L=Mitte%L+1 ELSE Bis%L=Mitte%L-1 63720 WEND :Mitte%L=Von%L: GET Filenr%L+I%L,Mitte%L: FIELD Filenr%L+I%L,2 AS Is_$: RETURN 63725 ' 63730 DEF PROC Is_Search(Handle%L,I%L,R R%L): LOCAL Filenr%L=Is_Fnr%L(Handle%L),Von%L,Bis%L,Mitte%L 63735 IF I%L=-1 THEN Mitte%L=Is_Last%L(Handle%L)-1 63740 IF I%L=0 THEN Mitte%L=Is_Last%L(Handle%L)+1 63745 IF I%L>0 THEN Is_Lasti%L(Handle%L)=I%L:Is_Search 63750 R%L=Mitte%L: IF R%L=0 THEN Mitte%L=1 ELSE IF R%L>Is_Size%L(Handle%L) THEN Mitte%L=Is_Size%L(Handle%L):R%L=0 63755 I%L=Is_Lasti%L(Handle%L):Is_Last%L(Handle%L)=Mitte%L 63760 IF R%L THEN GET Filenr%L+I%L,R%L: FIELD Filenr%L+I%L,2 AS Is_$:R%L= CVI(Is_$) ENDIF RETURN 63765 ' 63770 DEF PROC Is_Move(Von%L,Bis%L): LOCAL Filenr%L=Filenr%L+I%L,R1%L,R2%L,L%L=Is_Len%L(Handle%L,I%L)+1+1,P%L 63775 IF ABS(Von%L-Bis%L)>100 THEN 63780 CLOSE Filenr%L: OPEN "R",Filenr%L,Is_Nam$(Handle%L)+FN Is_Index$(I%L),L%L*50 63785 FIELD Filenr%L,L%L*50 AS Is_$:R1%L=(Von%L-1)\50+1:R2%L=(Bis%L-1)\50+1 63790 P%L=((Von%L-1) MOD 50)*L%L: GET Filenr%L,R1%L 63795 IF Von%LR2%L: RSET Is_$=Is_Such2$: PUT Filenr%L,R1%L:R1%L=R1%L-1: GET Filenr%L,R1%L:Is_Such2$=Is_$+ LEFT$(Is_Such2$,L%L): WEND 63835 P%L=((Bis%L-1) MOD 50)*L%L 63840 LSET Is_$= LEFT$(Is_Such2$,P%L)+ MID$(Is_Such2$,P%L+L%L+1): PUT Filenr%L,R2%L 63845 ENDIF 63850 CLOSE Filenr%L: OPEN "R",Filenr%L,Is_Nam$(Handle%L)+FN Is_Index$(I%L),L%L 63855 ELSE 63860 FIELD Filenr%L,L%L AS Is_$: FOR R1%L=Von%L TO Bis%L STEP SGN(Bis%L-Von%L+.1) 63865 GET Filenr%L,R1%L:Is_Such$=Is_$: LSET Is_$=Is_Rec$: PUT Filenr%L,R1%L: SWAP Is_Such$,Is_Rec$: NEXT 63870 ENDIF RETURN 63875 ' 63880 DEF PROC Is_Reorg(Handle%L): LOCAL Filenr%L=Is_Fnr%L(Handle%L),I%L,L%L,R%L 63885 IF Is_Size%L(Handle%L)>Is_Reorg%L THEN STOP ' nach is_reorg: CLEAR! 63890 Is_Reorg%L=Is_Size%L(Handle%L):L%L=Is_Next%L(Handle%L)-1:Is_Reorgm%L= MAX(Is_Reorgm%L,L%L) 63895 DIM Is_Reorg$(Is_Reorg%L-1),Is_Reorg#(Is_Reorg%L-1),Is_Reorg%(Is_Reorg%L-1) 63900 DIM Is_Reorg%F(Is_Reorgm%L): FOR I%L=2 TO L%L:Is_Reorg%F(I%L)=1: NEXT 63905 R%L=Is_Free%L(Handle%L): FIELD Filenr%L,2 AS Is_$ 63910 WHILE R%L>1 AND R%L<=L%L:Is_Reorg%(R%L)=0: GET Filenr%L,R%L:R%L= CVI(Is_$): WEND 63915 IF R%L<>L%L+1 THEN STOP ' Stammdatei ist quatsch mit Soe 63920 FOR Nr%L=1 TO Is_Anz%L(Handle%L) 63925 I%L=0: FOR R%L=2 TO L%L: IF Is_Reorg%F(R%L) THEN Is_Reorg%(I%L)=R%L:I%L=I%L+1 ENDIF NEXT 63930 IF I%L<>Is_Reorg%L THEN STOP ' Stammdatei ist quatsch mit Soe 63935 FIELD Filenr%L,Is_Pos%L(Handle%L,Nr%L),Is_Len%L(Handle%L,Nr%L) AS Is_$ 63940 FOR R%L=0 TO Is_Reorg%L-1: GET Filenr%L,Is_Reorg%(R%L):Is_Reorg$(R%L)=Is_$: NEXT 63945 R%L=Is_Typ%L(Handle%L,Nr%L) 63950 IF R%L=0 THEN SORT ASC Is_Reorg$(0) TO Is_Reorg%(0) 63955 IF R%L=1 THEN SORT Is_Reorg$(0) TO Is_Reorg%(0) 63960 IF R%L=2 THEN FOR I%L=0 TO Is_Reorg%L-1:Is_Reorg#(I%L)= VAL(Is_Reorg$(I%L)+"#"): NEXT 63965 IF R%L=2 THEN SORT Is_Reorg#(0) TO Is_Reorg%(0) 63970 FIELD Filenr%L+Nr%L,Is_Len%L(Handle%L,Nr%L)+2 AS Is_$ 63975 FOR R%L=0 TO Is_Reorg%L-1: LSET Is_$= MKI$(Is_Reorg%(R%L))+Is_Reorg$(R%L): PUT Filenr%L+Nr%L,R%L+1: NEXT 63980 NEXT Nr%L 63985 RETURN Is_Entry(Handle,Nr,Position,Laenge,Typ) Handle Nummer der Isam-Datei (0-10) Nr Nummer des Suchkriteriums (1-10) Position Stelle des Suchkriteriums im Stammrecord (0- ) Laenge Lnge des Suchkriteriums (1- ) Typ 0=ASCII, 1=aplhabetisch, 2=numerisch Mit Is_Entry werden die Parameter der Sortierkriterien fr Is_Open gesetzt. Die Handlenummer wird als interne Identifika- tionsnummer bentigt und hat nichts mit der physikalischen Basic-Dateinummer zu tun. Die Nummer des Suchkriteriums wird ebenso intern verwendet und kann beliebig vergeben werden. Position ist die Position des Suchmerkmals innerhalb des Stamm- records, d.h. vom ersten Byte der FIELD-Anweisung bis zum Start des Suchbegriffes. Is_Open(Handle,Name$,Lnge,Filenr,Anzahl) Handle Nummer der Isam-Datei (0-10) Name$ Name der Datei Lnge Recordlnge der Stammdatei Filenr BASIC-Dateinummer (1-15) Anzahl Anzahl der Such- bzw. Sortierkriterien Die Stammdatei und die dazugehrigen Suchdateien werden eingerichtet bzw. wiedererffnet. Die eigenen FIELD-Anweisungen fr die Stammdateien sollten ab Zeilennummer 63210 eingetragen werden. Fr jede Handle-Nummer ist ab dort ein Bereich reserviert. BASIC-Dateinummer gibt die physikalische Dateinummer an mit der die Stamm-Datei geffnet wird. Zustzlich wird fr je Suchdatei eine weitere physikalische Dateinummer bentigt. Is_Close(Handle) Handle Nummer der Isam-Datei (0-10) Schliet die Stamm-Datei und alle Suchdateien. Is_Update(Handle) Handle Nummer der Isam-Datei (0-10) Sichert den Dateiinhalt auf Disk, schliet jedoch die Datei nicht. Nach Is_Update kann das Gert ohne Datenverlust ausge- schaltet werden. Is_Backup(Von$,Nach$,Name$,Anzahl) Von$ Quellpathname Nach$ Zielathname Name$ Name der Datei Anzahl Anzahl der Such- bzw. Sortierkriterien Die Stammdatei und die dazugehrigen Suchdateien werden kopiert. Die Stammdatei (".DAT") wird zu ".BAK", die Index- dateien (".I01") werden zu ".B01". ACHTUNG: Diese Funktion darf nur bei geschlossener Datei angewendet werden. Is_Kill(Von$,Name$,Anzahl) Von$ Pathname Name$ Name der Datei Is_Kill dient zum lschen einer Datei. ACHTUNG: Diese Funktion darf nur bei geschlossener Datei angewendet werden. Is_Insert(Handle) Handle Nummer der Isam-Datei (0-10) Sortiert den Datensatz, der sich gerade im Dateibuffer befin- det, in die Datei ein. Is_Replace(Handle,Recordnr) Handle Nummer der Datei (0-10) Recordnr Nummer des Datensatzes (2- ) Ersetzt den Datensatz mit der angegebenen Recordnr durch den neuen Datensatz, der sich gerade im Dateibuffer befindet. Is_Delete(Handle,Recordnr) Handle Nummer der Isam-Datei (0-10) Recordnr Nummer des Datensatzes (2- ) Lscht den Datensatz mit der angegebenen Recordnummer. Is_Search(Handle,Nr,Recordnr) Handle Nummer der Isam-Datei (0-10) Nr Nummer des Suchkriteriums (1-10) Der Suchbegriff, nach dem gesucht werden soll, steht an der entsprechenden Stelle im Dateibuffer der Stammdatei. Als Rckgabeparameter erhlt man: Recordnr Nummer des Datensatzes Wird der Suchbegriff nicht gefunden, gibt Is_Search den (z.B. alphabetisch) nchsten. Gibt es keinen Datensatz mehr, wird eine Null zurckgegeben. bergibt man jedoch eine Null in Nr, wird ab dem letzten gesuchten Eintrag weitergesucht. bergibt man -1 in Nr, wird ab dem letzten gesuchten Eintrag rckwrts gesucht. Um den letzten Eintrag zu finden, sucht man am besten nach "ZZZZZZZ" bzw. CHR$(255)*n oder "999999" (je nach Suchart), danach einmal zurck und einmal wieder vorwrts. "8N $( @ D \ h  >@^KDieses Programm schreibt zwei Informationszeilen in die Datei 'DESKTOP.INF'@wodurch BASIC-Programme durch anklicken gestartet werden knnen.J' " DESKTOP.INF" DESKTOP.$$$~ "C:\ "A:\8I 8O M  M $("C 8pG,@ *.BAS@ (" C:\ 0" (0 #G 03 04 0OM-BASIC.PRG@ *.BAS@$ #  n6/Bitte kopieren sie OM-BASIC.PRG auf Laufwerk C:46C,",E#,01,"0246,4Z5[xOIBitte erst 'ARBEIT SICHERN' anklicken, bevor Sie dieses Programm starten.J' 4o "4DN`hp~,F1F2PATHWINCH_TEXTREAD_LINECODEWRITE_LINEOMIKRONLINEP`wmoN( jg:( X b bOOOUnprintable errorStructure too long Syntax errorRETURN without GOSUB Out of DATAIllegal function call OverflowOut of memoryUndefined StatementSubscript out of rangeDuplicate definitionDivision by zeroIllegal directType mismatchRETURN without functionString too longFormula too complexCan't continueUndefined user function No RESUMERESUME without error use EXITMissing operandLine buffer overflowREPEAT without UNTILUNTIL without REPEATFOR without NEXTNEXT without FORIF without THEN or ENDIFWHILE without WENDWEND without WHILE'THEN, ELSE or ENDIF without IF or THENtE*** OMIKRON.BASIC V3.01 OMIKRON.Software *** - Press [Help] to enter editor - bytes free.Reset Bus error Adress errorUnknown opcodeDivision by zero,Out of memory. SAVE or re-CLEAR immediatelyEXIT without structureUse EXIT TO in functionsMatrix not regularBad line numberFIELD overflowInternal error #ex30-addr-Bad file numberFile not foundBad file modeFile already openFile not openTOS error #00File already existsFile type mismatch Bad disk Disk fullInput past endBad record numberBad file namePath not foundDirect statement in fileToo many files Write error Read errorDisk write protectedA:\OM-BASIC.INFA:\COMPILER.PRGnoname.basP80.BAS.PRG.BAS FILE FIND BLOCK MODE GO RUN Y:65535 X:255 SIZE:4000000 NONAME.BAS *.*lBreakl? in   ')+-/B&M&!.nAp@XQE'p2ZQBnN=|!1RA!p n|1|~#a QL`a!`FHM׸xA1,/nJn(g68g.p8 bf JgP2.pAt!Xnrg=ApLANuHM\.x,Y/n,_NuX*_B?< NA\M4-O@f-@Nh-H-O-x/ m Hh/ /<JNA -xA!-xA*!-x-x&?<"NN @A"PHC v8fv..>NAT @f ??<NAXAjJxgBg?< NMXU@eBg?<NMXJg0U-H|ACpQ.Ep2ZQ-xpx-j$"-j("L-kL>-lL:AP-HJxLa-xNb-_A b-HBx j(0@2P@Ag"PS@g JPfX2hY-I8L gJ@0<J8g0<~AXCE\v6$@d GB#KQxp a.=n ~xpMa =n ~Bn vpNtNH-|d=| p A0QR`NBS?<HNA\$$eP".ze$-Bzaa .RJA\*Or 4B@H@6HC06H@? f0@0f BgHn?<=a% k"P<Hn&/<??<?a$SWa$O p///?<NNO @-P#d BnBp=@ABnN!pBn8a ^a'0.`%vtNH/M:CR,_Nu/ .*g /?<INA\?<HNATJo>"@".* Ag$.:gJd2`"Q"E*ӚӚӚӚӚПY-@fNup,`%X ~2|E\"Q-|eBnNpxaV.N5!xp!!!&!*L Ff.n nN`/.?< NA\BgNAJ"n(.4Prp"`Prp#`p$r`p&r`p(r`p) oe$d$J.zf$CRA002T aaa a aap3`$X2AA0 A:e^ANuMҮ g\  ZgN  |g(  6g fg  g`JgJgJgm\JAkmx`\R\x`\J\Nur@|\NueOK a6A!*!1AY&& nBAg@B !dRSABn Caa%(I(K2za%NxzK.(Ha%@0 Tݘ.eA X\`QNuBnZapaJgajF// G()#a:a>Ara .2.a 2. Ag?Ara p0`jNup`n8gH@F$@=@8KJ&U:<+J-gaGP*BU0+kPSk ]*aR!NgN2+LF6<@8<z|~Jg Cz(oxddH -G ,N5L(NuH`A"<}0H@0ЁHg0H@0ЁHf@@ @e Hz @ xpNLNuBnN0.8aA b0<"< QpHaapE`+ Pg Vg Cg Mg r`r`r`r@?/`2.xkSAA*tv d tv gtv g t fJVAG* Sk9^gx +Of9T(kFr2+RAk f/ /??<@aL BA7ALNuSPd8BP`4PPP`,@At gRP d&SP g g fBP?BVWNM\LNuJn(gG>r-Wfpa"pRa+-va;0`#$@[\]^`{|}~?BVWNM\Nu#$@[\]^`{|}~ *(Jk#ERHC)ig$%0+ytusDI"// nJB( _p a, Nu// nJB( _p ap a Nu/ nJ| _Jnzg?.x=nzxa=_xNuHJnxf.xga 2.ne@F$@KF(]&U:<+(+ 6+>+J-gaBmHzJf d` g T g ` g pSg rSg xSgbSg Sg Ug `Sg@Sg Sk`Wk "NuJmg?a @0Nu ^f n&fJmgFa`@Jmg $` Jmg a` + 67FFLNuB+SgR gUe .g BUe jg lAJ gAN [gAR YgxAT gnA^ y`daJa+gB+`"aeEiou^`aAeiou^aeiouaAeioOuUyaAnNoO g2BBWf|0`8@Ae @7d @0;NNunz\nZ`fl JFg2SFPNuFgRFPNu/ ??aa<:(_NuEgRERNuJkBJDja `BEa |gaNp|`RJEgSESJEfJjJFg |fAp 2`Q faaj:NuaB`aZatJFfNuJEf$JFf kkpOrJkfp''@'A6>BFBE`,a*FfBENuJFf?a:Nua/ ??a`aaWf<:(_NuJkLa 0ER@HC/HEHFHG+ O"AASBkgJ6<4J"HJgJd2Jd"Jd `""""QgPQHC(HEHFHGNu6<HDOD4J"HJg HDHDRJd"Je`""""Qg HDHDDQHC(HEHFHGNuHE?6<HDODOEHEOE4J"HJgHDHDDHEEHE\Je`""""QgHDHDDHEEHEEQHC:(HFHGNuap 2E LQFg / ??aBE |fa`<:(_NuBEa\Jjn |@4F2"L`PQA`QPP$H,I2Q/xa0p 2 LQ(Ffp|`Fga$0R@HCHE:SEFHF<<6QC"AASBkgJ6<4$H,IJgJd<6HB4ĄQHC(:HFHG`TBEJj" |fa`Jja0D@ 4|gNu|NugR+NuJj// ??t 0?RCaSC4EdGg.?aNz4 |gBES  g?ap|a0a<:(_(NuCgEkBEFkBF7C7G`JEgt6>`Jja `p RCa@SC  fWga<:(_(Nu?<HyNM\NugJj L |gJEg(aRCp aSCSESNupE@?aX0QNuV+ e d`BF` e d`BE2+F0A@AkE(mNu@Nu@ NuM4 xNX2.F0Y@YHF<EpBfgRFFHFNuHMKXz"e e>%fQz`(BUUGnVgB ]$]46CFB:*"]UGn?KDHDKDK@H@K@(@JCHCJCJ@H@J@&@JGgD~rt "*HA:ʃ*HB:ʄ NjɌ "*HE:ʃ*HE:ʄ NjɌ "*HA:ʃ*HB:ʄ NjɌ "*HE:ʃ*HE:ʄ NjɌQn:Q`N~r2HAt4HB "*HA:ʃ*HB:ʄ NjɌ "*HE:ʃ*HE:ʄ NjɌ "*HA:ʃ*HB:ʄ NjɌ "*HE:ʃ*HE:ʄ NjɌQj:Qd`UGn?KDHDKDJCHCJCJGg\~r2HAt4HB "*HA:ʃ*HB:ʄ "*HA:ʃ*HB:ʄ Q:Q`.~"$ "*HA:ʃ*HB:ʄ "*HA:ʃ*HB:ʄ r2*HAt4*HB "*HE:ʃ*HE:ʄ Q:Qd`KJUGgRD~r2t4 "ƒĄ r2t4 (P"ƒĄ!@PQQ`J~"$ "ƒĄ r2*HAt4*HB02AC@D@0JQQMLRfSxRkRRb8`Lg8g$8J` 8fp?0&nJ@0.8aMJ&^S g g fB`:<+MaM&n|P Jx>f08h@fJ08hH@CxeB@R@@ @@|84B@ˆ08VFJkf0@|a08atf8B7|F0kBk 08T xV`"g "AH瀀NLQJxfp.?<NNTp.ѸLRxRNsJ+ g0AOF?/a,_0SBk8gtPrFFFFQNu4<rFF(FF(QNu4<rFF(F(F(FF(F(F(QNuajJnf n*0B-H.oB-H2-H6-H:A"nb}pBX BXB QB@aa .g @-P/?<INA\`B.yQBBBBnBBBBBBBn6BvBn=|JnfBr-nb-nb=| 6A:  Af"_.P>-Oj! ~!!Jngr!!-@n/ pJg-@ nXJPg0 n2"n6 6<`$$g$BB"fSngdB5CBjQB.yNuBnzBnxBnvG*p?a0QBn(Nu A*R@nzfBnz0g +KfSn(/ W@eF +Of, kFr2+RA//??<@akW ??<>BakWXB(+z:+ g`,܅S n2"n6 REE`$Xj*f:k ےjBBRQpE2kےQKF(U(za *_Nu"g(AJ"fR Ff Ng>$L4$vUQ`HCk ےjBBj\QHCQ`Hpr`Hpr *O4B@H@6HC06H@? f0@0 @:e^@aꖻfL NutQNu/< NMXBB@W@f4.6n8g0a6/.Ba@-_FgJn8gB@a/.BaZ-_BnJnfH@@ g @bf B.4rN @Hf<&nJJkf2 +g*?/+B.4an4&nJ'_06SHFpH @Pf@&nJ2+kf2 +g*?/+B.4an4&nJ'_06SHFpP g8rk2 n#d0Aae$ AdAFe`JfQPga<`rA6 @Rg$4XWf$0JgaHJga`NuF.4F.`H@ @ fA XKF&nJB+0+kg(U ,|PfpBa`pCa0kf4(U  f JBg8pDa`2+p a蜒kB4 Ad `pCat(UQBRBaJA X0Nup`pkaP0+kgZpBa@&nJpja6p a>afa*g42(a.pLa0a *a-nVRpBapjaa`lpAa&nJJkfNuJkghpAa&nJp aafaRf2(`2 Ag>aakRXfJ/.>Nu  xH`!! nJh B( nX=Pg0 NA/Jng n1n nJn  x//L! _JNu-MNJnf -njb-nnV-nbj-nVn-nVR.nbBnvBnxBnzF#J.gaB.aaA|r antaTJng -nN=AaBna>`܊/AXgJXf`0 _Nu!95"9A.9A19<9<9<9<9<9< 9D 9E 9F9DaB.zQBn|B~BnBnJ.fJ.gN4$J.{gaL6 nNg  f"nbg Tfe` iS-HNCg-I=n-nC\bf-QbJnf -njb-nnV-nbj-nVn-nVR.nbBnvBnxBnz6>.:g ??<>aX>.aX0B:F#?J.ga>Pta=A-nNJng =A-nN0=@@ 9fr. 00AHAAABAQB@SAoR-H=AJ.gB.B=| .gJnfaB.aX`ڦP*n`ZRSstAHBPMHLPCMDKHGEwAHAHAH r KSad=nrpBNu f J.fP fBn fPH@ bf JgPNuH@2.pAt!Xnrgp=ApNua/<NMXJ@gD/<NMX"HA;e  e e #dAIC*t `a`W`/< NMXr AAf =nrpB0.pnrNu0.vfXagAr2 0X1Nu.xg adJnf>Nu @`aQNu @`/ nJ| _aQNuS@@HG* SkPg( +IfHN g RA7ALNup>`+L Pg Vg CgN Mg `p`p`p/TWNMXNu".*$..]e" ЂgW"@e\"`]$`$B0"j..Nu".Ng2 AC X e"JBfJgS-HNa @f]a2 Nu rNuJgQKH*.J?8 dSkJ@d8d(d((d((((`HE((((((((QHEQFd8NuJgH .ReJd abJeDLٝQKH*.J.MdSkJ$@d;$d+$d+$+$d+$+$+$+$`HE+$+$+$+$+$+$+$+$QHEQFd$Nu".*$..]e$&ւgW CPgTe\"`]$` A`*g hf]`v"h.Nu`D&`$n^R-HJSG(n* ..U.BgtxBAzd̰g~gzge\ gb6C63030g fRe&v eC*n2.{58` ;k~g6C63030fd6C6;0xN0tR`aZ\ W dg\ ,Ю.`h0fTNuvU@gvU@gvU@gv-oN Bn=|?talRAg-HN=_a0.`nFt $0x6PRF v``-HN Bn=|`vSaR\ WgT W gv W fRWa`K/M`v W e W gaF\` Wdv Wf` Wd v W`v `dv` W g v WfvRW/HT`*&*o d CKNuvX`v` WdvUW`v`v/T?`v/` Eg8 yg2 6fRvC*n2&.{*C*C6v Jf*`vC*n2&.{* g`RJf-H-HBBB`*n&CHC`JnFf xgaJnfJ@g .g/ *@?<^eA-ObJngBn .g/ *@?<^e@-Ob"n\24.ȂBAg .g/ *@?<^e@-Ob=Qxg4 .g.".$8n"Үn"-A/ *@?<^e@-Ob.xggJgS.xgBAg fR` fA4BC 4 J!fRIS-MNH`@tab4L BghJ.f(.f2&nJ?+B+p[a0a&a۬ IaFp]aaۜ7_`*A 000/ *D?<^e?-ObRxA ,J.xgCR,NH .6&.>$.J$nF(J"JrdR2( &Z* j&S J$Df$D2f`YA"jYA" I&Id2Id`""Q`-IJL?Nu$_<f(2 Np`hr`صdQ`Rx8apf"(S I2<8a:BZG/ Dg(O HD?BDHDJf8D0Ŀf e " gR2 @Nup /g vfa|`@I $Rga`fId f#:Rfa-J#>=|#6` g g?a$0Sg"Sg [gSgUgbSgHUgXUg SgdUg g68g&[g@Sg`F g gpy`pf.aL`*ph`T`a@aP -gp`TT` fp a`SaB@U@ eQ``xp((n2 g * f * gSpaLS(HaPV g eap`0<( @Fg$ @6gaR`XHja$_rSAR`"H`/Q(_#:f-J#>p ,(n2(t6S( J$fRLSD:<*L Ff" ,NfT?z  e2UD`?z  _fU` _gUe:Jk. EfpHDLJ.f I4PgRD0;@gHgNu$#!L%%B%F%@// Q _Sa _Nu@JCfQ`@#:WR@IJ,g,J,g( , g J,f ,Aeaa * g NuS8 J$fRLJg-J#>=D#6D`ܷUe"NuPf;z ggSgn`;b.|Bp@I$ g/^e;>ARe dtr g g gx gr gjr gb g\ gV gPr gH gB g< g6r g.r g& f"R`v@(n2(t6$e:``6e:/// A a "_. _.GNu^e:p"P d d d d d^ dp d gF d d$ d d f"0<aR`8paXazpBC`a` f/ Q$S#:f-J#>`~aBB(k\ " gRpva )e:`@apHHXd9fa LLRQNuaPX`tvaNu?/ Xa"_0`.t `t&`t$`t%aJjD-,"B@H@H@HA2HA0HAA0 A:e^A?Jf0e숼OfNup"r`ٵdpQNugv#`v.4?H0P/ 0aPN\(K _L "H6g Eg Dg .f #g`Ù2  fRSA`طeQNu*h/ /Ka.*WXNu (BLfFR`j~   2pjr6z&N\lrvvd~nvhfhfhfhfhhhhhbhh|BLPZZZZ^6:hbi.i&i:i:i2iDiNiNiZinVrr6JNA ,J.xfRpAV!! fg@0;Nmu0<@0;Nt|$Hr"D""""#6#&x((********+"34t45j7*778889Txx=>Zx>>x?N?|??@@@ABFZGHHINIIIJ8JKLLMNNxP@QZQQQRR\WWXdXlXZ[X[`[h[n[t[z[[[[[[[\j]]]^@^H^P^Z^b^_&_D__________`` ```"`*`0`6`f`aa aaa$a,a2alBlFlJlNlRlVl\l`lflllrlxl~lllllllllllllllllllllllllllllllllllllllllllllllmmmmmm"m(m.m6m>mFmNmTm\mbm|n(npqvqrfrrr~rrsbstsssss=st`tuXuuuuv vlvwTwwwwxRx9< x>>Pxxyy{<{Z{h{||}2}D}}}zCEXBARxt` fRe v1jg6C62020fֲfTSNuAn~GC{BpNa]@eaJfXNup`aƘ$W4EN k,j aƚ *fBF/aǸ$oTgf @jpJFj g e d |SFX?a8$o4Eb// N k&_,Gka0 f, d&rt d d ertffUHFH.`N _p`*aH a>a8a2 a(*a2a<a DaZ` JpNupNu/aƲ$_k g Gn2@03gNad "g `g g Ae^`Rr&IRa gRgRe `~pNup`a/ /*H/.8|NhS> M"_NuagSFk^gfzUGgz]GgzUGgzt e2HtRgRt2QaĊQ~NuH@aH@axXHNua `a\YIa~NupNuGnaĒk-2.j Aft`Gfapk- nFNJg- njf?at (f*<// a"_ _2.j0`akR nFNJgH?`ak< nFNJg8?aÒ (gx2.j An.t0`aâk nFNJf .ALe .[Ld?J.Zf2a>BB (fza02.j AnJkR)0`za2.j]0`Glp/#QHERE/paBgRWJoj./a Rf R  g  faA dX` _ak okR``a g f,$4*GHp&QNup8`p6`naT?~Jf j~Jf~ EI4FB&n2(n6K (<, * R@`&fƄE8(E4 Vgxf&n2/`JWgK6(Uxza~=|Bn&n6$_/ Y&.:(CfS<R@H6ր&(؇K:z&La<QSGBQ&_Y20 2H>UHHpNupa."Nupa$Nup`a†[@eaZJfXNupHzabf*`lNuaTkJGkNuXaDklJGkNua4kJGjNuXa$kLJGjNu$nRgS-JRJd aJe*t |NuH3BJ~fzJn|g^ g dRBn| OCBB+S?N(R/&`*<f(2 N(R/ dH dHQ`& OBB+S?v /` dHp /Q-Cn$HBHBJBf)ւe^e)R .Re)Jda 6/(؃/XKB(U/ zaj(_8߿f >&Ar 8<Sg0eLdB\dBd `HCBBBBQHCQL3BNu& e` HC8B8BQHCQ`& e `HC8BB8BBQHCQ`&~B~ OCBB+SN(R/&`*<f(2 N(R/ dG dGxQ(S>4$"$` $Qd .HL3BNu-CnY$HBHBJBf(`ւe^e(TR-Cr .Re(>Jda 6/"L8߿f Iא(IKBz(a/Ht8Av 8<Sg.e2dB\dBd `HCBBBBQHCQ`8B]d``8BB[d(_&Bd("T6ב`L3BNuA??AG&23BA#p`&?aak'l @.JG@³BDkn2pQpah H@pNuBBa// aj^Gak< nFNJg4 njf8ar (fzafab =g"_ _J.[g6`"_ _ `"_ _`D"_ _ gX`B``Nu-I| aa0/a,$_rfTa$n<`J JT$n<`/a _U@eaJfXNuXBaBaJGkXpaVavHzap-aDadaBP[NuaaaB) aR`BBX`Ba@Ba(aBP[` ng0/ BBBBa $_JNua>kfa`aa`p `a& @Eg @yg ng @6gr// ank%rPZE"_ _=GXapagaa>ak%@a gpa gNuaB.ZakƾnXf$Nua"PZa*aa/aZ Rf$R  g  faBA dX5/ _ank$aN g f$Nuaaaaaaa`/a$_@ gP g| Ja k$\?aBak$N_f^Nu/a$_gAB`XBnn`paf a8aXaaa f aaN`" faaa*a` afk ax/aj @g @g WpX`aXaL @g @g`#a@`pafaaa`T// ak.pafP?aJ_k!`"_ _ak#TJGjaak#DgXf#6ak#.a.`ara$aaaDaapa gXR g INu _"_akpagtXa`Rakpaf?a(ak_fDa.`aa8aZaara`Jap #fRa:aa2aa g fakJGjaf`aj4ala`4aj&`a #fRaaHaLJGNua`aa`aaaa`aklJGj|a fZ"akJGj^Nuak>?aPak0_f@Nua>a `ZpXag gr9gr:SgOpa`Vaka`a aaaaaaaaa`aaNpa`Za@`R``/a&$_ 'gJ #gL hgB kg@ +g: Wg4 JSaa g 3g GfHaaD`p `atp3aJ`a @gNa.a g6aav 1gNua, faa a,paa2k2Nu`pag fa`aN`apagXafaa^aaVaxpaNanpag&a(a^a4aVa,aNapagpa`8aa0pangapXabfa`aa` aaaahaa`aaXaaPaaH`pafaa4kJGk a/a Lf&R  g  fa )g ,gX,/ _apag:a`a`Nu`d/ aakJGj (a&aHa g X f` $_R"a(aa`p`aka fS`?rpaj@4FNu: VN'` HELSE@- VNENDIF VNUNTILf0a GngzN&_$_//? / / <xr -f RaN$_/D /@?A&_~a@6$+*+2/ /(/"|~C /?/?NQx VNN&_$_/?]/ / <r -f RaN$_/@?A&_~a6$+2/ /|~C /??NQ VN GnHa}&_$_/Y/ / p -fRa`,|$_&_.~ax$ /|~C /??NQH VNa}p4@f&_$_/Y/ / p -f RaND|$_/@&_~a 4H /|~C /??NQ VN(J"_/ ?N>gTGUAf JfЀdfYGXGtgBE ?/ / / ^e-ObS$ICfAzNA{NNu0;pN8T,Llh`p`NEXT"Of>/ f&o l,R&J.xf>*Y YN&o oS&J.xf"*Y YN /ѓ*W-Ob eV VN*YS VNA&X Иiаn&J.xf*Y YNA&X Иim&J.xf*Y YN&o0ol,R@6J.xf>*Y YN&o0ooS6J.xf"*Y YN0/S*W-Ob eV VN*YS VN&o0oiаon6J.xf*Y YN&o0oiom6J.xf*Y YN&o2 (N&&'76/$/*/"BF g g"CmVnfeL` fFAmBnfe8J.xf*o oNA&X2 (6$*N h&'76$*`*W&-Ob eV VN&o2 (N'&'76/$/*/"BF g g"Amnfe` fCmnfeJ.xf0*o oNA&X2 (6$*N h&'76$*`&o2 N&&76/$/BF g gCmDne>` f8Am4ne.J.xf*o oNA&X2 6$aJ&76$`*W-Ob eV VN&o2 N&T&76/$/BF g gAmne` fCmneJ.xf8*o oNA&X2 6$a~&76$``PREPEATAIB@g@Aݨ00Hp/ / S^e-Ob VNp `LWHILEAHu/ aVJg.&_(_B@g@AX00Hp/ / S^e-Ob VN*_*_ VNIFar2HA-AD VNDATAp VN-p@"n2rg&Q.yfa`TaZ-@ VNDEF Eg: yg g gp `vV f aB fR "fa0 VNRaZvS2f6C?/ R eL gaZL?@f e2R e* gaZ*"W#@ eRaZ2f"W3A"_2 VN R`-KF.FHJ+g&S>>SGng d82 (Nu2 Nu|UGef 0HNu NuUGgpNufpNupNu(2av4خF(DeRBJd4Je`$$QNuJdJe`QNu/ gfkֽSnTgSFkVgN Hx`JSFk gDN H`$gSngelgN"nJz:gfgREPEEXRea͸"nJEXRd :-JJ2 K6""$IF(8`$TF @IdId `QNuBBTNuLET -"fF e@&n2Rp0&s6/ RHz~AnGCWpNf&_`a"/ /a&gdSnXgSFkZga~x`PSFkgJa~`DJj@Rd$gSngelgN"nJz:ghgREPEEXRean"nJEXRd -JJ2 K6""$IF(8`$TF @IdId `Q VNBBT VNREMp VNPRINTBg fRaU >Srd eR0/.?.Hn?=@x]efg,SgLWfXRBoBUe2Bnxa٦=WxC -I/IN(?n/nC-I-n=n`Bnx frTaTn2R=Wx4.zf4kNg$ @dA)v0 Cd`zp aQ`n @Pd$nJ2*Ad2paxRRHӮF`FJ@kƒnt`a=WxJFk*=o-o-oa^C-I-n=naŒ-nVR]e8g&0.zf0.xj2.tFAAaQ`p aR]d`a Bnx VN@,;#ASUSING dBBB VNa, AdJAgN(=n-n VNLPRINT?<` TO^%0xRaR?SrdRa=_v`HINPUTB. gBna׸ faRaר g`J.f/p?ap a / / gV?ItBCBD:<BFadJnfr|J_kAna]&&_a eR?.vBnva8=_v`Bnv VN?BBBB/?Hz$?<?<?<_BgR e ga/@?A etR ga/C/K eZR gaQ?@BJf e/C/KBJfD6<:4(_8 _Dd8Cd60G X`QaJnfP/ /?pL* g|a8L P/?* g|a2 |J_kAna\&&_a VN&nJ(K(.Rad gD`aƼ$nJ* fׂ H`4Q&nJIXd ga>`B" fH$gRBR&DJ`7$Q-KR-K X/ ?0.vS@k@G* +IfaW fa8&_Nu 2NuJnf -nVRa.J.f&n X`0 2ANuJnvfJnf-nVRanaFB3@J.fG Xv6.(Kr"g&Sr,gfS 2 KARC=CJfBnNugfS R2 @t,gfS4 KB`?G Xp~aj?BCa6>`pCaQCf Jjp`4Jnrg@.xg .g".$8npTNu.xg"n\24.ȂBAg .fa6ga.fQ`VQC g(C `gC ^gC g C ~f fp`2>Wf) gxa fJnrf6a(` e8 g0@Cg Lr4`SBkRSBk  g ^f dr` g +gb -gL g ae Xg Sg Mg CfUBkff` e 0eF :ev Ae: [e ae, {eCR g` gZJj?)LfH g& `g g ~gf n&f ^fJk*@`$ 0` %fPr` Uf Lf) %` Uf Lf Ag g gJn&g Ag %gB 0g< Ag6 g0 g* Lg$ Ug`JSBkDfr` SBk6fr``JAgPJ.f.J.g.Cg*?>Cp H@E0DgRDH@Qa0n0 nJ|aJ.gpDaP`RCCdRD`0H@ f,JCg$Cg4J.f.SCpDap apDa 0` Sf*JCgJ.fSCpDaf>CgSDE0Qav` Rf2 gF.`lCg>Cp H@E0DgRDH@Qa>` MfCgRCpCa`2 KfJCf g p`ZSCpDa`` E0>C` paaQfp a>CpDaQNu>D`aQ>C`pTJg| /a Nu L4/` SBRSBkvRSBjNu  g ^g ae Cg +g -gBnr MfPr >f a(*n.P=|p0.g|`|a`a6=|BNBnBn`/ t,.6&n2 `JWfRBQveK6(U(DXDza&n6BQ*_NuGOTO.yfaara `Dp`D_Fg"ZFj TFk"UFae daHf*INu*@JgNu6gTCH..6"n2,<(.6`$YjJf @4A`VgQ`$a6$g~*BNu.ygNuH n."n2Ba$yaL?NuJ.{gH n2"n6` gf$`6(*r ndXATAJ"grSJ"f f *:d҄X4 B$Ԯ6BԁK:z" (A(a4$n2r`&g ƁdeerQ{L??Nu f/ a*_a Fg Fn/ a~ MaZ*_NuadL dlNuLISTBgp e g a> e Rp ea80/ ?a02@e=G:PGnHSv/??<?ank JgJ.nfJnffI*v /ГRn(/??<?a*kn fQL.\xe( ATUDe`Q?.:?<>ak,Bn:aPBnBnp=@ΰnfJ.g4NbD@<9`??<>akBn:X`a`ja`&a`Bg?B?<Baxk axG Xv`&IHT/<P??<?aNk (fxSDe g fJCg g CgRC`a`a`JfJCftNuBH A XapB ng aafaLNu - sure (Y/N)? Araa Nfa`#Z Jg Og Yfah`<SAVEC]e g a>` aDfa g-Mna*nnaaR.{aHn?<Aa6gr߲ft\BgHn?<=G:a~=|Bn ea/ n*0 @g\/-nVRP"n.x8-nVRaQ @  /TA?Bg?.:?<@ak@ff _\`*_Hz2p/?.:?<@avk ?.:?<>abkBn:`L.\x e(IK2za2TIAp 2Q .2`BQG:pI~")QvEzHR/??<@ak2 f$[*Q`hNEW eaa`!rCALLa@D/gBg e:R ,fRa?2 A>dܴ/XW`a?2 A@dܞ?TW gT"_A*/M@PzN@MQz-@*_ VNTRONJg&".NC X eSfBx` VNTROFFRx".NC X e VNp-@ VNSTEPSTOP`,CONTa40.R@gdJnf^ g ea/ a-M*_ fRaax-Mx*nP=|.nj-Ob-nnV0.6a`p`POKEa>/Ra>"BJfX _PzQz VNWPOKEa>r/Ra>j2@g H@J@f&H@ _Pz0Qz VNLPOKEa>>/Ra>6 _Pz Qz VNGOSUB.yfa4a/ a?<^er-Ob`RETURN dB Wgnp Wg( WfSf x,YT*_-ObNgT*_-Ob VN WfDa”.Gk"_HaQLSAn-_V-_b*_`="oaQP-_V-_b*_ VNp`,R PROC.yfa`Rp@&n2&s6-SJg d6raB/ /.b/.V/.R/<^el-nRV-Ob*nJ VN fR/.Ja-_J/?/? >j// ]e 9e`S^era~B-MN*nJRC\"b-Ib#nRa`"nR&_&<(2 Jg/""&Y&a"_Jf`/&Y&a"_Jf/.N/.\/.V/.`/<^e-nRV-Ob VNLOCAL Wg Wfap g %eHaLa dS-nRV VNa$nR -JRJd aJe$(nb$)JP $$4$4$Nua$nR-JRJd aXJe(nb$)JX$$4$4$Nua gNu _<f(2 //&Y&a"_JfNua f 5fRaD gNuOPENaaJAg @B@ @ae @zd@ @Ig @Og @Ag& @Rg @Ug @Pg @Vg @Cg @Mg @Kg @Fg.p6`ZaxaWSrd:@G*Nu/ x8+ KB(]/ zRDDa F'@*_NuR?ap7JSfRS7_ dB NuR?a:2SA AdG*B3|a|p7JSf7_ f/ a^&_NuaBgHn X?<=ahkP6r'A'| aL d VNpOa?<Hn X?<=a.kr6r'A'| a?<?BS?<BakH d VNa6Hn X?<Aa\r߰gJkBgHn X?< A{d* @QBC XNuHn?<NA\Rap7JSf'|FRxx fT/ a&_6'|, a f6/ a8 dx&_?Hn X?<Na @fFkpJkPC kFp Q VNRn(R?a>p7JSfRS7_ dB VNFIELDa Sk +RfBg/ Ra7x? gGn`Ra^J+g&S>4(_2$lp2Bkl n&6?/ g\ VN kRfR/ ?a JFjH W@gDHRa7 @dӼ2aHH6/&oa(KdL ax\`/Ra6" 6&_aX VN/Jjr/??a@kXgp}C`hXNuaS dSkFiBT&_'@2H@ H@J@f* Ёe k/Bg?/?<BargJk &(kFNuP>?B?<Ba`GETa kFRg.p?a/ ?+ Bg??<?ak 2+ @7A VN/ -fRap&_Jkf:Jkf4C kFp "Q?<Oa4 @fFkpJkjT`Bk VNPUTap@aBJg(Hx  e </??<@a `/ ?+ Bg??<@a Bk VNBLOADa 8N fRa5/BgHn X?<=ak>=G:P <@/??<?NAJkP??<>aXkPBn: VNBSAVEa /8N/<} eRa4/@Ra4.Hn X?<Aa\r߰gJkJBgHn X?<=G:??<@NAJk"Xf??<>ak PBn: VN,)LSETa6/ /a&&_6J+g&S>$[F"@4Be2A`Qp `Q VNRSETa6/ /a&&_6J+g&S>$[F"@4²Be2A`!Qp `Q VNSWAPaX// RaNJFk fJ+g&S>(_&J,g(T>Sng &(068 &( VNUkf 068 VNSf  VN& ( f gS T VN g``ϒ(_(..6DHtxHsxJ+gL&S>J,g(T> nF*,"E$Fk:g ##6g%%8) ' P VNJ,f nF*,"E$FkBB/:g#6g%8) ' P VNRr` nr` hLINE g XgP`8r(@HA\n2.nJgҀ-A Nup`READ.yfaa/ // .f .ga*@ e*@a&_&aD g .ga`S -@*_ gS VNv e@ g8?a1nvJk$6` Hv e g?/a1@d&0 eR?NuSPRITEa1SR2fC / pap arp a/Crparpa"_026Akn4<x6<z|P~ Qd6<zF~ Qd4<@x~)fDEDEBe0Ce24H`@$xN@F'#JBBF k#@ k#@ VNEXITp e ga0T@g\@gP@g(JnFfp-`B"oaD^P-_V"o._`VBxT"_`F W Yg*Sg Yf"_ eVP0H;` "_P`/ *oSaF"M*_ -Ob0.HQ^ dp." gJ*I VNRESTOREB eDalaJ/ aAn"M*_ .g(dr(@HA2JgЁ`-M`a-@ VNFILESHn?<NA\C X"*.* eaha=CnC X?<7HQ~N?alTjrϲf\ VNJnzfpKa.flArCxRDJfS !Sf !Af !Bf !.f_aPa^A2aB0N7.A@irDa. .aaN7~O`jA2ra aAgN7.`Ara`2.nA X`FILES"\*.*"LOAD ""' 'EDITr ea-a"*pfN7 N4ONa 'g +g #g hg kg Wga-zS`a Ud VN e 3e ga"@` R`a/ *@`6Ra0/ a  ea`Nua`-@fJ.gN3B.`VNaB-@Na:-@NRa%4-@kɬgɨи-@Sa-@Na-@Na-@NTa FdJg / a< *_ VNuMAT graH Lg< MgH(M f f eXa`HRaV((KLLau VNRa",Ent$ gϼRBCb $$ge"t gϖ&_&S>e"+pSR6C.zBC E0H~a( VNL~$(R*NdNeSe VNNud^e(*NdN$&RgS(؁*NdN`*(NdN(` *ڃN(RgRSg긃g*(RNd$/*N*S`*ڃN(Rg Sg긃g*SNd&/(N(R`SD*NdNڄ$//"SaD "R`:j$D`^j$D`L,.,3h.3xNu,.܆އ<3h>3xFGFNu3X3HNuH,.܆އ܄ޅ܆އAhCx<>FGffFf.`gGf.LNuDLNuDLNuH,.܄ޅ܆އAhCx<>FGf$fFFf<.f6.,`"g,Gf.f.,LNuDLNuDLNuH,.܆އ܄ޅ܆އ sh<3h"sx?3x>HG>FFFd<F`Vf<HGGLNuH,.܆އ܄ޅ܆އ sh<3h"sx>3xFFprQD`a:gQ DLNuAa$AgfIfHg`HfQ`ag` g@ 0eB :e: Ae6 [e( ae* {e 9h;j@A f0< Nu@R@NupNuCEAAACEEEIIIAEOOUUY....AIOUNNAO........AOOOAAON/ K$nnNK$_NuN,./3h'xh'xNu,.܆އ?3h7xh7xNu3HXHXNuH K,.܆އ܄ޅ܆އ<06, &L NuH K,.܄ޅ܆އ<06, &, &L NuH$nF,.܆އ܄ޅ܆އ sh"sx?3hg!7xhg#7x'x'hLNuCMDa&.R@rdS@=@z VNMODEA( g A& %"gH/aa+(_"@t`QCpWf 8 VNIF^FDGBUSAr =ARa%Bn=|=@a VNUPPER$LOWER$SrNua%| g g eR Xg0@f?a%T?Ra%L?Ra%D<:8>J.g$LDHD@FEEHEAFHFGHGrNuBITBLTag|HRazg 0GooLkNA  N"H`A  NC ,$@L8Ck(8( D444xBLH8# BDBEQ`jRa g g VN/Rag0Gk$_A ,C "N2Iphf"$vBK1611! B@BAFe4Ge6PSBSC<>@ADEJ@j@B@JAjABAJDjDBDJEjEBEJ.g2J.g,ERmRG>bmRF<bnRE:bnRD8@mAm,H-|m=|H Xr g fRa#r@@fR=Aa VNT/a#trd68L<. FLU@fAIH@L` HA6B0QHAQLTUGfX VNLOCATE g8 efa#Srd6$nJ2*@e2pN7 jjPӮF f.Ra"rPd$nJ2*@e2pN7 RRHӮF VNHELPCOLORCSRLINERRERLERR$MEMORYHIGHLOWIPLa"Z2VfB@ABAF VNPISEGPTRGEMDOS?<`?L.0`$L fFCBCHBHC eDE66Q2HpsNBL L2.0`,L fDEHBHCBBBC⋄Ɔ eFC66QR VNVDIRa!"BJAfB?H@=@aLaJaDaFa@ oC" "J_(_#L J_#_1_&_#K1_"\0JnfpsNBR VNt`t?Ra4r"_(خ>/?BJf f~#fNRatr`AESRaa>B"BJf?aaaaaAC" "1_#_1_#_1_#_ 1_#_J_&_"7n0<0NBR VNBIOS?< ` XBIOS?< fRv&C ga@/ / Ra 8>BJf?< f4 ,fRa 2 Anz/XW`a 2 And?TW` %fRT o (egNN`NA`NM| &&_T$ gaf VNTIMERMOUSEXMOUSEYMOUSEBUTTIME$RaQAeN"@a0a@Aa@IA??<-NAX VNrtv x0z agg a eRNuge dBJENuXNuDATE$RaQAe"@a0aJn&f@`AAaAPdAdYA??<+NAX VN Quit BASICSYSTEMaAr aaܖN,8ENDJng2pJ.fva=|BnAf.P!Y !!-@n-Oj`BnxBnv.nj-Ob-nnVN-EOFLOFLOCHEX$OCT$BIN$FREa,Y/A` A"gf"A ?<INA\ VNLPOSPOSUSRINPUT$INPUT$PEEKWPEEKLPEEKINKEY$CHR$MID$Ra-nVR/ /RaS dd?0<`:MID$Ra-nVR/ /RavS d4?Rab d"?T-nVRaD @0@e20&&_J+g&S>"[F4@eAe4JdJd `Q VNLEFT$RIGHT$STR$VALSTRING$INSTRINSTRLENMIRROR$ASCMINMAXVARPTRtrPALETTEA@ d VN g/a~ _2 A`g2Af&0T fR`LLIST=|x`vWRITEBg fRa&>Srd eR0/.?.Hn?=@x]egSgWfTRBoBUeBnxa=WxC -I/Ia^?n/nC-I-n=n`rBnxa=WxJFk0=o-o-oa&*C-I-n=na"`/p"N7. ap"N7.-nVR]egp,N7.R]d `N7 Bnx VNMERGEa`=|N4=|BNBnP`DRAW ga?Ra2046a& d VNRa?Ra64La`H H X-|Bn`axapN2gpaaa`aaa`aa`pN2g* g$ Xgr7 g$aHaBaaaa8a2`0aa^`*a`"a(`pN2g Xgr8 g aaa^`|N2p`LaaJGk8a"`aBa,`naa`aapa$`aaa`aJGkNupJN2gp(``N1 0e :d@N1 0e :d=@JN1 ,fΜprt/.:a2/Q&_6X .:g x(Kaab/ azag ?a6TRk@>/aL((DgjaZDK:za`aHaa.akJGkNuHK:zazLd8e`HD((QHDQNu/ "$ 6NU("_Nu2AHA02AHA0NuJ.gla0A d`J.g^a"A `` J.gPaA \a`FJ.g@A X`pA XL`2AHAD02FAAHAE0QNuJ.g0.aG XA"C E I V A XN`psNBNuA X000000000AgnUARA0-|Bn`BOXa^A X000000000AgnUARA0-|Bna` VNPBOXa H X-| Bn=|a8 VNa?Ra? g4aJkS0@f?RaJkS0@f6420@ANua?Ra6420NuRBOXp` PRBOXp ?aH X-| Bn=_a VNCIRCLEp` PCIRCLEp?aX?RaP?RaH? < d of`>Ra*?Ra"H@0H@-@=_ d H@-@ X-| =|=_a VN-@=_ ` H@-@ X-| BnRW=_a VNELLIPSEp` PELLIPSEp?a?Ra?Ra?Ra? < d of`BRar?RajH@0H@-@ H@-@ \ H@-@ X-| =|=_a VN H@-@ \ H@-@ X-| =|UW=_a VNCLIPBn Tea=|H X-|=|J.gpaL XHa VNPOINTTa=|k-@ XDj-| Bnaz VNTEXTrj gr -Xg %ga`?RaX?Ra> eNHRa@?Ra8?Ra0A00=_ \LaF H@-@ X-| Tn=| a* VNAa H@-@ X-|=| a VN=A Ad~"@B@`0QNuTa-|=|=@?a0. V_fRr`FILLr Xg %gat?Ral?Rad=@ H@-@ X-|g=|ap VNHEIGHTSTYLEEXPLNLOGSQRRNDFACTCDBLCSNGCINTLCINTMKD$MKS$MKIL$MKI$CVDCVSCVILCVIBITRa/Ra ?g(a0 /Ra _$fPJf VN VN// Ral&_& J+g&S>[dVkv SkvSkv"dASCQCkR`Jf VN VNINTABSSGNFIXSPCTABSPACE$FRACNOT-^SHLSHR*/\MOD+-=<><>>=<=ANDORIMPXOREQVNANDNOR)(+1-1*2/2VERSIONROTATIONPATTERNWIDTH@SINCOSTANCOTATNRESERVEDARCSINARCCOSARCTANARCCOTSINHCOSHTANHCOTHSECHCOSECHARSINHARTANHARCOTHSECCOSECBRKJ VNRaP`CHAIN gaBnN4=|BNBn faJ d=@AZ!! nfvfg6r a/ TLBBU/a _$_$4$4/ ra $` .R-@V".Z-ArBvP`COMMON(OvffaIr g0$nVЊZf -JV<"("2" "TH?<a*` TH?<-ObPv-nVR^e gS VNRENUM?<d ea> d> fRBg ea dİ> fR?< eaJg dĈ>a"..*$.RJdpNQL n*"n.$nJ~6Ad4\f VN4` Pe4@e.\fRBe"5<$n2&n6pg\(ZQf ,J@gNVg (ARrNT NLfrNT`"*"nJ01@H@` n*"n.$nJ0\f VNLine is undefined. DUMPG p=aa&JFkaNT`VN7./p"a JnxfNT`NTp"`.p(a&g:&C>2#4YQ`p,a SNLfQp)aNTpN7 _`BA#SASB`p,ap?aQ`Bnx VNLDUMP=|x`SCREENa f fRrdٌ/AP e gJgn/a 2 _B!@ fR(8Lg e/a _rWerSg rQYf8Lg(8Lg8LApOJ(fp'CYdaBY2 Jng=@6N4 VNDEFSNGp`0DEFDBLp`$DEFSTRpaDEFINTpa DEFINTLpa VN?aF$@aEr0JgRQNuG VBcBBBBBBatg2 d @F'ACRHa(F gS@F' F VNAC<PFJAfNuVOLUMEan?atd g>2@F'aF VN?Ra dn68>pr@F'a  K F VNNOISEa @d.?Ra @ d2@F'ACA@8F VNREGISTER ogSa g VNap0Q dS -|p=@a VNLINE PATTERN ==|qa d dN`LINE WIDTH =az=@ X-|BnaV VNOFFJOYSTICKL COMPILER (g Jga `R VNQUIT`HNDC Tea@eAeRBRCH VNINLINEJngaIef AdzC X @t@v`pe_@C@xe_DCDQ2NuHA*N XL` VNLIBRARYRp@&n2&s6/RaHJfC \aNIBgHn \?<=NPTkZ>=G:?<?B?<BNPTfF&nR-KRJdN[Jed&BoNPTHS/??<?NPTjNgNTSWNPTBn:O"K [agp;NQ [pKJ2fQ/ No&T&_e$$K B"nRIjpr4g@jR`: g e>+>1p?`SfSg g feK.&U](KxzNV 6&(S."LK2(zNV իd2`"QBnNLIBRARY CODE MNU. j.*H VNUNLISTMEMORY_MOVEa/Ra~/Rav"@  _Pzd2d"d `H@""""QH@QQz VNMEMORY_MOVEBa,/Ra$/Ra"@  _Pzddd` H@QH@QQz VNEXECaPA BP eRaJg* @-M -H O 6 .:*N+E$l"n"i,ffSCbpQWC*. avHn$l/. Hn X/<KPzNAQzHx?<HNAЮ:*zN+NI*n VNSEEKN6Bg?0gb @Rf^Ra/ f Ra?@?<BNPTkO VNPOLYGONax`PPOLYGONax (S #ffWf>=D=CBn L0J.fa&La VNOUTLINE JWr=A=AphH@-@az VNMEMORY_BLOCKa(HkQRa/RaLf |a VNaUFenNuaUFda`4@f~NuSNu~gG>;pNp0RpB(DZpL   N & J b z H h ^ p 6 @ Z l  x !" 2""&"J"X ( < ^ 2P  j^ !d P|^d~ f6N8hD*`\2|NJT^h ( 2 < F P Z d nr|N\"/?JFf/?^ep$nJj|`/?JFf/?^eVp0.|`/?JFf/?^e8p0.R@S|``/?JFf/?^e .2.a(n4` `n/?JFf/?^e/?<,NA8T _rat::]~aT:M~?aJ:EaB`/?JFf/?^e/?<*NA8T _ra:t/6.&f"M~a:~`&ʇ 00HENuUCft.~a:M~a:MMvdEPCeC~a`larPd@N\ard@0YX ra$`2/?JFf/?^eP <ڢ(j &@6HR`a"gBak2  +Rf8+ g"BAHA02H@0|`No`a8 Skgx +Fg +Og?<?B?<BNPTk &`JFjNUAeD"@ :f:@e4@g. @n(?Hn?<6NPTkP .2. |`XN[ .RJ|`Dp0.t|`8$nJp0|`*arA*/".g"APzN,_Qz|An`HzaD d2a6&JH`NTVQLNua4Svd`N\=BvaBnv`a$@pPzQz|`a$@Pz0QzH|`xa$@Pz Qz|`bN\"/?JFf/?^e/NS _|2g/NTV _$ra$`"ajBJfra`aP$S daDЂBdBA`a0& d|a&a$S dhaЂBdBAAd2`N\a$ d>N\Ad2`a$ draƴAdBЁ2`h$z >UFj\62<0a< 2(J&Ja 2 @|Jng6B$La62.Np&nR4RBJd4Jd`$$Q`z Jngab|`z`z`za0$r"Np0 ~ JjD~-(O>BBHB6HC46HB?$f4B0 B:e^B¹f2 @`/ *@Ia*_`UFjda` JAg$@pBJfN\a d2Np6KdKd `Q`&t `&@6$.r,Ce$(GR:$KE` VWf A|`p|`&@6$.N\a S dlހ"@dBB`p0|`$@G4J`Q`JAg6$@p|`HSN\HSLC`Jf LS`\LS`THSN\HSLC`Jg LS`*LS`" |`SFkga|x$6r Np4$$`SFkgaZ`Jj RdTANv$6rNp4$`a$rNp$`UFja2Hf4rNp4` A e0$@( 2 |`j]Ae$@ 2 |`LYAe$@ |`4UAe$@0 H|`af$N\aZr dVHH|`SFnDg a&|`a"d|` Fj`JjDhr@|`Jg UFjg p|`Jkp`SFng a0|`a0|`SFn(g$*6a0a|`n$6a0a<|`\p|`T`PSFng a2 |`@a1f|`6Ri|`,r@|`$SFng a2V|`a1|` Si|`DrA|`SFng*e($6~p|` XЀi|`jDrA`r@`TAi6RF`SFof|`a|UAiRF`px2<RF`/?JFf/?^eH <-|`l/?JFf/?^e*p|`P/?JFf/?^e0H|`0N\"/?JFf/?^e |`/?JFf/?^e2 |`/?JFf/?^eZ2 ( |`/?JFf/?^e(BANp4JdJd `Q`t`B/?JFf/?^e&n2p0&s62+Np(4خF(DeRBJd4Jd`$$Q`JdJd `Q`/?JFf/?^eV&n2p0&s62 +(+|`/?JFf/?^e &n2p0&s62 +|`` /?JFf/?^e&n2p0&s6 |`d/?JFf/?^e&n2p0&s60H|`4p`/?JFf/?^ev``/?JFf/?^ev.yfarNpBt4-MF(n2&t(6 f~+`N\Q`$g*BJCkC\"b-Ib#nR fRa"nRa "g,/.F/.\/.V/.R/<^e-nRV-Ob VN/.F-n\b/.R^eRNjJFk"_HaJAnLS*_`C\"b-Ib#nR fRa"nRa "g,/.F/.\/.V/.R/<^e-nRV-Ob VN/.F-n\b/.R^eRNjJFj"_HaAnLS*_`g Fg& VHH|`p|`0H` Fd  _/?/?RnJ&Y///^e/ ``&i JgF) HJ+g &S> Fng e/ 2+Np SF4aT2"_`2 (`/P` JgJf/&Y&<(2 aF"_JfNuBnJa>.J`&&_<(2 ?a >QNup0(n2(t60$$X|Nup0(n2(t6 |NuJ(n2t4&t(6"S$ f ~0Np"S>(I4!aT&*!e `<f(2 UFda:*!ŰdրQփ փր2,Np(4`(n2t4&t(6"S$ f ~PNp"S>(I4!a&*!e `P<f(2 UFda*!ŰdրQփ ր2 (|`N(n2t4&t(6"S$ f ~0Np"S>(I4!aj&*!e `<f(2 UFdaP*!ŰdրQփ փր2 |`(n2t4&t(6"S$ f ~ Np"S>(I4!a&*!e `n<f(2 UFda*!ŰdրQ |`v(n2t4&t(6"S$ f ~Np"S>(I4!a&*!e `<f(2 UFdax*!ŰdրQփ0H|` (n2t4&t(6"S$ f ~Np"S>(I4!a(&*!e `<f(2 UFda*!ŰdրQp|`(n2t4&t(6"S$ f ~Np"S>(I4!a&*!e`4<f(2 UFda*!ŰdրQ4VHH|`6Jn|fJ~g gR eJ`B><`aT&<f(2 aD&xN(LVE|tdB"<@ 8LgJjfdndhDքEF@+VF+VF+VFVF |`Ad$dDքEF@`AdBdPքEF@` FkD`@Jg:A`2JgSFnfpx2<`Jk`>f*6$Jg FkxdbDe2DaV|FgaJFgBCa$|`BCEa%|`a6$<vSFgeaa 8|`za |`a `t |NuxDe$Jgef8Hĸf0NuBa B6~<gSF 2(?g"` H2aLLQ<NuH6a LlQ<Nu?/pCkNp&Ba &_6a`KdKd `QNu>f*6$FgaSFgk"Ђi|`Ɛa ,B6a $a|`da 4|`>f*6$FgaSFk4g(i |`~Ԁa B6a CaF|`ba8|`Xa BF`NCt`CD>f*6$JFkf*6$FgahSFn&g2e48|$@&BAd8B` VfAepN|mpNpNxz|BGffAmnfepNgCmnfepNF`p`.Da.<d`ðd2Np8&BJDg:`QC``>f*6$FgJGkaSFk fa|`na TBF`d|BGJj0~Dh*Jg xf`Ha @6a a|`2p`,JjFGDhJgxgRJGfD`ȴdBH@J@gH@DG?a f@6a ^al|_`H@"&HAJAgHAJAg$`ԁekJGgD `pNuUFd@Jgf*6$:GUEda|`*>f*6$:GUEda|`>f*6$ax@d |`>f*6$ax@d |`>f*6$ah|`>f*6$aR|F`>f*6$a:|F`>f*6$a"|F`t>f*6$a F|`\>f*6$FgajSFnXg4H4Haa fL,aL,a|`BaB6a|Haa RL azL a|`2Hf&iHC0H|`SFkga6a|` Fka"|?a^<`aDa:a0`a&a##aa SFgeaJn 6fa N$_$RN|`BJn 6fa D$_$jN|`*a&~a  Xa  a  SFgead$_$RNJn 6fa|`$_$jNJn 6fa|`al  ab  aX!4!aN!V!aD!x!a:!!a0!"xa&#,#faa!"a8SFgea$_$RN|`F$_$jN|`8>f*6$FgaFSFg>kF" m" liHBJBfHBH af|`$BaXB6aPar|`a"BF`$6*><f(2 FgaSFgeBaB6aa|`ޘa4BF`ގ>f*6$FgaSFk`glBFJgj|DJj FDge dTip0JFgD|`AUCUĖAo: C!d.2gh Jgvkx dFH@xЀ[DDNvNu 2NuDC C!d@2g,dD AJg4kx dH@xЀ[DDNvNuтdTANvNu2NupAn2<NuJg <TANvNug CANv2J@gBCevgH@h(:HEBE|<xTHBJBgH@:BB`8BBH@:dSDԀdHDH@h:HEBE|<8ACClDABEG62 CAd: C e *tC `,@DCC 禊DJ_fمтdTANvNuTNudD@ AJkfJg8BFJf xF d H@HD0BDFJk SF؄р[FFNvNupx2<Nug CANv2Jg BgdڄՀSWv@D` dڄՀ߇݆څՂeQ` SCkއ݆څՂdQFFJ_gfFFJ_ge$Rd RdDdRd RdTANvTANv( NuBBBg CCNvBC< ,HFݨdRh,HFݨdRh,HF.HGݠdRh,ݐdRh<ݐdRh,HFݨdRh,HFݨdRh,HFݨdRh,HFݨdRh,ݠdRh,HF.HGݐdRh,.HGHFݐdRh,HFݨdRh,HFݨdRh,.HFHG6(( Іk gCلрUANvJCjRe Nupx2<NuRdTANvNuDNuDNu?CCg6gDNu6AgmDNugNuAglDNugNu2<@JgjRADNv dA H@SAЀ[SANuJAk:Ig6e A dDAA Nu A gdDAA DNu fNupNu  @ 6ɿlŭ+pxIϦGɀT~ތ Jvuu ;]=]5(`R yjNAnpx2<tBna  g  gE*Bg +g -f>a $gN %gD &fJa Hg8 Dg6 Bg( Og hg dg bg og$` aP -fFWf(MB`aa, 0eZRn0  e_  e@ *e Rd2/$***6* / af$_$*6 aaaJWgSW`-z?<JogRo eg$ Eg` eg EgRW dg Df\BWa~ +g -f~az6 0e40  e  e *e d dڂa@`JGjDt4/HԅgR[jD ?e Jf`6 C g CfBC Cfv CfvBJk BNvQ`BNvQJogRA-!gUfBW`JWg>R< Fe|Jg" A@e AAf gX n eBFNuXUFa\|Nupx2<`6 CdJ$*?a6Jfa`xa&`p <x2<H7 | EB? gH$**6*/ a$_LHQU<QLNuteNuBNuAnt-ft JgH0@HJFf ?a$< ~66j DC CDdaH6JWka^`aJog&$<6<0a&gd$<6<abSW`$<ɿ*<6<lafgd$<z6<aSW`$<zBCa.IDAA?QWk$.f6.f Wd(>n 8e">. 8`.fE0 WlB.f:BGE|0&RFbfJgتуSFPJfQQJfJg`.<RFj&.fFFg.gn :e<. :0Q|0&RFbfJgتуSFPJfQJfJf|D.f$.f Wm WlXONu Df Wet+<jDFt-JFf0TNuE$0~/RG@e~0RG@bg@SG0fTNud $<BCaa^Wk$.f6.f Wd(>n 8e">. 8`.fE Wl0.f(BGE|0RFbgВSFXJfYQJgN.<RFj&.fFFg.gn :e<. :0Q|0RFbgВSFXJfYJf<E`X0.gpEJfpD0NuB@'d #o~ƀZz@ NrԥHvT ;B@'d fJg ?/BA Qd $V~*YX r?/6$a ?/? 2$/6/a$6aLSWfP$6`?ABg Am$<vaSWBg$<062r6xz <$UGe,JFg*HA/ <ra$6?/a$LQNuHAHx <raxL$6?HaL$LQNu$<ڢva$6 <ڢraD Am6$6a$az Am$g ev$<ab` $<BCaPE`-  h5]( ڢ$<ڢ* C@d C e $*C g.DCC 毄BCJkfJgpSCڅՂ[C (24/Bg$<zvaEPa$*6a$*6a&THJkaBL,aNuDa2L,aJNux <r`PQڙU> ~8i:K{fiR57ƤKQ wΠX/g֋rohDB>ZkUO8,e_&9SD<]ݪ?ABgE$*6PTalfeRW Wf>gh Gf$<zvad`RG<GFGHH$*+6+ Ca|L,H (+2+a$<zvaXL,aEa>g Gg$G<FGHG$*6a$>GANu$<ڢ**=yrN.\a8ܑaI$Eؿk?/a?/ /2/ a$6\`Ha L,H (2aL,`?/af?/ /2/ ab$6\`HaL,H (2aL,`Ba&$<v`xa"`a$<zv`a`?/$6a:$<vaa$6Jga2`> <ڢ($DL??// a*$6`ta$<zv`da.`a`H$6a~$<vaaLL aJgf?BA$<4BCa$<4vaP$<vaE0a$<va|$60H@aaj$Fe| G d؆eNu|ІeNuRdRDTANuUFm~>Fe| G deNu|jNu؄рUANu$6* <xr`N<Fd4UFm~>Fe| G d؆eNu|ІeNuRdRDTANuUFm~>Fe| G deNu|jNu؄рUANut&nR~rpR2g .g Eg Df+J@f0RSJ<@J+gS:H@<EJAkf J+g`0S@3 Q6< +f3+ RJ .-g J+g+ J+fBE`3 RA3 RAQ|QJ+g.+ .fg Eg DfS<03RA Q+gL Eg DfS0+SB. JWgB@+%NuRC 0Q$GRCg0`Nu"@>&nB+'|B+B| ptBCBD*< , .R@ad( _g #fB ,fDfC`SB=BRBJCgJDg e6HEEHEEC`JDg6HE Cd CE`EptxR@ad ^fR+ 1^gJ+fB` _f ` *f,J+g+dT+@RDadv@RDA` -g +fH|BJ+f|J+jtad< #g *ffB++@S3@RD`N #f"@RDJ+g+eR+`&R+`+gز+f+gB@J+fF@=@F@=@NuR@RB1 GNuN>" J+g&S>A ֻ d,BJfBY7<]nNu  gB#SnNu"BAQSnNu" dxA +f&S>p Jgp$BBHB84HD8$+0HD@R@RD=DNu/&+ր$փJ.gւփ$Nuփւփ$Nu. a@fHH&GaL`a78'8S@QNuHxa(CEaE<38787,38'8'J.f,38'8'RDneLnNuaBnBn@faBnBn8.0a(J8f:R@neJ.fda޼`aJ8g:aXJ.g / &naH&_0.8.@f R@=@ndP0a(C0.a23 3(3$38*38638aaJng / &na&_Rn0.neRnBn8.ne$38*38638La`L.g ABF.NuJ.f`\J.f`ݲJ.f8`J.f0`a238 38(38NuH=|H8.0.a(C0.aL/$3*363a(_$3*363aaRn8.nePXL?Nu8a6<$<zaT/ &na&_Rn0.neNuHBn8.0.aJ.L,/a(_aRn8.ne Nu7'J.f'NuH Jgaن`anLHa>BnL?aRn2.>GePXNup/NQHHaLaD-KL?.?a2@f_f2nf=|`& ".RJeN[".RJeN, nJ 0Sf&nJ NuH Ha=@=D-KLanfl=D-KLanfTnfL-KBnBnBnajH&n0.8.a(C&n8.0.a238 38(38&n63$3*3afL,aHRn2.ne&n0.8.aLL(Ca>Rn8.nepRn0.ne\NupNQBnBnC XahgC XC0-IJf*.*BRC a>gC C0-IJg=|C  ):fHn?<NA\?<Hn X?<NaPkJN[&nJ&.RYJng$A .gJf`R Bf Af Kga ?<OaTTjƷJgB(K-L-C&nJa`C Xap d / /?.:?<?a k'@g0.:aJf(nJ/.JgaC Jlf8Hn ?<Aa\r߰gJkRBgHn ?<=@<9|//,?.alXjN ):f )\f,NuC aC XC0-IG XE "JC0-If=|Bn`ZpA`LC Xafa VN .: Yf. X@@A @d ??<NAXHn X?<;a\khNup9`p:C XHQ?aa\kJ VNC XaC RaHn Hn XBg?<Va k VNr9@@=A"JFga a$a`8??<>a"XNu=@"<.:gaJ.'tf<.nb.'~aa^a_'~aJ.'g nNNU.* `.n#HA$lQ'BA` tRV#jgS@=@"B#P# P#&P"P'Q'u-xN"azJ.f408B28F48^H"x'}r8`A"f1^BUV'{PBn vpNta.nbBn"aA&pWQQJ.#jg`08B28F48^1B1F1^x'}PNua4Hy aaaQpEapeN7 Lp"1ĂB1łF1Ƃ^'}pn ."n@."=@"`=n"aLp"J."f:1łB1ĂF1Ă^NuNsp8`g$A!pF$N4`AC!pF#LHA n/;FF'!{JL4(Be04(Be2HF# Nu,P(PhP?aP"0."rA.'{@=@"t@@;n"gBn"=A"{"{"@={"v8UD|JBg<>."f>O Gd~UAAe>SGv8SD:RE<GUn"kEF=E"=G"=F"=C"=D"."a n"p2< Qa`8A"L8L~y"fDEH<."CBe<SF@=F"JGgNup A&pBQNu0."2."a0."2."A&p`QQNu~6."SC`~val<."z:(SEn"8."SDC&p n"JGjDF`*$Ig 0&HE`&&&&&&&&&&QQQn"`0aQ'~NuJ.'~gH n"J."gF'NF#LNuP'~J.'~gH n"J."gF'NF#LNut`4."a"$n"’Bdr4."ܴAd2Apn"gU@kfCR`Hp@G[O[[[?[[[/[[[[o[[[_[QJBg*pPBvr8LdLd4Ld`$$QQ`C?zAgEYBI/p6 Cg`TpG@pI@pK@pM@pC탆(탆4NQQ`ZpG@pI@pK@pM@pvC탆탆HCHC4OQQNI *L,MSEeVpG@SEepI@SEe pK@pC탆탆HCHCCKOQޔ,_J2AAJBk(pPBvr8LdLd `QQ`v`vCG&x`2pG@[[@[[[ [[`[ķDQp`&@@@@@@ @@`@ķDQ`:v`6."a8."ܒCjrDjCe޸Bd4Bd"$n"pn"g,U@k ffAvPBpSB2FQQ`|~z(`|~zPvVVÔAaBeJp2Id `FRFRQQ`vACI0I@CxBDJ0J@D{0J{@F6;0R8;@NFDAfDxTBzPBUBJpZ2IdFZId`FFQRQ`&??0."n"n"2."ޒn"J.'gNua"$n"pn"gJU@ePgX6CCtABIB <J.'|fJ.g <`J.grEPQ`6<xz`6<xz`vPxzI@aFApJ.'|f J.g p`J.gQ`0."=@"2."IAdp=@"ajJ.'g=|#6.nb0."n"d =n""aFpn"e R@n"a40."r2L*ҁҁPe$"($g Q6f2n"n"A&pQa:aQ'Q'vP'!1AY&&aQ'J.'vg-H dQ$java n dNr2L*ҁҁ\pd(x8 n-nVR-O#HP'tN\HQ't @0`A XNuC#j2<@d0<rQp `QNuA#j"HJfSp !gRd"H/ QN.=n `BnBn XN/* n6 Xfn ["$_-I X-_ \J'ukNI/. \"n X& KdBB.y=|E X& p0."Ѐ"ЁЁЮ* @\"..e A](HxzK.NV !h\0 `(A(($zK2NU(A(zK2NV "A`Ր\dK`2QNuQ'J."g"=|"`JgP'vA&p"""Q0."ސn"d =n""apn"e0."ސn"R@=@"aa V~HzE#j&J".'Q'JgDJf g: e4fJ.'g <S`$PJ.gJ.'zf an'y'zJ.'ygZNu2SAW'H@ANUAgA! AgJkR g>r n#d0Aae, Ad&A5`JfQPJgrJ.gaVa` g@@CalfN f,J# fNuaJAg"SASt\`"WRA.'a` afQ'vCa$g"NuJn"fJ.'g0."S@ea=@"A#XNuaxga8fapa2f\Jn"fNuaeJ.'gBn"A#`aNEW PROGRAM - CONFIRM WITH DIRECTORY PATHNAME:SEGPTR= ASC(BLOAD CONT DATA ELSE FOR GOTO HCOPY INPUT KEY LPRINT MID$(NEXT OPEN PRINT RETURN SYSTEM THEN USING VARPTR WHILE MOUSEX MOUSEY PP P      Desk Quit accessory--------------------H2QNuaaC#jAXp -I raBBBYraQpP#Pn$@#@#Tn#Tn#V.#T.#V.#V.#At-H#\-H$A}-H$p =@ v?prA#jar0Qra^p-@ vphtxaLL A v0HHp3t aFptA a4Bn#  fraa<`=@ vtxpkv`p=A vA#jt-H vxC" A"0000BXE X""P"P"P"0<=n \A XN`NBNu^@fP'xaQ'xH@"."Ag f$"." Ae2<HA-A"`AC$la ~C$la xg*@PgP@fr`2."SA0."Adp=@"a,`-fAAAAe &YAg Jg@Tg0"HSaDgJnf2p n*"n.R@Xg Xe`#V`Nan"dp`a D@n"ep`prt Ё d0eeNuaHa /aa: NuaH@@.#0RG4.#F| BgZ<<9 BCgPSF BgHSF Bg@|{ Bzg8^F Bg0^F Bg(<Fg SFg SFg`4<7`4<8<<9`4<:<`~REDgDp?Ef/< NMXCvf(p0"ЁЁЀ&n*T&+ Sǖ.pr.#*fF`BgFg1g2j@FgBgzpr fSg g f@ASCn`b1g>jr` g e >(Bg( fSg g f@ASCn`JBfSCg p 1gjr fSg g f(-H#:Hn0=A#0=E#40aB#:".#>H=A#2@NupNuLp#2>SFe(..*SDDdJ.'fHn%nH`~REDgHp?Ef/< NMXfn0a`L*W2"H4GTBBev R$I&M4g$f$ Ae [d Ae [dVWf> H=G#2=E#4X@NuPXpNuaH@H=A"`AiaFJ.#*fJg=B#6ArC$laa"HxSAkx4.#6=@Jvr`>N1`N1JNuN2agGmC XN1k8f6`N1k,tag (f RBa ,g )faf L2|`?<NATrAA#j:R@?HP?<GNAPA#j"HJf|\NuaaQ$l`ava*n#B*Qa߸K$ I$p+$QpaG#jI$l/8N 8/paap2d x heJn vgSn xf"J.$lf/ tNv?ak>E#lAt x<:.Jgp WS`QpQJf&JaT`U0K"8a< 8at v)_dpn"tOS@f~a>tO`tJCka2av` Q&JxpHG8 >QHD0.fNu0A#jt'v|P'aQ'NuJ'ukNIaa|`vaat`lr2."`"."HA-A"`Zr2."RA`"."HA-A"`DP'xa."a d n"d=D"&h&)(H(zK.NU(K.(zK2NU$n.Te`J."g=|"J."g=|"..""dNuaL"DfH0aL<EŐEdpGe06@n"f2."޲FdAen"n"C#j`Q` QH0."ajL2."CAd R@`4AG @d~EB`!QE#j`Q`JGgRF&.. n*SC>."Ce8Ce<Ce>v6 ЃЃЀ6"҃҃ҁ6$ԃԃԂ"H$H’Nua$(&)&n.*d&nJ÷Rd֜Dden"n">."a(J(zK.NV &n.(2(H*J:*ڄ*ŹeTMםe(j(zK2NV (jd8d(d `HC((((QHCQNuC" AG"|Q#FaaaTa֐6.":x|Hx"BgHn"|?<=akP<~xDGA#jHpp/??<?akO @gA#j"HEpx  g  fQ  fR8IHa=W"Rn"a޾Rn"LA#j"HĞDjBG0`Q`v0."n"d \C" A0G"|Q#FaaxaմLx"JFgREBFBgHn"|?<k"P<H0PaQLhRCJ@fA#jHP  CfR@~@/??<@akr=fO Ee??<>BFakӴXaV`Aa 8f NK n*0B-H.0o-H2-H6-H:P'uNIB"B"a`L*P'pv6$X Z6g R@eaP'NQ'Q'` $4H=B"r*RCg xRA e=A"`0."n"d .'ag A{aL"JGgRFH 0a܎tvP'|a"Q'LPRDFea6_'`aa BFBgHn?< .#T` .#X` .#\` .#``A#T`A#X` A#\`A#` "-P#P`,px`px-@axaHK"NdP#G`C",Ba#<.BASNuQ#GaNN[ZNaA{GP#Fa aaK"NQ#GA5aGP#FaaaծaB"Bn"=|NJ.#GkZfa`p|#G`|P#GA`aaAI Y$LCfS0 LP#*`4C"AG'4Q#Fa^A'4C#jp"QaLA#jBn XQ#*O 6/aH .:*N+E$l"n"i,ffSCpQWC*. a _Hn$lHn XHP/<KPzNAQzHx?<HNAЮ:*zN+aaBn vpNta`b0."n"n"aӮ`p` aT`Dpna`aH@ Cg \gJ`0."aټ=@#*-H#BB.$ja n#B0.#*aP'vP'Hzv`J0."n"dBn"n"d`Jn"gBn"Bn"Bn"a`:Bn" ..*S@=@"R@n"dp=@"`0."gSn"n"fa`|0."A#jCQ#*-I#B4a\d@"QafRn"a n#B#*~ gS0."`QQ$ja>Sn"arRn"0."n"n"fa҈`A#jr 0<VF@@"NuA$j0<r VR@Nu0."S@ear$H4CaA#j@`VgSR@2@ Bd=A"`QB JaآSn"`afa0."aJ@gaZab`T0."R@a"Ht r`VgSR@4aTA#j=@"B @d `QBa0Rn"aSn"`Rn"0."n"n"faxa8aL8."n"0."2."DDa@0."2."a4`a aH`p0." @*K."U]Nuad I(HxzNV 0 pRn"a$Sn"NuA$lBPa׊a(HdbxzNUp2."L"Ddn"JGgRFFdn"JjJDfB"n"fB"A#Rtv6Ae րkAd60XQNuHp0D`Hp02aLNu2.#(4.#&pn"g0n"en"e~n"fP'w?."=n""axH@?0.#( @dp2."WA@d02A"Pg>e20A&p8."QRADfr46RCSDAC n"gCDH"H" _|f=_"Q'w`0n"en"d8:4n"n"6<>P'wH/-n#&#*=F"=G"aH@ @|gaFQ'p`LaP'aQ'H@?6.#(n"d6."ga*v4/RBn"g?Bn"ea6."SC4/SBe?BL<>.#&n"n"HBdCBn"A&pQ RBQ @|fpLaQ'waΔ`>`Q'wL`=F"=G"޸Fe fGeFGH"-n#&#*NuFnaV`F.aJ`/ C$l0<r WfSQC$l~P'aLQ'at?Be2$_&J`QQNuA&p"SQQCA$jr?$ "QNuC$lan~-H# ?."?.".'/ aQ'0."n"n"U@=@"AIt VRAGd2=A"aR"_a I>."_'=_"=_"B# $HB B NuCr3< QNuC%n>.#6JQfaE$laC$laja&=A#6"HE%np?$QNuC$l~aJa=A#8NufCIt !VRAGd2NuaeiouaeiouA^anoANOaeiouyAOUaeiouE^`Sn#/< NMXgBn# ."`J.'yfQ'za|Jg@.'yQ'yCx ^g0Cz `g&C ~gC gC g`"@'yNu fNu2gfI ^g `g ~g g gNu .#fvJn#fJag22A0t Bd&#hAB#i2QJAfR.' .'fpP'Q#iQ'H@C#"gF Zg0 ~g* >g$ ?g @g Wg Xg Jfa `nB#` A B"S ZfTJ.'xfNJ# faH@A ~g*A >g A ?gA Wg A Xg`-H#|?#` @f0J# fJ.'wf|/."A^a a8-_"J@gS@=@#`H@Jg-@"H@A ~g,A >g"A ?gA WgA XgH@NuJg  @ H@Jf-H#NuHzB# Q'?</<NM\Nu-O#Q'Bn#a& .# g8A#j0."U@rC&pJk aaa n# 0."W@ra aJ&pkA",prPaprta|a8.":."<."a rn"g&0."A&pJkA rBQ2<aʚa8.":."<."a 0."gzJ.'fJ.fnQ'NQ@@ 9fr." 00AHAAABn"BAQB@SAo00."S@a aa xA-H"`P(P'apn"{"gfN4E"Tp~>."aXp."a^p~ޮ:*a~?."=|"0<QA"Tpraɞprta8=_"Q"a| 8"eP"Hz0."S@r4<`p8W.'|g a.F.'|a&a>J.f n"Add-x"8.":."<."a 8.":."<."aa`aJ# fJ.'wg4p|Jn#$g$J.'g2.#(n"en"d ".#*#&gxpH@.n#NuJBgp~UBdp}Jn#(fa|fX@@`J.'gJJn#(fDJ.'~g>a^f:=@#adQ'|a\arabfp#.#)J/a4 `a,.n#`/<NMXJ@fNua.NM.n#NuCvp8.#& YLR@AeBeQpNu@Nu-H#C&pL6Jz gz0QC#PEr"pt ftrEQL>=D#=C#C&qHE=D#`QQpaFL8?."=E"Dpn"gDU@e gL<FFLp2`2R@H؀D"afL?."=o"B."2.#Aa*=_"LQ=_"NuJn#g p-@# n#L`/<NMXJ@faJBfv0.#(fafܰn#gNun#n6.#&L#AeBdRASBHar/<NMXtJ@fafL n#(f8.#&De RDAeJBg6L?a84gUBd20.#(f aLf=@#`n#n6.#&L#Ae BdapNupNu n # gHa-@# r2B@H@txn"WDftt RDft°n"e0."S@n"e2."SFH#&4(n#$g0.#$=B#$F@n#$NutNu''@''Vn"rsPt6tuv SAVE *.* LOAD *.* SAVE BLOCK *.* LOAD BLOCK *.* DIRECTORY NEW QUIT EDIT (^C)   FIND NEXT FIND ... LIST ... REPLACE ALL ... QUERY REPLACE ... FIND TOKEN ... LIST TOKEN ... FIND DEF ... RENAME TOKEN ... LIST TO PRINTER FIND ERROR   INSERT MOVE KILL MARK BLOCK START MARK BLOCK END SAVE BLOCK *.* LOAD BLOCK *.* PRINT BLOCK HIDE   INSERT SWITCH SCREEN SPLIT SCREEN CHANGE SIZE LINE NUMBERS SHOW ERRORS SAVE SETTINGS   TO LAST MARK TO LINE ... LINE TO TOP LINE TO BOTTOM TO MARK #1 TO MARK #2 TO MARK #3 TO MARK #4 SET MARK #1 SET MARK #2 SET MARK #3 SET MARK #4 FIND ERROR # RUN (^R) SAVE & RUN TRON & RUN COMPILE SAVE & COMPILE RUN *.BAS EXEC *.PRG ACCESSORY ?."Bn"a=_"NuC&pJkaNuSFk,6."DdvCd6~` 0G@ea0GeaRGGdNuA&pJPkHDn"gRa20oa0J.'f06oL"De CefJGg24oFgr4<a aRLNuJ# f2/n"fA#j2<J.'faŠ20/Wa.a`SFk,6."DdvCd6~` 0G@ea0GeaRGGdNuHDn"g:r2 n*"n.ҁҁ\d g Q6f0or4<aTLNu?****?           (((((,&?00 <"8<2""!( ,3" 4               ?                                                                   !-11-!!=3=53!=      &&  """2-       UUU8lll||lll80~~0<˜<ƒ8x0||<<<~xx0x`~ln `| 1h<|bf 0fF8ll:|l6 000 0 0f<~ 80 0`0 ~~0  0X4`fffvza`0 0`0 | l8~00p0844,<< 8~UUUUUUU$Bf$$<<$$fB$tBBt.BB.<B""!$ *98B fff$$~~$$~~$$>~X|>~|&V, 04jd8|l|8:nl~: 000000 0 0Z~<<~Z~~~~ 00``<~fn~vff~<8xX~~<~f 0`~~<~ff~< <8 0``0 ~~~~`0  0`<~f <~ffnn`f~<<~ff~~fff|~ff||ff~|<~f````f~<|~ffffff~|~~``||``~~~~``||````<~f`nnff~<ffff~~ffff<<<<f~<ffn|xx|nff````````~~Bf~~ffffffffvv~nnfff<~ffffff~<|~ff~|````<~ffffff~<|~ff~|llff<~f`|>f~<~~ffffffff~<fffff<<<ffffff~~fBff<<<<```l~fffff <8```flxpxlf000000008T~jjjjjl~fffff<~fff~<l~fff~l````6~fff~6l~f````<0 <8000xx000<fffff~6ffff<<ffbjj~4ff<<~~ 0~~pppxxp2~L$$BB~<~f````f~<0fffffff~6 0<~f~`~<X~46~|ln~|lnn2|X~~<~fff~<~~<~ff~~ff~<<~fffff$ff>~`86ff~<<~jjjjj~<0<~jjjjj~<>p`~~`p><~ffffffff~~~~~~~~~~`0  0`~~ 0``0 ~~p~~>|@>|@$$<<8P08$$$$<$$~~ $ 6 &.jR8.L(<h4hx"Fvn d6:Z$,H*Tn,,   &|4r4@nl4>z"ZpJl\2H0"RT.N*rphjhvf>>n*` $ R DZ&T&j,  t288(>N"$64hlX2BB^ZdXnx:|Br,6@@JT^hrZ|z(F\RESelect a file to be protected... Whlen Sie ein zu schtzendes Programm an...&  eM " ""eh . " $"   " $ "fe3   " " $ "e3  "dz  ("\*.BAS:],"]"(",eZ 0" d{  e $(|4"4(|("(4"444\ʃ $,|8"8,|,",0 <n6<E8R489@:q@ ? Bad file  D:H"@:L"@:P"@:T"@h"HLPTqh ? Bad file  DProtecting p 48 q --- are you sure ? \"zS\Y\J8R489@ "HL HLP-: `"@ `\"@: `"\@ɵHLPd"`:d@";dd"d /:d`"@@@";dd"d` ok "u0 De\"zo ,8DP\dlv  ' ACHTUNG! ' 'Beim Start von OMIKRON.BASIC sind folgende Voreinstellungen 'gueltig, wenn Sie nicht im MODE-Menue "SAVE SETTINGS" gemacht 'haben: '- Insert-Modus '- Zeilennummern an ' 'Im Insert-Modus fuegt die Taste eine Zeile hinter der 'Cursorzeile ein. 'Diese (leere) Zeile hat dann natuerlich keine Zeilennummer. 'Das fuehrt zu der Fehlermeldung "BAD LINE NUMBER" beim Verlassen 'des Editors. Sie koennen das umgehen, indem Sie entweder den Insert- 'Modus abschalten (-), oder die Zeilennummern ab- 'schalten (-), oder die ueberfluessige Zeile loeschen '(mit -), oder die letzte Zeile nicht mit , sondern 'mit einer Cursortaste verlassen. @@@@@@@@@@@@?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 0 ???0 0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 ?0 0 0 ??@L$:L ` ~   ^~ "<dhr !"#$% &0'Z(t)*+,-./01 234 5:6P7V8j9t:;<=>?@ A"B:C>DFENFTGXH\I`JdKhLMNOPQ0R@SJTXUhVxWXYZ[\]"^*_N`vabcdef g h Hi Pj rk l m n o p q "r $s *t 8u \v `w tx y z { | } ~ D F J V ( R r   , &:BHLRVd(.@Npz$(,26BDHxL|C"""@ """@""L|C""" """""L|E""" """"" J#3 $"`$J' (,"c04"B8"4~b~cG8^8_4"0Aɀ:44܃<"4\*.BAS4"4\*.SP0ɀfHHw@"d, -&5!DH"]L"@]P"E]EHT"dX" \"]`"d" h"dl"d@"-2\@ E]Elh\E/ph"h  iXt-t"PxEPEij jhl E |" BjhiXk| EijE"/  EE"/jdk"i3 iXtE/t",/"k"i"j V " DR"X" "" " ""  jd"i3 z j"i"j"k" "  D/  > " "   R"C"CX" d"iɎ"jɎ"k-,-,-R"j"  J"   D  ,  oI-------------------------------------------------------------------------6p70`$2NN~<p L qOAD p S qAVE p D qATA's p 1/2 qCOLOR SIp Z qE2NN~`$R"X"l"T" D"D "       )H"N~N~1- $"h-1  v"N~2N~b-@ !"h-1UU  #">-1ꪪ  J"N~dN~- !"h-1  $H"N~N~Pc-P $"4N-1  r"N~PdN~P- !"4N-1UU  !"-1ꪪ  L"N~PN~P+-P !"4N-1  46x P+ @"0L@H@|  PP2'@"-1L@H@} PEL EH46-    ,D"H"H"4""(LLLLLL SSSSSS DDDDDDDD 11 2222222 ZZZZZZ""4 k  "z" W"S|"1"E`2`"`E`ZP"Px D`$tE/,*<-`$"<<<\\ۃ \ "P "..܃ 8O T=MEMORY():FOR I= TO + STEP 4:READ A:LPOKE I,A:NEXTT"T  Px"L "H z@"- "T DATA  -"@@ -~",  T"T  @ p `$tE/t",) [2][Programmende ?| ][JA| NEIN ]-`$`o or system LS0`$tE/,*4-`$"444\\ۃ  L <H r"Z"D"H|H|    =H p"4(" [3][Fehler:|\|\ " |in Zeile[][Wiederh.|Abbruch|Ende]`$tE/,),,-`$,`$J' ,O,Oo $,8@JVdp|  .6DNX`t|  ,4BP`hrzXMYMWIDTHHEIGHSPSDLENSHSHOTASTEUNBREAKFEHLERFEHLERDRIVEPATHAPATH2IFSPRDEFSPRKDEFSP2ZTXSDBLACKFCTYTY2TX2REFRESHMSPRCOPYFLAGGREYMXTASTE_PER_MAUSMBMYFB1B2XXYYSETMX2MY2XYAXASEMATASTE2BBCNAME2OKAYFSDLEN2SPRNAMESPRDEF2KKRNAMEFEHLER90 'die Zeilen 100-260 werden direkt vom Sprite-Editor so abgespeichert. 91 'Ab Zeile 1000 finden Sie ein kurzes Demo, das den Rahmen bewegt. 92 '(Maus bewegen!) 93 'Achtung! Das Demo laeuft nur in s/w. 100 Rahmen%L= MEMORY(256): FOR I%L=Rahmen%L TO Rahmen%L+252 STEP 4: READ A%L: LPOKE I%L,A%L: NEXT 110 DATA -1,0,-1,0 120 DATA -1,1073741820,-1,1073741820 130 DATA -1,805306380,-1,805306380 140 DATA -67108801,805306380,-67108801,805306380 150 DATA -67108801,805306380,-67108801,805306380 160 DATA -67108801,805306380,-67108801,805306380 170 DATA -67108801,805306380,-67108801,805306380 180 DATA -67108801,805306380,-67108801,805306380 190 DATA -67108801,805306380,-67108801,805306380 200 DATA -67108801,805306380,-67108801,805306380 210 DATA -67108801,805306380,-67108801,805306380 220 DATA -67108801,805306380,-67108801,805306380 230 DATA -67108801,805306380,-67108801,805306380 240 DATA -1,805306380,-1,805306380 250 DATA -1,1073741820,-1,1073741820 260 DATA -1,0,-1,0 1000 PRINT CHR$(27);"f";: DEF SPRITE 1, PEEK($44C)*2+2, MEMORY(1024) 1010 REPEAT 1020 SPRITE 1, MOUSEX , MOUSEY ,Rahmen%L,0,1 1030 UNTIL MOUSEBUT 1040 DEF SPRITE 1,0: WVBL