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 >
Wrap
Commodore BASIC
|
2022-10-26
|
680b
|
39 lines
1 rem vektoren
2 rem wuerfel in 3d
3 rem
4 rem
10 if a =0 then a=1:load "vektorset",8,1
15 sys2^14: rem initalizierung
17 rem
18 rem punkte uebergeben
19 rem
20 sys 2^14+12,221,221,221
30 sys 2^14+12,35,221,221
40 sys 2^14+12,35,221,35
50 sys 2^14+12,221,221,35
60 sys 2^14+12,221,35,221
70 sys 2^14+12,35,35,221
80 sys 2^14+12,35,35,35
90 sys 2^14+12,221,35,35
97 rem
98 rem linie uebergeben
99 rem
100 sys 2^14+15,0,1
110 sys 2^14+15,1,2
120 sys 2^14+15,2,3
130 sys 2^14+15,3,0
140 sys 2^14+15,0,4
150 sys 2^14+15,4,5
160 sys 2^14+15,5,1
170 sys 2^14+15,5,6
180 sys 2^14+15,6,2
190 sys 2^14+15,6,7
200 sys 2^14+15,7,3
210 sys 2^14+15,7,4
215 rem
220 rem drehroutine ein
225 rem
230 sys 2^14+42 :rem mit "return" weiter
240 rem
250 rem