home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 January / 64er_Magazin_95-01_1995_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  680b  |  39 lines
  1. 1 rem vektoren
  2. 2 rem wuerfel in 3d
  3. 3 rem
  4. 4 rem
  5. 10 if a =0 then a=1:load "vektorset",8,1
  6. 15 sys2^14: rem initalizierung
  7. 17 rem
  8. 18 rem punkte uebergeben
  9. 19 rem
  10. 20 sys 2^14+12,221,221,221
  11. 30 sys 2^14+12,35,221,221
  12. 40 sys 2^14+12,35,221,35
  13. 50 sys 2^14+12,221,221,35
  14. 60 sys 2^14+12,221,35,221
  15. 70 sys 2^14+12,35,35,221
  16. 80 sys 2^14+12,35,35,35
  17. 90 sys 2^14+12,221,35,35
  18. 97 rem
  19. 98 rem linie uebergeben
  20. 99 rem
  21. 100 sys 2^14+15,0,1
  22. 110 sys 2^14+15,1,2
  23. 120 sys 2^14+15,2,3
  24. 130 sys 2^14+15,3,0
  25. 140 sys 2^14+15,0,4
  26. 150 sys 2^14+15,4,5
  27. 160 sys 2^14+15,5,1
  28. 170 sys 2^14+15,5,6
  29. 180 sys 2^14+15,6,2
  30. 190 sys 2^14+15,6,7
  31. 200 sys 2^14+15,7,3
  32. 210 sys 2^14+15,7,4
  33. 215 rem
  34. 220 rem drehroutine ein
  35. 225 rem
  36. 230 sys 2^14+42 :rem mit "return" weiter
  37. 240 rem
  38. 250 rem
  39.