home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8711.d64
/
plo-demo64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
63 lines
1 GOTO90:REM SAVE"@0:PLO-DEMO64",8:REM P.KITTEL FFM 9.6.87
2 SYSP:RETURN:REM LINIE NACH (XX%,YY%)
3 SYSP+3:RETURN:REM PEN UP
6 SYSP+6:RETURN:REM PEN DOWN
9 SYSP+9:RETURN:REM PEN-STELLUNG WECHSELN
15 SYSP+15:RETURN:REM TEXT AUS ZZ$ HORIZ SCHREIBEN
18 SYSP+18:RETURN:REM TEXT AUS ZZ$ VERTIKAL SCHREIBEN
19 GOSUB37:OPEN1,4,1:PRINT#1,CHR$(12);:CLOSE1:REM FORMFEED ZUM NAECHSTEN BLATT
20 PRINT"[206]EUES [194]LATT, [206]ULLPUNKT EINGESTELLT.
21 [158]P[170]21:XX%[178]0:YY%[178]0:[142]:[143] NULLPUNKT FESTLEGEN
30 [151]P[170]30,CS:[142]:[143] CHARACTER-SIZE
31 [158]P[170]31:[142]:[143] KREISBOGEN GEGUHRSINN XX%=R, YY%=ANFOKT+8*ENDOKT
34 [158]P[170]34:[142]:[143] KREISBOGEN MITUHRSINN XX%=R, YY%=ANFOKT+8*ENDOKT
37 [158]P[170]37:[142]:[143] BUFFER LEEREN
40 [151]P[170]40,AS:[142]:[143] ASPEKTVERHAELTNIS FEST (132/80-1)*256=166 BEI FX
41 [151]P[170]41,AE:[142]:[143] FLAG FUER ASPEKT: LAHMGELEGT BEI =0
79 XX%[178]0:YY%[178]0:[141]37:[141]3:[137]2:[143] 'HOME'
80 [143] SKELETT FUER PLOTTER-TREIBERPROGRAMM
81 [143]
82 [143] AUFRUFE SOLLTEN NUR UEBER DIESE SUBROUTINEN ERFOLGEN
83 [143] RESERVIERTE VARIABLEN: P,XX%,YY%,ZZ$,W1,W3,WG,CS,AS,AE
84 [143] JE NACH ZEICHENGERAET/COMPUTER FOLGENDE ZEILEN ANPASSEN:
85 [143] 19,20,40,79,90,91,92
90 P[178]142[172]256:[139][194](P)[179][177]76[176][194](P[170]3)[179][177]76[167][151]56,142:[156]:[147]"FXPLOT12*",8,1
91 CS[178]4:[143] NORMALE CHARACTER-GROESSE
92 X9[178]750:Y9[178]959:[143] MAX. KOORDINATENWERTE
93 X0[178]0:Y0[178]0:YA[178]Y9[173]([194](P[170]40)[173]256[170]1):[143] MIN. KOORD, MAX. Y BEI ASPEKT
98 [141]20:[141]30
99 [143] FOLGT EIGENTLICHES PROGRAMM
100 [153]"LOAD"
110 AE[178]1:[141]41:[143] ASPEKT JA
119 [153]"(null)EICHENSATZ
120 FORI=0TO1:FORJ=32TO95STEP16
121 XX%=0:YY%=YA*(1-(I*4+J/16)/9):GOSUB3:GOSUB2
122 ZZ$="":FORK=0TO15:ZZ$=ZZ$+CHR$(I*128+J+K):NEXT:GOSUB15
123 NEXT:NEXT
129 PRINT"[204]INIENGRAFIK
130 X2[178]16[172]CS[172]6:AE[178]0:[141]41:[143] ASPEKT NEIN
131 X(0)[178]X2:Y(0)[178]0:X(1)[178](X9[170]X2)[173]2:Y(1)[178]Y9[171]50:X(2)[178]X9:Y(2)[178]0
140 XX%[178]X(2):YY%[178]Y(2):[141]3:[141]2:[141]6
141 [129]I[178]0[164]2:XX%[178]X(I):YY%[178]Y(I):[141]2:[130]
142 X1[178]XX%:Y1[178]YY%:F[178].9
150 I[178]I[170]1:[139]I[177]2[167]I[178]0:[139][182](X(0)[171]X(1))[170][182](Y(0)[171]Y(1))[179]9[167][141]3:[137]160
151 XX%[178]X1[170]F[172](X(I)[171]X1):YY%[178]Y1[170]F[172](Y(I)[171]Y1):[141]2
152 X(I)[178]XX%:Y(I)[178]YY%:X1[178]XX%:Y1[178]YY%:[137]150
160 [141]19
170 [153]"(null)REISE
171 R=INT(X9/4):X2=R+10:Y2=10:AE=1:GOSUB41:REM ASPEKT JA
175 FORI=10TO1STEP-1:XX%=X2:YY%=Y2:GOSUB3:GOSUB2
176 XX%=R*I/10:YY%=6+5*8:GOSUB31
177 NEXT
180 RI=R:X2=3*R+20:Y2=10:XX%=X2:YY%=Y2:GOSUB3:GOSUB2
181 O1=6:O9=5:OD=7
185 XX%=RI:YY%=O1+O9*8:GOSUB31
186 RI=RI*.9:IFRI<Y9/100THEN190
187 O1=(O9+1)AND7:OD=(OD+7)AND7:O9=(O1+OD)AND7:GOTO185
190 GOSUB19
200 PRINT"[211]CHRIFTZUG 64'ER
210 XX%[178]0:YY%[178]0:[141]3:[141]2
220 CS[178]25:[141]30:ZZ$[178]"64'ER":[141]15
230 [141]19
999 [128]