home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EPIDEMIC.DSK / TONE2.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  42 lines
  1. 2  SCALE= 1: ROT= 0
  2. 5  GOTO 100
  3. 89  IF M > = 4  THEN  RETURN 
  4. 90  FOR II = 1 TO  LEN(T$): XDRAW  ASC( MID$ (T$,II,1)) -31 AT X0,Y0: XDRAW 64 AT X0,Y0:X0 = X0 +8: NEXT : RETURN 
  5. 100  GOSUB 61000: REM  LOAD TONE ROUTINE
  6. 115 X = 0:Y = 50: HCOLOR= 3: HPLOT 0,Y
  7. 116  POKE 769,20: POKE  -16368,0
  8. 120 M = 5: GOSUB 1000: GOSUB 1000: GOSUB 1000
  9. 122 T$ = " ":X0 = 6
  10. 125 M = 4: GOSUB 1000: GOSUB 1000
  11. 127 T$ = "STRATEGIC":X0 = 103
  12. 130 M = 3: GOSUB 1000: GOSUB 1000
  13. 132 X0 = 95:T$ = "SIMULATIONS"
  14. 135 M = 2: GOSUB 1000: GOSUB 1000
  15. 137 T$ = "INCORPORATED":X0 = 91
  16. 140 M = 1: GOSUB 1000: GOSUB 1000
  17. 142 T$ = "PRESENTS":X0 = 107
  18. 145 M = .5: GOSUB 1000: HCOLOR= 5: POKE 768,100: FOR I = X TO 279: HPLOT I,Y: POKE 769,04: CALL 770: HPLOT I,Y: NEXT : PRINT 
  19. 150  HOME : VTAB 21: HTAB 12: PRINT "A GAME DESIGNED BY"
  20. 160  VTAB 23: HTAB 15: PRINT "STEVEN FABER"
  21. 190  FOR I = 1 TO 8: READ DUR,PIT: GOSUB 60000: NEXT 
  22. 200  POKE  -16300,0: POKE  -16301,0: FOR I = 1 TO 5: READ DUR,PIT: GOSUB 60000: NEXT 
  23. 201  POKE  -16302,0: POKE 952,12
  24. 202  &  RUN "EPIDEMIC"
  25. 1000  FOR I = 1 TO 200 -(30 *M):X = X +1: IF X >279  THEN Y0 = Y +10:X = 0:Y = Y +28: GOSUB 89
  26. 1010  HPLOT X,Y: NEXT :X = X +3: IF X >279  THEN X = 279
  27. 1012  IF  PEEK( -16384) <128  THEN 1020
  28. 1014  IF  PEEK( -16384) < >155  THEN  POKE 16368,0: GOTO 1020
  29. 1016  POKE  -16368,0: GOTO 201
  30. 1020  HPLOT  TO X,Y -( INT(3 *M)):X = X +3: IF X >279  THEN X = 279
  31. 1030  HPLOT  TO X,Y:X = X +3: IF X >279  THEN X = 279
  32. 1035  POKE 768, INT(125/M): POKE 769,20
  33. 1040  HPLOT  TO X,Y - INT(5 *M): CALL 770:X = X +3: IF X >279  THEN X = 279
  34. 1050  HPLOT  TO X,Y:X = X +3: IF X >279  THEN X = 279
  35. 1060  HPLOT  TO X,Y -(2 *M):X = X +3: IF X >279  THEN X = 279
  36. 1070  HPLOT  TO X,Y: RETURN 
  37. 60000  POKE 768,PIT: POKE 769,DUR: CALL 770: RETURN 
  38. 61000  FOR I = 770 TO 790: READ D: POKE I,D: NEXT : RETURN 
  39. 61010  DATA   173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 
  40. 62000  REM  DATA FOR TUNE
  41. 62010  DATA 200,114,200,85,200,114,200,85
  42. 62015  DATA 200,114,200,85,200,115,200,86,200,116,200,87,200,117,200,87,200,117,200,87