DEMOPROGRAMM.BAS Ù-ääÙ-Ü= Ü0 â :' PETER FISCHER!:' WINTERTHURERSTRASSE 684:' 8051 ZUERICH(:' äääääää 2:' SCHWEIZ<:'F:' TEL. 01/41,0,91P:'Z:'n:'xþ§ ïú:Ü "CRT:M1"D þ–,:þ–,:þ–‚,:þ–‚@,ªXô„:Hô…(s´þ” [‚] X,,X,ˆH:þ”[‚]X÷,,X÷,ˆH:HôHø:XôX÷ƒ ÷H:“Hõø„ â ´¾Yô„:Hô„pIÈþ” [‚] ,Y,‰ ,Y:HôHø:YôY÷ƒ ÷H:“Hõø„ â È1Òþ˜[]†(,† ,†P,‡H,1Üþ˜[]†(,† ,‡$,†H,1æþ˜[]†(,‡ ,‡$,‡ ,1ðþ˜[]‡,† ,‡$,‡ ,1úþ˜[]‡8,‡ ,‡L,ˆ,1þ˜[]‡8,‡ ,ˆ,‡ ,1þ˜[]‡8,‡H,ˆ,‡\,1þ˜[‚@]†0,†(,†X,‡L,‚1"þ˜[‚@]†0,†(,‡(,†P,‚1,þ˜[‚@]†0,‡,‡(,‡$,‚16þ˜[‚@]‡,†(,‡(,‡$,‚1@þ˜[‚@]‡<,‡,‡P,ˆ,‚1Jþ˜[‚@]‡<,‡,ˆ,‡$,‚1Tþ˜[‚@]‡<,‡L,ˆ,‡`,‚2^þ  []ˆ,‡p,"SOFT",ƒ ,‚2hþ  [‚]ˆ,‡t,"SOFT",ƒ ,‚=iþ  [‚@]ƒ ,ˆ ,"WINDOW-SYSTEM",‚@,‚1rþ˜[]ˆ/,…p,‰,‡4,1|þ˜[‚]ˆ1,†,‰,‡8,‚1†þ˜[‚@]ˆ\,†,ˆu,‡.,‚@1þ˜[‚@]ˆC,†P,‰,‡,‚@Dšþ–,:þ–,:þ–‚,‚:þ–‚@,ƒ` ¤… J®IôàŠ{À¸•A:  ÿúø÷I,AÂŽIÌÜ "CRT:M3"Ö:'5à— **** TEXT FUER PROGRAMMBESCHREIBUNG ****ê:'ôþ– ,ƒ`þþ þ¤ ,ƒ X "D¡¤ W¦°œ·£¤½¤–’³ «·° PF - S·ª– ¦¤– «·¸¸©·³³’° ¦° M¡¤Ÿ˜¦’°’°¤ž¡Ÿ˜’ —’¤Ÿ˜¦’š’°."Q"E¤ ¦¤– œ’³’°–¤ž’Ÿ˜’°œ ¤Ÿ˜°’¸¸. D¡¤ P·—¡³³ ¸¦’—– ¡š $FAEF ¦³ Sž’¦Ÿ˜’,";Q&"¤·œ¡¤¤ ª¥’ œ’° P·—¡³¦’’ °·Ÿ˜ 21313 B½–’¤ ¢¥ «’ª¥’—¥°— ¤–’˜’°. D¡¤"O0"W¦°œ·£¤½¤–’³ ©¡°° °¥ ¦° œ’° 80 Z’¦Ÿ˜’° B’–¦’š¤¡–’° ’¦°—’¤’–¢ £’œ’°."U:"E¤ ©·’°°’° —¸’¦Ÿ˜¢’¦–¦— ³¡›¦³¡¸ 3 W¦°œ·£¤ ·ªª’° ¤–’˜’°, ’¦°’ —·’¤¤’’ A°¢¡˜¸"PD"£¥’œ’ œ’° ª¥’ œ’° P·—¡³¦’’ ª’¦’° Sž’¦Ÿ˜’ œ¥Ÿ˜ œ¡¤ Aš¤ž’¦Ÿ˜’° ".N"œ’ W¦°œ·£¦°˜¡¸–’ ¢¥ ¤–¡© «’³¦°œ’°."GX" D¦’ W¦°œ·£¤ £’œ’° ³¦– œ’ F¡š’ œ’ P¡¸’––’ 1 ¥³¡˜³–."Tb"D¡¤ S½¤–’³ ¦¤– ’¦° T’›–£¦°œ·£¤½¤–’³, œ¡¤ ˜’¦¤¤–, ’¤ ©¡°° ©’¦°’ HRG - G¡ž˜¦©"Ml"—’¸’¤’° £’œ’°. V·° œ’ P¤’¥œ·—¡ž˜¦© £’œ’° ¡¸¸’ Z’¦Ÿ˜’° ’©¡°°– ¥°œ"Ov"¡¥¤—’ª¥’˜–,¡¥¤¤’ œ’° Z’¦Ÿ˜’° à,ý,Ð,Î,Í,Ý, œ¦’ ³¦– œ’ P¡¸’––’°ª¡š’ 1"€"¡¥¤—’—’š’° £’œ’°."NŠþ¤ ,…8:[]" WENN WEITER,DRUECKE TASTE ";”­ A$:“ A$ô"" â ”Nžþ¤ ,…8:[]" ";G¨SLôñ:SHô':X1ô„ :X2ô†(:Y1ô‚:Y2ô„@: "WINDOWON"²þ¤„@,‚@:þ ¼ "E¤ ¤–’˜’° 3 B’ª’˜¸’ ¢¥"$Æþ¤„@,ƒ:"«’ª¥’—¥°— :"#Ðþ¤„`,ƒ@:"1. WINDOWON"&Úþ¤„`,ƒ`:"2. WINDOWCLEAR".äþ¤„`,„:"3. WINDOWOFF":þ 1îþ¤„@,„0:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"ø­ A$:“ A$ô"" â ø1þ¤„@,„0:" "G SLô›:SHô):X1ô…p:X2ô†p:Y1ô„:Y2ô…: "WINDOWON"(þ¤†,„:[]"WINDOWON"( þ¤†,„ :[]"--------"3*þ¤†,„@:[]"D’ B’ª’˜¸ W¦°œ·£·°"54þ¤†,„P:[]"’³·’—¸¦Ÿ˜– I˜°’° œ¡¤"5>þ¤†,„`:[]"O’ªª°’° ’¦°’¤ °’¥’° "5Hþ¤†,„p:[]"F’°¤–’¤. "1Rþ¤†,…:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"\­ A$:“ A$ô"" â \GfSLô:SHôî:X1ô‚:X2ô‡:Y1ô„ :Y2ô…0: "WINDOWON"5pþ¤… ,„0:[]"PARAMETER WINDOWON :"5zþ¤… ,„@:[]"---------------------"]„þ¤ƒ ,„`:[]"X1,Y1: Oš’’ ¸¦°©’ EŸ©’ [ 2 <= X1 <= X2 / 0 <= Y1 <= Y2 ]"]Žþ¤ƒ ,„p:[]"X2,Y2: U°–’’ ’Ÿ˜–’ EŸ©’ [ X1 <= X2 <=79 / Y1 <= Y2 <= 22 ]6˜þ¤ƒ ,…:[]"SL: L·£-B½–’ Sž’¦Ÿ˜’"7¢þ¤ƒ ,…:[]"SH: H¦—˜-B½–’ Sž’¦Ÿ˜’"L¬þ¤„p ,…:[]"G’°¢’° ³¥’¤¤’° ¥°š’œ¦°— ’¦°—’˜¡¸–’ £’œ’°,"K¶þ¤„p ,…:[]"œ¡ œ’ C·³ž¥–’ ¤·°¤– ¡š¤–¥’¢’° ©·’°°–’ !"2Àþ¤…p ,…(:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"Ê­ A$:“ A$ô"" â ÊÔ "WINDOWCLEAR"!Þþ¤ ƒ ,„@:"SYNTAX :"ièþ¤ ƒ ,„`:" 10 X1=3:Y1=4:X2=60:Y2=12:SH=$BB:SL=$44:GOSUB ";ÿ (†);"WINDOWON";ÿ (†)Uòþ¤ ƒ ,„p:" êãããÒãããë êããããÒããããë êãããããÒãããããë êããããããÒãããããããë "Müþ¤ ƒ ,…:" ý ý ý ý "Mþ¤ ƒ ,…:" ý êãÜ ý êãÜ "Mþ¤ ƒ ,…:"X/Y ·š’’ ¸¦°©’ EŸ©’ â Sž’¦Ÿ˜’¤–¡–=$BB44 â "Nþ¤ ƒ ,…:" â â "R$þ¤ ƒ ,… :" X/Y ¥°–’’ ’Ÿ˜–’ EŸ©’ B’ª’˜¸¤¡¥ª¥ª "2.þ¤…p ,„@:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"8­ A$:“ A$ô"" â 8*BFAô: "WINDOWOFF": "WINDOWOFF"GLSLô›:SHô):X1ô… :X2ô‡:Y1ô„:Y2ô…: "WINDOWON"$Vþ¤ †,„ :"WINDOWCLEAR"$`þ¤ †,„0:"-----------"Qjþ¤…0,„P:"W¦°œ·£Ÿ¸’¡ ’³·’—¸¦Ÿ˜– œ¡¤ ¸·’¤Ÿ˜’° œ’¤ ·ªª’°’° W¦°œ·£¤."1tþ¤†,„p:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"~­ A$:“ A$ô"" â ~ˆFAô: "WINDOWOFF"G’SLô:SHôî:X1ô‚:X2ô…p:Y1ôƒ`:Y2ô…: "WINDOWON""œþ¤ ƒ ,„:"WINDOWOFF""¦þ¤ ƒ ,„:"---------"-°þ¤ ƒ,„0:"D’ B’ª’˜¸ W¦°œ·£·ªª"1ºþ¤ ƒ,„@:"’³·’—¸¦Ÿ˜– ’¤ I˜°’° œ¡¤"*Äþ¤ ƒ,„P:"¡©–¦«’ F’°¤–’ ¢¥"%Îþ¤ ƒ,„`:"¤Ÿ˜¸¦’¤¤’°. "1Øþ¤ƒ,…:"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"â­ A$:“ A$ô"" â âIìX1ôƒ`:Y1ô„ :X2ô†H:Y2ô…(:SHôÚ:SLô:"WINDOWON"%öþ¤„,„0: "SYNTAX :"Pþ¤„,„P: " 10 FA=1:GOSUB ";ÿ (†);"WINDOWOFF";ÿ (†): þ¤„,„`: " êãÒãëêãããããããÒãããããããë "=þ¤„,„p: " Ûãë B’ª’˜¸¤¡¥ª¥ª "Cþ¤„,…: " â "G(þ¤„,…: " P¡¸’––’°Ÿ·œ’, ³¦– œ’³ œ’ T’›– ¥°–’ œ’³ "G2þ¤„,…: " W¦°œ·£ ¢¥¥’Ÿ©—’¤’–¢– £¦œ "1<þ¤„@,… :"W’°° £’¦–’,œ¥’Ÿ©’ T¡¤–’"F­ A$:“ A$ô"" â F7PFAô: "WINDOWOFF":"WINDOWOFF": "WINDOWOFF"GZSLôñ:SHô':X1ô„ :X2ô‡:Y1ô‚:Y2ô„0: "WINDOWON"Jdþ¤„@,‚@: "ACHTUNG : I° ¯’œ’³ P·—¡³³, ¦° œ’³ œ¦’ W¦°œ·£- "Inþ¤„@,ƒ: " š’ª’˜¸’ «’£’°œ’– £’œ’° ¤·¸¸’°, ³¥¤¤"Kxþ¤„@,ƒ : " œ¦’ D¡–’¦ 'WINDOW.BEF' ¡³ E°œ’ œ’¤ P·-"K‚þ¤„@,ƒ@: " —¡³³¤ ³¦– MERGE ¡°—’ª¥’—– £’œ’°. D¦’ "MŒþ¤„@,ƒ`: " B’ª’˜¸’ ©·’°°’° œ¡°° ³¦– GOSUB ''"6–þ¤„@,„: " ¡¥ª—’¥ª’° £’œ’°."@ þ¤ … ,„ :[]" WENN WEITER,DRUECKE TASTE ";ª­ A$:“ A$ô"" â ª´FAô: "WINDOWCLEAR"N¾þ¤„@,‚@: "B’«· œ¦’ B’ª’˜¸’ «’£’°œ’– £’œ’° ©·’°°’°, ³¥¤¤ œ¦’"KÈþ¤„@,ƒ: "D¡–’¦ 'WINDOW.SYS' ³¦– RUN 'WINDOW.SYS' —’¤–¡–’–"MÒþ¤„@,ƒ : "£’œ’°. A³ š’¤–’° ª¥’˜’° S¦’ œ¦’¤ —¸’¦Ÿ˜ °¡Ÿ˜ œ’³ "=Üþ¤„@,ƒ@: "L¡œ’° œ’¤ B¡¤¦Ÿ - I°–’ž’–’¤ ¡¥¤.":æþ¤„@,„: " V¦’¸ V’—°¥’—’° ."Hðþ¤ †@,„:"ü":þ¤†@,„:Ã(! ):FAô:"WINDOWOFF"ú:'#— **** ENDE PROGRAMM ****:' þ¤,… :" ":‰ - \"˜,:'46— **** MASCHIENCODE FUER WINDOWPROGRAMM ****@:'BJ” 241,39,10,2,42,12,170,32,241,39,10,2,42,12,170,32,0,238,2,7:T” 30,18,50,34,0,0,0,0,0,0,0,0,0,62,0,50,130,16,58,155Q^” 16,50,177,253,195,136,251,205,68,251,205,99,251,205,153,251,205,19,252,205Bh” 4,253,58,177,253,50,155,16,201,33,0,32,17,80,0,58,2,251,6,0Fr” 184,202,88,251,25,4,195,79,251,58,1,251,22,0,95,25,34,5,251,201H|” 33,255,250,1,8,0,58,31,251,254,1,194,119,251,17,7,251,195,133,251N†” 254,2,194,130,251,17,15,251,195,133,251,17,23,251,237,176,201,58,31,251I” 254,3,200,60,50,31,251,195,46,251,42,18,234,35,58,2,251,50,150,251Hš” 58,1,251,71,58,3,251,144,60,50,149,251,42,5,251,34,151,251,42,151J¤” 251,237,91,255,250,6,0,58,149,251,79,237,176,58,150,251,71,58,4,251K®” 184,202,234,251,4,120,50,150,251,22,0,58,149,251,95,42,255,250,25,34L¸” 255,250,17,80,0,42,151,251,25,34,151,251,195,177,251,201,146,158,14,0A” 62,0,6,128,187,202,9,252,4,4,60,14,128,187,202,9,252,4,4,4LÌ” 14,0,60,195,243,251,120,50,236,251,122,129,50,235,251,201,62,1,50,155IÖ” 16,58,1,251,87,58,2,251,95,205,237,251,58,235,251,50,134,16,58,236Kà” 251,50,135,16,62,208,205,201,254,58,3,251,87,58,2,251,95,205,237,251Lê” 58,235,251,50,134,16,58,236,251,50,135,16,62,206,205,201,254,58,1,251Kô” 87,58,4,251,95,205,237,251,58,235,251,50,134,16,58,236,251,50,135,16Kþ” 62,205,205,201,254,58,3,251,87,58,4,251,95,205,237,251,58,235,251,50I” 134,16,58,236,251,50,135,16,62,221,205,201,254,62,0,50,130,16,58,1K” 251,60,50,124,253,58,2,251,50,125,253,205,126,253,58,1,251,60,50,124J” 253,58,4,251,50,125,253,205,126,253,58,2,251,60,50,125,253,58,1,251M&” 87,58,125,253,95,205,237,251,58,235,251,50,134,16,58,236,251,50,135,16M0” 62,253,205,201,254,58,3,251,87,58,125,253,95,205,237,251,58,235,251,50K:” 134,16,58,236,251,50,135,16,62,253,205,201,254,62,0,50,130,16,58,125LD” 253,60,71,58,4,251,184,200,120,50,125,253,195,180,252,163,37,58,1,251FN” 60,50,124,253,58,2,251,60,50,125,253,42,5,251,17,81,0,25,34,151MX” 251,34,2,253,58,124,253,87,58,125,253,95,205,237,251,58,235,251,50,134Fb” 16,58,236,251,50,135,16,62,32,205,201,254,42,2,253,54,0,35,34,2Il” 253,62,0,50,130,16,58,124,253,60,50,124,253,71,58,3,251,184,194,31Gv” 253,42,151,251,17,80,0,25,34,151,251,34,2,253,58,1,251,60,50,124J€” 253,58,125,253,60,50,125,253,71,58,4,251,184,194,31,253,201,3,18,58NŠ” 124,253,87,58,125,253,95,205,237,251,58,235,251,50,134,16,58,236,251,50I”” 135,16,62,224,205,201,254,62,0,50,130,16,58,3,251,61,71,58,124,253Hž” 184,200,60,50,124,253,195,126,253,1,1,62,0,50,130,16,58,155,16,50F¨” 177,253,58,31,251,254,0,200,61,50,31,251,60,6,0,14,8,17,255,250N²” 254,3,194,218,253,33,23,251,195,232,253,254,2,194,229,253,33,15,251,195J¼” 232,253,33,7,251,237,176,58,1,251,50,149,251,42,5,251,34,151,251,58JÆ” 176,253,50,155,16,42,151,251,237,91,255,250,26,0,58,149,251,87,58,2NД 251,95,205,237,251,58,235,251,50,134,16,58,236,251,50,135,16,42,255,250VÚ” 126,254,253,202,193,254,254,224,202,193,254,254,208,202,193,254,254,206,202,193Qä” 254,254,205,202,193,254,254,221,202,193,254,126,254,0,194,70,254,62,32,205Iî” 201,254,58,176,253,50,155,16,62,0,50,130,16,58,3,251,71,58,149,251Nø” 184,202,116,254,60,50,149,251,42,151,251,35,34,151,251,42,255,250,35,34K” 255,250,195,252,253,58,4,251,71,58,2,251,184,202,160,254,60,50,2,251E ” 58,1,251,50,149,251,42,5,251,17,80,0,25,34,5,251,34,151,251,42I” 255,250,35,34,255,250,195,252,253,58,177,253,50,155,16,6,0,14,8,17M ” 255,250,58,31,251,254,2,194,187,254,33,15,251,195,190,254,33,7,251,237E*” 176,201,62,1,50,155,16,195,62,254,50,235,251,33,0,32,1,80,0,62K4” 0,187,202,221,254,9,29,195,210,254,90,22,0,58,235,251,25,119,205,173>” 5,62,0,50,130,16,201H:'/R— **** SPRUNGADRESSEN FUER BEFEHLE ****\:'fÊ "WINDOWON"5p“ X1ö‚ â „:: “ X2öX1 â ž KLôX1:X1ôX2:X1ôX25z“ Y2õ…0 â „:: “ Y2öY1 â ž KLôY1:Y1ôY2:Y1ôY2„  ÿú,SL,SH,X1,Y1,X2,Y2 ŽÃ( û)˜„¢Ê "WINDOWCLEAR" ¬Ã(ý)¶„ÀÊ "WINDOWOFF" Ê  °ý,FA ÔÃ(²ý)Þ„