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 >
Wrap
Commodore BASIC
|
2022-10-26
|
601b
|
34 lines
10 init
20 obj 23,15
60 perspset -300,-80
70 modset 0,0,0
90 m=1 :rem vergroesserungsfaktor
1000 rem
1010 forp=0to23
1020 readx,y,z
1030 pset p,x*m,y*m,z*m
1060 next
1070 forv=0to15
1080 reada,b:lset v,a,b
1090 next
1100 data-70,0,0,70,0,0
1101 data60,4,0,60,-4,0
1102 data0,-70,0,0,70,0
1103 data4,60,0,-4,60,0
1104 data0,0,-70,0,0,70
1106 data4,0,60,-4,0,60
1107 data70,-10,0,78,-20,0
1108 data70,-20,0,78,-10,0
1109 data-2,80,0,-10,70,0
1110 data-6,75,0,-10,80,0
1111 data2,12,70,12,12,70
1112 data2,2,70,12,2,70
1140 rem
1150 data0,1, 2,1, 3,1
1151 data4,5, 6,5, 7,5
1152 data8,9, 10,9, 11,9
1153 data12,13, 14,15, 16,17
1154 data18,19, 20,21, 21,22
1155 data22,23
1180 dreh