home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9102a.d64
/
hidden-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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