home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol060 / minbbs25.asc < prev    next >
Encoding:
Text File  |  1984-04-29  |  17.2 KB  |  390 lines
  1. 5 REM    :---------->> MINIRBBS V2.5  3/26/81 <<-------------:
  2. 10 REM   : MINIRBBS                           :
  3. 15 REM   : Message Module of RBBS version 2.2             :
  4. 20 REM   : from Howard Moulton's original SJBBS (in Xitan    :
  5. 25 REM   : Basic), converted to MBASIC and called RBBS or    :
  6. 30 REM   : RIBBS by Bruce Ratoff, and extensively revised/   :
  7. 35 REM   : expanded by Ron Fowler to become RBBS22.          :
  8. 40 REM   :---------------------------------------------------:
  9. 45 REM   : The Fowler version, RBBS22, was split into 2 mod- :
  10. 50 REM   : ules, ENTERBBS and MINIRBBS, by Ben Bronson.      :
  11. 55 REM   :---------------------------------------------------:
  12. 60 REM   : Both were revised and given RBBS-compatible ver-  :
  13. 65 REM   : sion nos. in 3/81 by Tim Nicholas, to incorporate :
  14. 70 REM   : updates from his version 2.4 of RBBS              :
  15. 75 REM   :---------------------------------------------------:
  16. 80 REM   : Bill Earnest's bell-at-line-end routine was added :
  17. 85 REM     : from RBBS 2.5 (see lines 26000+), and the 'G'     :
  18. 90 REM   : command changed to be compatible with MINICBBS--  :
  19. 95 REM   : Now both 'G' & 'C' return the caller to CP/M      :
  20. 100 REM  : and don't sign him off.  The RBBS22/24 line       :
  21. 105 REM  : numbering has been preserved to facilitate adding :
  22. 110 REM  : further changes     --Ben Bronson, 3/26           :
  23. 115 REM  :---------------------------------------------------:
  24. 280 REM
  25. 290 REM
  26. 300 DEFINT A-Z
  27. 330 VERS$="(MINIRBBS vers 2.5)"' VERSION NUMBER
  28. 340 DIM A$(17),M(200,2)
  29. 350 POKE 0,&HCD
  30. 360 INC=1: ERS$=CHR$(8)+" "+CHR$(8)
  31. 370 ON ERROR GOTO 13620
  32. 380 REM ** SIGNON FUNCTIONS
  33. 390 REM
  34. 400 MSGS=1:CALLS=MSGS+1:MNUM=CALLS+1
  35. 420 BK=0:GOSUB 13020:N=1:A$="Hyde Park Chicago Remote CP/M Message Subsystem......":N=0:GOSUB 13020
  36. 460 BEL=-1:XPR=0'INITIAL BEL ON, NOT EXPERT
  37. 470 A$=VERS$:GOSUB 13020
  38. 480 SAV$=""
  39. 500 INC=0
  40. 510 OPEN "I",1,"A:LASTCALR":INPUT #1,N$,O$:CLOSE
  41. 740 BK=0:GOSUB 13020:A$="Active # of msg's: ":N=1:GOSUB 13020
  42. 745 OPEN "R",1,"A:COUNTERS",5:FIELD#1,5 AS RR$:GET#1,MSGS:M=VAL(RR$)
  43. 750 A$=STR$(M):GOSUB 13020
  44. 760 A$="You are caller # : ":N=1:GOSUB 13020:GET#1,CALLS
  45. 770 CN=VAL(RR$)+INC:A$=STR$(CN):LSET RR$=A$:GOSUB 13020:PUT#1,CALLS
  46. 780 A$="Next msg # will be:":N=1:GOSUB 13020:GET#1,MNUM:U=VAL(RR$)
  47. 790 A$=STR$(U+1):GOSUB 13020:CLOSE:GOSUB 13020
  48. 800 REM
  49. 810 REM LOOK FOR MSGS FOR THIS CALLER
  50. 820 REM AND BUILD MESSAGE INDEX
  51. 830 REM
  52. 840 FT=1:MX=0:MZ=0:IU=0:'FLAG FIRST TIME FOR PRINTING HEADING
  53. 850 OPEN "R",1,"A:SUMMARY",30:RE=1:FIELD#1,28 AS RR$
  54. 860 BK=0:GET#1,RE:IF EOF(1) THEN 960
  55. 870 G=VAL(RR$):MZ=MZ+1:M(MZ,1)=G:IF G=0 THEN 950
  56. 880 IF IU=0 THEN IU=G
  57. 890 IF G>9998 THEN MZ=MZ-1:GOTO 960
  58. 900 GET#1,RE+3:GOSUB 16500:IF INSTR(S$,N$)>0 AND INSTR(S$,O$)>0 THEN 930
  59. 910 IF N$<>"SYSOP" THEN 950
  60. 920 IF INSTR(S$,"BEN")=0 THEN 950
  61. 930 IF FT THEN A$="Please retrieve and kill the following message(s) left for you:":GOSUB 13020:FT=0
  62. 940 A$=STR$(G):N=1:GOSUB 13020
  63. 950 GET#1,RE+5:M(MZ,2)=VAL(RR$):MX=MX+M(MZ,2)+6:RE=RE+6:GOTO 860
  64. 960 CLOSE:GOSUB 13020:GOSUB 13020
  65. 999 REM  --- G & C commands changed so that both drop to CP/M ---
  66. 1000 REM
  67. 1020 REM *** MAIN COMMAND ACCEPTOR/DISPATCHER ***
  68. 1040 REM
  69. 1060 A1$="Function":IF NOT XPR THEN A1$=A1$+" (E,R,S,K,C,G,P,X,Q (or '?' if not known)"
  70. 1080 A1$=A1$+"?":GOSUB 13020:C=1:GOSUB 13260:C=0
  71. 1100 IF B$="" THEN 1000
  72. 1120 FF=INSTR("ER?SKCGPXQL",B$):GOSUB 1140:GOTO 1000
  73. 1140 IF FF=0 THEN 1180
  74. 1160 ON FF GOTO 6000,8000,5000,18060,11000,10000,2000,
  75.      17040,17000,18080,19000
  76. 1180 IF N$+O$="SYSOP" THEN IF B$="%" THEN GOSUB 19000:GOTO 1000
  77. 1200 A$="I don't understand '"+B$+"', "+N$+".":GOSUB 13020:GOSUB 13020:
  78.      SAV$="":RETURN
  79. 2000 REM
  80. 2020 REM ***EXIT TO CP/M***
  81. 2240 GOSUB 13020:POKE 4,0:A$="Entering CP/M...":GOSUB 13020:POKE 0,&HC3:SYSTEM
  82. 3000 REM
  83. 5000 REM
  84. 5020 REM *** DISPLAY MENU OF FUNCTIONS ***
  85. 5040 REM
  86. 5060 GOSUB 13020:A$="Functions supported:":GOSUB 13020:IF BK THEN RETURN
  87. 5080 A$="S--> Scan messages     R--> Retrieve message":GOSUB 13020:
  88.      IF BK THEN RETURN
  89. 5100 A$="E--> Enter message     K--> Kill message":GOSUB 13020:IF BK THEN RETURN
  90. 5160 A$="P--> Prompt (bel) togl X--> eXpert user mode":GOSUB 13020:IF BK THEN RETURN
  91. 5180 A$="Q--> Quick summary     C--> Comment before exit to CP/M":GOSUB 13020:IF BK THEN RETURN
  92. 5190 A$="G--> Goodbye--direct exit to C/PM":
  93. 5195 GOSUB 13020:IF BK THEN RETURN
  94. 5200 GOSUB 13020:A$="Commands may be strung together, separated by semicolons.":GOSUB 13020:
  95. 5205 A$="For example, 'R;123' retrieves message # 123.":GOSUB 13020:IF BK THEN RETURN
  96. 5210 A$="For forward sequential retrieval, use  '+' after Msg #.":GOSUB 13020:GOSUB 13020
  97. 5280 GOSUB 13020:RETURN
  98. 6000 REM
  99. 6020 REM ***ENTER A NEW MESSAGE***
  100. 6040 REM
  101. 6060 F=0:GOSUB 13020:OPEN "R",1,"A:COUNTERS",5:A$="Msg # will be: ":N=1:GOSUB 13020:FIELD#1,5 AS RR$:GET#1,MNUM:V=VAL(RR$)
  102. 6080 A$=STR$(V+1):GOSUB 13020:CLOSE
  103. 6100 GOSUB 13020:A1$="Todays date (MM/DD/YY)?":GOSUB 13020:GOSUB 13260:D$=B$
  104. 6120 A1$="Who to (C/R for ALL)?":GOSUB 13020:C=1:GOSUB 13260:C=0:IF B$="" THEN T$="ALL" ELSE T$=B$
  105. 6130 REM --- RBBS25 routine substituted here ---
  106. 6140 A1$="Subject (26 chars. max.):":GOSUB 13020:C=1:GOSUB 13260:C=0:K$=B$
  107. 6150 IF LEN(K$)>30 THEN GOTO 6140
  108. 6160 A1$="Password?":GOSUB 13020:C=1:GOSUB 13260:C=0:PW$=B$:GOSUB 13020
  109. 6170 A1$="Type in up to 16 lines.  A bell sounds at the end of each.":  GOSUB 13020
  110. 6180 A1$="To edit or end, hit 2 C/Rs.  Don't use semicolons.":GOSUB 13020:GOSUB 13020:F=0
  111. 6190 IF F=16 THEN A$="Msg full.":GOSUB 13020:GOTO 6240
  112. 6200 F=F+1:A1$=STR$(F)+" ":N=1:GOSUB 13020:GOSUB 13260:IF B$="" THEN F=F-1:GOTO 6240
  113. 6205 IF F=13 THEN PRINT "(3 lines left. . . .)"
  114. 6215 IF F=15 THEN PRINT "(Last line. . . .)"
  115. 6220 A$(F)=B$+" ":GOTO 6190
  116. 6240 GOSUB 13020:A1$="Choose: (L)ist, (E)dit, (Q)uit, (C)ontinue, or (S)ave -- ":IF XPR THEN A1$="L,E,Q,C,S: ?"
  117. 6260 GOSUB 13020:C=1:GOSUB 13260:C=0
  118. 6280 IF B$<>"L" THEN 6360 ELSE GOSUB 12220
  119. 6300 GOSUB 13020:FOR L=1 TO F:A$=STR$(L)+" "+A$(L)
  120. 6320 IF BK THEN 6240 ELSE GOSUB 13020:NEXT L
  121. 6340 GOSUB 13020:GOTO 6240
  122. 6360 IF B$="Q" THEN A$="Aborted":GOSUB 13020:RETURN
  123. 6380 IF B$="C" THEN 6180
  124. 6400 IF B$="E" THEN 6460
  125. 6420 IF B$="S" THEN 6560
  126. 6440 GOTO 6240
  127. 6460 GOSUB 13020:A1$="Line #?":GOSUB 13020:GOSUB 13260:L=VAL(B$)
  128. 6480 IF L=0 OR L>F THEN 6240 ELSE A$="Was:":GOSUB 13020:A$=A$(L):GOSUB 13020
  129. 6500 A1$="Enter new line":IF NOT XPR THEN A1$=A1$+" (C/R for no change)"
  130. 6520 A1$=A1$+":":GOSUB 13020:GOSUB 13260
  131. 6540 IF B$="" THEN 6240 ELSE A$(L)=B$+" ":GOTO 6240
  132. 6560 REM
  133. 6580 IF PW$<>"" THEN PW$=";"+PW$
  134. 6600 A$="Updating summary file, ":N=1:GOSUB 13020
  135. 6620 OPEN "R",1,"A:SUMMARY",30:RE=1:FIELD#1,30 AS RR$:RL=30
  136. 6640 RE=MZ*6+1:S$=STR$(V+1)+PW$:GOSUB 16000:PUT#1,RE
  137. 6660 RE=RE+1:S$=D$:GOSUB 16000:PUT#1,RE
  138. 6680 RE=RE+1:S$=N$+" "+O$:GOSUB 16000:PUT#1,RE
  139. 6700 RE=RE+1:S$=T$:GOSUB 16000:PUT#1,RE
  140. 6720 RE=RE+1:S$=K$:GOSUB 16000:PUT#1,RE
  141. 6740 RE=RE+1:S$=STR$(F):GOSUB 16000:PUT#1,RE
  142. 6760 RE=RE+1:S$=" 9999":GOSUB 16000:PUT#1,RE
  143. 6780 CLOSE#1
  144. 6800 A$="next msg #, ":N=1:GOSUB 13020:OPEN "R",1,"A:COUNTERS",5:FIELD#1,5 AS RR$
  145. 6820 GET#1,MNUM:LSET RR$=STR$(VAL(RR$)+1):PUT#1,MNUM
  146. 6840 A$="active msg's, ":N=1:GOSUB 13020
  147. 6860 GET#1,MSGS:LSET RR$=STR$(VAL(RR$)+1):PUT#1,MSGS:CLOSE#1
  148. 6880 A$="and msg file.":N=1:GOSUB 13020:OPEN "R",1,"A:MESSAGES",65:RL=65
  149. 6900 FIELD#1,65 AS RR$
  150. 6920 RE=MX+1
  151. 6940 S$=STR$(V+1)+PW$:GOSUB 16000:PUT#1,RE
  152. 6960 RE=RE+1:S$=D$:GOSUB 16000:PUT#1,RE
  153. 6980 RE=RE+1:S$=N$+" "+O$:GOSUB 16000:PUT#1,RE
  154. 7000 RE=RE+1:S$=T$:GOSUB 16000:PUT#1,RE
  155. 7020 RE=RE+1:S$=K$:GOSUB 16000:PUT#1,RE
  156. 7040 RE=RE+1:S$=STR$(F):GOSUB 16000:PUT#1,RE
  157. 7060 RE=RE+1
  158. 7080 FOR P=1 TO F:S$=A$(P):GOSUB 16000:PUT#1,RE:RE=RE+1:NEXT P
  159. 7090 S$=" 9999":GOSUB 16000:PUT#1,RE:CLOSE#1:MX=MX+F+6:MZ=MZ+1:M(MZ,1)=V+1:M(MZ,2)=F
  160. 7100 GOSUB 13020:GOSUB 13020:U=U+1:RETURN
  161. 8000 REM
  162. 8020 REM ***RETRIEVE MESSAGE***
  163. 8040 REM
  164. 8060 GOSUB 13020:A1$="MSG # ("+STR$(IU)+" -"+STR$(U)+" )":IF NOT XPR THEN A1$=A1$+" to retrieve (C/R to end)"
  165. 8080 A1$=A1$+"?":GOSUB 13020:GOSUB 13260:GOSUB 13020
  166. 8100 IF LEN(B$)=0 THEN M=0 ELSE M=VAL(B$)
  167. 8120 IF M<1 THEN GOSUB 13020:RETURN
  168. 8140 IF M>U THEN A$="There aren't that many msg's, "+N$+".":GOSUB 13020:SAV$="":GOTO 8060
  169. 8160 GOSUB 12220:GOSUB 13020
  170. 8180 OPEN "R",1,"A:MESSAGES",65:RE=1:FIELD#1,64 AS RR$:MI=0
  171. 8200 MI=MI+1:IF (MI>MZ) OR BK THEN 8540 ELSE G=M(MI,1)
  172. 8220 IF G<M THEN RE=RE+M(MI,2)+6:GOTO 8200
  173. 8240 IF G>M THEN 8480
  174. 8260 GOSUB 19100:IF OK THEN 8280 ELSE RE=RE+M(MI,2):GOTO 8200
  175. 8280 RE=RE+1:GET#1,RE:GOSUB 16500:D$=S$
  176. 8300 RE=RE+1:GET#1,RE:GOSUB 16500:NO$=S$
  177. 8320 RE=RE+1:GET#1,RE:GOSUB 16500:T$=S$
  178. 8340 RE=RE+1:GET#1,RE:GOSUB 16500:GOSUB 19200:K$=S$
  179. 8360 RE=RE+1:GET#1,RE:J=VAL(RR$):GOSUB 13020
  180. 8380 A$="Msg # "+STR$(G)+"  Date entered: "+D$+"  From: "+NO$:GOSUB 13020
  181. 8400 A$="To: "+T$:GOSUB 13020
  182. 8410 A$="About: "+K$:GOSUB 13020:GOSUB 13020
  183. 8420 RE=RE+1:FOR P=1 TO J:GET#1,RE:GOSUB 16500:A$=S$:GOSUB 13020
  184. 8440 IF BK THEN 8540
  185. 8460 RE=RE+1:NEXT P:GOSUB 13020
  186. 8480 IF RIGHT$(B$,1)<>"+" THEN CLOSE:GOTO 8020
  187. 8500 M=M+1:MI=0:RE=1
  188. 8520 IF M<=U AND NOT BK THEN 8200
  189. 8540 CLOSE:A$="End of msg's.":GOSUB 13020:GOSUB 13020:D$="":NO$="":RETURN
  190. 9000 REM
  191. 9020 REM ***SUMMARIZE MESSAGES***
  192. 9040 REM COMMON CODE FOR S AND Q CMDS
  193. 9060 REM
  194. 9080 GOSUB 13020
  195. 9090 A1$="Msg # ("+STR$(IU)+" -"+STR$(U)+" ) to start (C/R to end)?"
  196. 9095 GOSUB 13020:C=1:GOSUB 13260:C=0:GOSUB 13020 
  197. 9100 IF LEN(B$)=0 THEN M=0 ELSE M=VAL(B$):GOSUB 13220
  198. 9120 IP=INSTR(B$,","):IF IP>0 THEN B$=MID$(B$,IP+1) ELSE ST=0:GOTO 9220
  199. 9140 IF LEN(B$)<3 THEN RETURN
  200. 9160 IF MID$(B$,2,1)<>"=" THEN RETURN
  201. 9180 SV$=MID$(B$,3):B$=LEFT$(B$,1):ST=INSTR("FTS",B$)
  202. 9200 IF ST=0 THEN RETURN
  203. 9220 IF M<1 THEN RETURN
  204. 9240 IF M>U THEN A$="There ain't that many msg's, "+N$+".":GOSUB 13020:SAV$="":RETURN
  205. 9260 IF NOT QU THEN GOSUB 12220:GOSUB 13020
  206. 9280 OPEN "R",1,"A:SUMMARY",30:RE=1:FIELD #1,28 AS RR$
  207. 9300 GET #1,RE
  208. 9320 IF EOF(1) OR BK THEN 9660 ELSE G=VAL(RR$)
  209. 9340 IF G>9998 THEN 9660
  210. 9360 IF G<M THEN RE=RE+6:GOTO 9300
  211. 9380 GOSUB 19100:IF OK THEN 9400 ELSE RE=RE+6:GOTO 9300
  212. 9400 GET #1,RE+ST+1:IF ST=0 THEN 9420 ELSE GOSUB 16500:IF INSTR(S$,SV$)=0 THEN RE=RE+6:GOTO 9300
  213. 9420 IF NOT QU THEN 9500
  214. 9440 REM quick summary
  215. 9460 GET #1,RE+4:GOSUB 16500:GOSUB 19200:A$=SPACE$(4-LEN(STR$(G)))+STR$(G)+" "+S$:GOSUB 13020
  216. 9480 IF U=G OR BK THEN 9660 ELSE RE=RE+6:GOTO 9300
  217. 9500 REM full summary
  218. 9520 A$="Msg #"+STR$(G)+"    Date entered: ":N=1:GOSUB 13020:IF BK THEN 9660
  219. 9540 RE=RE+1:GET #1,RE:GOSUB 16500:A$=S$+"   From: ":N=1:GOSUB 13020:IF BK THEN 9660
  220. 9560 RE=RE+1:GET #1,RE:GOSUB 16500:A$=S$:GOSUB 13020:IF BK THEN 9660
  221. 9580 A$="To: ":N=1:GOSUB 13020:RE=RE+1:GET #1,RE:GOSUB 16500:A$=S$:GOSUB 13020:IF BK THEN 9660
  222. 9600 A$="About: ":N=1:GOSUB 13020:RE=RE+1:GET #1,RE:GOSUB 16500:GOSUB 19200:A$=S$:GOSUB 13020:IF BK THEN 9660
  223. 9620 A$="Size: ":N=1:GOSUB 13020:RE=RE+1:GET #1,RE:GOSUB 16500:A$=S$:GOSUB 13020:IF BK THEN 9660
  224. 9640 GOSUB 13020:IF U=G OR BK THEN 9660 ELSE RE=RE+1:GOTO 9300
  225. 9660 GOSUB 13020:A$="***** End of summary *****":GOSUB 13020:GOSUB 13020:GOSUB 13020:CLOSE:RETURN
  226. 10000 REM
  227. 10020 REM ***GOODBYE***
  228. 10040 REM
  229. 10060 GOSUB 13020:A1$="Want to leave any comments?":GOSUB 13020:C=1:GOSUB 13260:C=0
  230. 10070 IF LEFT$(B$,1)="N" THEN 10260
  231. 10080 IF LEFT$(B$,1)<>"Y" THEN 10060
  232. 10100 OPEN "R",1,"A:COMMENTS",65:FIELD#1,65 AS RR$:GET#1,1:RE=VAL(RR$)+1:RL=65
  233. 10120 IF RE=1 THEN RE=2
  234. 10140 S$="From: "+N$+" "+O$:GOSUB 16000
  235. 10160 PUT#1,RE
  236. 10180 A$="Enter comments, C/R to end:  (16 lines max)":GOSUB 13020
  237. 10200 A$="Ok>":N=1:GOSUB 13020:GOSUB 13260
  238. 10220 IF B$="" THEN 10240 ELSE RE=RE+1:S$=B$:RL=65:GOSUB 16000:PUT#1,RE:GOTO 10200
  239. 10240 S$=STR$(RE):RL=65:GOSUB 16000:PUT#1,1:CLOSE
  240. 10260 GOSUB 13020:A$="Character count:  "+STR$(A)+" typed by system - "+STR$(D)+ " typed by you.":GOSUB 13020
  241. 10270 A$="If you left one, thanks for the comment, "+N$+".":GOSUB 13020
  242. 10280 GOSUB 13020:GOSUB 13020:A$="Now back to CP/M...":GOSUB 13020:GOTO 2020
  243. 10285 REM  -------------------------------------------------
  244. 10290 REM  To disconnect - reset modem DTR line. ROUTINE REMOVED--BB
  245. 11000 REM
  246. 11020 REM ***KILL A MESSAGE***
  247. 11040 REM
  248. 11060 GOSUB 13020:A1$="Message # to kill?":GOSUB 13020:GOSUB 13260
  249. 11080 IF LEN(B$)=0 THEN M=0 ELSE M=VAL(B$)
  250. 11100 IF M<1 THEN GOSUB 13020:RETURN
  251. 11120 IF M>U THEN A$="There aren't that many msg's, "+N$+".":GOSUB 13020:SAV$="":GOTO 11040
  252. 11140 A$="Scanning summary file....":GOSUB 13020:OPEN "R",1,"A:SUMMARY",30:RE=1:FIELD#1,30 AS RR$:RL=30
  253. 11160 GET#1,RE
  254. 11180 IF EOF(1) THEN 11520 ELSE G=VAL(RR$)
  255. 11200 IF G>9998 THEN 11520
  256. 11220 IF G<M THEN RE=RE+6:GOTO 11160
  257. 11240 IF G>M THEN 11520
  258. 11260 GOSUB 19100:IF NOT OK THEN 11520
  259. 11280 GOSUB 16500:PW=INSTR(S$,";"):PW$=""
  260. 11300 IF PW=0 OR N$+O$="SYSOP" OR PERS THEN PERS=0:GOTO 11340
  261. 11320 PW$=MID$(S$,PW+1)
  262. 11330 A1$="Password ?":GOSUB 13020:C=1:GOSUB 13260:C=0:IF B$<>PW$ THEN A$="Incorrect.":GOSUB 13020:GOSUB 13020:CLOSE:RETURN
  263. 11340 S$=" 0"+":"+STR$(G):GOSUB 16000:PUT#1,RE:CLOSE
  264. 11360 A$="Updating message file....":GOSUB 13020
  265. 11380 OPEN "R",1,"A:MESSAGES",65:RE=1:FIELD#1,65 AS RR$:MI=0
  266. 11400 MI=MI+1:IF MI>MZ THEN 11520 ELSE G=M(MI,1)
  267. 11420 IF G<M THEN RE=RE+M(MI,2)+6:GOTO 11400
  268. 11440 IF G=M THEN S$="0"+":"+STR$(G)+":"+N$+","+O$:RL=65:GOSUB 16000:PUT#1,RE:M(MI,1)=0
  269. 11460 CLOSE#1:A$="Updating message count...":GOSUB 13020
  270. 11480 OPEN "R",1,"A:COUNTERS",5:FIELD#1,5 AS RR$:GET#1,MSGS:LSET RR$=STR$(VAL(RR$)-1):PUT#1,MSGS:CLOSE
  271. 11500 GOSUB 13020:A$="Message killed.":GOSUB 13020:GOSUB 13020:RETURN
  272. 11520 CLOSE:A$="Message not found.":GOSUB 13020:GOSUB 13020:RETURN
  273. 12000 REM
  274. 12020 REM ***DISPLAY USER FILE***
  275. 12160 REM
  276. 12180 REM **** PRINT CONTROL-CHAR INFO
  277. 12200 REM
  278. 12220 GOSUB 13020
  279. 13000 A$="Use Ctl-S to Pause."
  280. 13020 REM
  281. 13040 REM ***PRINT STRING FROM A$ ON CONSOLE***
  282. 13060 REM
  283. 13080 IF SAV$<>"" AND A1$<>"" THEN A1$="":RETURN
  284. 13100 IF A1$<>"" THEN A$=A1$:A1$=""
  285. 13120 IF RIGHT$(A$,1)="?" OR N=1 THEN PRINT A$;:PP$=A$:GOTO 13180
  286. 13140 BI=ASC(INKEY$+" "):IF BI=19 THEN BI=ASC(INPUT$(1))
  287. 13160 IF BI=11 THEN BK=-1:GOTO 13220 ELSE PRINT A$
  288. 13180 A=A+LEN(A$)
  289. 13220 A$="":N=0
  290. 13240 RETURN
  291. 13260 REM
  292. 13280 REM ***ACCEPT STRING INTO B$ FROM CONSOLE***
  293. 13300 REM
  294. 13320 IF BEL AND SAV$="" THEN PRINT CHR$(7);
  295. 13340 B$="":BK=0
  296. 13360 IF SAV$="" THEN GOSUB 26000
  297. 13380 SP=INSTR(SAV$,";"):IF SP=0 THEN B$=SAV$:SAV$="":GOTO 13420
  298. 13400 B$=LEFT$(SAV$,SP-1):SAV$=MID$(SAV$,SP+1)
  299. 13420 IF LEN(B$)=0 THEN RETURN
  300. 13440 IF C=0 THEN 13480
  301. 13460 FOR ZZ=1 TO LEN(B$):MID$(B$,ZZ,1)=CHR$(ASC(MID$(B$,ZZ,1))+32*(ASC(MID$(B$,ZZ,1))>96)):NEXT ZZ
  302. 13480 IF LEN(B$)<63 THEN 13580
  303. 13500 A$="Input line too long - would be truncated to:":GOSUB 13020
  304. 13520 B$=LEFT$(B$,62):PRINT B$
  305. 13540 LINE INPUT "Retype line (Y/N)?";QQ$:QQ$=LEFT$(QQ$,1)
  306. 13560 IF QQ$="Y" OR QQ$="y" THEN PRINT PP$;:SAV$="":GOTO 13260
  307. 13580 D=D+LEN(B$):RETURN
  308. 13600 RETURN
  309. 13620 REM
  310. 15000 REM ***ON ERROR HANDLER***
  311. 15020 IF ERL=18030 THEN RESUME 18050
  312. 15040 IF ERL=740 THEN M=0:RESUME 750
  313. 15050 IF ERL=760 THEN C=0:RESUME 770
  314. 15060 IF ERL=780 THEN U=0:RESUME 790
  315. 15070 IF ERL=6060 THEN V=0:RESUME 6080
  316. 15080 IF ERL=6800 THEN C=0:RESUME 6820
  317. 15090 IF ERL=6840 THEN C=0:RESUME 6860
  318. 15100 RESUME NEXT
  319. 16000 REM
  320. 16010 REM FILL AND STORE DISK RECORD
  321. 16020 REM
  322. 16030 LSET RR$=LEFT$(S$+SPACE$(RL-2),RL-2)+CHR$(13)+CHR$(10)
  323. 16040 RETURN
  324. 16500 REM
  325. 16510 REM UNPACK DISK RECORD
  326. 16520 REM
  327. 16530 ZZ=LEN(RR$)-2
  328. 16540 WHILE MID$(RR$,ZZ,1)=" "
  329. 16550 ZZ=ZZ-1:IF ZZ=1 THEN 16570
  330. 16560 WEND
  331. 16570 S$=LEFT$(RR$,ZZ)
  332. 16580 IF MID$(S$,ZZ,1)="?" THEN S$=S$+" "
  333. 16590 RETURN
  334. 17000 REM
  335. 17010 REM *** TOGGLE EXPERT USER MODE
  336. 17020 REM
  337. 17030 XPR=NOT XPR:RETURN
  338. 17040 REM
  339. 17050 REM *** TOGGLE BELL PROMPT
  340. 17060 REM
  341. 17070 BEL=NOT BEL:RETURN
  342. 18000 REM
  343. 18010 REM SUBROUTINE TO PRINT A FILE
  344. 18020 REM
  345. 18030 OPEN "I",1,"A:"+FIL$:BK=0
  346. 18040 IF EOF(1) OR BK THEN 18050 ELSE LINE INPUT #1,A$:GOSUB 13020:GOTO 18040
  347. 18050 CLOSE #1:RETURN
  348. 18060 REM FULL SUMMARY
  349. 18070 QU=0:GOSUB 9000:RETURN
  350. 18080 REM QUICK SUMMARY
  351. 18090 QU=-1:GOSUB 9000:RETURN
  352. 19000 REM PRINT "CALLERS" FILE...FOR SYSOP ONLY (PRIVATE CMD)
  353. 19010 GOSUB 13020
  354. 19020 IF N$+O$<>"SYSOP" THEN 1200' IF NOT SYSOP, SAY "I DON'T UNDERSTAND".
  355. 19030 OPEN "R",1,"A:CALLERS",60:FIELD #1,60 AS RR$:GET #1,1:SIZ=VAL(RR$)
  356. 19040 CA=CN
  357. 19050 FOR CNT=SIZ+1 TO 2 STEP -1
  358. 19060 GET #1,CNT:GOSUB 16500:A$=SPACE$(5-LEN(STR$(CA)))+STR$(CA)+" "+S$:GOSUB 13020:IF BK THEN 19090
  359. 19070 CA=CA-1
  360. 19080 NEXT CNT
  361. 19090 CLOSE:A$= "END OF CALLERS.":GOSUB 13020:GOSUB 13020:RETURN
  362. 19100 REM TEST FOR PERSONAL MESSAGES
  363. 19110 PERS=0:OK=-1:GET #1,RE:IF INSTR(RR$,";*")=0 THEN 19160
  364. 19120 PERS=-1
  365. 19130 IF N$+O$="SYSOP" THEN 19160
  366. 19140 GET #1,RE+3:GOSUB 19170:IF OK THEN 19160
  367. 19150 GET #1,RE+2:GOSUB 19170
  368. 19160 RETURN
  369. 19170 REM TEST 'FROM' OR 'TO' FIELD FOR USER'S NAME
  370. 19180 IF INSTR(RR$,N$)>0 AND INSTR(RR$,O$)>0 THEN OK=-1 ELSE OK=0
  371. 19190 RETURN
  372. 19200 IF PERS THEN S$="("+S$:S$=S$+")":PERS=0
  373. 19210 RETURN
  374. 26000 CHC=0: SAV$=""
  375. 26010 NCH=ASC(INPUT$(1))
  376. 26020 IF NCH=127 THEN 26080
  377. 26030 IF NCH<32 THEN 26110
  378. 26040 IF CHC>=63 THEN 26010
  379. 26050 SAV$=SAV$+CHR$(NCH): CHC=CHC+1: PRINT CHR$(NCH);
  380. 26060 IF CHC=55 THEN PRINT CHR$(7);
  381. 26070 GOTO 26010
  382. 26080 IF CHC=0 THEN 26010 ELSE PRINT RIGHT$(SAV$,1);: GOTO 26100
  383. 26090 IF CHC=0 THEN 26010 ELSE PRINT ERS$;
  384. 26100 CHC=CHC-1: SAV$=LEFT$(SAV$,CHC): GOTO 26010
  385. 26110 IF NCH=8 THEN 26090
  386. 26120 IF NCH=13 THEN PRINT: RETURN
  387. 26130 IF NCH=21 THEN PRINT " #": GOTO 26000
  388. 26140 IF NCH<>24 OR CHC=0 THEN 26010
  389. 26150 FOR BCC=1 TO CHC: PRINT ERS$;: NEXT BCC: GOTO 26000
  390.