home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MIDIOLD / LIBRARY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1995-07-11  |  1.5 KB  |  70 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 ME$ = "LIBRARY":RM$ = "/RAMAEPC/"
  2. 20  IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"-"RM$;ME$
  3. 100  PRINT  CHR$(4)"BRUN"RM$"DIR.OBJ
  4. 105 KY =  PEEK(16384 +4): IF KY = 27  THEN  PRINT : PRINT  CHR$(4)"-"RM$"MIDI.MENU"
  5. 110 BAS =  PEEK(14 *16 +13) + PEEK(14 *16 +14) *256
  6. 120 PTR = BAS +2
  7. 130 F$ = ""
  8. 140  IF  PEEK(PTR) < >160  THEN F$ = F$ + CHR$( PEEK(PTR) -128):PTR = PTR +1: IF PTR <BAS +17  THEN 140
  9. 160 FT$ =  CHR$( PEEK(BAS +17) -128) + CHR$( PEEK(BAS +18) -128) + CHR$( PEEK(BAS +19) -128)
  10. 180  PRINT  CHR$(4)"PREFIX": INPUT PR$
  11. 190  REM  SET UP PATH FOR RETURNING TO THIS PROGRAM
  12. 200  PRINT  CHR$(4)"OPEN "RM$"RETURN": PRINT  CHR$(4)"WRITE"RM$"RETURN"
  13. 210  PRINT "PREFIX "PR$
  14. 220  PRINT "RUN "RM$;ME$
  15. 230  PRINT  CHR$(4)"CLOSE"
  16. 300  PRINT  CHR$(4)"OPEN "RM$"R": PRINT  CHR$(4)"WRITE"RM$"R"
  17. 310  PRINT PR$
  18. 320  PRINT F$
  19. 330  PRINT  CHR$(4)"CLOSE"
  20. 400  IF FT$ < >"MID"  THEN 500
  21. 410  PRINT  CHR$(4)"RUN "RM$"MIDI.INFO,@2"
  22. 499  END 
  23. 500  IF FT$ < >"BIN"  THEN 600
  24. 510  GOSUB 1000
  25. 599  END 
  26. 600  END 
  27. 1000 ER =  LEN(F$):FL$ = F$
  28. 1002  IF KY =  ASC("O")  THEN 1300
  29. 1005 NR$ =  MID$ (FL$,ER,1)
  30. 1010  IF NR$ <"0"  OR NR$ >"9"  THEN 1100
  31. 1015 F2$ =  LEFT$(FL$,ER -1)
  32. 1040  FOR XE =  VAL(NR$) TO 0  STEP  -1
  33. 1050  PRINT  CHR$(4)"COPY "F2$; STR$(XE);","RM$"T" STR$(XE)
  34. 1060  NEXT 
  35. 1070  POKE 216,0
  36. 1080  POKE 767, VAL(NR$) +1
  37. 1090  PRINT  CHR$(4)"PREFIX"RM$
  38. 1092  HOME : VTAB 24
  39. 1095  PRINT  CHR$(4)"RUN MULTIPLAY,@1"
  40. 1099  RETURN 
  41. 1100  IF NR$ < >"R"  AND NR$ < >"L"  AND NR$ < >"D"  THEN 1200
  42. 1110 F2$ =  LEFT$(FL$,ER -1)
  43. 1115  IF  RIGHT$(F2$,1) < >"."  THEN 1200
  44. 1130 UT = 0
  45. 1135  ONERR  GOTO 1150
  46. 1140  PRINT  CHR$(4)"COPY "F2$"R,"RM$"T" STR$(UT)
  47. 1142 UT = UT +1
  48. 1145  ONERR  GOTO 1160
  49. 1150  PRINT  CHR$(4)"COPY "F2$"L,"RM$"T" STR$(UT)
  50. 1152 UT = UT +1
  51. 1155  ONERR  GOTO 1170
  52. 1160  PRINT  CHR$(4)"COPY "F2$"D,"RM$"T" STR$(UT)
  53. 1162 UT = UT +1
  54. 1170  POKE 216,0
  55. 1180  POKE 767,UT
  56. 1190  PRINT  CHR$(4)"PREFIX"RM$
  57. 1192  HOME : VTAB 24
  58. 1195  PRINT  CHR$(4)"RUN MULTIPLAY,@1"
  59. 1199  RETURN 
  60. 1200  IF NR$ < >"H"  THEN 1300
  61. 1210  IF  RIGHT$(FL$,3) < >".RH"  AND  RIGHT$(FL$,3) < >".LH"  THEN 1300
  62. 1220 F2$ =  LEFT$(FL$,ER -2)
  63. 1240  PRINT  CHR$(4)"COPY "F2$"RH,"RM$"T0"
  64. 1250  PRINT  CHR$(4)"COPY "F2$"LH,"RM$"T1"
  65. 1260  POKE 216,0
  66. 1280  POKE 767,2
  67. 1290  GOTO 1190
  68. 1300  PRINT  CHR$(4)"COPY "FL$","RM$"T0"
  69. 1310  POKE 767,1
  70. 1320  GOTO 1190