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