home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGIDEMO.DSK / PART1.bas < prev    next >
BASIC Source File  |  2014-09-09  |  6KB  |  94 lines
  1. 0  REM   DCR DEMO PART 1
  2. 1  REM   BY SHANAVAS NYAKHAR H
  3. 2  REM   COPYRIGHT(C)1991,ZUHYDE
  4. 3  REM   FEEL FREE TO DISTRIBUTE
  5. 4  REM   COPIES OF THIS DISK
  6. 5  REM   BUT, COMMERCIAL USE
  7. 6  REM   IS STRICTLY FORBIDDEN.
  8. 7  REM 
  9. 8  REM 
  10. 13 BL$ = "                                       "
  11. 20 D$ =  CHR$(13) + CHR$(4)
  12. 25 BL$ = "                                   "
  13. 30  PRINT D$;"BLOAD QUOMQUOM.DCRD,A$2000"
  14. 40  PRINT D$;"BLOAD TEXT.SCR"
  15. 50  POKE 32,2: POKE 33,36: POKE 34,8: POKE 35,23
  16. 60 VT = 10:TI$ = "WELCOME TO THE": GOSUB 1000
  17. 70 VT = 12:TI$ = "SHAN'S DIGICORDER DEMO": GOSUB 1000
  18. 75 VT = 13:TI$ = "**********************": GOSUB 1000
  19. 80 VT = 15:TI$ = "THIS DISK AND ITS CONTENTS MAY": GOSUB 1000
  20. 90 VT = 16:TI$ = "BE FREELY COPIED AND DISTRIBUTED": GOSUB 1000
  21. 100 VT = 17:TI$ = "PROVIDED THE FOLLOWING ARE MET": GOSUB 1000
  22. 105 SA% = 11: GOSUB 1080: HOME 
  23. 110  VTAB 18: PRINT "1) THIS DISK IS DISTRIBUTED IN ITS  ENTIRE FORM, WITH ALL NOTICES, PROGRAMS & OTHER CONTENTS INTACT AND WITHOUT ANY MODIFICATIONS"
  24. 120  PRINT : PRINT "2) DISTRIBUTION OF THIS DISK MUST   NOT BE FOR COMMERCIAL GAIN."
  25. 130  PRINT "HOWEVER, THE M/L SUBROUTINES, NAMELY SHAN'S DIGIPLAYER V.2, SYNTH AND THE DEMO SOUND FILES WITH THE .DCR1 EXTENSIONS MAY BE USED IN YOUR OWN PROGRAMS ";
  26. 135  PRINT "FREELY, PROVIDED A COPY OF YOUR PROGRAM IS SENT TO US AND AN AGREEMENT IS SIGNED."
  27. 140  GOSUB 1080: HOME : VTAB 13
  28. 150  PRINT "WHEW! THAT WAS QUITE A LOT OF LEGALEEESSSE FOR A SMALL DEMO. NOW THAT IT IS OVER, LET US MOVE ON TO MORE PLEASURE FILLED AREAS "
  29. 155 SA% = 6: GOSUB 1080: HOME 
  30. 160 TI$ = "SHAN'S DIGICORDER":VT = 10: GOSUB 1000
  31. 170  VTAB 12: PRINT "FROM HERE ONWARDS WE WILL REFER TO IT AS SHAN'S DCR OR SIMPLY, DCR."
  32. 177  PRINT D$;"BLOAD PUKE.DCRD,A$3A00"
  33. 180  PRINT "DCR IS AN AUDIO DIGITISER FOR  YOUR APPLE // OR COMPATIBLE THAT  ALLOWS YOUR COMPUTER TO PLAY"
  34. 185  PRINT D$;"BLOAD REPEATMUS.DCRD,A$2000"
  35. 190 VT = 19:TI$ = "REAL WORLD SOUNDS": GOSUB 1000
  36. 200 N% = 3:SA% = 5:HI% = 58: GOSUB 1200
  37. 205 DL = 150: GOSUB 1070:SA% = 6: GOSUB 1200: GOSUB 1070:SA% = 5: GOSUB 1200: GOSUB 1070
  38. 210 VT = 20:TI$ = "MULTI VOICE/POLYPHONIC MUSIC": GOSUB 1000
  39. 220 N% = 25:SA% = 12:HI% = 32: GOSUB 1200:SA% = 11: GOSUB 1200:DL = 100: GOSUB 1070
  40. 225  PRINT 
  41. 230  PRINT "WITHOUT REQUIRING ANY EXTRA HARDWARE"
  42. 235  VTAB 24: HTAB 35: GET RE$: HOME : VTAB 12:SA% = 12
  43. 240  PRINT "DIGICORDER ITSELF COMES TO YOU AS A PLUG IN  DEVICE THAT  PLUGS INTO YOUR JOYSTICK PORT. HOWEVER, THIS IS ONLY REQUIRED  FOR RECORDING YOUR SOUNDS FOR THE FIRST TIME."
  44. 245  PRINT 
  45. 250  PRINT "THE SOUNDS ARE PLAYED BACK THROUGH  YOUR COMPUTER'S BUILT IN SPEAKER. WHAT THIS MEANS TO YOU IS THAT ANY  PROGRAM YOU DEVELOP USING DCR CAN  RUN ON ANY OTHER APPLE // WITH FULL ORCHESTRAL SOUND TRACKS WITHOUT THE"
  46. 255  GOSUB 1080: HOME : VTAB 13
  47. 260  PRINT "NEED  FOR  ANY COSTLY SOUND CARDS.  JUST DISTRIBUTE YOUR DISK WITH YOUR PROGRAM AND DCR SOUND FILES ON IT. ANYONE CAN RUN IT ON THEIR MACHINES. BE IT YOUR  STUDENTS,  CLIENTS  OR  OTHER USERS. WONDERFUL, ISN'T IT?"
  48. 270  GOSUB 1080: HOME : VTAB 13
  49. 280  PRINT "MAKING MUSIC  OR SOUNDS WITH DIGICORDER DOES NOT REQUIRE YOU TO POSSESS A PHD IN COMPUTER SCIENCE. IN FACT IT IS CHILD'S PLAY TO USE DCR, BECAUSE OF ITS EXCELLENT GRAPHIC USER INTERFACE."
  50. 290  PRINT D$;"BLOAD DCR.CNTRL.PIC,A$4000"
  51. 293  VTAB 24: HTAB 35: GET RE$
  52. 295 X =  PEEK( -16304):X =  PEEK( -16302):X =  PEEK( -16299):X =  PEEK( -16297)
  53. 320  GOSUB 1080:X =  PEEK( -16303):X =  PEEK( -16300): HOME : VTAB 12
  54. 330  PRINT "HOWEVER, THERE ARE MORE FEATURES PACKED WITH THE DCR SOFTWARE FOR WIZARDS OUT THERE. MORE ON THIS LATER..."
  55. 340  PRINT : PRINT "IF YOU THOUGHT DIGICORDER CAN ONLY RECORD SOUNDS, BOY! YOU REALLY GUESSED  IT WRONG. YOUR DCR HAS EVEN SOME LIMITED SIGNAL PROCESSING (DSP) CAPABILITIES. (LIMITED BY YOUR APPLE'S CPU)"
  56. 350  GOSUB 1080: HOME 
  57. 360  PRINT "IF YOU DO NOT KNOW WHAT DSP IS, JUST ASSUME THAT YOU ARE GETTING MORE THAN WHAT YOU WOULD HAVE ASKED FOR, GIVEN THE LOW COST OF THE DCR PACKAGE."
  58. 370  PRINT : PRINT "IN OTHER WORDS, WE HAVE ALSO INCLUDED A SEPARATE SOFTWARE MODULE CALLED THE SPECIAL-FX LAB, WHICH ALLOWS YOU TO MODIFY THE SOUNDS YOU RECORD, USING A WIDE VARIETY OF TOOLS SUCH AS :"
  59. 375  SPEED= 210
  60. 380  PRINT "NORMAL..";:DL = 200: GOSUB 1070
  61. 390  PRINT "FLANGE..";:DL = 200: GOSUB 1070
  62. 400  PRINT "OVERLAY..":DL = 200: GOSUB 1070
  63. 404  PRINT "COMBINE..";:DL = 200: GOSUB 1070
  64. 407  PRINT "REVERSE..";:DL = 200: GOSUB 1070
  65. 410  PRINT "..AND ALOT MORE.":DL = 250: GOSUB 1070
  66. 415  SPEED= 255
  67. 420  GOSUB 1080: HOME : VTAB 11
  68. 430  PRINT "YOU CAN EVEN PURCHASE ADDITIONAL SPECIAL-FX TOOLS THAT ARE NOT PROVIDED ON THE DCR DISK SEPARATLEY AT LOW PRICES LATER ON. FROM US OR THIRD PARTY DEVELOPERS."
  69. 433  PRINT 
  70. 435  PRINT "IF YOU ARE A PRO, YOU CAN EVEN MAKE YOUR OWN SPECIAL-FX TOOLS WITH THE GUIDELINES IN THE MANUAL FOR FUN OR PROFIT."
  71. 437  GOSUB 1080: HOME : VTAB 15
  72. 440  PRINT "THE SPECIAL-FX TOOLS ON THE DCR DISK HAS A WIDE VARIETY OF EDUCATIONAL POSSIBILITIES TO BE TAKEN ADVANTAGE OF BY THE SERIOUS EDUCATOR AND/OR  PROGRAMMER."
  73. 450  GOSUB 1080: HOME 
  74. 455  PRINT "NOW, WE PROCEED TO THE 2ND PART OF DCR DEMO - THE PRACTICAL USES OF DCR"
  75. 460 VT = 19:TI$ = "LOADING PROGRAM - PLEASE WAIT": GOSUB 1000
  76. 470  PRINT D$;"RUN PART2"
  77. 480  END 
  78. 1000 TB =  INT(19 -( LEN(TI$)/2))
  79. 1010  FOR I = 22 TO VT  STEP  -1
  80. 1020  VTAB I: HTAB TB: PRINT TI$;
  81. 1030 DL = 50: GOSUB 1070
  82. 1040  VTAB I: HTAB 3: PRINT BL$;
  83. 1045  NEXT I
  84. 1055  VTAB VT: HTAB TB: PRINT TI$: RETURN 
  85. 1070  FOR II = 1 TO DL: NEXT : RETURN 
  86. 1080  POKE 8,00: POKE 9,32: POKE 4,SA%: CALL 768:CO% = 1
  87. 1085  VTAB 24: HTAB 35: PRINT "\";: CALL 788
  88. 1090  VTAB 24: HTAB 35: PRINT "/";: CALL 788
  89. 1095 CO% = CO% +1: IF CO% >22  THEN CO% = 0: POKE 4,SA% -1
  90. 1100  IF  PEEK( -16384) < = 127  THEN 1085
  91. 1110  POKE  -16368,0: RETURN 
  92. 1200  POKE 8,00: POKE 9,HI%: POKE 4,SA%: CALL 768
  93. 1210  FOR I = 1 TO N%: CALL 788: NEXT 
  94. 1220  RETURN