home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / EFFECT-SAMPLE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.6 KB  |  39 lines
  1. 5 REM FROM THE CREATOR OF SYNTH SAMPLE,
  2. 10 REM (C)1987 GEORG FEIL
  3. 11 REM GEORG@SGL.ISTS.CA
  4. 12 REM DISTRIBUTE THIS PROGRAM AS
  5. 13 REM   YOU PLEASE
  6. 20 EB=PEEK(45)+256*PEEK(46):IFPEEK(EB-11)<>24THENSTOP
  7. 30 SYSEB-11:POKE53281,0:POKE53280,6:PRINTCHR$(5)CHR$(147):DIMP(9,1)
  8. 99 PRINT"'EFFECT SAMPLE'"
  9. 100 PRINT"SELECTION:"
  10. 101 PRINT"[163][163][163][163][163][163][163][163][163][163]"
  11. 102 RESTORE:READN:FORK=1TON:READU$,P(K,0),P(K,1)
  12. 110 PRINTMID$(STR$(K),2)") "U$:NEXT
  13. 180 PRINT"A) STOP EFFECT"
  14. 190 PRINT"B) QUIT"
  15. 195 PRINT"C) QUIT BUT KEEP EFFECT PLAYING"
  16. 200 PRINT"CHOICE?  [157]";
  17. 210 GETU$:IFPEEK(731)=0THENPRINT:PRINT:PRINT"(READY)[145][145]"TAB(8);
  18. 218 IFU$=""THEN210
  19. 220 IFU$="C"THEN9000
  20. 221 IFU$="B"THENGOSUB9500:POKE731,0:SYS730:GOTO9000
  21. 222 IFU$="A"THENGOSUB9500:GOTO99
  22. 225 A=VAL(U$):IFA=0ORA>NTHEN210
  23. 230 PRINTU$:PRINT:PRINT"("A"[157] )   "       "
  24. 250 [141]9500:[151]731,A[170]P(A,0)[172]16[170]P(A,1)[172]64:[158]730:[137]99
  25. 9000 [153]:[153]:[153]:[128]:[153]"LOAD":[137]99
  26. 9500 [151]731,9:[158]730:[142]
  27. 59997 [143] ** DATA CONSISTS OF NUMBER
  28. 59998 [143] ** OF SONGS, NAMES & POLY
  29. 59999 [143] ** SETTINGS.
  30. 60000 [131] 8
  31. 60010 [131]"PODS S1 (LASER GUN)",0,0
  32. 60020 [131]"PODS S2 (EXPLOSION 1)",0,0
  33. 60030 [131]"PODS S10 (EXPLOSION 2)",0,0
  34. 60040 [131]"PODS S8 (JUMPING SOUND)",0,0
  35. 60050 [131]"EFFECT 1",0,0
  36. 60060 [131]"EFFECT 2",0,0
  37. 60070 [131]"AIRPLANE",1,3
  38. 60080 [131]"PHASE",0,0
  39.