A500:20: PROGRAMM GRAFIK HTHO:VTVE:S$"":I1 HT:S$S$" ":I HL0:HRHT:VL2:VRVT2:R$"":T$!1340:HO(HT(SR$)6)2:VE0:110!!150:::7!"Ausdruck ueber"X!$:" - 1 den Bildschirm,"t!." - 2 den Drucker."!8:"Welche Nummer ?";:210!BSCIN48:SC:SC2 SC1:1180!L:"Wieviel Leerzeichen "!V"am Zeilenanfang ";:HL"`:"Wieviel Text-Zeichen "B"j"auf jeder Zeile ";:I:HRHLI1a"t:"Wieviel Leer-Zeilen ""~"am Seitenende ";:VL":"Wieviel Text-Zeilen """auf jeder Seite ";:VR:VRVRVL3"MM$"":HL0 MM$(S$,HL)#1310:M$MM$:ALVL:SC2 1290,#(R$)HRHL 1730I#1370:R$"" R$R$" "\#R$R$D$:1200#SC2 SR$M$SR$:350:360:1250#120:M$;SR$;:VEVE1:HO0:110:HL0#M$MM$:ALAL1:ALVR #SC1 1310#VL0 I1 VL:360:I:210$ALVL+$ SR$(S$,(HRHL(T$))2)T$:1230D$SR$"":1230:ALVL:X$HO0:VEVT:110$(SR$"WEITER: druecke ":150$2210:IN13 1330$<100:ALVL:SR$T$$F(S$,(HT(SR$))23);:150$P::$ZD$$dD$"" 1370%n(D$,1)"." 1440#%x(D$,1)"!" <%D$"!" D$"":1430Q%D$(D$,(D$)1)a%1670:1380u%D$".E" 1490%J1:1670:T$"E N D E"%SR$"":1230:1230:SR$T$:1230:T$""%SR$"":1230:ALVL 1470%950&DD$(D$,2,1):D$(D$,(D$)2)&DD$"R" 1550&&SC2 T&(R$)6(D$)HRHL SR$R$:1230:R$""r&M$;R$;:SR$D$:150:M$""&HLHL(R$)(D$)6:R$"":1370&DD$"M" 1580&I(D$):MM$"":IHL0 1370&"MM$(S$,IHL):1370 ',DD$"P" J(D$):1670:1690:13707'6DD$"T" T$D$:J10:1670:1690:1510Z'@DD$"Q" R$R$(34)D$:1370n'JDD$"F" 1640'TJ(D$):1670'^JJ1:J1 SR$"":1230:1630'hDD$"C" 1660'rSR$(S$,(HRHL(D$))2)D$:1230'|1370 (1730:SR$R$:1230:R$"":JJ1(-((SC1)(ALJVR)1710F(SR$"":1230:1230:f(ALVL SR$"":1230:1710l((KHRHL1(M$)((R$)K ((R$,K,1)" " 1780(KK1:K0 1750(SR$"":1790(SR$(R$,K1):R$(R$,(R$)K))1230:1730')a"Beschreibung Programm GRAFIK"K)a"Autor: Manfred Feindt,Berlin"y)a"!geaendert von Thomas Winkler,Zschopau")a"!!Funktionen:")a"!!.RX-P/Y-P")a"!Anzeige der Koordinaten des Bildpunktes.")a"Bewegung in 8 Richtungen moeglich"*a"(Cursor sowie SHIFT+Cursor)."0*a"!!.RSPEED"_*b"!Geschwindigkeit des Bildpunktes (0-9)."u* b"!!.RP-ON/P-OFF"*b"!S=Bildpunkt setzen."* b"!R=Bildpunkt nicht setzen (loeschen)."**b"!!.RHCOPY"*4b"!Drucken von Hardcopys in normaler- und")+>b"doppelter Groesse ueber Centronics-"N+Hb"Interface (EPSON-kompatibel)."y+Rb"!Es lassen sich mehrere Bildinhalte"+\b"lueckenlos aneinanderreihen."+fb"!Anschluss des Druckers am Modul M001."+pb"Beschaltung siehe Anleitung zum Modul.",zb".P0",b".RWRITE"G,b"!A=Beschriften mit alphanumerischen Zeichen."m,b"!G=Zeichnen mit Grafikzeichen.",b"!!.RSAVE/LOAD",b"!Abspeichern und Einlesen von Bildern.",b"!!.RTURN",b"!Drehen des Bildes um 90 Grad.",b"!!.REND""-b"!Programmende und Rueckkehr ins CAOS."2-b"!!.RMOVE"_-b"!Bewegen des Bildes mit Kursortasten."o-b"!!.REXKO"-b"!Vertikale Bewegung von Bildteilen,"-c"bezueglich frei waehlbarer Horizontalen."-c"!!.RPAGE".c"!Umblaettern zwischen 3 Bildern,bei":.$c"Vorhandensein einer RAM-Erweiterung ab 4000H."E..c".P0"S.8c".RLINE".Bc"!Zeichnen einer Linie,wobei Anfangs- ".Lc"und Endpunkt mit L zu quittieren sind.".Vc"!!.RQUAD".`c"!Zeichnen eines Rechteckes."/jc"!Die diagonalen Eckpunkte sind mit Q zu"#/tc"quittieren."3/~c"!!.RCIRC"S/c"!Zeichnen eines Kreises."/c"!Der Mittelpunkt und Radius sind mit O"/c"zu quittieren."/c"!!.RFILL"/c"!Ausfuellen von geschlossenen Figuren."/c"!!.RPCHAR"0c"!Beschriften des Bildes mit kleinen"?0c"Zeichen,auf jeder beliebigen Position."Q0c"!!.RDELETE"0c"!Loeschen von zusammenhaengenden Bildpunkten."0c"!!.RCOLOR"0c"!Umschalten der Hintergrundfarbe."0d".P0"0 d".RINPUT" 1d"!Direkte Eingabe von Bildpunktkoordinaten.":1d"!!Das Bildschirmloeschen geschieht wie"Y1(d"ueblich mit SHIFT/HOME."12d"!Der Bildpunkt wird durch ENTER in seine"1