home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / MFF0PLAY.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  3KB  |  54 lines
  1. 0  IF  PEEK(104) < >20  THEN  POKE 104,20: POKE 5120,0: PRINT  CHR$(4)"-/RAMAEPC/MFF0PLAY.BAS": END 
  2. 1  REM  MFF0PLAY.BAS
  3. 10  PRINT  CHR$(4)"PR#3"
  4. 20  PRINT  CHR$(4)"OPEN/RAMAEPC/R": PRINT  CHR$(4)"READ/RAMAEPC/R": INPUT L1$: REM  THIS TEXT WILL BE CORRUPTED BY A STORAGE VIOLATION
  5. 21  INPUT L2$: PRINT  CHR$(4)"CLOSE/RAMAEPC/R"
  6. 25  TEXT : HOME 
  7. 30  PRINT "APPLE //e MIDI FILE FORMAT 0 PLAYER - WITH MIDI KARAOKE ": PRINT : PRINT "(c) 1995 - Eric Rangell"
  8. 40  PRINT : PRINT "You are about to be entertained with: ";L1$;L2$
  9. 42  PRINT : PRINT 
  10. 45  PRINT : PRINT "Current speed="; PEEK(255)
  11. 47  PRINT : PRINT : PRINT "OPTIONS: L=Lyrics off  S=Speed display on"
  12. 48  PRINT "         I=Inverse Piano  O=Piano Off  P=Piano Keys inverse"
  13. 49  PRINT "         K=Karaoke Look Ahead": PRINT 
  14. 70  INPUT "Enter options, then press RETURN to start the music:";R$
  15. 80  PRINT  CHR$(4)"BLOAD /RAMAEPC/MFF0DRVR.OBJ"
  16. 90  PRINT  CHR$(4)"BLOAD /RAMAEPC/MFF0PLAY.OBJ"
  17. 91 IP = 0:PO = 0:PI = 0:KO = 0
  18. 92  FOR I = 1 TO  LEN(R$)
  19. 93  IF  MID$ (R$,I,1) = "L"  THEN  POKE 8 *256 +2 *16,0
  20. 94  IF  MID$ (R$,I,1) = "S"  THEN  POKE 8 *256 +2 *16 +1,1
  21. 95  IF  MID$ (R$,I,1) = "D"  THEN  POKE 7 *4096 +10 *256 +2,1
  22. 96  IF  MID$ (R$,I,1) = "I"  THEN IP = 1
  23. 97  IF  MID$ (R$,I,1) = "O"  THEN PO = 1
  24. 98  IF  MID$ (R$,I,1) = "P"  THEN PI = 1
  25. 99  IF  MID$ (R$,I,1) = "K"  THEN KO = 1
  26. 100  NEXT I
  27. 150  PRINT  CHR$(4)"BLOAD /RAMAEPC/TK0,A$827,B8,L2": REM  GET RESOLUTION
  28. 200  IF PO = 1  THEN  POKE 8 *256 +2 *16 +2,0
  29. 300  IF IP = 1  OR PI = 1  THEN  POKE 8 *256 +2 *16 +5,1
  30. 400  IF KO = 1  THEN  POKE 8 *256 +2 *16 +6,1
  31. 500  IF PO < >1  THEN  HOME 
  32. 505  IF IP < >1  THEN 550
  33. 510 PI$ = "<CTRL-O> <CTRL-N> <CTRL-O> <CTRL-N> <CTRL-O>  <CTRL-N> <CTRL-O> <CTRL-N> <CTRL-O> <CTRL-N> <CTRL-O> <CTRL-N>"
  34. 520 P2$ = "<CTRL-O> <CTRL-N> <CTRL-O> <CTRL-N> <CTRL-O>  <CTRL-N> <CTRL-O> <CTRL-N>"
  35. 530  FOR I = 1 TO 16
  36. 540  FOR J = 1 TO 6: PRINT PI$;: NEXT : PRINT P2$;: NEXT 
  37. 550  VTAB 17: PRINT "----";L2$;: FOR DH = 1 TO 28 - LEN(L2$): PRINT "-";: NEXT : PRINT "Karaoke Window--------------------Key:(---)-----";
  38. 552  VTAB 24: REM   IF KO = 1 THEN  VTAB 23  
  39. 553  PRINT "=========== <--:Faster -->:Slower  ESC:Pause  SPACE:Stop  F:Sharp/Flat  D:Drums";
  40. 555  IF PO < >1  THEN  FOR I = 1 TO 16: VTAB I: HTAB 79: PRINT  MID$ (" 1 2 3 4 5 6 7 8 910111213141516",(I -1) *2 +1,2);: NEXT 
  41. 560  POKE 34,17: REM  top window
  42. 570  POKE 35,23: REM IF KO = 1 THEN  POKE 35,22     
  43. 580  HOME 
  44. 900  CALL 7 *4096 +6 *256 -3
  45. 910 MI = 12 *4096 +10 *16 +9
  46. 920  FOR CH = 0 TO 15
  47. 930  POKE MI,11 *16 +CH: POKE MI,7 *16 +8: POKE MI,0
  48. 940  POKE MI,11 *16 +CH: POKE MI,7 *16 +9: POKE MI,0
  49. 950  POKE MI,11 *16 +CH: POKE MI,7 *16 +11: POKE MI,0
  50. 960  NEXT CH
  51. 970  TEXT 
  52. 980  PRINT : INPUT "Play Again? (Y/N):";Y$: IF Y$ = "Y"  OR Y$ = "y"  THEN 25
  53. 990  PRINT  CHR$(4)"-/RAMAEPC/KILLSONG": END 
  54. 999  REM   IGNORE ANY GARBAGE BELOW