home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9102a.d64 / hidden-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  371b  |  13 lines
  1. 2 REM HIDDEN-LINE DEMO  NIKOLAUS HEUSLER  6.9.90
  2. 4 IFPEEK(49152)+PEEK(49153)<>143THENLOAD"HIDDEN-49152",8,8:REM ROUTINE NACHLADEN
  3. 10 SYS49152:REM GRAFIK EIN
  4. 20 BS=1
  5. 30 BW=-BS
  6. 40 FORZ=0TO2*(null)STEP(null)/40*BS:REM 2 BUCKEL
  7. 50 BW=BW+BS:REM BLICKWINKEL
  8. 60 FORX=0TO2*(null)STEP(null)/135:REM 2 BUCKEL
  9. 70 Y=(SIN(X))*(SIN(Z))*76:REM HOEHE DES PUNKTES
  10. 80 SYS49158,X/2/(null)*260+BW,140-BW-Y
  11. 90 NEXTX,Z
  12. 100 POKE198,.:WAIT198,1:POKE198,.:SYS49155
  13.