home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / AUDEX.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  8KB  |  184 lines
  1. 0  ONERR  GOTO 0
  2. 1  HIMEM: 29184
  3. 2  FOR E = 952 TO 975: READ H: POKE E,H: NEXT : FOR E = 1010 TO 1012: READ H: POKE E,H: NEXT 
  4. 3  DATA  32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,166 
  5. 10  PRINT  CHR$(4);"BLOAD AUDIO OPCODES": PRINT  CHR$(4);"BLOAD DEMOSOUNDS"
  6. 15  DIM AS(20): DIM PT(10): GOSUB 9080: GOSUB 9110
  7. 98  ONERR  GOTO 100
  8. 99  GOTO 1000
  9. 100  CALL 54915:ER =  PEEK(222): IF ER = 255  OR ER = 20  THEN 1000
  10. 110  HOME : TEXT 
  11. 140  IF ER = 0  OR ER >15  THEN J = 53856 +ER +(ER = 255) * -1: GOTO 160
  12. 150 J = 43377 + PEEK(43583 +ER)
  13. 160 K =  PEEK(J): PRINT  CHR$(K);: IF K <192  THEN J = J +1: GOTO 160
  14. 170  PRINT : PRINT "PRESS ANY KEY": WAIT  -16384,128: POKE 49168,0: GOTO 1000
  15. 1000  REM 
  16. 1005  HOME : GOSUB 1040: GOSUB 1075: GOSUB 1120: GOSUB 2000: GOSUB 1140: GOTO 3000
  17. 1010 :
  18. 1015 :
  19. 1020  REM 
  20. 1025  GOSUB 1040: GOSUB 1075: GOSUB 1075: GOSUB 2000: GOSUB 1140: RETURN 
  21. 1030 :
  22. 1035 :
  23. 1040  REM 
  24. 1045  HOME 
  25. 1055  PRINT "==========AUDEX: HELLO PROGRAM=========="
  26. 1056  INVERSE : PRINT "    COPYRIGHT 1982 BY SIRIUS SOFTWARE   "
  27. 1057  NORMAL 
  28. 1060  RETURN 
  29. 1065 :
  30. 1070 :
  31. 1075  REM 
  32. 1080  PRINT : VTAB 19: GOSUB 1160
  33. 1085  PRINT "CURSOR FLASHES BY OPTION."
  34. 1090  PRINT "SPACE BAR MOVES CURSOR."
  35. 1095  PRINT "RETURN KEY ACTIVATES OPTION."
  36. 1100  VTAB 1
  37. 1105  RETURN 
  38. 1110 :
  39. 1115 :
  40. 1120  REM 
  41. 1125 SF = 1:SL = 2:SET = 1:VT = 5
  42. 1130 :
  43. 1135 :
  44. 1140  REM 
  45. 1145  VTAB VT: INVERSE : FLASH : PRINT " ": NORMAL : RETURN 
  46. 1150 :
  47. 1155 :
  48. 1160  REM 
  49. 1165  NORMAL : INVERSE : PRINT "                                        "
  50. 1170  NORMAL : RETURN 
  51. 1175 :
  52. 1180 :
  53. 1200  REM 
  54. 2000  REM 
  55. 2001  GOSUB 2100: VTAB 5: ON SET GOTO 2011,2021,2030,2040
  56. 2011  PRINT " DEMONSTRATE SOUNDS": PRINT 
  57. 2012  PRINT " INSTRUCTIONS": PRINT 
  58. 2013  PRINT " RUN DRAW-A-SOUND": PRINT 
  59. 2014  PRINT " RUN EXCERPT-A-SOUND": PRINT 
  60. 2015  PRINT " RUN BUILD-A-SOUND": PRINT 
  61. 2016  PRINT " INSTALL SETCOUNT FILE": PRINT 
  62. 2017  PRINT " QUIT": PRINT 
  63. 2018  RETURN 
  64. 2100  REM 
  65. 2110  FOR I = 5 TO 15  STEP 2: VTAB I
  66. 2120  PRINT "                                        ": NEXT I: RETURN 
  67. 2198 :
  68. 2199 :
  69. 2200  PRINT " LIST OTHER OPTIONS": PRINT 
  70. 2210  PRINT " QUIT": RETURN 
  71. 2998 :
  72. 2999 :
  73. 3000  REM 
  74. 3010 RET = 141:SPACE = 160:KBD = 49152:KSTROBE = 49168
  75. 3098 :
  76. 3099 :
  77. 3100  REM 
  78. 3110 X =  PEEK(KBD)
  79. 3120  IF X = SPACE  THEN  GOSUB 3200: POKE KSTROBE,0: GOTO 3100
  80. 3130  IF X = RET  THEN  GOSUB 3300: POKE KSTROBE,0
  81. 3140  GOTO 3100
  82. 3198 :
  83. 3199 :
  84. 3200  REM 
  85. 3210  VTAB VT: PRINT " "
  86. 3220 VT = VT +2: IF VT >17  THEN VT = 5
  87. 3230  VTAB VT
  88. 3240  INVERSE : FLASH 
  89. 3250  PRINT " ": NORMAL 
  90. 3260  RETURN 
  91. 3298 :
  92. 3299 :
  93. 3300  REM 
  94. 3310 OPT = (VT -3)/2
  95. 3320  ON SET GOTO 3321,3322,3323,3324
  96. 3321  ON OPT GOSUB 5000,11000,4000,4000,4000,6000,3500: GOSUB 1020: RETURN 
  97. 3398 :
  98. 3399 :
  99. 3410 SET = SET +1: IF SET >SL  THEN SET = SF
  100. 3420  RETURN 
  101. 3430  GOSUB 7000: RETURN 
  102. 3498 :
  103. 3499 :
  104. 3500  REM 
  105. 3510  HOME : NEW : END 
  106. 3598 :
  107. 3599 :
  108. 3700  RETURN 
  109. 3998 :
  110. 3999 :
  111. 4000  REM 
  112. 4005  POKE KSTROBE,0
  113. 4010 X = 1024 +128 *(VT -1) -984 * INT((VT -1)/8) +1
  114. 4020 A$ = "": FOR I = X TO X +38:A$ = A$ + CHR$( PEEK(I)): NEXT I
  115. 4025  HOME : VTAB 10: PRINT "LOADING. PLEASE WAIT."
  116. 4030  PRINT  CHR$(4);A$
  117. 4998 :
  118. 4999 :
  119. 5000  REM 
  120. 5005  HOME : VTAB 4: PRINT "SOUND DEMONSTRATION.": PRINT : FOR I = 1 TO 2000: NEXT I
  121. 5010  PRINT "A MACHINE GUN.":AD = PT(3): GOSUB 10003: FOR I = 1 TO 1000: NEXT I
  122. 5015  PRINT : PRINT "MANY GUNS.":AD = PT(2): GOSUB 10003: FOR I = 1 TO 1000: NEXT I
  123. 5020  PRINT : PRINT "ONE LESS FLYING SAUCER.":AD = PT(1): GOSUB 10003: FOR I = 1 TO 1000: NEXT I
  124. 5025  PRINT : PRINT "SERIOUS STUFF!!": FOR I = 1 TO 1000: NEXT I: POKE 255,145: POKE 253,132: CALL 37786
  125. 5030  RETURN 
  126. 6000  REM 
  127. 6005  HOME : VTAB 10: PRINT "SEE INSTRUCTIONS ON PAGE 5.": GOSUB 9000: IF X < >147  THEN  RETURN 
  128. 6010  HOME : VTAB 10: PRINT "READY TO INSTALL SETCOUNT FILE.": PRINT : PRINT "INSERT INITIALIZED DISK AND HIT RETURN.": GOSUB 9000: IF X < >141  THEN  HOME : PRINT "ABORTED.": GOSUB 9030: RETURN 
  129. 6015  POKE 255,0: PRINT  CHR$(4);"BSAVE SETCOUNT,A255,L1": RETURN 
  130. 9000  REM 
  131. 9005  POKE KSTROBE,0
  132. 9010 X =  PEEK(KBD): IF X <128  THEN  GOTO 9010
  133. 9015  POKE KSTROBE,0: RETURN 
  134. 9020 :
  135. 9025 :
  136. 9030  REM 
  137. 9035  VTAB 23: PRINT "(PRESS ANY KEY TO CONTINUE.)": GOSUB 9000: RETURN 
  138. 9040 :
  139. 9045 :
  140. 9055  INPUT "(TYPE IN VALUE AND HIT RETURN.)";X: RETURN 
  141. 9065  FOR I = 1 TO AS(SX +1) -AS(SX) -1: POKE ADDRESS +I, PEEK(AS(SX) +I):P(I) =  PEEK(ADDRESS +I): NEXT I:N =  PEEK(AS(SX)): POKE ADDRESS,N:NM = N: RETURN 
  142. 9070 :
  143. 9075 :
  144. 9080  REM 
  145. 9085 NS = 1:AS(1) = 29184
  146. 9090 AS(NS +1) = 1 +AS(NS) + PEEK(AS(NS)): IF  PEEK(AS(NS +1)) < >0  THEN NS = NS +1: GOTO 9090
  147. 9095  RETURN 
  148. 9100 :
  149. 9105 :
  150. 9110  REM 
  151. 9115 NT =  PEEK(AS(NS +1) +1)
  152. 9120 PT(1) = AS(NS +1) +2: FOR I = 1 TO NT:TABLE = PT(I)
  153. 9125 TABLE = TABLE +3: IF  PEEK(TABLE) < >0  THEN  GOTO 9125
  154. 9130 PT(I +1) = TABLE +1: NEXT I:TABLE = PT(NT +1): RETURN 
  155. 9135 :
  156. 9140 :
  157. 10001  GOTO 10009
  158. 10002  GOSUB 10008: POKE 254,PL: POKE 255,PH: POKE 253,NR: CALL 37889: RETURN 
  159. 10003  GOSUB 10008: POKE 254,PL: POKE 255,PH: CALL 37478: RETURN 
  160. 10004  GOSUB 10008: PRINT "TAPE WILL PLAY THROUGH SPEAKER.": PRINT "'T' KEY TRIGGERS DATA INPUT": PRINT "'A' KEY ABORTS WITHOUT DATA INPUT": POKE 255,145: POKE 253,117: CALL 37632: HOME : RETURN 
  161. 10005  POKE 255,145: POKE 253,117: CALL 37675: RETURN 
  162. 10006  POKE 255,145: POKE 253,117: CALL 37786: RETURN 
  163. 10007  POKE 254,ML: POKE 255,MH: POKE 252,NL: POKE 253,NH: CALL 37376: RETURN 
  164. 10008 PH =  INT(AD/256):PL = AD -256 *PH: RETURN 
  165. 10009 :
  166. 11000  REM 
  167. 11005  HOME 
  168. 11010  PRINT "THIS DISK PROVIDES UTILITIES FOR ADDING SOUND EFFECTS, MUSIC OR RECOGNIZABLE    SPEECH TO YOUR PROGRAMS. GRAPHIC        DISPLAY OF DATA AND SIMPLE CONTROLS MAKEIT EASY TO CREATE CUSTOM SOUND EFFECTS"
  169. 11015  PRINT "OR EXCERPT PORTIONS OF AUDIO MATERIAL   OBTAINED THROUGH THE CASSETTE PORT. A   TAPE RECORDER IS THE ONLY HARDWARE      REQUIRED.": PRINT 
  170. 11020  PRINT "HERE'S A SUMMARY OF THE PROGRAMS ON THISDISK:": PRINT 
  171. 11025  PRINT "'DRAW-A-SOUND' IS A PROGRAM FOR CREATINGAND EDITING SOUND PULSE PATTERNS. THESE 'SOUNDS' CAN BE TONES, SQUALKS, THUMPS  OR ANYTHING YOU CHOOSE.": GOSUB 9030
  172. 11026  HOME 
  173. 11030  PRINT "'EXCERPT-A-SOUND' IS A PROGRAM FOR      GETTING SOUNDS FROM THE CASSETTE PORT   AND EXCERPTING PORTIONS OF THIS AUDIO   DATA FOR USE AS SOUND EFFECTS.          EXCERPTING PRODUCES MORE UNIFORM TONES"
  174. 11035  PRINT "AND USES LESS MEMORY. RAW, UNEXCERPTED  AUDIO UP TO ABOUT 10 SECONDS IN LENGTH  CAN BE STORED IN 7K OF MEMORY.": PRINT 
  175. 11040  PRINT "'BUILD-A-SOUND' IS A PROGRAM TO CONNECT SOUNDS AND TONES TOGETHER INTO EXTENDED PATTERNS TO FORM MUSIC OR EMULATE       SPEECH. IT IS ALSO USEFUL FOR EDITING"
  176. 11045  PRINT "COLLECTIONS OF SOUNDS WHICH ARE         DEVELOPED USING 'DRAW-A-SOUND' AND      'EXCERPT-A-SOUND'.": GOSUB 9030
  177. 11046  HOME 
  178. 11050  PRINT "EACH PROGRAM ON THIS DISK PROVIDES MORE INSTRUCTIONS SPECIFIC TO IT'S OWN USE.  ALL PROGRAMS CAN BE ACCESSED FROM THE   'HELLO' PROGRAM'S MENU. EACH HAS A MENU OF IT'S OWN WHICH ALLOWS RETURN TO THE"
  179. 11055  PRINT "'HELLO' PROGRAM. TO USE THE MENU, MOVE  THE FLASHING CURSOR BY PRESSING THE     SPACE BAR REPEATEDLY. WHEN THE CURSOR   IS BY THE OPTION YOU WANT, PRESS THE    RETURN KEY.": GOSUB 9030:
  180. 11060  HOME : PRINT "   THE 'INSTALL SETCOUNT FILE' OPTION ONTHE HELLO PROGRAM MENU MUST BE USED WITHCAUTION. THE VARIOUS PROGRAMS ON THE    AUDEX DISK USE THIS FILE, A SINGLE BYTE"
  181. 11065  PRINT "WHICH NORMALLY LOADS TO MEMORY LOCATION 255 = $FF , TO KEEP TRACK OF HOW MANY   NUMBERED SOUNDSET FILES THERE ARE ON THESTORAGE DISK."
  182. 11070  PRINT : PRINT "IF YOU USE THE 'HELLO' PROGRAM OPTION TOINSTALL A SETCOUNT FILE ON A DISK WHICH ALREADY CONTAINS NUMBERED 'SOUNDSET'    FILES, THEY WILL BE OVERWRITTEN AND     DESTROYED BY NEW SOUNDSET FILES AS THEY"
  183. 11075  PRINT "ARE PLACED ON THE DISK.": PRINT : PRINT "PRESSING CTRL-S WHEN YOU SEE THE                'SEE INSTRUCTIONS.'             PROMPT WILL UNLOCK THE OPTION. USE CARE."
  184. 11080  GOSUB 9030: RETURN