home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 February
/
64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64
/
hidden-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
371b
|
13 lines
2 rem hidden-line demo nikolaus heusler 6.9.90
4 ifpeek(49152)+peek(49153)<>143thenload"hidden-49152",8,8:rem routine nachladen
10 sys49152:rem grafik ein
20 bs=1
30 bw=-bs
40 forz=0to2*(NULL)step(NULL)/40*bs:rem 2 buckel
50 bw=bw+bs:rem blickwinkel
60 forx=0to2*(NULL)step(NULL)/135:rem 2 buckel
70 y=(sin(x))*(sin(z))*76:rem hoehe des punktes
80 sys49158,x/2/(NULL)*260+bw,140-bw-y
90 nextx,z
100 poke198,.:wait198,1:poke198,.:sys49155