1 REM *********************************
2 REM *                               *
3 REM *   3D-GRAFIK MITTELS HIRES-3   *
4 REM *                               *
5 REM *  HEIMO PONNATH  HAMBURG 1985  *
6 REM *                               *
7 REM * HIRES-3 MUSS IM SPEICHER SEIN *
8 REM *********************************
9 REM
10 REM ++ INITIALISIEREN DER GRAFIK ++
15 REM
20 POKE52,112:POKE56,112:SYS37498:GOTO60
25 REM
30 REM ++ UP  CURSOR SETZEN ++++++++++
35 REM
40 POKE211,SP:POKE214,ZL:SYS58640:RETURN
45 REM
50 REM +++ EINGABE DER 3D-FUNKTION ++++
55 REM
60 PRINTCHR$(147):SYS34647:POKE646,14:ZL=5:SP=5:GOSUB40
65 PRINT"FUNKTION IM PROGRAMM:"
70 K=1:GOSUB180:K=0
75 PRINT:PRINTTAB(3)"Y="F$:PRINT
80 PRINTTAB(5)CHR$(18)"A"CHR$(146)"LTE ODER "CHR$(18)"N"CHR$(146)"EUE FUNKTION?
85 [161]A$:[139]A$[179][177]"A"[175]A$[179][177]"N"[167]85
90 [139]A$[178]"A"[167]140
95 [153][199](147):SP[178]3:ZL[178]12:[141]40:[133]"Y=";F$:[151]646,6
100 [153][199](147)[199](17)[199](17)"180F$="[199](34)F$[199](34)
105 [153]"190DEFFNA(X)="F$
110 [153]"RUN140":[153][199](19);
115 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
120 [143]
125 [143] +++ NEUBEGINN DES PROGRAMMES ++
130 [143] +++    FALLS NEUE FUNKTION   ++
135 [143]
140 [153][199](147):[151]646,14
145 [143]
150 [143] +++ FUNKTIONEN UND VARIABLE +++
155 [143]
160 X[178]0:Z[178]0:SP[178]0:ZL[178]0:XU[178]0:XO[178]0:YU[178]0:YO[178]0:Z3[178]0:Z4[178]0:Z5[178]0:Z6[178]0:ZU[178]0:ZO[178]0
165 Z1[178]0:Z2[178]0:F1[178]1:F2[178]6:A[178]1:XA[178]0:XE[178]0:ZA[178]0:ZE[178]0:DZ[178]1:XT[178]0:XH[178]0:YT[178]0:YH[178]0:ZZ[178]1
170 [143]
175 A$[178]""
180 F$[178]"SIN(X)*SIN(Z)"
185 [143]
190 [150][165]A(X)[178][191](X)[172][191](Z)
195 [150][165]Z(Z)[178]Z[173](2[172][186](2))
200 [139]K[178]1[167][142]
205 [143]
210 [143] ++ EINGABE KOORDINATENSYSTEM ++
215 [143]
220 SP[178]1:ZL[178]3:[141]40
225 [153][199](18)"UNSER SYSTEM    :"[199](146):SP[178]7:ZL[178]5:[141]40
230 [133]"XU,XO=";XU,XO:ZL[178]6:[141]40:[133]"YU,YO=";YU,YO:SP[178]9:ZL[178]8:[141]40
235 Z3[178]2[172]XO[172][186](2):Z4[178]2[172]YO[172][186](2):[139]Z3[179]Z4[167][153]"ZO MAXIMAL="Z3:[137]245
240 [153]"ZO MAXIMAL="Z4
245 SP[178]9:ZL[178]10:[141]40
250 Z5[178]2[172]XU[172][186](2):Z6[178]2[172]YU[172][186](2):[139]Z5[177]Z6[167][153]"ZU MINIMAL="Z5:[137]260
255 [153]"ZU MINIMAL="Z6
260 SP[178]7:ZL[178]12:[141]40:[133]"ZU,ZO=";ZU,ZO:Z1[178][165]Z(ZO):Z2[178][165]Z(ZU)
265 [139]Z1[177]XO[176]Z1[177]YO[167]235
270 [139]Z2[179]XU[176]Z2[179]YU[167]235
275 [143]
280 [143] +++ EINGABE ZEICHENPARAMETER ++
285 [143]
290 ZL[178]14:SP[178]1:[141]40:[153][199](18)"UNSERE ZEICHNUNG:"[199](146)
295 ZL[178]16:SP[178]3:[141]40:[133]"ZEICHEN- UND HINTERGRUNDFARBE=";F1,F2
300 ZL[178]18:SP[178]7:[141]40:[133]"SCHRITTWEITE VON Z=";A
305 ZL[178]20:[141]40:[133]"X-BEREICH XA,XE=";XA,XE
310 ZL[178]21:[141]40:[133]"Z-BEREICH ZA,ZE=";ZA,ZE
315 [143]
320 [143] +++       ZEICHNEN        +++
325 [143]
330 DZ[178]A[173]2:XT[178]XU:XH[178]XO:YT[178]YU:YH[178]YO
335 HFL,F1,F2:TRS,XU,XO,YU,YO
340 [143]
345 [143] ----- KOORDINATENKREUZ ------
350 [143]
355 TLN,XU,0,XO,0:TLN,0,YU,0,YO:TLN,Z2,Z2,Z1,Z1
360 [143]
365 [143] -----    Z-SCHLEIFE    ------
370 [143]
375 [129]Z[178]ZA[164]ZE[169]DZ:ZZ[178][165]Z(DZ):XT[178]XT[171]ZZ:XH[178]XH[171]ZZ:YT[178]YT[171]ZZ:YH[178]YH[171]ZZ
380 TRS,XT,XH,YT,YH
385 FUNKT,A,XA,XE
390 [130]Z
395 TEX,"Y="[170]F$,0,3
400 [143]
405 [143] ----- ZEICHNUNG FERTIG ------
410 [143]
415 [161]A$:[139]A$[178]""[167]415
420 HOF
425 [143]
430 [143] +++++     MENUE        ++++++
435 [143]
440 ZL[178]23:SP[178]1:[141]40
445 [153][199](18)"E"[199](146)"NDE    "[199](18)"G"[199](146)"RAFIK"
450 ZL[178]23:SP[178]18:[141]40
455 [153][199](18)"N"[199](146)"EU     "[199](18)"D"[199](146)"RUCKEN"
460 [161]A$:[139]A$[179][177]"E"[175]A$[179][177]"G"[175]A$[179][177]"N"[175]A$[179][177]"D"[167]460
465 [143]
470 [143] -------- OPTION GRAFIK -------
475 [143]
480 [139]A$[178]"G"[167]:HAN:[151]198,0:[146]198,1:HOF:[137]460
485 [143]
490 [143] -------- OPTION DRUCKEN ------
495 [143]
500 [139]A$[178]"D"[167]:HAN:[159]1,4,10:[152]1:[160]1:[158]34865:HOF
505 [139]A$[178]"D"[167][159]1,4:[152]1:[152]1,"XU="XU,"XO="XO,"YU="YU,"YO="YO
510 [139]A$[178]"D"[167][152]1,"ZU="ZU,"ZO="ZO,"A="A
515 [139]A$[178]"D"[167][152]1,"XA="XA,"XE="XE,"ZA="ZA,"ZE="ZE:[152]1:[160]1:[137]460
520 [143]
525 [143] --- OPTION NEUE ZEICHNUNG ----
530 [143]
535 [139]A$[178]"N"[167][138]
540 [143]
545 [143] ---  OPTION PROGRAMMENDE  ----
550 [143]
555 [128]
560 [143] ********* DAS WARS ! **********