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