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