2 QA=PEEK(821):ONQAGOTO6,8:PRINT"[147]":POKE1020,10
3 PRINTTAB(11)"- HIRESBILDER 03 -"
4 PRINT"[154] BITTE WARTEN -- DATEIEN WERDEN GELADEN"
5 POKE821,1:LOAD"TRAMYSALON01",8,1
6 POKE821,2:LOAD"HIRESGRAFIK03",8,1
8 PRINT"[147]":POKE53280,PEEK(1020):POKE53281,11:POKE646,7:GOSUB11:GOTO110
9 QP=27:OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(QP):CLOSE4:CLOSE5:END
11 Q$="HIRESBILDER":QV$="03":QT$=Q$+QV$:QD$="210404":RETURN
12 GOSUB11:PRINT"G-A 8/9?[145]":GETQ:ON-(Q<>8ANDQ<>9)GOTO12:RETURN
18 GOSUB12:PRINT"   G-A"Q"[145]":OPEN15,Q,15,"S:"+QT$:CLOSE15:SAVEQT$,Q:END
61 CY=INT(C/100):CX=C-(CY*100)
62 POKE211,CX:POKE214,CY:SYS58640:RETURN
68 LC=INT(L/100):LL=L-(LC*100)
69 FORU=LCTOLL:POKE781,U:SYS59903:NEXT:RETURN
110 GOSUB9002:C=804:GOSUB61:PRINT"[155]BITTE BITMAP-BEREICH AUSWAEHLEN:"
122 PRINTTAB(12)"0[155]  = 57344-65343":PRINTTAB(12)"1[155]  = 24576-32575"
124 R$="":GETR$:IFR$=""THEN124
126 BR=VAL(R$):IFBR<0ORBR>1THEN124
128 C=1705:GOSUB61:PRINT"[155]DER BEREICH [158]"BR"[155] WURDE GEWAEHLT"
132 POKE51151,BR:POKE51146,2:POKE51144,120:POKE51148,92:POKE51150,96
146 SYS50465,BR:GOSUB9102:ON-(BR=1)GOTO150:GOSUB9994:GOTO110
150 FR=PEEK(1020):GOSUB9002
152 PRINT"[155]Z[155]EICHNEN / A[155]USGABE / H[155]ILFE / E[155]NDE?"
153 R$="":GETR$:IFR$=""THEN153
154 ON-(R$="Z")-2*(R$="A")-3*(R$="H")-4*(R$="E")GOTO9222,202,159,9332:GOTO150
159 HS=1:GOTO9702
162 POKE53280,FR:GOSUB982:GOTO282
172 POKE56322,224:JT=PEEK(56320):POKE56322,255
182 R$="":GETR$:RETURN
202 L=824:GOSUB68:C=804:GOSUB61:PRINT"[153]AUSGABE AUF BILDSCHIRM ODER DISK"
204 PRINTTAB(7)"[155]GRAFIK ERST LADEN?   <J[155]/N[155]>":PS=2
205 R$="":GETR$:IFR$=""THEN205
206 ON-(R$="J")-2*(R$="N")GOTO228,212:GOTO205
212 PRINTTAB(5)"AUSGABE AUF B[155]ILDSCHIRM / D[155]ISK?":FR=PEEK(1020)
214 R$="":GETR$:IFR$=""THEN214
216 ON-(R$="B")-2*(R$="D")GOTO162,9262:GOTO214
222 GOSUB9242:ON-(R$="L")-2*(R$="G")GOTO228,341
228 GOSUB9302:ON-(EN<>0)-2*(PS>1)GOTO222,162
234 X=0:Y=0:X1=0:Y1=0:ZS=50:GOTO341
242 FR=(PEEK(53280)AND15):POKE24552,FR:GOSUB9202
258 PRINTTAB(7)"[153]DATEN  WERDEN GESPEICHERT![155]":BA=23552:BE=32576
262 POKE646,PEEK(53281):SYS49489,PR$,BA,BE:EN=0
266 GOSUB9902:ON-(EN=63ANDR$="J")GOTO258:GOTO150
282 R$="":GETR$:IFR$=""THEN282
284 ON-(R$=" ")-2*(R$="S")GOTO287,288:GOTO282
287 GOSUB992:GOTO150
288 GOSUB992:GOTO9262
302 PRINT"[153]BITTE ZUNAECHST FARBEN FESTLEGEN":GG=15
304 PRINTTAB(8)"[155]RAHMEN      (0-15): ":PRINTTAB(8)"[155]HINTERGRUND (0-15): "
306 PRINTTAB(8)"[155]PUNKTFARBE  (0-15): "
310 C=1430:GOSUB61:GOSUB9212:FR=GF:C=1429:IFFR<10THENC=C+1
316 GOSUB61:PRINT"[158]"FR:POKE1020,FR
320 C=1630:GOSUB61:GOSUB9212:GD=GF:C=1629:IFGD<10THENC=C+1
326 GOSUB61:PRINT"[158]"GD
330 C=1830:GOSUB61:GOSUB9212:PT=GF:C=1829:IFPT<10THENC=C+1
336 GOSUB61:PRINT"[158]"PT
341 L=724:GOSUB68:C=1100:GOSUB61:PA=0
342 PRINT"P[155]UNKTE BEARBEITEN / L[155]INIEN ZIEHEN?":PRINT"R[155]ECHTECKE ";
343 PRINT" /  K[155]REISE/ELLIPSEN?":PRINTTAB(8)"E[155]INZELHEITEN VERAENDERN?"
345 R$="":GETR$:IFR$=""THEN345
346 IFR$="P"THENPL=0:GOTO362
348 IFR$="L"THENPL=1:GOTO362
350 IFR$="R"THENPL=2:GOTO362
352 IFR$="K"THENPL=3:GOTO362
354 IFR$="E"THENPL=4:GOTO374
356 GOTO345
362 FR=PEEK(1020):POKE53280,FR:POKE24552,FR:GOSUB982:ON-(PS>0)GOTO371
365 POKE2,GD:POKE781,PT:SYS50507:SYS49402,24576,32575,0
371 GOSUB482:GOSUB496
374 GOSUB172:ONPAGOTO381:ON-(JT=111)GOTO476
381 ON-(JT=117)-2*(JT=118)-3*(JT=119)-4*(JT=121)GOTO466,462,448,456
385 ON-(JT=122)-2*(JT=123)-3*(JT=125)-4*(JT=126)GOTO452,446,444,442
389 ON-(R$=" ")-2*(R$="S")GOTO486,398:ONPAGOTO471
392 ONPLGOTO393,402,412,652,422:GOTO374
393 ON-(R$="A")-2*(R$="E")GOTO504,512:GOTO374
398 GOSUB992:GOTO9262
399 GOSUB992:GOTO150
402 ON-(R$="O")-2*(R$="U")GOTO542,546:GOTO374
412 ON-(R$="M")-2*(R$="H")-3*(R$="V")-4*(R$="G")GOTO562,566,572,602:GOTO374
422 ON-(R$="N")-2*(R$="A")GOSUB762,766:GOTO374
442 Y1=Y1-1:IFY1<0THENY1=0
443 GOTO486
444 Y1=Y1+1:IFY1>199THENY1=199
445 GOTO486
446 X1=X1-1:IFX1<0THENX1=0
447 GOTO486
448 X1=X1+1:IFX1>319THENX1=319
449 GOTO486
452 X1=X1-8:Y1=Y1-8:IFX1<0THENX1=0
454 IFY1<0THENY1=0
455 GOTO486
456 X1=X1-8:Y1=Y1+8:IFX1<0THENX1=0
458 IFY1>199THENY1=199
459 GOTO486
462 X1=X1+8:Y1=Y1-8:IFX1>319THENX1=319
464 IFY1<0THENY1=0
465 GOTO486
466 X1=X1+8:Y1=Y1+8:IFX1>319THENX1=319
468 IFY1>199THENY1=199
469 GOTO486
471 ON-(R$="Z")-2*(R$="L")GOTO473,474:GOTO374
473 ONPLGOTO522,552,582
474 ONPLGOTO526,553,583
476 IFPZ=0THENPZ=1:GOTO478
477 IFPZ=1THENPZ=0
478 PA=1:GOTO374
482 SYS50661,X,Y:PZ=PEEK(251):RETURN
486 GOSUB492
487 X=X1:Y=Y1:PA=0:ON-(R$=" ")GOTO399:GOTO371
492 IFPZ=0THENZM=1:GOTO494
493 IFPZ=1THENZM=0
494 GOTO497
496 ZM=2
497 SYS50625,X,Y,ZM:RETURN
504 XA=X:YA=Y:GOTO476
512 X2=X:Y2=Y:X1=XA:Y1=YA:GOTO476
522 ZM=0:GOTO530
526 ZM=1
530 SYS50688,X1,Y1,X2,Y2,ZM:XA=X2:YA=Y2:X1=X2:Y1=Y2:GOTO487
542 LX=X:LY=Y:GOTO476
546 RX=X:RY=Y:GOTO476
552 ZM=0:GOTO554
553 ZM=1
554 SYS50688,LX,LY,RX,LY,ZM:SYS50688,RX,LY,RX,RY,ZM
556 SYS50688,LX,RY,RX,RY,ZM:SYS50688,LX,LY,LX,RY,ZM
558 X1=RX:Y1=RY:GOTO487
562 XM=X:YM=Y:GOTO476
566 HR=ABS(XM-X):GOTO476
572 VR=ABS(YM-Y):GOTO476
582 ZM=0:GOTO584
583 ZM=1
584 FORWG=B1TOB2:WB=WG*3.14/180:X=XM+HR*COS(WB):Y=YM+VR*SIN(WB)
588 SYS50625,X,Y,ZM:NEXTWG:X1=XM:Y1=YM:GOTO487
602 GOSUB992:GOSUB9002:L=724:GOSUB68:C=700:GOSUB61
614 PRINT"[155]ANGABE DER ZEICHNUNGS-BOGENGRADE":PRINTTAB(18)"270"
618 PRINTTAB(15)"180   360":PRINTTAB(22)"1":PRINTTAB(18)"90"
624 PRINTTAB(7)"BOGENANFANG  (1-359)":PRINTTAB(7)"BOGENENDE    (2-360)"
630 C=1730:GOSUB61:GG=360:GOSUB9212:B1=GF:C=1728:IFB1<100THENC=C+1
635 IFB1<10THENC=C+1
636 GOSUB61:PRINT"[158] "B1:C=1930:GOSUB61:GOSUB9212:B2=GF:C=1928:IFB2<100THENC=C+1
644 IFB2<10THENC=C+1
645 GOSUB61:PRINT"[158] "B2:GOSUB9102:GOSUB982:GOTO476
652 L=724:GOSUB68:C=809:GOSUB61:PRINT"[153]EINZELHEITEN AENDERN ?"
654 PRINTTAB(11)"R[155]AHMENFARBE":PRINTTAB(11)"B[155]LOCKFARBEN FUER"
656 PRINTTAB(11)"HINTERGRUND/PUNKTE"
660 R$="":GETR$:IFR$=""THEN660
661 ON-(R$="R")-2*(R$="B")GOTO671,682:GOTO660
671 FR=PEEK(1020):C=1806:GOSUB61:PRINT"[155]BISHERIGE RAHMENFARBE:"
673 C=1832:IFFR<10THENC=C+1
674 GOSUB61:PRINT"[158]"FR:C=2006:GOSUB61:PRINT"[155]NEUE RAHMENFARBE (0-15):"
676 C=2033:GOSUB61:GG=15:GOSUB9212:FR=GF:C=2032:IFFR<10THENC=C+1
678 GOSUB61:PRINT"[158]"FR:POKE1020,FR:PL=0:GOSUB9102:GOTO362
682 GOSUB702:GOSUB712:C=1806:GOSUB61
684 PRINT"[155]ALTE HINTERGRUNDFARBE:":C=1832:IFHA<10THENC=C+1
688 GOSUB61:PRINT"[158]"HA:C=2006:GOSUB61:GOSUB722:C=1906:GOSUB61
692 PRINT"[155]ALTE PUNKTFARBE:":C=1932:IFPF<10THENC=C+1
696 GOSUB61:PRINT"[158]"PF:C=2006:GOSUB61:GOTO732
702 XD=INT(X/8):YD=INT(Y/8)*40:IFBR=0THENH0=52224
706 IFBR=1THENH0=23552
708 H7=H0+XD+YD:RETURN
712 HA=(PEEK(H7)AND15):RETURN
722 PF=(PEEK(H7)AND240)/16:RETURN
732 C=2106:GOSUB61:PRINT"[155]NEUE HG-FARBE    (0-15):"
736 PRINTTAB(6)"[155]NEUE PUNKT-FARBE (0-15):"
738 C=2133:GOSUB61:GG=15:GOSUB9212:HN=GF:C=2132:IFHN<10THENC=C+1
742 GOSUB61:PRINT"[158]"HN:POKE1021,HN:C=2233:GOSUB61:GG=15:GOSUB9212
746 PN=GF:C=2232:IFPN<10THENC=C+1
748 GOSUB61:PRINT"[158]"PN:POKE1022,PN
752 BA=PF*16+HA:BN=PN*16+HN:PL=5:GOSUB9102:GOTO362
762 GOSUB702:POKEH7,BN:RETURN
766 GOSUB702:POKEH7,BA:RETURN
982 SYS50545,BR:RETURN
992 R$="":POKE198,0:SYS50589:POKE24552,PEEK(1020):RETURN
9002 PRINT"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9004 PRINT"[221] [153]HIRES-GRAFIK-PROGRAMM VON KAHATE [158][221]"
9006 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
9012 TS=35:IFHS<10THENTS=TS+1
9014 PRINTTAB(TS)"[144]"HS"[145]":RETURN
9102 L=2424:GOSUB68:C=2412:GOSUB61:PRINT"[158]WEITER MIT TASTE[145][145][145][145][155]"
9106 POKE198,0:WAIT198,1:POKE198,0:L=2424:GOSUB68:RETURN
9122 L=2424:GOSUB68:C=2405:GOSUB61:PRINT"Z[152]URUECK  H[152]AUPTMENUE  V[152]ORWAERTS";
9124 PRINT"[145][145][145][145][155]":POKE198,0:WAIT198,1:L=2424:GOSUB68:RETURN
9202 PRINT"[155]BITTE DATEINAMEN EINGEBEN:"
9204 PRINT"       [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][158][145][145]":PRINT"       ";
9206 POKE19,1:INPUTPR$:POKE19,0:PRINT:RETURN
9212 POKE19,1:INPUT"    [157][157][157][157]";GF$:POKE19,0:PRINT:GF=VAL(GF$)
9216 IFGF<0ORGF>GGTHENGOSUB61:GOTO9212
9218 RETURN
9222 L=724:GOSUB68:C=802:GOSUB61
9224 PRINT"[155]BILD N[155]EU ZEICHNEN / BILD V[155]ERAENDERN?"
9226 R$="":GETR$:IFR$=""THEN9226
9228 ON-(R$="N")-2*(R$="V")GOTO9234,9236:GOTO9226
9234 PS=0:GOTO302
9236 PS=1:GOTO222
9242 L=724:GOSUB68:C=805:GOSUB61:PRINT"[155]GRAFIK  L[155]ADEN / SCHON G[155]ELADEN?"
9246 R$="":GETR$:IFR$=""THEN9246
9248 ON-(R$="L")-2*(R$="G")GOTO9250,9250:GOTO9246
9250 RETURN
9262 L=724:GOSUB68:C=807:GOSUB61:PRINT"[155]GRAFIK  SPEICHERN?   <J[155]/N[155])"
9266 R$="":GETR$:IFR$=""THEN9266
9268 ON-(R$="J")-2*(R$="N")GOTO242,150:GOTO9266
9302 GOSUB9202:L=1024:GOSUB68:C=1109:GOSUB61:PRINT"[153]DATEN WERDEN GELADEN ![155]"
9306 FZ=PEEK(646):POKE646,PEEK(53281):BA=23552:EN=0
9310 SYS49676,PR$,BA:POKE646,FZ:GOSUB9902:IFEN<>0THEN9328
9322 FR=PEEK(24552):POKE1020,FR
9328 RETURN
9332 L=724:GOSUB68:C=707:GOSUB61:PRINT"[155]VOR PROGRAMM-ENDE PRUEFEN:"
9336 PRINTTAB(7)"GRAFIK ERST NOCH AUF DISK?":PRINTTAB(14)"TASTE  <J[155]/N[155]>"
9340 R$="":GETR$:IFR$=""THEN9340
9342 ON+(R$="J")-2*(R$="N")GOTO9262,9352:GOTO9340
9352 L=724:GOSUB68: C=707:GOSUB61
9354 PRINT"[153]PROGRAMM WIRKLICH BEENDEN?":PRINTTAB(15)"J[155]A -- N[155]EIN"
9360 R$="":GETR$:IFR$=""THEN9360
9362 ON-(R$="J")-2*(R$="N")GOTO9372,150:GOTO9360
9372 PRINT"[147]":POKE53280,0:C=700:GOSUB61:PE=10:AW=1:AW$="AUF WIEDERSEHEN![145]"
9374 POKE646,AW:PRINTTAB(12)AW$:FORI=0TO300:NEXT:AW=AW-1:IFAW=-1THENAW=1
9380 PE=PE-1:ON-(PE>0)GOTO9374:SYS64738
9702 IFHS<1THENHS=12
9703 IFHS>12THENHS=1
9704 ONHSGOTO9711,9721,9731,9741,9751,9761,9771,9781,9791,9801,9811,9823
9709 GOSUB9994:GOTO150
9711 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 1---
9712 PRINT"[155]DAS PROGRAMM  WURDE  WEITESTGEHEND":PRINT"SELBSTERKLAE";
9713 PRINT"REND GESCHRIEBEN.":PRINT"VOR DEM EINSCHALTEN  EINES GRAFIK-"
9714 PRINT"BILDSCHIRMES  SOLLTEN JEDOCH  ALLE":PRINT"FUNKTIONEN BE";
9715 PRINT"KANNT SEIN,  DIE AUCH":PRINT"BEI  EINGESCHALTETER GRAFIK  UEBER"
9716 PRINT"TASTEN AUSGELOEST WERDEN KOENNEN.":GOTO9891
9721 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 2---
9722 PRINT"[153]AUS  DER   EINGESCHALTETEN  GRAFIK":PRINT"FUEHREN WIEDER";
9723 PRINT" HERAUS:":PRINT"[155]<[158]SPACE[155]>  ZURUECK ZUM HAUPTMENUE"
9724 PRINT"[155]  <[158]S[155]>    ZUM MENUE 'SPEICHERN'":PRINT"EIN VERSEHENT";
9725 PRINT"LICHER  DRUCK AUF DIE":PRINT"TASTE <RUN/STOP> BEWIRKT, DASS DER"
9726 PRINT"COMPUTER  DEN EINDRUCK ERWECKT, ER":PRINT"WAERE ABGESTUERZT,";
9727 PRINT"    [158]ABER:   [155] -->":GOTO9891
9731 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 3---
9732 PRINT"[155]IM HINTERGRUND LAEUFT DAS PROGRAMM":PRINT"JA WEITER.  NUR ";
9733 PRINT"DURCH DAS GFX-BILD":PRINT"WERDEN KEINE MELDUNGEN SICHTBAR."
9734 PRINT"NACH EINEM <RETURN> UND NACH BLIN-":PRINT"DER EINGABE  VON ";
9735 PRINT" [158]GOTO399[155] <RETURN>":PRINT"ERSCHEINT WIEDER DAS HAUPTMENUE."
9736 PRINT"AUS  DEM  HAUPTMENUE  GELANGT  MAN":PRINT"UEBER Z[155]EICHNEN";
9737 PRINT" (U.WEITERE ANGABEN)":PRINT"IN DEN GFX-SCREEN ZUM EDITIEREN."
9738 PRINT"ALLE  64000 PUNKTE  SIND MIT EINEM":PRINT"[158]JOYSTICK IN PORT";
9739 PRINT" 2 [155]ERREICHBAR. -->":GOTO9891
9741 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 4---
9742 PRINT"[155]DER ERSTE  'ANGEPEILTE'  PUNKT DES":PRINT"GFX-BILDSCHIRMS ";
9743 PRINT"LIEGT LINKS OBEN.":PRINT"DER PUNKT IST  BEREITS INVERTIERT,"
9744 PRINT"VERGLEICHBAR MIT EINEM CURSOR.":PRINT"DER 'ANGEPEILTE' GRA";
9745 PRINT"FIK-PUNKT KANN":PRINT"NUN MIT  DEM  JOYSTICK  VERSCHOBEN"
9746 PRINT"WERDEN  UND ZWAR HORIZONTAL  SOWIE":PRINT"AUCH  VERTIKAL  JE";
9747 PRINT" UM EINEN PUNKT.":PRINT"MIT  <JOYSTICK DIAGONAL> WIRD AUCH"
9748 PRINT"DER PUNKT  DIAGONAL VERSCHOBEN UND":PRINT"ZWAR  JEWEILS UM  ";
9749 PRINT"8 PUNKTE,  DAMIT":PRINT"BEWEGUNGEN  UEBER  DEN  BILDSCHIRM"
9750 PRINT"ETWAS SCHNELLER MOEGLICH SIND. -->":GOTO9891
9751 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 5---
9752 PRINT"[155]JEDER DRUCK AUF DIE [158]FEUERTASTE[155] DES":PRINT"JOYSTICKS BE";
9753 PRINT"WIRKT, DASS DER GERADE":PRINT"ANGEFAHRENE PUNKT INVERTIERT WIRD."
9754 PRINT"MIT  DER  [158]FEUERTASTE[155]  WERDEN  ALSO":PRINT"EINZELNE  PUNK";
9755 PRINT"TE  GESETZT UND AUCH":PRINT"BEREITS GESETZTE GFX-PUNKTE WIEDER"
9756 PRINT"GELOESCHT.":PRINT"DIE GEOMETRISCHEN MARKIERUNGSPUNK-"
9757 PRINT"TE FUER LINIEN UND FIGUREN DAGEGEN":PRINT"WERDEN MIT  EINZEL";
9758 PRINT"-TASTEN GESETZT.":PRINT"JE NACH GEWAEHLTEM ARBEITS-BEREICH"
9759 PRINT"SIND  FOLGENDE TASTEN ZU DRUECKEN:":GOTO9891
9761 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 6---
9762 PRINTTAB(6)"[158] LINIEN [146][155]  ZEICHNEN/LOESCHEN":PRINT"[152]ERST MIT DEM ";
9763 PRINT"'JOYSTICK-CURSOR' DEN":PRINT"ANFANGSPUNKT EINER LINIE ANFAHREN!"
9764 PRINT"[155]<[158]A[155]>   MARKIERT DEN LINIEN-ANFANG":PRINT"[152]NUN DEN  END";
9765 PRINT"PUNKT DER GEWUENSCHTEN":PRINT"LINIE ANFAHREN":PRINT"[155]<[158]E[155]>";
9766 PRINT"   MARKIERT  DAS  LINIEN-ENDE":PRINT"[155]DER ENDPUNKT WIRD  AUTO";
9767 PRINT"MATISCH ALS":PRINT"NAECHSTER ANFANGSPUNKT IM PROGRAMM"
9768 PRINT"FESTGEHALTEN,  KANN ABER  AUCH NEU":PRINT"BESTIMMT WERDEN."
9769 GOTO9891
9771 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 7---
9772 PRINTTAB(7)"[155]<[158]Z[155]> ZEICHNET   [155]<[158]L[155]> LOESCHT":PRINT"EINE  MIT  A -";
9773 PRINT" E  MARKIERTE LINIE.":PRINT"[153]DIE TASTEN <Z> UND <L> STEHEN AUCH"
9774 PRINT"IN  DEN  WEITEREN  GRAFIKBEREICHEN":PRINT"FUER  'Z[158]EICH";
9775 PRINT"NEN[153]'  UND  'L[158]OESCHEN[153]'!":PRINTTAB(5)"[158] RECHTECKE [146][155] ZEICH";
9776 PRINT"NEN/LOESCHEN":PRINT"[152]ERST MIT DEM 'JOYSTICK-CURSOR' DIE"
9777 PRINT"RECHT-ECKE  OBEN  LINKS  ANFAHREN!":PRINT"[155]<[158]O[155]>   MARKIE";
9778 PRINT"RT  DIE  OBERE  ECKE":GOTO9891
9781 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 8---
9782 PRINT"[152]NUN DIE  DIAGONALE UNTEN ANSTEUERN":PRINT"[155]<[158]U[155]>   MAR";
9783 PRINT"KIERT  DIE  ECKE  UNTEN":PRINT"[155]MIT DEN TASTEN <Z> ODER <L> ";
9784 PRINT"WIEDER":PRINT"DIE FIGUR  ZEICHNEN ODER LOESCHEN!"
9785 PRINTTAB(8)"[158] KREISE [146][155] ODER [158] ELLIPSEN [146]":PRINT"[152]DEN 'JOYSTICK-";
9786 PRINT"CURSOR' JEWEILS ERST":PRINT"IN POSITION BRINGEN UND MIT TASTEN"
9787 PRINT"[155]<[158]M[155]>   [152]FUER  [155]MITTELPUNKT":PRINT"[155]<[158]H[155]>   [152]FUER  [155]HORI";
9788 PRINT"ZONTALEN  RADIUS":PRINT"[155]<[158]V[155]>   [152]FUER  [155]VERTIKALEN RADIUS"
9789 PRINT"[155]EINZELNE MARKIERUNGSPUNKTE SETZEN!":GOTO9891
9791 GOSUB9002:GOSUB9012:REM ---HILFE SEITE 9---
9792 PRINT"[152]NUN DIE BOGENGRADE FESTLEGEN DURCH":PRINTTAB(8)"[155]DRUECKEN DE";
9793 PRINT"R TASTE   <[158]G[155]>":PRINT"[152]ES WIRD  EIN BILDSCHIRM GEOEFFNET,"
9794 PRINT"MIT DEM DIE GRADE DES ZU ZEICHNEN-":PRINT"DEN KREISBOGENS FE";
9795 PRINT"STZULEGEN SIND.":PRINT"DER  [155]KREISBOGEN BEGINNT RECHTS[152] MIT"
9796 PRINT"DEM GRAD 1, FUEHRT DANN NACH UNTEN":PRINT"UEBER DEN  GRAD 90";
9797 PRINT"  NACH LINKS ZUM":PRINT"GRAD  180  UND VON DORT  NACH OBEN"    "
9798 [153]"UEBER GRAD 270  WIEDER NACH RECHTS":[153]"ZU GRAD 360,  WOMI";
9799 [153]"T EIN  KREIS GE-":[153]"SCHLOSSEN WIRD.":[153]"AUCH TEILE VO";
9800 [153]"N KREISBOEGEN KOENNEN":[153]"GEZEICHNET WERDEN.":[137]9891
9801 [141]9002:[141]9012:[143] ---HILFE SEITE 10---
9802 [153]"PRINT#EIN HALBER KREISBOGEN LINKS FUEHRT":[153]"Z.B. EXAKT VON ";
9803 [153]"GRAD 90 ZU GRAD 270":[153]"NACH DEM FESTLEGEN  DER BOGENGRADE"
9804 [153]"MIT TASTE ZUR GRAFIK ZURUECKKEHREN":[153]"LISTAUCH ELLIPSEN OD";
9805 [153]"ER KREISBOGENTEILE":[153]"MIT <SYSZLIST> ZEICHNEN-MIT <SYSLLIST> LOESCHEN!"
9806 [153][163]7)"SYS EINZELHEITEN WAIT  LISTVERAENDERN":[153]"PRINT#ZU VERAENDERNDE";
9807 [153]"  EINZELHEITEN  SIND":[153][163]7)"DIE LISTRAHMENFARBE":[153]"PRINT#(D";
9808 [153]"IESE WIRD  GLEICHZEITIG  MIT DEN":[153]"BILD-DATEN  ABGESPEI";
9809 [153]"CHERT) UND -->":[137]9891
9811 [141]9002:[141]9012:[143] ---HILFE SEITE 11---
9812 [153][163]7)"PRINT#DIE LISTGRUND- UND PUNKTFARBEN":[153]"PRINT#(DIESE  SIND  IN EI";
9813 [153]"NEM  ALS  BILD-":[153]"SCHIRMSPEICHER  EXTRA  VERWENDETEN"
9814 [153]"SPEICHERTEIL FUER EINE 8X8 PUNKTE-":[153]"MATRIX GESONDERT ";
9815 [153]"ABGELEGT UND WER-":[153]"DEN EBENFALLS GLEICHZEITIG MIT DEN"
9816 [153]"BILD-DATEN ABGESPEICHERT)":[153]"LISTIM  ABFRAGE-BILDSCHIRM  ";
9817 [153]"WERDEN ALS":[153]"BISHERIGE  ALTE  FARBEN  IMMER DIE"
9818 [153]"GRUND- UND PUNKTFARBEN DES ZULETZT":[153]"MIT DEM 'JOYSTICK-";
9819 [153]"CURSOR' ANGEFAH-":[153]"RENEN 8X8-PUNKTE-FELDES ANGEZEIGT."
9820 [153]"NACH EINGABE DER GEWUENSCHTEN NEU-":[153]"FARBEN MIT TASTE ";
9821 [153]"WIEDER ZUR GRAFIK":[153]"ZURUECKGEHEN  UND HIER NUN MIT DEM"
9822 [137]9891
9823 [141]9002:[141]9012:[143] ---HILFE SEITE 12---
9824 [153]"LISTJOYSTICK ALLE EINZUFAERBENDEN 8X8-":[153]"PUNKTE-FELDER ";
9825 [153]"ANSTEUERN!":[153]"<SYSNLIST>  SETZT NEUE FARBEN  PRINT#UNDLIST"
9826 [153]"<SYSALIST>  BRINGT ALTE FARBEN":[153]"FUER GRUND UND PUNKTE";
9827 [153]" ZURUECK.":[153]"PRINTFUER DEN  WEITEREN UMGANG  MIT DEM"
9828 [153]"PROGRAMM KANN NUR  GERATEN WERDEN:":[153]"PRINT#UEBEN, LISTUEBEN ";
9829 [153]"PRINTUND NOCHMALS UEBENLIST...":[153]"DER VERFASSER STEHT FUER ALLE ";
9830 [153]"FRA-":[153]"GEN JEDERZEIT GERNE ZUR VERFUEGUNG":[137]9891    "
9891 GOSUB9122
9892 R$="":GETR$:IFR$=""THEN9891
9893 ON-(R$="V")-2*(R$="Z")-3*(R$="H")GOTO9898,9899,150:GOTO9892
9898 HS=HS+1:GOTO9702
9899 HS=HS-1:GOTO9702
9902 CLOSE15:OPEN15,8,15:INPUT#15,EN,EM$,ET,ES
9906 ON-(EN=0)-2*(EN=63)GOTO9936,9921
9912 PRINTTAB(9)"DISK-FEHLER NR: "EN
9914 PRINTTAB(9)" "EM$" [146]":GOSUB9102:GOTO9936
9921 C=1907:GOSUB61:PRINT"[153]DIE DATEI [158]"PR$:PRINTTAB(7)"[153]EXISTIERT BEREITS!"
9923 PRINTTAB(7)"[155]ERSETZEN?   <J[155]/N[155]>"
9924 R$="":GETR$:IFR$=""THEN9924
9925 ON-(R$="J")-2*(R$="N")GOTO9930,9936:GOTO9924
9930 PRINT#15,"S:"+PR$:L=1524:GOSUB68:C=1300:GOSUB61
9936 CLOSE15:RETURN
9994 L=2424:GOSUB68:C=2406:GOSUB61:PRINT"  NOCH NICHT PROGRAMMIERT!  [146][145][145][145][155]"
9996 FORI=0TO1500:NEXT:GOTO9106