home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / demo7.kreuz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  601 b   |  34 lines
  1. 10 init
  2. 20 obj 23,15
  3. 60 perspset -300,-80
  4. 70 modset 0,0,0
  5. 90 m=1   :rem  vergroesserungsfaktor
  6. 1000 rem
  7. 1010 forp=0to23
  8. 1020 readx,y,z
  9. 1030 pset p,x*m,y*m,z*m
  10. 1060 next
  11. 1070 forv=0to15
  12. 1080 reada,b:lset v,a,b
  13. 1090 next
  14. 1100 data-70,0,0,70,0,0
  15. 1101 data60,4,0,60,-4,0
  16. 1102 data0,-70,0,0,70,0
  17. 1103 data4,60,0,-4,60,0
  18. 1104 data0,0,-70,0,0,70
  19. 1106 data4,0,60,-4,0,60
  20. 1107 data70,-10,0,78,-20,0
  21. 1108 data70,-20,0,78,-10,0
  22. 1109 data-2,80,0,-10,70,0
  23. 1110 data-6,75,0,-10,80,0
  24. 1111 data2,12,70,12,12,70
  25. 1112 data2,2,70,12,2,70
  26. 1140 rem
  27. 1150 data0,1,   2,1,    3,1
  28. 1151 data4,5,   6,5,    7,5
  29. 1152 data8,9,   10,9,   11,9
  30. 1153 data12,13, 14,15,  16,17
  31. 1154 data18,19, 20,21,  21,22
  32. 1155 data22,23
  33. 1180 dreh
  34.