home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh47a.d64
/
parapol
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
15KB
|
605 lines
5 REM ********PARAPOL******************
10 REM FUNKTIONEN IN PARAMETER-BZW.- *
12 REM POLARKOORDINATENDARSTELLUNG *
14 REM ZEICHNEN UND AUSDRUCKEN *
16 REM GRAFIK MIT GR2001 *
18 REM *
20 REM DIETHER GNILKA *
22 REM NELKENSTR.7 *
24 REM 8120 WEILHEIM *
26 REM 28.7.1989 *
28 REM *
30 REM ********************************
32 POKE 53280,13:POKE 53281,0
36 :
38 PRINT"[147] [158]GR2001 GELADEN ? <J/N> ?"
40 GET L$:IF L$="N" THEN 46
42 IF L$<>"J" THEN 40
44 GOTO 70
46 PRINT" MIT <RUN/STOP>[158] PRG. BEENDEN !"
48 PRINT" GR2001,8 LADEN ![158]"
50 PRINT" POKE 12481,133:POKE12482,48[158]
52 [153]" EINGEBEN, DANN 'RUNSYS'"
54 [153]" UND 'PARAPOL,8' LADEN U.STARTEN !SYS"
56 [153]" <TASTE>CLOSE!SYS"
58 [146] 198,1: [161]A$
60 :
65 [143] EINGANGSGRAFIK
70 [151] 53280,8
75 [153]"LOAD"
80 A[178]1024:B[178]55296:C[178]1984:D[178]56256
82 [129] I[178]0 [164] 39:[151]A[170]I,42:[151]B[170]I,4:[130]
84 [129] I[178]0 [164] 39:[151]C[170]I,42:[151]D[170]I,4:[130]
86 [129] I[178]1 [164] 23:[151]A[170]40[172]I,42:[151]B[170]40[172]I,4:[130]
88 [129] I[178]1 [164] 22:[151]A[170]39[170]40[172]I,42:[151]B[170]39[170]40[172]I,4:[130]
90 [153]"ZEICHNEN UND DRUCKEN VON FUNKTIONEN"
92 [153]"IN PARAMETERDARSTELLUNG"
94 [153]"ODER"
96 [153]"POLARKOORDINATENFORM"
98 [129] W[178]1 [164] 1000:[130]
100 [151]781,18:[151]782,11:[158]65520
102 [153]"D.GNILKA WEILHEIM"
104 [151]781,20:[151]782,18:[158]65520
106 [153]"DEFTASTE !SYS"
108 [151] 1983,42:[151] 56255,4
112 [209] 0
115 [146] 198,1: [161] A$
116 :
118 [151] 53280,3
120 [153]"LOADES WERDEN FUNKTIONEN, DIE IN PARAMETER-SYS"
125 [153]" ODER POLARKOORDINATENDARSTELLUNG SYS"
130 [153]" GEGEBEN SIND, GEZEICHNET."
135 [153]"TYP 1: PARAMETERDARSTELLUNG X(T), Y(T)SYS"
140 [153]" MIT ARGUMENT T,WOBEI T1..T..T2"
145 [153]" IM BOGENMASS EINZUSETZEN IST."
150 [153]"TYP 2: POLARKOORDINATENDARSTELLUNG R(W)SYS"
155 [153]" MIT ARGUMENT W,WOBEI W1..W..W2"
160 [153]" IM BOGENMASS EINZUSETZEN IST."
165 [153]" ES KANN AUCH EIN ZWEITER PARAMETER K"
170 [153]" ALS FORMVARIABLESYS GENOMMEN WERDEN."
175 [153]" NACH ZEICHNEN AUSGABE AUF DRUCKERSYS"
177 [153]" MOEGLICH."
180 [153]" DEFAUSWAHL: <TASTE> !SYS"
185 [209] 0
190 [146] 198,1: [161] A$
192 :
195 [141] 4000: [143] FEHLERROUTINE EINLESEN
200 [143]************MENUE**************
205 [206] 0
207 [151] 53280,5: [143] RAHMEN GRUEN
208 [151] 53281,0: [143] HINTERGRD.SCHWARZ
210 [153]"LOADSYS ************ DEFMENUESYS *****************"
220 [153]" <1SYS> FUNKTIONEN IN PARAMETERFORM"
225 [153]" DEFINIEREN UND ZEICHNEN"
230 [153]" <2SYS> FUNKTION IN POLARKOORDINATEN"
235 [153]" DEFINIEREN UND ZEICHNEN"
245 [153]" <3SYS> GRAFIK ANSEHEN"
248 [153]" <4SYS> GRAFIK LOESCHENSYS
250 PRINT" <5[158]> PARAM.(X0;Y0,T,W,K) AENDERN"
255 PRINT" <6[158]> DRUCKER-HARDCOPY"
257 PRINT" <7[158]> GRAFIK SAVE/LOAD"
258 PRINT" <8[158]> DIRECTORY LESEN"
260 PRINT" <9[158]> ENDE ?"
265 PRINT" FUNKTIONEN AENDERN MIT <1[158]> ODER <2[158]> !"
268 PRINT" [150]BITTE WAEHLEN ![158]"
269 (null) 0
270 POKE 198,0:WAIT 198,1:GET A$
280 IFA$<"1"OR A$>"9" THEN 270
285 A=VAL(A$)
290 ON A GOTO 400,800,4500,5000,1200,3200,5700,6100,3500
295 GOTO 270
300 PRINT"[147]MIT PARAMETER K[158] ? <J/N[158]>"
310 GET P$: IF P$="N" THEN 340
320 IF P$<>"J" THEN 310
330 Q=1:POKE856,1:GOTO 350 :REM MIT PARAMETER
340 Q=0:POKE 856,0:REM OHNE PARAMETER
350 RETURN
380 :
390 REM FUNKTIONEN X(T),Y(T) DEFINIEREN
400 REM *******************************
401 POKE 53280,4
402 M%=0:POKE 854,0:REM NEUE FUNKT.EINGEGEBEN
403 P=1: REM TYP 1 PARAMETERFORM
404 POKE 852,1:REM RETTEN IN ZP
405 GOSUB 300: REM MIT PARAMETER K
410 PRINT"[147]BITTE FUNKTIONSTERM X(T)[158] EINGEBEN:"
420 PRINT"IN UEBLICHER BASIC-SYNTAX[158]!"
425 GOSUB 3900
430 PRINT:PRINT
440 INPUT"X(T)=";XT$
450 PRINT"[147]"
460 PRINT"490XT$="CHR$(34)XT$CHR$(34)"
462 [153]"740XT$="[199](34)XT$[199](34)"
465 PRINT"2490XT$="CHR$(34)XT$CHR$(34)"
470 [153]"2340X="XT$:[153]"GOTO490"
480 [151] 631,19:[129] I[178]632 [164] 637:[151] I,13:[130]:[151] 198,6:[128]
490 XT$[178]"150*SIN(K)*COS(T)"
500 [153]"LOADX(T)=SYS"XT$
510 [153]"RICHTIG EINGEGEBEN ? <J/NSYS>"
520 [161] E$:[139] E$[178]"N" [167] 430
530 [139] E$[179][177]"J" [167] 520
540 [153]
550 :
590 [143] Y(T) EINGEBEN
600 [143] *************
605 [209] 0
610 [153]"LOADBITTE FUNKTIONSTERM Y(T)SYS EINGEBEN:"
620 [153]"IN UEBLICHER BASIC-SYNTAXSYS!"
625 [141] 3900
630 [153]:[153]
640 [133]"Y(T)=";YT$
650 [153]"LOAD"
660 [153]"690YT$="[199](34)YT$[199](34)"
665 PRINT"2495YT$="CHR$(34)YT$CHR$(34)"
670 [153]"2350Y="YT$:[153]"GOTO690"
680 [151] 631,19:[129] I[178]632 [164] 636:[151] I,13:[130]:[151] 198,5:[128]
690 YT$[178]"88*COS(K)*SIN(2*T)"
700 [153]"LOADY(T)=SYS"YT$
710 [153]"RICHTIG EINGEGEBEN ? <J/NSYS>"
720 [161] E$:[139] E$[178]"N" [167] 630
730 [139] E$[179][177]"J" [167] 720
740 XT$[178]"150*SIN(K)*COS(T)"
750 [153]"LOADX(T)="XT$
760 [153]"Y(T)="YT$
770 [153]"WEITER:<TASTESYS>, MENUE:<_SYS>"
775 [141] 3700
780 [137] 1202: [143] ACHSEN,PARAMETER
790 :
795 [143] FUNKTION R(W) DEFINIEREN
800 [143] ************************
801 [151] 53280,4
802 M%[178]0:[151] 854,0:[143] NEUE FUNKT.EINGEGEBEN
803 P[178]2 : [143] TYP 2 POLARK.
804 [151] 852,2
805 [141] 300: [143] MIT PARAMETER K
807 [209] 0
810 [153]"LOADBITTE FUNKTIONSTERM R(W)SYS EINGEBEN:"
820 [153]"IN UEBLICHER BASIC-SYNTAXSYS!"
825 [141] 3900
830 [153]:[153]
840 [133]"R(W)=";RW$
850 [153]"LOAD"
860 [153]"890RW$="[199](34)RW$[199](34)"
865 PRINT"2840RW$="CHR$(34)RW$CHR$(34)"
870 [153]"2670R="RW$:[153]"GOTO890"
880 [151] 631,19:[129] I[178]632 [164] 636:[151] I,13:[130]:[151] 198,5:[128]
890 RW$[178]"K*W"
900 [153]"LOADR(W)=SYS"RW$
910 [153]"RICHTIG EINGEGEBEN ? <J/NSYS>"
920 [161] E$:[139] E$[178]"N" [167] 830
930 [139] E$[179][177]"J" [167] 920
940 [153]"LOADR(W)="RW$
950 [153]"WEITER:<TASTESYS>, MENUE:<_SYS>"
960 [141] 3700
970 [137] 1202
1180 :
1190 [143] FESTLEGEN DER ACHSEN
1200 [143] ********************
1201 [137] 5500
1202 [151] 53280,8
1205 [209] 0
1210 [153]"LOADPOSITION DER KOORDINATENACHSENSYS"
1220 [153]"DURCH DRUECKEN VON <F1SYS> KOENNEN NACH"
1230 [153]"ZEICHNUNG DER FUNKTION DIE ACHSEN GE-"
1240 [153]"LOESCHTSYS OD. DURCH <F3SYS> ERNEUERTSYS WERDEN !"
1250 [153]"ACHSEN BEIM 1.LAUF UNBEDINGT FESTLEGEN SYS!"
1260 X0[178][194](832):Y0[178][194](836):N%[178][194](834)
1262 [139] N%[178]1 [167] X0[178]X0[172]8
1265 [153]"SOLL DIE ACHSENLAGE NEU FESTGELEGT"
1270 [153]"WERDEN ?"
1275 [153]"ALTE WERTE: X0="X0,"Y0="Y0
1277 [153]" SYSEINGABE <J/NSYS> !"
1280 [161]B$:[139]B$[178]"N" [167] 1400
1290 [139] B$[179][177]"J" [167] 1280
1295 [153]"NULLPUNKT O(X0;Y0)SYS
1297 PRINT" O IN DER MITTE: O(150;90)[158]"
1300 PRINT"X-WERT D. NULLPUNKTS[158]: 0<X0<=300"
1305 N%=0:REM MARKE,WENN X0<256
1307 POKE 834,0
1310 INPUT"X0=";X0
1312 IF X0<=0 OR X0>300 THEN (null) 0:GOTO 1300
1315 IF X0>255 THEN X0=INT(X0/8):N%=1:POKE 834,1
1320 POKE 832,X0
1330 PRINT"Y-WERT D. NULLPUNKTS[158]: 0<Y0<=180"
1340 INPUT"Y0=";Y0
1345 IF Y0<=0 OR Y0>180 THEN (null) 0:GOTO 1330
1350 POKE 836,Y0
1355 IF N%=1 THEN PRINT"X0="X0*8,"Y0="Y0 :GOTO 1365
1360 PRINT"X0="X0,"Y0="Y0
1365 GOSUB 3800
1370 GOSUB 3700
1375 IF M$="^" THEN PRINT"[147]": GOTO 1260
1380 GOTO 1400
1385 :
1390 REM EINGABE T1,T2 (PARAMETER K)
1395 REM ***************************
1400 P=PEEK(852):POKE 53280,9
1408 IF P=2 THEN 1600
1409 (null) 0
1410 M%=PEEK(854):REM NACH NEUEINGABE D.FUNKT. M%=0,SONST 1
1412 IF M%=0 THEN PRINT"[147]":GOTO 1425
1415 PRINT "[147]ALTE WERTE:"
1420 PRINT"T1="T1;" T2="T2
1425 PRINT"ANFANGS-UND ENDWERT FUER T[158]:"
1430 PRINT"T IM BOGENMASS [158]!"
1435 INPUT "T1=[158]";T1
1440 INPUT "T2=[158]";T2
1442 IF T1>T2 THEN PRINT"T1>T2 !!"
1444 PRINT"RECHT SO ? <J/N>"
1445 GET A$:IF A$="J" THEN 1460
1446 IF A$<>"N" THEN 1445
1450 GOTO 1430
1455 :
1460 Q=PEEK(856):REM MIT PARAMETER K
1465 IF Q=0 THEN 2000
1468 M%=PEEK(854)
1470 IF M%=0 THEN 1480
1474 PRINT"ALTE WERTE:"
1476 PRINT"KA="KA;"KE="KE;"S="S
1480 INPUT"ANFANGSWERT KA=[158]";KA
1490 INPUT"ENDWERT KE=[158]";KE
1492 IF KA>KE THEN PRINT"KA>KE !!"
1494 PRINT"RECHT SO ? <J/N>"
1495 GET A$:IF A$="J" THEN 1500
1496 IF A$<>"N" THEN 1495
1498 GOTO 1480
1500 INPUT"SCHRITTWEITE S =[158]";S
1501 IF S=0 THEN PRINT"S DARF NICHT NULL SEIN ![158]":GOTO 1500
1502 PRINT"RECHT SO ? <J/N>"
1503 GET A$:IF A$="J" THEN 1506
1504 IF A$<>"N" THEN 1503
1505 GOTO 1500
1506 IFKA<KE AND S<0 THEN S=-S:GOTO1510
1508 IFKA>KE AND S>0 THEN S=-S
1510 GOTO 2000
1570 :
1580 REM EINGABE W1,W2 (PARAMETER K)
1590 REM ***************************
1600 POKE 53280,9
1601 (null) 0
1602 M%=PEEK(854)
1603 IF M%=0 THEN PRINT"[147]":GOTO 1610
1604 PRINT"[147]ALTE WERTE :"
1606 PRINT"W1="W1;"W2="W2
1610 PRINT"ANFANGS-UND ENDWERT FUER W[158]:"
1615 PRINT"W IM BOGENMASS[158]"
1620 INPUT "W1=[158]";W1
1630 INPUT "W2=[158]";W2
1632 IF W1>W2 THEN PRINT"W1>W2 !!"
1634 PRINT"RECHT SO ? <J/N>"
1635 GET A$:IF A$="J" THEN 1790
1636 IF A$<>"N" THEN 1635
1638 GOTO 1620
1640 :
1790 REM EINGABE KA,KE,S
1800 (null) 0
1805 Q=PEEK(856):REM MIT PARAMETER K
1810 IF Q=1 THEN 1460: REM MIT K
1970 :
1980 REM GRAPHIK
1990 REM *******
2000 PRINT"BILDSCHIRM LOESCHEN[158] !"
2010 PRINT"BEIM 1.LAUF UNBEDINGT ERFORDERLICH [158]!"
2020 PRINT"SOLL DER BILDSCHIRM GELOESCHT"
2030 PRINT"WERDEN ? <J/N[158]>"
2040 GET C$: IF C$="N" THEN 2050
2045 IF C$<>"J" THEN 2040
2050 PRINT"SOLLEN DIE ACHSEN GEZEICHNET[158]"
2055 PRINT"WERDEN ? <J/N[158]>"
2060 GET K$:IF K$="N" THEN 2070
2065 IF K$<>"J" THEN 2060
2070 (null) 1: REM GRAFIK-EIN
2080 (null) 1,0: REM ZEICHENFARBE WEISS
2090 REM HINTERGRUND SCHWARZ
2095 POKE 53280,2: REM RAHMEN ROT
2100 IF C$="N" THEN 2120
2110 (null) : REM LOESCHEN GRAF.SCHIRM
2115 :
2120 P=PEEK(852)
2130 (null) 1,0,0,319,199
2140 IF K$="N" AND P=1 THEN 2300
2150 IF K$="N" AND P=2 THEN 2600
2160 GOSUB 2200: REM ACHSEN ZEICHNEN
2170 IF P=1 THEN 2300
2180 GOTO 2600
2190 :
2194 REM ACHSEN ZEICHNEN
2196 REM ***************
2200 X0=PEEK(832):Y0=PEEK(836):N%=PEEK(834)
2205 IF N%=1 THEN X0=X0*8
2210 XA$="X": REM X-ACHSE
2220 (null) 0,1,Y0,300,Y0
2230 (null) 0,1,1,1,0,8,290,Y0+2,XA$
2240 YA$="Y": REM Y-ACHSE
2250 (null) 0,X0,1,X0,180
2260 (null) 0,1,1,1,0,8,X0+1,1,YA$
2270 RETURN
2280 :
2290 REM PLOTTEN X(T), Y(T)
2295 REM ******************
2300 GOSUB 4110: REM FEHLERR. EIN
2302 X0=PEEK(832):Y0=PEEK(836):N%=PEEK(834)
2303 IF N%=1 THEN X0=X0*8
2304 M%=PEEK(854)
2305 IF K$="N" AND M%=1 THEN GOSUB 3100
2306 GOSUB 2460: REM GRAFIK BESCHRIFTEN
2308 IF Q=0 THEN 2320
2310 FOR K=KA TO KE STEP S
2320 PL%=1: REM PLOTFLAG F.AUSSERHALB
2325 DT=6.2832/360
2327 IF T1>T2 THEN DT=-DT
2330 FOR T=T1-DT TO T2 STEP DT
2335 GET H$:IF H$=CHR$(95) THEN 2900
2340 X=150*SIN(K)*COS(T)
2350 Y=88*COS(K)*SIN(2*T)
2360 X2=INT(X+X0)
2370 IF X2<0 OR X2>300 THEN PL%=1:NEXT T:GOTO 2440
2380 Y2=Y0-Y
2390 IF T=T1 THEN 2430
2400 IF Y2<0 OR Y2>180 THEN PL%=1:NEXT T:GOTO 2440
2410 IF PL%=0 THEN (null) 0,X1,Y1,X2,Y2
2420 PL%=0
2430 X1=X2: Y1=Y2: NEXT T
2440 IF Q=0 THEN 2900
2450 NEXT K
2452 GOTO 2900
2455 :
2456 REM GRAFIK BESCHRIFTEN (PAR.DARST)
2457 REM ******************
2458 REM ZUERST ALTE DATEN LOESCHEN
2460 TL$=" [146]"
2462 KL$=" [146]"
2466 XL$=" [146]"
2468 YL$=" [146]"
2470 (null) 1,4,1,1,0,8,318,1,TL$
2472 (null) 1,4,1,1,0,8,310,1,KL$
2474 (null) 1,1,1,1,0,8,1,182,XL$
2476 (null) 1,1,1,1,0,8,1,191,YL$
2478 IF L$=CHR$(135) THEN RETURN
2480 T1$=STR$(T1):T2$=STR$(T2)
2482 T$="T1="+T1$+";"+"T2="+T2$
2490 XT$="150*SIN(K)*COS(T)"
2495 YT$="88*COS(K)*SIN(2*T)"
2500 (null) 0,4,1,1,0,8,318,1,T$
2510 (null) 0,1,1,1,0,8,1,182,"X(T)="+XT$
2520 (null) 0,1,1,1,0,8,1,191,"Y(T)="+YT$
2522 IF Q=0 THEN 2540
2525 KA$=STR$(KA):KE$=STR$(KE):S$=STR$(S)
2527 K$="KA="+KA$+";"+"KE="+KE$+";"+"S="+S$
2530 (null) 0,4,1,1,0,8,310,1,K$
2540 RETURN
2560 GOTO 2900: REM ZUM TEXT
2590 :
2600 REM PLOTTEN R(W)
2610 REM ************
2614 GOSUB 4110: REM FEHLERR. EIN
2615 X0=PEEK(832):Y0=PEEK(836):N%=PEEK(834)
2616 IF N%=1 THEN X0=X0*8
2617 M%=PEEK(854)
2620 IF K$="N" AND M%=1 THEN GOSUB 3100
2625 GOSUB 2800: REM GRAFIK BESCHRIFTEN
2627 Q=PEEK(856)
2630 IF Q=0 THEN 2650
2640 FOR K=KA TO KE STEP S
2650 PL%=1: REM PLOTFLAG F.AUSSERHALB
2655 DW=6.2832/360
2656 IF W1>W2 THEN DW=-DW
2660 FOR W=W1-DW TO W2 STEP DW
2665 GETH$:IFH$=CHR$(95)THEN2900
2670 R=K*W
2680 XR=R*COS(W)
2690 YR=R*SIN(W)
2700 X=INT(XR+X0)
2710 IF X<0 OR X>300 THEN PL%=1:NEXT W:GOTO 2780
2720 Y=Y0-YR
2730 IF W=W1 THEN 2770
2740 IF Y<0 OR Y>190 THEN PL%=1:NEXT W:GOTO 2780
2750 IF PL%=0 THEN (null) 0,X1,Y1,X,Y
2760 PL%=0
2770 X1=X:Y1=Y:NEXT W
2780 IF Q=0 THEN 2900
2790 NEXT K
2792 GOTO 2900
2795 :
2800 REM GRAFIK BESCHRIFTEN (POLARK.D)
2801 REM ******************
2802 REM ZUERST ALTE DATEN LOESCHEN
2804 WL$=" [146]"
2806 KL$=" [146]"
2808 XL$=" [146]"
2810 RL$=" [146]"
2812 (null) 1,4,1,1,0,8,318,1,WL$
2814 (null) 1,4,1,1,0,8,310,1,KL$
2816 (null) 1,1,1,1,0,8,1,182,XL$
2818 (null) 1,1,1,1,0,8,1,191,RL$
2819 IF L$=CHR$(135) THEN RETURN
2820 W1$=STR$(W1):W2$=STR$(W2)
2825 W$="W1="+W1$+";"+"W2="+W2$
2835 (null) 0,4,1,1,0,8,318,1,W$
2840 RW$="K*W"
2845 (null) 0,1,1,1,0,8,1,191,"R(W)="+RW$
2850 IF Q=0 THEN 2870
2855 KA$=STR$(KA):KE$=STR$(KE):S$=STR$(S)
2860 K$="KA="+KA$+";"+"KE="+KE$+";"+"S="+S$
2865 (null) 0,4,1,1,0,8,310,1,K$
2870 RETURN
2878 :
2880 REM GRAFIK FERTIG -> MENUE
2890 REM **********************
2900 GOSUB 4120: REM FEHLERR. AUS
2905 (null) 0,0,0,301,181
2910 M%=1: REM FUNKTION GEZEICHNET
2912 POKE 854,1
2915 (null) 0
2920 WAIT 198,1: GET A$
2930 GOTO 200: REM MENUE
3080 :
3090 REM ACHSEN LOESCHEN
3095 REM ***************
3100 X0=PEEK(832):Y0=PEEK(836):N%=PEEK(834)
3105 IF N%=1 THEN X0=X0*8
3110 XA$="X"
3120 (null) 1,1,Y0,300,Y0
3130 (null) 1,1,1,1,0,8,290,Y0+2,XA$
3140 YA$="Y"
3150 (null) 1,X0,1,X0,180
3160 (null) 1,1,1,1,0,8,X0+1,1,YA$
3170 RETURN
3180 :
3190 REM DRUCKEN
3195 REM *******
3200 POKE 53280,2
3210 GOTO 5600
3220 PRINT"[147]DRUCKEN MIT DOPPELTER VERGROESSERUNG IN"
3230 PRINT"X-RICHTUNG VG=1"
3235 PRINT"Y-RICHTUNG VG=2"
3240 PRINT"X- UND Y-RICHTUNG VG=3"
3245 PRINT"OHNE VERGROESSERUNG VG=0"
3250 PRINT"NACH DEM DRUCKEN IST VG=0"
3255 PRINT
3260 INPUT" VG=";VG
3270 OPEN 4,4
3280 (null) 1
3290 (null) VG
3300 CLOSE4
3310 VG=0
3320 GOTO 200 : REM MENUE
3470 :
3480 REM BEENDEN
3490 REM *******
3500 POKE 53280,11:POKE 53281,6
3505 PRINT"[147]AUFHOEREN MIT PARAPOL ? <J/N[158]>"
3510 GETA$:IFA$="N" THEN 200:REM MENUE
3520 IF A$<>"J" THEN 3510
3530 GOTO 3600:REM GRA1 AUFRUFEN/ENDE
3540 PRINT"[147]DANKE U. AUF WIEDERSEHEN !"
3550 END
3600 PRINT"GRA1 AUFRUFEN[158] UND MIT ANDEREM GR2001-[158]"
3610 PRINT"PROGRAMM[158] WEITERARBEITEN ? <J/N[158]>"
3620 GET GR$:IF GR$="N"THEN 3540
3630 IF GR$<>"J" THEN 3620
3640 PRINT"[147][158][147]:L[207]";CHR$(34);"GRA1";CHR$(34);",8":PRINT"R[213]"
3650 POKE 631,19:FORI=0TO2:POKE632+I,13:NEXT:POKE198,4:END
3670 :
3680 REM RUECKSPRUNG ZUM MENUE
3690 REM *********************
3700 GETM$:IF M$="" THEN 3700
3710 IF M$="_" THEN 200
3720 RETURN
3790 :
3800 PRINT"[158]WEITER: <TASTE[158]>, NEUEINGABE: <^[158]>, MENUE: <_[158]>"
3810 RETURN
3880 :
3890 REM HINWEIS AUF PARAMETER K
3895 REM ***********************
3900 Q=PEEK(856)
3910 IF Q=1 THEN PRINT"MIT[158] PARAMETER K !": GOTO 3930
3920 PRINT"OHNE[158] PARAMETER K !"
3930 RETURN
3990 :
4000 REM FEHLERROUTINE HERSTELLEN
4005 REM ************************
4010 FORI=860 TO 868:READX:POKEI,X:NEXT
4020 DATA 138,48,3,76,59,169,76,116,164
4030 RETURN
4100 REM FEHLERROUTINE EIN/AUS
4110 POKE 768,92:POKE 769,03 :RETURN
4120 POKE 768,139:POKE 769,227:RETURN
4140 :
4480 REM HINWEISE ZU <F1>,<F3>,<F5> UND <F7>
4490 REM *************************
4500 (null) 1:VA=(null)(0,0)
4504 IF VA=1 THEN 4508
4506 GOTO 5520
4508 (null) 0
4510 PRINT"[147]MIT <F1[158]> WERDEN DIE ACHSEN GELOESCHT[158],"
4515 PRINT"MIT <F3[158]> WIEDER GEZEICHNET[158]!"
4520 PRINT"MIT <F5[158]> WIRD D. BESCHRIFTUNG GELOESCHT[158],"
4525 PRINT"MIT <F7[158]> WIEDER GESCHRIEBEN!"
4530 PRINT"<TASTE[158]> !"
4540 PRINT"DANN ZUM MENUE[158] MIT <TASTE[158]>[160]!"
4545 P=PEEK(852)
4550 WAIT 198,1: GET A$
4560 (null) 1: (null) 1,0
4570 GET L$: IF L$="" THEN 4570
4580 IF L$=CHR$(133) THEN GOSUB 3100:GOTO 4570: REM <F1>
4590 IF L$=CHR$(134) THEN GOSUB 2200:GOTO 4570: REM <F3>
4600 IF L$=CHR$(135) AND P=1 THEN GOSUB 2460:GOTO 4570: REM <F5>
4610 IF L$=CHR$(135) AND P=2 THEN GOSUB 2800:GOTO 4570: REM <F5>
4620 IF L$=CHR$(136) AND P=1 THEN GOSUB 2460:GOTO 4570: REM <F7>
4630 IF L$=CHR$(136) AND P=2 THEN GOSUB 2800:GOTO 4570: REM <F7>
4640 GOTO 200 : REM MENUE
4990 :
5000 REM GRAFIK LOESCHEN
5010 REM ***************
5014 (null) 1:VA=(null)(0,0)
5015 IF VA=1 THEN 5020
5016 GOTO 5520
5020 (null) 0:(null) 0,1
5030 PRINT"[147]WIRKLICH LOESCHEN ? <J/N>"
5040 FOR I=0 TO 20 :POKE53280,1:NEXT
5050 FOR I=0 TO 20 :POKE53280,2:NEXT
5060 FOR I=0 TO 20 :POKE53280,5:NEXT
5070 FOR I=0 TO 20 :POKE53280,8:NEXT
5080 GET A$:IF A$="J" THEN 5110
5090 IF A$<>"N" THEN 5040
5100 GOTO 200
5110 (null) 1:(null)
5120 M%=0:POKE 854,0
5130 GOTO 200 : REM MENUE
5140 :
5480 REM TEST AUF GRAFIK-PARAM.AENDERN
5490 REM *****************************
5500 (null) 1:(null) 1,0:VA=(null)(0,0)
5510 IF VA=1 THEN (null) 0:GOTO 1202
5520 (null) 0
5530 PRINT"[147]NOCH KEINE GRAFIK DA !"
5540 FOR I=0 TO 500:NEXT
5550 GOTO 200: REM MENUE
5590 :
5600 REM TEST AUF GRAFIK-DRUCKEN
5610 REM ***********************
5620 (null) 1:VA=(null)(0,0)
5630 IF VA=1 THEN (null) 0:GOTO 3220:REM DRUCKEN
5640 GOTO 5520:REM KEINE GRAFIK-MENUE
5690 :
5700 REM GRAFIK SAVE/LOAD
5710 REM ****************
5720 (null) 0
5730 PRINT"[147]GRAFIK SAVE ODER LOAD ? <S/L> OD.<TASTE>"
5740 GETL$:IF L$=""THEN 5740
5750 IF L$="S" THEN 5800
5760 IF L$="L" THEN 5900
5770 GOTO 200
5790 :
5800 REM GRAFIK SPEICHERN
5810 REM ****************
5815 GOTO 6000
5820 (null) 0
5830 INPUT"BILDNAME ?";G$
5840 PRINT"[147][158][147]:MODE1:CHANGE:GSAVE";CHR$(34);G$;CHR$(34);",8:CHANGE"
5845 PRINT"R[213]200"
5850 POKE 631,19:FORI=0TO3:POKE632+I,13:NEXT:POKE198,5:END
5890 :
5900 REM GRAFIK LADEN
5910 REM ************
5920 INPUT"BILDNAME ?";G$
5930 PRINT"[147][158][147]:MODE1:GLOAD";CHR$(34);G$;CHR$(34);",8":PRINT"R[213]200"
5940 POKE 631,19:FORI=0TO3:POKE632+I,13:NEXT:POKE198,5:END
5990 :
6000 REM TEST AUF GRAFIK-SAVE
6010 REM ********************
6020 (null) 1:(null) 1,0:VA=(null)(0,0)
6030 IF VA=1 THEN 5820:REM SAVE
6040 GOTO 5520:REM KEINE GRAFIK DA
6090 :
6100 REM DIRECTORY LESEN
6110 REM ***************
6120 PRINT"[147]"
6130 (null)
6140 PRINT:PRINT
6150 PRINT" TASTE !"
6160 (null) 0
6170 WAIT 198,1: POKE 198,0
6180 GOTO 200