M.u.C.S. Disc 2000

home *** CD-ROM | disk | FTP | other *** search

/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / painter / ms-dos / painter.gfa (.txt) < prev next >

Wrap

GFA-BASIC MS-DOS | 1997-10-06 | 143.1 KB | 3,363 lines

GFA-BASIC MS-DOS mousek langh Var_1 Var_2 var_3 verschieben verschieben_2 muster 0,1,MOUSEXNBQ kreis_1a kreis_2a modus Xkord Ykord Xrast Yrast S_bereich_x S_bereich_y z_linie_g ver_mod br1_2 br2_3 ho1_3 ho2_3 ho1_2 br1_3 Linienflag flag( GRAPNC ymax0 ladeNE Xkord Ykord Xrast Yrast S_bereich_x S_bereich_y Z_linie_g Boxbild block muster kreis_1a kreis_2a nachf F4catchne_2 lanNI menueek mouseNM) fehler auswerten unfill kreis_aus zeichne_2 Lang_linie pyramide2 draw2m rastm2 vermod1 vermod2 Glass Grund zkreis90 zbox90 lade_bild_1 text90 hilfs_maus hilfs_strich rays90 fill90 xelips90 ellipse quader rechteck quadrat xkreis90 kreis hh_strich catch quater setprisma Magnify Verschieben_2 Verschieben_4 Setpyramide funktion mat|KaNN Start17 Ende_3 Ende_4 Starttext Marktext Sende muster10 FEHLER.SHB FEHLER.SHB SCREEN CLOSE #1TRON #97CLEAR ERROR GOSUB RESTORE DEFLINE DEFMOUSE 3REPEATREAD UNTIL =96GET 0,0,640,403, 0,0,640,403, 0,0,640,403, EXIST("FEHLER.SHB")=TRUE CLOSE ="FEHLER.SHB" =""DEFMOUSE 3OPEN "I",#1, =INPUT$(CVI(INPUT$(2,#1)),#1)CLOSE #1PUT CLOSE #1GET 0,0,640,403, ENDIF GOSUB PRINT AT(68,1);MALLOC(-1) REPEATON UNTIL x2PRC Unfill Kreis Ausschnitt Spiegel - Modus t Spiegel Modus m _Horizontal|_Vertikal|_Alle|_Quer|_Zur Lade Schrift SCHRIFTf> *.FNT Kreis 2 Ellipse 2 Rechteck 2 Betriebssystem ECHO Mit Exit zur ck zum Zeichenprogramm Stiftgr X - Koordinate | Y - Koordinate | SZL - Linie Pyramide Draw 2 Punkt Laden Bildpunkte laden *.LST Punkt Speichern PC -Konverter|Bild konvertieren Z _Konvert|_Zur DATA.LST Rastern = Raster Modus Raster Modus r Raster Funktion X Koordinate (0 - 640) Alter Wert ,Y Neuer Wert Y Koordinate (0 - Alter Wert @Y Neuer Wert hbereich Ausschnitt - Bestimmung r Spr hdose X - Positon (0 - 640) Y - Position (0 - Z - Modus Einstellung Z -Modus r Z - Box und Z Kreis e (1-99) V - Modus Verschiebe Modus \ _ 1 | _2 |_ 3 | _4 Block Modus s Block Modus ? Z _1 |_ 2 |_ 3 | _4 4H hdose 1 Verschieben 1 , Verschieben 2 1 Zeichenlupe n Z - Kreis Z - Box e Drucke Bild Bild ausdrucken|Programm GRAPHICS.EXE|sollte zuvor|gestartet werden.Z _Druck|_Zur Drucker bertragungsfehler|Bitte Drucker berpr fentZ _Weiter|_AbbruchH Lade Bild l Text Update Bild UPDATE.SHB Undo Copyright | Sigi Painter V 6.0 (c) 1998 by Siegfried H bner|Obere Vorstadt 21|91575 Windsbach oY Free Soft (frei kopierbar)H Save Block Bitte markieren Sie mit|der Maus den Bereich den|Sie speichern m chten.9Z _OK H Bildausschnitt abspeichern *.SHAn FEHLER.SHA Lade Block Bildausschnitt einladen *.SHA Invers Grafikmodus Grafikmodus ?mm _1 |_2 | _3 | _4 |_AbbruchcH Kantenform Kantenform|Quadrat,Rechteck_Z _Eckig|_RundH G-Spiegel a Baumstamm : Baumstamm ? _(=====|(_=====)|=====_)H e M-Kreis ) M-Kreis ) Strichart Strichart (0-6) Strichdicke G-Rays Zeichenfarbe Zeichenfarbe ? _Hintergrund|_Wei Hintergrund llfarbe lle aus e lle|Quadrat,Rechteck|Kreis,EllipseZ _leer|_voll Save Bild , Bild abspeichern *.SHB sche Bild Wollen Sie das Bild|wirklich l schen[ _Ja|_NeineH X-Ellips Ellipse p Prisma Draw Rechteck Quadrat c Line X-Kreis Kreis e Punkt s Ende Wollen sie das Programm |verlassen[ _Ja|_Nein PROCEDURE PRINT AT(68,1);MALLOC(-1) ERROR GOSUB LOCAL 0,0,640,403 (MENU(0))COLOR GRAPHMODE DEFMOUSE SHOWM Unfill GOSUB ENDIF Kreis Ausschnitt GOSUB ENDIF Spiegel Modus "DEFMOUSE 3ALERT 3,"Spiegel Modus ",5,"_Horizontal|_Vertikal|_Alle|_Quer|_Zur ENDIF ENDIF Schrift DEFMOUSE 3FREEFONTCHDIR "SCHRIFT" FILESELECT "*.FNT", LOADFONT CHDIR ".."ENDIF Kreis GOSUB ENDIF Ellipse GOSUB ENDIF Rechteck GOSUB ENDIF Betriebssystem HIDEM SHELL "ECHO Zeichenprogramm"SHELL ""SHOWM ENDIF Stiftgr "GRAPHMODE COLOR 0,0,640,403, HIDEM PRINT AT(1,1);"X Koordinate ";FORM INPUT =VAL( )PRINT AT(1,2);"Y Koordinate ";FORM INPUT =VAL( ENDIF Linie "GOSUB ENDIF Pyramide GOSUB ENDIF GOSUB ENDIF Punkt Laden "DEFMOUSE =""FILESELECT #"Bildpunkte laden","*.LST", EXIST( )=-1CLS "I",#1, REPEATINPUT UNTIL EOF(#1) ENDIF CLOSE #1ENDIF Punkt Speichern "DEFMOUSE 3ALERT 3,"PC -Konverter|Bild konvertieren ",1,"_Konvert|_Zur =1OPEN "O",#1,"DATA.LST"FOR 640FOR 403IF POINT( PRINT ;","; ;","; COLOR ELSECOLOR ENDIF ENDIF CLOSE #1ENDIF Rastern "GOSUB ENDIF Raster Modus 0,0,640,403, GRAPHMODE COLOR PRINT AT(1,1);"Raster Modus"PRINT AT(1,2);"f Raster Funktion "PRINT AT(1,4);"X Koordinate 640)"PRINT AT(1,5);"Alter PRINT AT(1,6);"Neuer ";FORM INPUT =VAL( )PRINT AT(1,8);"Y Koordinate ";403;")"PRINT AT(1,9);"Alter PRINT AT(1,10);"Neuer INPUT =VAL( ENDIF hbereich 0,0,640,403, GRAPHMODE PRINT AT(1,1);" Ausschnitt Bestimmung PRINT AT(1,2);" hdose PRINT AT(1,3);"X Positon INPUT =VAL( )PRINT AT(1,4);"Y Position ";403;")"; INPUT =VAL( ENDIF Modus 0,0,640,403, GRAPHMODE COLOR PRINT AT(1,1);"Einstellung -Modus"PRINT AT(1,2);"f Kreis "PRINT AT(1,4);"Gr (1-99) INPUT =VAL( ENDIF Modus "DEFMOUSE 3ALERT 3,"Verschiebe Modus ",3,"_ ENDIF Block Modus "DEFMOUSE 3ALERT 3,"Block Modus ",1," ENDIF hdose =FALSE =FALSE =15ENDIF REPEATSHOWM WHILE MOUSEK=1HIDEM =RANDOM( =RANDOM( MOUSEX+ ,MOUSEY+ WENDUNTIL MOUSEK=2ENDIF Verschieben "GOSUB ENDIF Verschieben "GOSUB ENDIF Zeichenlupe "REPEAT@ (62,32,8) UNTIL MOUSEK=2GOSUB ENDIF Kreis "GOSUB ENDIF "GOSUB ENDIF Drucke "DEFMOUSE 3ALERT 3,"Bild ausdrucken|Programm GRAPHICS.EXE|sollte zuvor|gestartet werden.",1,"_Druck|_Zur =2GOTO ENDIF ~INTR($17,_AH=2,_DX=0)IF BTST(_AH,3)ALERT 3,"Drucker bertragungsfehler|Bitte Drucker berpr fen",1,"_Weiter|_Abbruch", =1GOTO ENDIF =2GOTO ENDIF ELSEHIDEM HARDCOPYSHOWM ENDIF ENDIF "GOSUB ENDIF GOSUB ENDIF Update ="UPDATE.SHB"GET 0,0,640,403, CLOSE #1HIDEM "O",#1, PRINT #1,MKI$(LEN( CLOSE #1SHOWM ENDIF ENDIF Copyright "DEFMOUSE 3ALERT 0,"Sigi Painter Siegfried bner|Obere Vorstadt 21|91575 Windsbach ",0,"Free (frei kopierbar)", ENDIF Block 0,0,640,403, =""DEFMOUSE 3ALERT FALSE,"Bitte markieren mit|der Bereich den|Sie speichern chten.",1," FALSE,FALSE, GOSUB WHILE MOUSEK=FALSEMOUSE PAUSE WENDWHILE MOUSEK=1 MOUSEY<404 DEFMOUSE 3FILESELECT #"Bildausschnitt abspeichern","*.SHA", ="FEHLER.SHA"ENDIF "O",#1, ERROR GOSUB PRINT #1,MKI$(LEN( CLOSE #1WENDPUT ENDIF Block =""DEFMOUSE 3FILESELECT #"Bildausschnitt einladen","*.SHA", EXIST( "I",#1, =INPUT$(CVI(INPUT$(2,#1)),#1)CLOSE #1HIDEM REPEATMOUSE REPEATUNTIL <>MOUSEX <>MOUSEY MOUSEK<>FALSE UNTIL MOUSEK<>FALSE MOUSEK=1PUT 0,0,640,403, LOOPPUT ENDIF SHOWM ENDIF Invers GRAPHMODE 480-1LINE ,639, ENDIF Grafikmodus 0,0,640,403, DEFMOUSE 3ALERT "Grafikmodus ?",5," |_Abbruch", ENDIF ENDIF Kantenform DEFMOUSE 3ALERT 3,"Kantenform|Quadrat,Rechteck",1,"_Eckig|_Rund", ENDIF G-Spiegel =403-1 DEFMOUSE 5REPEAT =MOUSEX =MOUSEYIF MOUSEK=1 HIDEM ELSESHOWM ENDIF UNTIL MOUSEK=2ENDIF Baumstamm "GOSUB GRAPHMODE COLOR DEFMOUSE 3ALERT 3,"Baumstamm ?",2,"_(=====|(_=====)|=====_)", HIDEM REPEATWHILE MOUSEK=1PAUSE SELECT 1DEFLINE 3DEFLINE 2DEFLINE ENDSELECT GOSUB WENDUNTIL MOUSEK=2IF <100DEFFILL ELSEDEFFILL ENDIF ENDIF M-Kreis GRAPHMODE COLOR DEFLINE 1,0,0,0 HIDEM =0COLOR ENDIF REPEATIF MOUSEK=1 REPEATUNTIL MOUSEK<>1 CIRCLE 320,175, ENDIF ENDIF UNTIL MOUSEK=2PUT ENDIF M-Kreis "GRAPHMODE COLOR REPEATMOUSE SHOWM MOUSEK=1 HIDEM =1CIRCLE ELSEPCIRCLE ENDIF ENDIF UNTIL MOUSEK=2ENDIF Strichart 0,0,640,403, GRAPHMODE COLOR INPUT "Strichart (0-6) GOSUB ENDIF Strichdicke "GOSUB GRAPHMODE COLOR HIDEM REPEATWHILE MOUSEK=1PAUSE DEFLINE GOSUB WENDUNTIL MOUSEK=2PUT ENDIF G-Rays GOSUB ENDIF Zeichenfarbe DEFMOUSE 3ALERT 3,"Zeichenfarbe ",2,"_Hintergrund|_Wei ENDIF Hintergrund "HIDEM REPEATIF MOUSEK=1 REPEATUNTIL MOUSEK<>1 ,50ADD =1500 ENDIF SETCOLOR *5,1ENDIF UNTIL MOUSEK=2PUT ENDIF llfarbe "GOSUB ENDIF "DEFMOUSE 3ALERT lle|Quadrat,Rechteck|Kreis,Ellipse",1,"_leer|_voll", ENDIF =""GET 0,0,640,403, CLOSE #1DEFMOUSE 3FILESELECT #"Bild abspeichern","*.SHB", "O",#1, PRINT #1,MKI$(LEN( CLOSE #1ENDIF 0,0,640,403, DEFMOUSE 3ALERT 3,"Wollen Bild|wirklich schen",2,"_Ja|_Nein", =1CLS ENDIF ENDIF X-Ellips GOSUB ENDIF Ellipse "GOSUB ENDIF Prisma GOSUB ENDIF REPEATMOUSE MOUSEK=1 HIDEM SELECT 0DRAW 1DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- 2DRAW ,403-1- ,403-1- ENDSELECT ELSESHOWM ENDIF UNTIL MOUSEK=2ENDIF Rechteck GOSUB ENDIF Quadrat "GOSUB ENDIF GOSUB ENDIF X-Kreis "GOSUB ENDIF Kreis "GOSUB ENDIF Punkt "REPEATMOUSE WHILE MOUSEK=1HIDEM SELECT 0DRAW 1DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- 2DRAW ,403-1- ,403-1- ENDSELECT WENDSHOWM UNTIL MOUSEK=2ENDIF DEFMOUSE 3ALERT 3,"Wollen Programm |verlassen",2,"_Ja|_Nein", =1TROFF SHOWM SCREEN ENDIF ENDIF DEFMOUSE 3SHOWM 0,0,640,403, GOSUB PRINT AT(68,1);MALLOC(-1) RETURN PROCEDURE 100,60,300,100DRAW 100,80 300,80 RETURN hiPR PROCEDURE GRAPHMODE =0COLOR ENDIF DEFLINE GOSUB RETURN PROCEDURE 100,80 300,80 DEFLINE 100,60,300,100ENDIF RETURN PROCEDURE SHOWM GRAPHMODE REPEATUNTIL MOUSEKMOUSE REPEATUNTIL MOUSEK<>1 HIDEM RETURN Lade Bild (SHB,Atari Format) Unbekanntes Bildformat|Kann Bildformat nicht laden _Schade Info, Copyright ,""d Disk, Lade Bild , Save Bild ,~, Lade Block , Save Block ,~, Update Bild ,~, Betriebssystem ,~, Ende ,"" Arbeit," Draw "," Draw 2 " Punkt ,~, Line , SZL - Linie ,~, G-Rays , G-Spiegel ,~, Quadrat , Rechteck ,~, Kreis , Ellipse ,~, Kreis 2 , Ellipse 2 , Rechteck 2 ,"" Arbeit2, Prisma , Pyramide ,~, Z - Box , Z - Kreis ,~, M-Kreis ,~, X-Kreis , X-Ellips ,~," Zeichenlupe " "~", Verschieben 1 , Verschieben 2 ,~, Spr hdose 1 ,"" Extra, Invers , Rastern , Unfill ,~, Text ,~, Undo ,"" Einstellen, F llfarbe , Hintergrund , Zeichenfarbe ," Baumstamm ", Strichart , Strichdicke ," Kantenform " lle aus , Grafikmodus , Gr e M-Kreis , Kreis Ausschnitt , Drucke Bild ,~, L sche Bild ,""Z Einstellen2 , Block Modus , V - Modus , Z - Modus , Spr hbereich , Raster Modus , Stiftgr e , Spiegel - Modus ,"" Sonstiges , Punkt Speichern , Punkt Laden ,~, Lade Schrift ,""PROCEDURE 0,0,640,403, =""CLOSE =""DEFMOUSE 3FILESELECT #"Lade (SHB,Atari Format)","*.*", =RIGHT$( ="SHB"IF EXIST( "I",#1, =INPUT$(CVI(INPUT$(2,#1)),#1)CLOSE #1PUT 0,0,640,403, ELSEPUT ENDIF ENDIF ="SHB"IF EXIST( "I",#1, LOF(#1)>31999 =LOF(#1)-32000 #1,$A000:0,32000 GRAPHMODE 480-1LINE ,639, ENDIF ELSEALERT 3,"Unbekanntes Bildformat|Kann Bildformat nicht laden ",1,"_Schade", ENDIF ENDIF CLOSE #1RETURNDATA Info, Copyright ,""DATA Disk, Block Block Update Betriebssystem ,""DATA Arbeit," Punkt Linie G-Rays G-Spiegel Quadrat Rechteck Kreis Ellipse Kreis Ellipse Rechteck ,""DATA Arbeit2, Prisma Pyramide Kreis M-Kreis X-Kreis X-Ellips Zeichenlupe Verschieben Verschieben hdose Extra, Invers Rastern Unfill Einstellen, llfarbe Hintergrund Zeichenfarbe Baumstamm "DATA Strichart Strichdicke Kantenform "DATA Grafikmodus M-Kreis Kreis Ausschnitt Drucke ,""DATA Einstellen2 Block Modus Modus Modus hbereich Raster Modus Stiftgr Spiegel Modus ,""DATA Sonstiges Punkt Speichern Punkt Laden Schrift FEHLER.SHB PROCEDURE HIDEM GRAPHMODE ="FEHLER.SHB"GET 0,0,640,403, CLOSE #1DEFMOUSE 3OPEN "O",#1, PRINT #1,MKI$(LEN( CLOSE #1GET 0,0,640,403, RETURN PROCEDURE REPEATIF MOUSEK=1 ENDIF UNTIL MOUSEK=2RETURN PROCEDURE GRAPHMODE REPEATMOUSE UNTIL REPEATLINE REPEATMOUSE UNTIL UNTIL =1LINE ENDIF REPEATUNTIL MOUSEK=0 REPEATDRAW REPEATMOUSE UNTIL UNTIL =1DRAW ENDIF REPEATUNTIL MOUSEK=0 +1.0E-12) +1.0E-12) +1.0E-12) REPEAT@ REPEATMOUSE UNTIL UNTIL ENDIF DEFLINE REPEATUNTIL MOUSEK=0 RETURN PROCEDURE DEFLINE DEFLINE ELSEDRAW DEFLINE ELSEDEFLINE ENDIF ENDIF ELSEDRAW DEFLINE ELSEIF DEFLINE ELSEDRAW DEFLINE ENDIF ENDIF ENDIF RETURN PROCEDURE DEFLINE COLOR SHOWM GRAPHMODE DEFMOUSE 3RETURN PROCEDURE GRAPHMODE DEFFILL DEFLINE RETURN PROCEDURE )LOCAL GRAPHMODE REPEATHIDEM MOUSE REPEATUNTIL MOUSEX<> MOUSEY<> MOUSEKBOX UNTIL SHOWM =1GET 0,0,640,403, GRAPHMODE ENDIF GRAPHMODE RETURN eiPRG Lupen-Bedienung --------------- - Maustaste - Links = zeichnen Rechts = l schen Taste = zum Bild ----------------- Sind Sie im Bild Dann Abbruch der Lupe durch dr cken der rechten Maustaste PROCEDURE )LOCAL DEFFILL COLOR GRAPHMODE PRINT AT(64,10);" Lupen-Bedienung"PRINT AT(64,11);" ---------------"PRINT AT(64,12);" Maustaste PRINT AT(64,13);"Links zeichnen"PRINT AT(64,14);"Rechts schen"PRINT AT(64,15);"Taste Bild"PRINT AT(64,16);"-----------------" PRINT AT(64,17);"Sind PRINT AT(64,18);"Dann Abbruch PRINT AT(64,19);" durch "PRINT AT(64,20);" PRINT AT(64,21);"rechten Maustaste" =403-1- ,403-1 DEFFILL POINT( ENDIF =INKEY$EXIT >CHR$(0) MOUSE MOUSEK MOUSEK=1 DEFFILL COLOR ELSEDEFFILL COLOR ENDIF ENDIF ENDIF LOOPGRAPHMODE RETURN PROCEDURE REPEATUNTIL MOUSEK=0IF ENDIF SELECT 1REPEATIF MOUSEK=1 MOUSEY<404GET 0,1,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 2REPEATIF MOUSEK=1 MOUSEY<404GET 0,0,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 3REPEATIF MOUSEK=1 MOUSEY<404GET 1,0,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 4REPEATIF MOUSEK=1 MOUSEY<404GET 0,0,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 5REPEATIF MOUSEK=1 MOUSEY<404GET 0,1,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 6REPEATIF MOUSEK=1 MOUSEY<404GET 1,0,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 7REPEATIF MOUSEK=1 MOUSEY<404GET 1,1,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 8REPEATIF MOUSEK=1 MOUSEY<404GET 1,1,MOUSEX,MOUSEY, ENDIF UNTIL MOUSEK=2CASE 9REPEATIF MOUSEK=1 MOUSEY<404GET MOUSEX,0,MOUSEX,MOUSEY, MOUSEX,1, ENDIF UNTIL MOUSEK=2CASE REPEATIF MOUSEK=1 MOUSEY<404GET 0,MOUSEY,MOUSEX,MOUSEY, 1,MOUSEY, ENDIF UNTIL MOUSEK=2ENDSELECT RETURN swPRc PROCEDURE REPEATUNTIL MOUSEK=0IF ENDIF SELECT 1REPEATMOUSE MOUSEK=1 MOUSEY<404 <404GET ,639,403-1, COLOR DEFLINE ENDIF UNTIL MOUSEK=2CASE 2REPEATMOUSE MOUSEK=1 MOUSEY<404 <404GET +1,639,403-1, COLOR DEFLINE 0,403-1 639,403-1 ENDIF UNTIL MOUSEK=2CASE 3REPEATMOUSE MOUSEK=1 MOUSEY<404GET ,0,639,403-1, +1,0, COLOR DEFLINE ,403-1 ENDIF UNTIL MOUSEK=2CASE 4REPEATMOUSE MOUSEK=1 MOUSEY<404GET ,403-1, COLOR DEFLINE ,403-1 ENDIF UNTIL MOUSEK=2CASE 5REPEATMOUSE MOUSEK=1 MOUSEY<404 <404GET 0,0,639, COLOR DEFLINE 639,0 ENDIF UNTIL MOUSEK=2CASE 6REPEATMOUSE MOUSEK=1 MOUSEY<404GET +1,639,403-1, COLOR DEFLINE ENDIF UNTIL MOUSEK=2CASE 7REPEATMOUSE MOUSEK=1 MOUSEY<404GET -1,403-1, COLOR DEFLINE 0,403-1 ENDIF UNTIL MOUSEK=2CASE 8REPEATMOUSE MOUSEK=1 MOUSEY<404GET -1,403-1, COLOR DEFLINE 639,0 ENDIF UNTIL MOUSEK=2ENDSELECT 0,0,640,403, RETURN PROCEDURE DEFMOUSE 5REPEATMOUSE UNTIL MOUSEK=1HIDEM GRAPHMODE REPEATMOUSE UNTIL REPEATDRAW REPEATMOUSE UNTIL UNTIL REPEATUNTIL MOUSEK=0 REPEATDRAW REPEATMOUSE UNTIL UNTIL REPEATUNTIL MOUSEK=0 =INT( +1.0E-12)) +1.0E-12) -INT( -INT( )REPEAT@ REPEATMOUSE UNTIL UNTIL REPEATUNTIL MOUSEK=0GRAPHMODE RETURN PROCEDURE )/2DRAW ELSEDRAW ENDIF ELSEIF ELSEDRAW ELSEDRAW ENDIF ENDIF ENDIF ELSEIF ELSEDRAW ELSEDRAW ENDIF ENDIF ENDIF ELSEDRAW ELSEDRAW ENDIF ELSEIF ELSEDRAW ELSEDRAW ENDIF ENDIF ENDIF ELSEDRAW ELSEIF ELSEDRAW ENDIF ENDIF ENDIF ENDIF RETURN Was kann ich f r Sie tun ?Z _Linienzug|_Strahlen|L_inie"H PROCEDURE DEFMOUSE 3LOCAL ALERT 3,"Was ?",1,"_Linienzug|_Strahlen|L_inie", ENDIF REPEATUNTIL MOUSEK=1HIDEM GRAPHMODE REPEATMOUSE UNTIL :REPEATDRAW REPEATMOUSE UNTIL GRAPHMODE UNTIL REPEATUNTIL MOUSEK=0IF REPEATREPEATDRAW REPEATMOUSE UNTIL UNTIL =1DRAW ENDIF REPEATUNTIL MOUSEK=0UNTIL ENDIF ENDIF ENDIF REPEATUNTIL MOUSEK=0 :GRAPHMODE RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE HIDEM SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT PAUSE SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT WENDWHILE MOUSEK=1GRAPHMODE =1SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT ELSESELECT 0PELLIPSE ,ABS( ),ABS( 1PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( 2PELLIPSE ,ABS( ),ABS( PELLIPSE ,ABS( ),ABS( 3PELLIPSE ,ABS( ),ABS( PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( 4PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT ENDIF =1SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT ELSESELECT 0PELLIPSE ,ABS( ),ABS( 1PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( 2PELLIPSE ,ABS( ),ABS( PELLIPSE ,ABS( ),ABS( 3PELLIPSE ,ABS( ),ABS( PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( 4PELLIPSE ,ABS( ),ABS( PELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT ENDIF WENDUNTIL MOUSEK=2SHOWM RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE HIDEM SELECT 0DRAW 1DRAW ,403-1- ,403-1- 2DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- ENDSELECT PAUSE SELECT 0DRAW 1DRAW ,403-1- ,403-1- 2DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- ENDSELECT WENDWHILE MOUSEK=1GRAPHMODE SELECT 0DRAW 1DRAW ,403-1- ,403-1- 2DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- ENDSELECT WENDUNTIL MOUSEK=2SHOWM RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT PAUSE SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT WENDWHILE MOUSEK=1GRAPHMODE =1SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0RBOX 1RBOX ,403-1- ,403-1- 2RBOX ,639- 3RBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4RBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ELSEIF =1SELECT 0PBOX 1PBOX ,403-1- ,403-1- 2PBOX ,639- 3PBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4PBOX ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0PRBOX 1PRBOX PRBOX ,403-1- ,403-1- 2PRBOX PRBOX ,639- 3PRBOX PRBOX ,639- PRBOX ,403-1- ,403-1- PRBOX ,403-1- ,639- ,403-1- 4PRBOX PRBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ENDIF WENDIF =1SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0RBOX 1RBOX ,403-1- ,403-1- 2RBOX ,639- 3RBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4RBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ELSEIF =1SELECT 0PBOX 1PBOX ,403-1- ,403-1- 2PBOX ,639- 3PBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4PBOX ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0PRBOX 1PRBOX PRBOX ,403-1- ,403-1- 2PRBOX PRBOX ,639- 3PRBOX PRBOX ,639- PRBOX ,403-1- ,403-1- PRBOX ,403-1- ,639- ,403-1- 4PRBOX PRBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ENDIF =2SELECT 0RBOX 1RBOX ,403-1- ,403-1- 2RBOX ,639- 3RBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4RBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF =2SELECT 0PBOX 1PBOX ,403-1- ,403-1- 2PBOX ,639- 3PBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4PBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF =2SELECT 0PRBOX 1PRBOX PRBOX ,403-1- ,403-1- 2PRBOX PRBOX ,639- 3PRBOX PRBOX ,639- PRBOX ,403-1- ,403-1- PRBOX ,403-1- ,639- ,403-1- 4PRBOX PRBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF =1SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT ENDIF UNTIL MOUSEK=2SHOWM RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=0MOUSE )>ABS( -(ABS( )*SGN( -(ABS( )*SGN( ENDIF SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT PAUSE SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT WENDSELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT WHILE MOUSEK=1GRAPHMODE =1SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0RBOX 1RBOX ,403-1- ,403-1- 2RBOX ,639- 3RBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4RBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ELSEIF =1SELECT 0PBOX 1PBOX ,403-1- ,403-1- 2PBOX ,639- 3PBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4PBOX ,403-1- ,639- ,403-1- ENDSELECT ELSESELECT 0PRBOX 1PRBOX PRBOX ,403-1- ,403-1- 2PRBOX PRBOX ,639- 3PRBOX PRBOX ,639- PRBOX ,403-1- ,403-1- PRBOX ,403-1- ,639- ,403-1- 4PRBOX PRBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ENDIF WENDUNTIL MOUSEK=2RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE =1SELECT 0CIRCLE ,ABS( CIRCLE ,ABS( 1CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( 2CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,ABS( 3CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,403-1- ,ABS( 4CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( ENDSELECT ELSESELECT 0PCIRCLE ,ABS( PCIRCLE ,ABS( 1PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( 2PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,ABS( 3PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,403-1- ,ABS( 4PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( ENDSELECT ENDIF WENDWHILE MOUSEK=1GRAPHMODE =1SELECT 0CIRCLE ,ABS( 1CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( 2CIRCLE ,ABS( CIRCLE ,ABS( 3CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,403-1- ,ABS( 4CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( ENDSELECT ELSESELECT 0PCIRCLE ,ABS( 1PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( 2PCIRCLE ,ABS( PCIRCLE ,ABS( 3PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,403-1- ,ABS( 4PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( ENDSELECT ENDIF WENDUNTIL MOUSEK=2GRAPHMODE RETURN Kreis Ausschnitt r Kreis Funktion * X Koordinate (0 - 360) Alter Wert Neuer Wert : Y Koordinate (0 - 360) Alter Wert Neuer Wert : PROCEDURE 0,0,640,403, GRAPHMODE COLOR PRINT AT(1,1);"Kreis Ausschnitt"PRINT AT(1,2);"f Kreis Funktion PRINT AT(1,4);"X Koordinate PRINT AT(1,5);"Alter PRINT AT(1,6);"Neuer ";FORM INPUT =VAL( )PRINT AT(1,8);"Y Koordinate 360)"PRINT AT(1,9);"Alter PRINT AT(1,10);"Neuer INPUT =VAL( )GRAPHMODE RETURN PROCEDURE REPEATMOUSE =1HIDEM REPEATDRAW SELECT 0DRAW 1DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403-1- ,403-1- 2DRAW ,403-1- ,403-1- ENDSELECT MOUSE UNTIL ENDIF SHOWM UNTIL RETURN Wie wollen Sie Rastern ?Z _Normal|_Invers PROCEDURE ENDIF DEFMOUSE 3ALERT 3,"Wie wollen Rastern ?",1,"_Normal|_Invers", HIDEM (1)PUT FALSE,FALSE, GOSUB WHILE MOUSEK=FALSEMOUSE PAUSE WENDIF ENDIF WHILE MOUSEK=1 MOUSEY<404 GRAPHMODE WENDFOR =POINT( )NEXT SELECT =MAX( (1))CASE =MIN( (1))ENDSELECT COLOR ENDIF )=0NEXT GRAPHMODE ERASE RETURN --- Bild Verschieben 1 ---W ab_maus_nach_oben vor_maus_nach_unten ab_maus_nach_links ab_maus_nach_rechts bis_maus_schr g_rechts bis_maus_schr g_links verzerren_ab_maus_links_oben verzerren_ab_maus_rechts_oben verschmieren_ab_maus_oben verschmieren_bis_maus_rechts PROCEDURE GOSUB GRAPHMODE DEFFILL 176,30,463,347 DEFFILL 187,37,453,341 186,36,454,342BOX 188,38,452,340BOX 190,40,450,338BOX 192,42,448,336BOX 193,43,447,335DRAW 193,64 447,64 193,65 447,65 193,67 447,67 193,69 447,69 193,70 447,70 DEFTEXT 1,FALSE,8,6 215,56,"--- Verschieben ---"TEXT 205,90,"ab_maus_nach_oben "TEXT 205,115,"vor_maus_nach_unten 205,140,"ab_maus_nach_links "TEXT 205,165,"ab_maus_nach_rechts 205,190,"bis_maus_schr g_rechts "TEXT 205,215,"bis_maus_schr g_links 205,240,"verzerren_ab_maus_links_oben "TEXT 205,265,"verzerren_ab_maus_rechts_oben"TEXT 205,290,"verschmieren_ab_maus_oben 205,315,"verschmieren_bis_maus_rechts "REPEATIF MOUSEX>192 MOUSEX<445 MOUSEK=1 MOUSEY>70 MOUSEY<100 GOSUB ENDIF MOUSEY>100 MOUSEY<125 GOSUB ENDIF MOUSEY>125 MOUSEY<150 GOSUB ENDIF MOUSEY>150 MOUSEY<175 GOSUB ENDIF MOUSEY>175 MOUSEY<200 GOSUB ENDIF MOUSEY>200 MOUSEY<225 GOSUB ENDIF MOUSEY>225 MOUSEY<250 GOSUB ENDIF MOUSEY>250 MOUSEY<275 GOSUB ENDIF MOUSEY>275 MOUSEY<300 GOSUB ENDIF MOUSEY>300 MOUSEY<325 =10GOSUB ENDIF ENDIF UNTIL MOUSEK=2 =11GOSUB :GOSUB GRAPHMODE <100DEFFILL ELSEDEFFILL ENDIF RETURN --- Bild Verschieben 1 ---W nach unten 1 W nach oben 1 W nach rechts 1 W nach links 1 W nach unten 2 W nach oben 2 W nach rechts 2 W nach links 2 W PROCEDURE GOSUB GRAPHMODE COLOR DEFFILL 176,30,463,297 DEFFILL 187,37,453,291 186,36,454,292BOX 188,38,452,290BOX 190,40,450,288BOX 192,42,448,286BOX 193,43,447,285DRAW 193,64 447,64 193,65 447,65 193,67 447,67 193,69 447,69 193,70 447,70 DEFTEXT 1,FALSE,8,6 215,56,"--- Verschieben ---"TEXT 260,90," unten "TEXT 260,115," "TEXT 260,140," rechts "TEXT 260,165," links 260,190," unten 260,215," "TEXT 260,240," rechts "TEXT 260,265," links REPEATIF MOUSEX>192 MOUSEX<445 MOUSEK=1 MOUSEY>70 MOUSEY<100 GOSUB ENDIF MOUSEY>100 MOUSEY<125 GOSUB ENDIF MOUSEY>125 MOUSEY<150 GOSUB ENDIF MOUSEY>150 MOUSEY<175 GOSUB ENDIF MOUSEY>175 MOUSEY<200 GOSUB ENDIF MOUSEY>200 MOUSEY<225 GOSUB ENDIF MOUSEY>225 MOUSEY<250 GOSUB ENDIF MOUSEY>250 MOUSEY<275 GOSUB ENDIF ENDIF UNTIL MOUSEK=2 GOSUB GOSUB GRAPHMODE <100DEFFILL ELSEDEFFILL ENDIF RETURN PROCEDURE =FALSE =10ENDIF REPEATSHOWM WHILE MOUSEK=1HIDEM =INT((MOUSEX-300)/ =INT((MOUSEY-100)/ =2SELECT 0PCIRCLE 1PCIRCLE PCIRCLE ,403-1- 2PCIRCLE PCIRCLE 3PCIRCLE PCIRCLE PCIRCLE ,403-1- PCIRCLE ,403-1- 4PCIRCLE PCIRCLE ,403-1- ENDSELECT ENDIF =1SELECT 0CIRCLE 1CIRCLE CIRCLE ,403-1- 2CIRCLE CIRCLE 3CIRCLE CIRCLE CIRCLE ,403-1- CIRCLE ,403-1- 4CIRCLE CIRCLE ,403-1- ENDSELECT ENDIF ENDIF WENDUNTIL MOUSEK=2RETURN PROCEDURE =FALSE =10ENDIF REPEATSHOWM WHILE MOUSEK=1HIDEM =INT((MOUSEX-300)/ =INT((MOUSEY-100)/ =2SELECT 0PBOX 1PBOX ,403-1- ,403-1- 2PBOX ,639- 3PBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4PBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF =1SELECT ,403-1- ,403-1- ,639- ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- ,403-1- ,639- ,403-1- ENDSELECT ENDIF ENDIF =2SELECT 0PRBOX 1PRBOX PRBOX ,403-1- ,403-1- 2PRBOX PRBOX ,639- 3PRBOX PRBOX ,639- PRBOX ,403-1- ,403-1- PRBOX ,403-1- ,639- ,403-1- 4PRBOX PRBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF =1SELECT 0RBOX 1RBOX ,403-1- ,403-1- 2RBOX ,639- 3RBOX ,639- ,403-1- ,403-1- ,403-1- ,639- ,403-1- 4RBOX ,403-1- ,639- ,403-1- ENDSELECT ENDIF ENDIF WENDUNTIL MOUSEK=2RETURN PROCEDURE DEFTEXT ,0LOCAL DEFMOUSE 3HIDEM REPEAT =""GRAPHMODE REPEATMOUSE +"|"REPEAT =INKEY$UNTIL <>MOUSEX <>MOUSEY MOUSEK<>0 <>""TEXT +"|"MOUSE =LEFT$( =CHR$(13) ENDIF =CHR$(27) =""GOTO ENDIF =CHR$(8) =CHR$(127) =LEFT$( ,LEN( ENDIF ENDIF :UNTIL MOUSEK=1 :GRAPHMODE MOUSE MOUSEK=1 DEFMOUSE 3GOTO ENDIF UNTIL MOUSEK=2 SHOWM RETURN fffff&D@Y PROCEDURE REPEATMOUSE WHILE MOUSEK=1HIDEM MOUSE SELECT 0DRAW 1DRAW 3DRAW ,403-1- ,403-1- ,403-1- ,403-1- 4DRAW ,403e-1- ,403-1- 2DRAW ,403-1- ,403-1- ENDSELECT WENDSHOWM UNTIL MOUSEK=2RETURN &x11111111 &x11000011 &x10111101 &x10111101 &x10111101 &x10111101 &x10111101 &x11000011 &x11111111 PROCEDURE 0,0,640,480REM 60,430,200,450REM 58,428,202,452REM 57,427,203,453REM PRINT AT(10,28);"Lade llmuster" COLOR GRAPHMODE 50DEFFILL ,0,50+ 50DEFFILL ,100,50+ 50DEFFILL ,200,50+ REPEATDEFMOUSE 3REPEATEXIT MOUSEK=2UNTIL MOUSEK=1IF MOUSEK=1 MOUSEX>0 MOUSEX<50IF MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =13ENDIF MOUSEY>200 MOUSEY<300 =26ENDIF ENDIF MOUSEK=1 MOUSEX>50 MOUSEX<100IF MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =14ENDIF MOUSEY>200 MOUSEY<300 =27ENDIF ENDIF MOUSEK=1 MOUSEX>100 MOUSEX<150 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =15ENDIF MOUSEY>200 MOUSEY<300 =28ENDIF ENDIF MOUSEK=1 MOUSEX>150 MOUSEX<200 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =16ENDIF MOUSEY>200 MOUSEY<300 =29ENDIF ENDIF MOUSEK=1 MOUSEX>200 MOUSEX<250 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =17ENDIF MOUSEY>200 MOUSEY<300 =30ENDIF ENDIF MOUSEK=1 MOUSEX>250 MOUSEX<300 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =18ENDIF MOUSEY>200 MOUSEY<300 =31ENDIF ENDIF MOUSEK=1 MOUSEX>300 MOUSEX<350 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =19ENDIF MOUSEY>200 MOUSEY<300 =32ENDIF ENDIF MOUSEK=1 MOUSEX>350 MOUSEX<404 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =20ENDIF MOUSEY>200 MOUSEY<300 =33ENDIF ENDIF MOUSEK=1 MOUSEX>404 MOUSEX<450 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =21ENDIF MOUSEY>200 MOUSEY<300 =34ENDIF ENDIF MOUSEK=1 MOUSEX>450 MOUSEX<500 MOUSEY>0 MOUSEY<100 ENDIF MOUSEY>100 MOUSEY<200 =22ENDIF MOUSEY>200 MOUSEY<300 =35ENDIF ENDIF MOUSEK=1 MOUSEX>500 MOUSEX<550 MOUSEY>0 MOUSEY<100 =10ENDIF MOUSEY>100 MOUSEY<200 =23ENDIF MOUSEY>200 MOUSEY<300 =36ENDIF ENDIF MOUSEK=1 MOUSEX>550 MOUSEX<600 MOUSEY>0 MOUSEY<100 =11ENDIF MOUSEY>100 MOUSEY<200 =24ENDIF MOUSEY>200 MOUSEY<300 =37ENDIF ENDIF MOUSEK=1 MOUSEX>600 MOUSEX<640 MOUSEY>0 MOUSEY<100 =12ENDIF MOUSEY>100 MOUSEY<200 =25ENDIF MOUSEY>200 MOUSEY<300 =38ENDIF ENDIF MOUSEK=1 MOUSEY>404 =""RESTORE 8READ +CHR$( :DATA &x11111111 &x11000011 &x10111101 &x10111101 &x10111101 &x10111101 &x10111101 &x11000011 &x11111111 DEFFILL ENDIF <100DEFFILL ELSEDEFFILL ENDIF 0,300,640,403UNTIL MOUSEK=2CLS GRAPHMODE 0,0,640,403RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE =1SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT ELSESELECT 0PELLIPSE ,ABS( ),ABS( )CASE 1PELLIPSE ,ABS( ),ABS( )PELLIPSE ,403-1- ,ABS( ),ABS( )CASE 2PELLIPSE ,ABS( ),ABS( )PELLIPSE ,ABS( ),ABS( )CASE 3PELLIPSE ,ABS( ),ABS( )PELLIPSE ,ABS( ),ABS( )PELLIPSE ,403-1- ,ABS( ),ABS( )PELLIPSE ,403-1- ,ABS( ),ABS( )CASE 4PELLIPSE ,ABS( ),ABS( )PELLIPSE ,403-1- ,ABS( ),ABS( )ENDSELECT ENDIF WENDWHILE MOUSEK=1GRAPHMODE SELECT 0ELLIPSE ,ABS( ),ABS( 1ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 2ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( 3ELLIPSE ,ABS( ),ABS( ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( 4ELLIPSE ,ABS( ),ABS( ELLIPSE ,403-1- ,ABS( ),ABS( ENDSELECT WENDUNTIL MOUSEK=2RETURN PROCEDURE REPEATGOSUB WHILE MOUSEK=FALSEMOUSE =1SELECT 0CIRCLE ,ABS( 1CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( 2CIRCLE ,ABS( CIRCLE ,ABS( 3CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,403-1- ,ABS( 4CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( ENDSELECT ELSEGRAPHMODE SELECT 0PCIRCLE ,ABS( 1PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( 2PCIRCLE ,ABS( PCIRCLE ,ABS( 3PCIRCLE ,ABS( PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( PCIRCLE ,403-1- ,ABS( 4PCIRCLE ,ABS( PCIRCLE ,403-1- ,ABS( ENDSELECT ENDIF WENDWHILE MOUSEK=1SELECT 0CIRCLE ,ABS( 1CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( 2CIRCLE ,ABS( CIRCLE ,ABS( 3CIRCLE ,ABS( CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( CIRCLE ,403-1- ,ABS( 4CIRCLE ,ABS( CIRCLE ,403-1- ,ABS( ENDSELECT WENDUNTIL MOUSEK=2RETURN PROCEDURE 0,0,640,403, -1GET +1,639, 0,0,639,403, -1GET +1,0, +1,403, GRAPHMODE RETURNREM ***** ******* PROCEDURE 0,0,640,403, REPEATUNTIL MOUSEK=1DO MOUSEK=2PUT =MOUSEX- =MOUSEY- =1GOSUB ENDIF =2REPEATPUT =MOUSEX =MOUSEYIF MOUSEK=2 GOSUB ENDIF WHILE MOUSEK=1GET 0,0,640,403, WENDUNTIL MOUSEK=2ENDIF WHILE MOUSEK=1INC =1MOUSE ENDIF REPEATUNTIL MOUSEK=0WENDLOOPGET 0,0,640,403, RETURN PROCEDURE =1CIRCLE ENDIF =2PCIRCLE ENDIF ENDIF =1ELLIPSE ENDIF =2PELLIPSE ENDIF ENDIF =1BOX ENDIF =1RBOX ENDIF =2PBOX ENDIF =2PRBOX ENDIF ENDIF RETURN