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