home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / PRODOS.DSK / HYPNOSIS.bas < prev    next >
BASIC Source File  |  2014-09-09  |  938b  |  30 lines
  1. 100  REM  HYPNOSIS
  2. 110  REM 
  3. 120  REM 
  4. 130  ONERR  GOTO 300
  5. 140  HOME : HGR : VTAB 22: HTAB 16: PRINT "HYPNOSIS"
  6. 150 COUNT = 0
  7. 160 X = 0:Y = 0
  8. 170 N =  RND(N) *50 +25
  9. 180 COUNT = COUNT +1
  10. 190  IF COUNT >(159 -N)  THEN COUNT = 1: HGR 
  11. 200  IF (COUNT/2) +0.5 =  INT((COUNT/2) +0.5)  THEN  HCOLOR= 3
  12. 210  IF ((COUNT/2) +0.5) < > INT((COUNT/2) +0.5)  THEN  HCOLOR= 0
  13. 220 N = N +COUNT
  14. 230  IF N >159 GOTO 160
  15. 240  HPLOT X +N,Y +N TO X +(279 -N),Y +N
  16. 250  HPLOT X +(279 -N),Y +N TO X +(279 -N),Y +(159 -N)
  17. 260  HPLOT X +(279 -N),Y +(159 -N) TO X +N,Y +(159 -N)
  18. 270  HPLOT X +N,Y +(159 -N) TO X +N,Y +N
  19. 280  IF  PEEK(49152) >127  THEN  GOTO 300
  20. 290  GOTO 220
  21. 300  REM 
  22. 310  REM  EXIT ROUTINE
  23. 320  PRINT : PRINT : PRINT "HYPNOSIS"
  24. 330  PRINT "DEMONSTRATION FINISHED"
  25. 340  PRINT "PRESS 'RETURN' TO EXIT ";
  26. 350  POKE 49168,0: REM    CLEAR KEY CHECK 
  27. 360  INPUT "";A$
  28. 370  HOME : TEXT 
  29. 380  PRINT "HYPNOSIS": PRINT "DEMONSTRATION FINISHED"
  30. 390  END