home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / menu.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  127 lines
  1. 0 'Club 100 Library, modem 415 939-1246
  2. 1 'MENU.BA by Robert Benson (Ver 2.0)
  3. 10 CLEAR200:GOSUB119
  4. 11 FORD=-1606TO-1408STEP11
  5. 12 IFPEEK(D)=0GOTO20
  6. 13 I=I+1
  7. 14 M(I)=D
  8. 15 FORN=3TO10
  9. 16 A$(I)=A$(I)+CHR$(PEEK(D+N))
  10. 17 IFN=8THENA$(I)=A$(I)+"."
  11. 18 NEXT
  12. 19 A(I)=PEEK(D+1)+PEEK(D+2)*256-Z
  13. 20 NEXT
  14. 21 I=I+1
  15. 22 A$(I)="Basic*"
  16. 23 A(I)=PEEK(63898)+PEEK(63899)*256-Z
  17. 24 I=I+1
  18. 25 A$(I)="Paste*"
  19. 26 A(I)=PEEK(63909)+PEEK(63910)*256-Z
  20. 27 I=I+1
  21. 28 A4=MAXFILES
  22. 29 A$(I)=MID$(STR$(A4),2)+" Max*"
  23. 30 A(I)=A4*267
  24. 31 I=I+1
  25. 32 A$(I)="Saved*"
  26. 33 A(I)=MAXRAM-HIMEM
  27. 34 BEEP:BEEP:BEEP:BEEP
  28. 35 K=I-4
  29. 36 KEYON
  30. 37 ONKEYGOSUB68,92,101,106,,,,133
  31. 38 CLS:PRINT@40,"Directory"
  32. 39 FORN=1TOK
  33. 40 P(N)=(N+4)*10
  34. 41 PRINT@P(N),A$(N)
  35. 42 NEXT
  36. 43 N=1
  37. 44 PRINT@P(N),VR;A$(N)VN
  38. 45 IFE=1GOTO48ELSEPRINT@280,"Size Name Kill Move                Menu";
  39. 46 GOSUB59
  40. 47 K=I-4
  41. 48 C$=INKEY$:IFC$=""GOTO48
  42. 49 C=ASC(C$)
  43. 50 PRINT@P(N),A$(N)
  44. 51 IFC=28THENN=N+1:IFN>KTHENN=1
  45. 52 IFC=29THENN=N-1:IFN<1THENN=K
  46. 53 IFC=30THENN=N-4:IFN<1THENN=N+4
  47. 54 IFC=31THENN=N+4:IFN>KTHENN=N-4
  48. 55 PRINT@P(N),VR;A$(N)VN
  49. 56 IFC<>13GOTO45
  50. 57 IFE=1THENRETURN
  51. 58 IFINKEY$=""GOTO58ELSE45
  52. 59 A3=A2
  53. 60 K=I-2
  54. 61 FORD=1TOK
  55. 62 IFA(D)<=A(N)GOTO65
  56. 63 A1=A(D)
  57. 64 IFA1<A3THENA3=A1
  58. 65 NEXT
  59. 66 PRINT@301,"("MID$(STR$(A3-A(N)),2,5)" Bytes)";
  60. 67 RETURN
  61. 68 BEEP:GOSUB129
  62. 69 K=I-2
  63. 70 FORN=1TOK
  64. 71 A1=A2
  65. 72 FORD=1TOK
  66. 73 IFA(D)<A1ANDA(D)>B(N-1)THENA1=A(D)
  67. 74 NEXT
  68. 75 B(N)=A1
  69. 76 NEXT
  70. 77 B(N)=A2
  71. 78 CLS
  72. 79 FORN=1TOI
  73. 80 FORD=1TOK
  74. 81 IFN>KTHEND=N:A4=A(N):GOTO84
  75. 82 IFA(D)<>B(N)GOTO86
  76. 83 A4=B(N+1)-B(N)
  77. 84 PRINTUSINGF$;A$(D),A4;
  78. 85 GOTO87
  79. 86 NEXTD
  80. 87 IFNMOD3=0THENPRINT
  81. 88 NEXTN
  82. 89 PRINT@307,VR" Used"X-A(I)-A(I-1)-89VN;
  83. 90 BEEP:FORT=1TO250:NEXT:BEEP
  84. 91 IFINKEY$=""GOTO91ELSE10
  85. 92 KEYSTOP:CLS:PRINT@86,"RENAMING: "VR" "A$(N)" "VN
  86. 93 PRINTTAB(86):LINEINPUT"NEW NAME: ";N$
  87. 94 F=LEN(N$)
  88. 95 IFF=0GOTO35
  89. 96 IFF<6THENN$=N$+SPACE$(6-F)
  90. 97 FORD=1TO6
  91. 98 POKEM(N)+2+D,ASC(MID$(N$,D,1))
  92. 99 NEXT
  93. 100 BEEP:GOTO10
  94. 101 KEYSTOP:CLS:PRINT@85,"ENTER (*) TO KILL: "VR" "A$(N)" "VN" ";
  95. 102 Y$=INKEY$:IFY$=""GOTO102
  96. 103 IFY$<>"*"GOTO35ELSEZ$=A$(N)
  97. 104 POKE65450,4:POKE65451,82:POKE65453,85:POKE65455,78:POKE65457,13:BEEP:KILLZ$
  98. 105 POKE65450,0:GOTO10
  99. 106 KEYSTOP:CLS:PRINT@40,"Directory"
  100. 107 PRINT@281,"SELECT A NEW LOCATION FOR: "VR" "A$(N)" "VN;
  101. 108 D=N
  102. 109 E=1
  103. 110 GOSUB39
  104. 111 IFA$(N)=A$(D)THENE=0:GOTO35
  105. 112 FORL=0TO10
  106. 113 F1=PEEK(M(D)+L)
  107. 114 F2=PEEK(M(N)+L)
  108. 115 POKEM(N)+L,F1
  109. 116 POKEM(D)+L,F2
  110. 117 NEXT
  111. 118 BEEP:GOTO10
  112. 119 DEFINTA-W
  113. 120 DEFSNGX-Z
  114. 121 DEFSTRV
  115. 122 DIMA$(25),A(25),B(25),M(25),P(25)
  116. 123 VN=CHR$(27)+"q"
  117. 124 VR=CHR$(27)+"p"
  118. 125 Y=PEEK(64192)+PEEK(64193)*256
  119. 126 X=PEEK(64438)+PEEK(64439)*256-Y
  120. 127 Z=65536
  121. 128 A2=PEEK(64434)+PEEK(64435)*256-Z
  122. 129 B(0)=-32768
  123. 130 F$=" \    \######"
  124. 131 KEY(1)OFF:KEY(2)OFF:KEY(3)OFF:KEY(4)OFF
  125. 132 CLS:PRINT@131,VR" ONE MOMENT PLEASE "VN:RETURN
  126. 133 MENU
  127.