home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8711.d64 / grafik64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  34 lines
  1. 1 REM SAVE"@0:GRAFIK64",8:REM P. KITTEL 9.6.87
  2. 10 PRINT"[147][199]RAFIK - ETWAS KUENSTLERISCH
  3. 20 [153]"(null)RINZIP:
  4. 30 PRINT"[197]IN [208]OLYGON IST VORZUGEBEN.
  5. 32 [153]"STR$IE (null)UNKTE WERDEN DER (null)EIHE NACH
  6. 34 PRINT"VERBUNDEN, DEREN [193]BSTAND DABEI
  7. 36 [153]"JEDOCH MIT VORGEGEBENEM ASCAKTOR
  8. 38 PRINT"MULTIPLIZIERT. [197]RGEBNIS:
  9. 40 [153]"IN SICH ROTIERENDE CHR$EBILDE.
  10. 100 PRINT"[194]EISPIELDATEN FUER [211]PIRAL-[196]REIECK:
  11. 103 [153]"(null)UNKTANZAHL = 3
  12. 104 PRINT"X1,Y1 = 0,0
  13. 105 [153]"X2,Y2 = 740,0
  14. 106 PRINT"X3,Y3 = 370,930  (X3=X2/2 !)
  15. 107 [153]"ASCAKTOR = 0.95
  16. 108 PRINT"[214]IEL [211]PASS!
  17. 999 [143] VERSION FUER FX-80-PLOTTER AM C 64, 7.6.87
  18. 1000 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
  19. 1003 [151]P[170]41,0:[143] ASPEKT NEIN
  20. 1004 [158]P[170]21:XX%[178]0:YY%[178]0
  21. 8000 [133]"(null)UNKTANZAHL";N:[134]X(N),Y(N)
  22. 8010 [129]I[178]1[164]N:[153]"(null)KT"I"IN (null)LOTTER-(null)OORD:";:[133]"X,Y";X(I),Y(I):[130]
  23. 8015 [133]"ASCAKTOR";F
  24. 8016 [153]"ASCIGUR KANN DURCH BELIEBIGEN
  25. 8017 PRINT"[212]ASTENDRUCK ABGEBROCHEN WERDEN.
  26. 8020 XX%[178]X(N):YY%[178]Y(N):[158]P:[158]P[170]6:[143] ERSTER PUNKT
  27. 8030 [129]I[178]1[164]N:XX%[178]X(I):YY%[178]Y(I):[158]P:[130]:[143] ERSTE RUNDE
  28. 8040 I[178]0:J[178]N
  29. 8049 [143] HAUPTSCHLEIFE:
  30. 8050 I[178]I[170]1:[139]I[177]N[167]I[178]1
  31. 8060 X(I)[178]X(J)[170]F[172](X(I)[171]X(J)):Y(I)[178]Y(J)[170]F[172](Y(I)[171]Y(J))
  32. 8070 [161]A$:[139]A$[179][177]""[167][158]P[170]3:[158]P[170]37:[128]
  33. 8080 XX%[178]X(I)[170].5:YY%[178]Y(I)[170].5:[158]P:J[178]I:[137]8050
  34.