home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGIDEMO.DSK / PART2.bas < prev    next >
BASIC Source File  |  2014-09-09  |  6KB  |  95 lines
  1. 0  REM   DCR DEMO PART 2
  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. 50  POKE 32,2: POKE 33,36: POKE 34,8: POKE 35,23
  14. 60 VT = 13:TI$ = "WELCOME TO PART 2 OF": GOSUB 1000
  15. 70 VT = 14:TI$ = "SHAN'S DIGICORDER DEMO": GOSUB 1000
  16. 75 VT = 15:TI$ = "************************": GOSUB 1000
  17. 80  PRINT D$;"BLOAD HAWA HAWA.DCRD,A$2000"
  18. 90  HOME : VTAB 13
  19. 100  PRINT "DCR HAS A WIDE RANGE OF APPLICATIONS RANGING FROM ITS  USE IN  EDUCATION ENTERTAINMENT,  DEMONSTRATION AND  A HOST OF  OTHERS,  ONLY  LIMITED  BY YOUR IMAGINATION."
  20. 110  PRINT D$;"BLOAD WITCH2.DCRD,A$4000"
  21. 115  GOSUB 1120: HOME : VTAB 12
  22. 120  PRINT "IMAGINE A SCENE DEPICTING LOTS  OF GRAVES IN A THICK JUNGLE DURING THE MIDDLE OF THE NIGHT, BEING SHOWN ON YOUR SCREEN."
  23. 130  PRINT : PRINT "WITH DCR, YOU CAN REALLY MAKE  THAT SCENE COME ALIVE, WITH THE SOUND OF GRAVES OPENING, OR EVEN  -  A WITCH CACKLING."
  24. 140 SA% = 14:HI% = 64:N% = 6: GOSUB 1200:SA% = 12: GOSUB 1200:SA% = 15: GOSUB 1200
  25. 160  GOSUB 1120: HOME : VTAB 13
  26. 170  PRINT "OR, AN  EDUCATIONAL PROGRAM GUIDING THE STUDENT USING POSITIVE RE-INFORCEMENT."
  27. 180 DL = 500: GOSUB 1070: PRINT 
  28. 190  PRINT "OR, A LANGUAGE TEACHING PROGRAM FOR STUDENTS, WHICH ALSO TEACHES PROPER PRONUNCIATION AND ACCENTS."
  29. 200  GOSUB 1120: HOME : VTAB 11
  30. 210  PRINT "OR, A MULTIPLE SOUNDTRACK MUSIC FOR YOUR BLOCKBUSTER ARCADE/ACTION GAME"
  31. 220 DL = 500: GOSUB 1070: PRINT 
  32. 230  PRINT "OR, SIMPLY  USE  IT TO  AMAZE  YOUR FRIENDS. THEY SURE WILL  BE  AMAZED WHEN THEY SEE  THAT  THIS IS  BEING DONE ON A MACHINE  THAT IS PROBABLY OLDER THAN THEIR OWN COMPUTING EXPERIENCE AND THAT TOO WITHOUT THE  AID"
  33. 240  PRINT "OF ANY SOUND CO-PROCESSOR, LIKE THE IIGS' ENSONIQ CHIP."
  34. 250  GOSUB 1120: HOME : VTAB 15
  35. 260  PRINT "SO,WHAT IF YOU ARE AN APPLE2GS OWNERALREADY? WELL,IF YOU WRITE PROGRAMS FOR FUN OR FOR PROFIT, WOULDN'T YOU LIKE IT TO BE ABLE TO BE RUN ON THE OLD APPLE //S TOO? DON'T FORGET THE LARGE NUMBER EXISTING OUT THERE"
  36. 265  PRINT 
  37. 270  PRINT "WITH DCR, YOU CAN DIGITISE THE SAME SOUND YOU ARE DIGITISING FOR THE II GS TO BE PLAYED BACK ON ANY APPLEII"
  38. 275  PRINT 
  39. 280  PRINT "WHO KNOWS??!  MAY BE YOU  ARE GONNA WRITE THE NEXT HYPERCARD - FOR  THE TRUSTY OLD APPLE //!!!
  40. 300 SA% = 16:N% = 30:HI% = 32: GOSUB 1200:N% = 31: GOSUB 1200
  41. 310  GOSUB 1120: HOME : VTAB 10
  42. 320  PRINT "WITH THAT, WE COME  TO  THE  END OF THIS DEMO. ALL  THAT  REMAINS TO BE SAID, IS ABOUT THE DCR UPGRADE PATH AND PRICING"
  43. 325  PRINT D$;"BLOAD AHUH.DCRD,A$4D00"
  44. 327  PRINT D$;"BLOAD WITCH1.DCRD,A$4700"
  45. 329  VTAB 15
  46. 330  PRINT "WE PROMISE  ROCK  HARD  SUPPORT FOR OUR CUSTOMERS. INITIALLY,   SUPPORT SOFTWARE LIKE MORE SPECIAL-FX TOOLS LIKE ECHO, REVERB ETC., SOUND TOOLS LIKE A GRAPHIC EDITOR OR EVEN XTRNL SOUND CONTROLLED ANIMATOR ETC.,  IN"
  47. 340  PRINT "THE FORM OF PLUG-IN SOFTWARE MODULES COULD BE AVAILABLE FROM US OR IIIRD PARTY MAKERS OR FROM US."
  48. 350 N% = 3:HI% = 77:SA% = 12
  49. 360  GOSUB 1080: HOME : VTAB 12
  50. 370 VT = 10:TI$ = "WRAPPING IT UP": GOSUB 1000
  51. 380 VT = 12:TI$ = "WE KEPT THE BEST FOR THE LAST": GOSUB 1000
  52. 390 VT = 14:TI$ = "ALL THE ABOVE CAPABILITIES ARE": GOSUB 1000
  53. 400 VT = 15:TI$ = "YOURS,FOR US$49.95-INCL AIR MAIL": GOSUB 1000
  54. 410  PRINT : PRINT "THERE ARE VERY SPECIAL DISCOUNTS &  OTHER SCHEMES FOR EDUCATORS &  USER  GROUPS. CONTACT US FOR  ADDITIONAL  DETAILS.
  55. 420 VT = 22:TI$ = "DEALER ENQUIRIES ARE WELCOME": GOSUB 1000
  56. 430  GOSUB 1080: HOME :VT = 12
  57. 440 TI$ = "IMPORTANT! IMPORTANT! IMPORTANT!": GOSUB 1000:VT = 13: GOSUB 1000
  58. 450 VT = 15:TI$ = "TO CELEBRATE THE DCR'S LAUNCH": GOSUB 1000
  59. 460 VT = 16:TI$ = "WE ARE GIVING AWAY A CUSTOM": GOSUB 1000
  60. 470 VT = 17:TI$ = "PRINTED SHIRT (NOT A T-SHIRT)": GOSUB 1000
  61. 480 VT = 18:TI$ = "WITH YOUR OWN MESSAGE ON IT": GOSUB 1000
  62. 485 VT = 19:TI$ = "AND THE DIGICORDER": GOSUB 1000
  63. 490 VT = 20:TI$ = "FOR ONLY $40 (+$5 SHIPPING)": GOSUB 1000: VTAB 20: INVERSE 
  64. 495  VTAB VT: HTAB TB: PRINT TI$: NORMAL 
  65. 500 VT = 22:TI$ = "IF YOU ORDER BEFORE APR 20TH": GOSUB 1000
  66. 510 HI% = 71:N% = 6:SA% = 11
  67. 520  GOSUB 1080: HOME : VTAB 12
  68. 530  PRINT "YOU MAY ORDER WITH A CHECK, BANKERS CHECK/MONEY ORDER IN US$  FAVOURING ZUHYDE CYBERGENESIS."
  69. 540  PRINT : PRINT "IF YOU NEED FURTHER INFO OR IF YOU WISH TO ORDER, OR IF YOU ARE SIMPLY IN A MOOD TO WRITE, WRITE TO US AT:"
  70. 550 VT = 20:TI$ = "ZUHYDE CYBERGENESIS": GOSUB 1000
  71. 560 VT = 21:TI$ = "VATANAPPALLY-680614": GOSUB 1000
  72. 570 VT = 22:TI$ = "KERALA, INDIA": GOSUB 1000
  73. 900  END 
  74. 1000 TB =  INT(19 -( LEN(TI$)/2))
  75. 1010  FOR I = 22 TO VT  STEP  -1
  76. 1020  VTAB I: HTAB TB: PRINT TI$;
  77. 1030 DL = 10: GOSUB 1070
  78. 1040  VTAB I: HTAB 3: PRINT BL$;
  79. 1045  NEXT I
  80. 1055  VTAB VT: HTAB TB: PRINT TI$: RETURN 
  81. 1070  FOR II = 1 TO DL: NEXT : RETURN 
  82. 1080  POKE 8,00: POKE 9,HI%: POKE 4,SA%: CALL 768:CO% = 1
  83. 1085  VTAB 24: HTAB 35: PRINT "\";: CALL 788
  84. 1090  VTAB 24: HTAB 35: PRINT "/";: CALL 788
  85. 1095 CO% = CO% +1: IF CO% >22  THEN CO% = 0: POKE 4,SA% -1
  86. 1100  IF  PEEK( -16384) < = 127  THEN 1085
  87. 1110  POKE  -16368,0: RETURN 
  88. 1120  VTAB 24: HTAB 36: GET RE$: RETURN 
  89. 1200  POKE 8,00: POKE 9,HI%: POKE 4,SA%: CALL 768
  90. 1210  FOR I = 1 TO N%: CALL 788: NEXT 
  91. 1220  RETURN 
  92. 1299  REM  SWITCH TO HIRES PAGE 2
  93. 1300 X =  PEEK( -16304):X =  PEEK( -16302):X =  PEEK( -16299):X =  PEEK( -16297): RETURN 
  94. 1309  REM  SWITCH TO TEXT
  95. 1310 X =  PEEK( -16303):X =  PEEK( -16300): HOME : VTAB 12