home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / SYSTEM.SFX / gm-bbs (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-08-28  |  32.0 KB  |  869 lines
  1. 0 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(8)
  2. 1 DV=8:X=PEEK(659):IFX=8 THEN7
  3. 2 IF X=6 THEN 5
  4. 3 IF X=10 THEN POKE 659,8:GOTO1
  5. 4 GOTO15
  6. 5 OPEN5,2,2,CHR$(6):POKE 830,1:SYS850:IN$="":PRINTCHR$(6):GOTO8
  7. 7 CLOSE5:OPEN5,2,2,CHR$(8):POKE830,1:SYS850:IN$="":PRINTCHR$(8)
  8. 8 GOTO49999
  9. 15 IFPEEK(850)=165THENGOTO30
  10. 16 PRINT"[201]NSTALL ML BY LOADING BOOT PRGRAM":END
  11. 30 PRINT"[147][159]           [205][193][201][206] [204][207][193][196][197][196] ..      ":FORK=1TO300:NEXTK
  12. 50 DV=8:CLOSE15:GOTO50190
  13. 80 X=PEEK(832):IFX>0THENGOTO82
  14. 81 PO$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"+CR$:GOSUB120:RETURN
  15. 82 PO$=CR$+"---------------------"+CR$:GOSUB120:RETURN
  16. 85 X=PEEK(832):IFX>0THENGOTO87
  17. 86 PO$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"+CR$:GOSUB120:RETURN
  18. 87 PO$=CR$+"---------------------------------------"+CR$:GOSUB120:RETURN
  19. 89 REM * LEAVE *
  20. 90 TL=PEEK(LC+3):CTM$=MID$(TI$,1,4):CT=VAL(CTM$):IFCT>=TLTHEN5600
  21. 91 PO$=CR$+"[158][212][201][205][197] ["+STR$(TL-CT)+"[158]], [159](?)= [156][205][197][206][213]"+CR$:GOSUB 120
  22. 92 PO$="<"+AR$+"> [158][195]OMMAND: ":GOSUB120
  23. 93 GOSUB 100:RETURN
  24. 95 PO$=CR$+CR$+"[158][[208][210][197][211][211] [210][197][212][213][210][206][158]]:[158] ":GOSUB120:RETURN
  25. 99 REM
  26. 100 IN$="":GOSUB 4850:IL=PEEK(LC+111)-2
  27. 101 IFKC=1 THEN 51000
  28. 102 POKE830,3:POKE832,QX:POKE835,U:IF IL<0 OR IL>80 THEN IL=80
  29. 103 POKE836,IL:SYS850
  30. 106 IFCP=1 AND IN$<>"" THENGOSUB9600
  31. 107 CP=0
  32. 109 RETURN
  33. 110 GOTO 100
  34. 120 IF CG=1 OR LEN(PO$)<1 THEN 129
  35. 121 X$(0)=F$:X$(1)=T$
  36. 122 F$="[144][159][156][158][146][129][149][150][151][152][153][154][155]"
  37. 123 T$="                  "
  38. 125 S$=PO$:SYS 49152,F$,T$,S$:PO$=S$:S$="":F$=X$(0):T$=X$(1):X$(0)="":X$(1)=""
  39. 129 POKE830,1:POKE831,QZ:POKE832,QX:POKE836,PEEK(LC+111):SYS850:A$="":PO$="":RETURN
  40. 130 REM SEND FILE OUT
  41. 131 POKE830,2:POKE831,QZ:POKE832,QX:SYS850:RETURN
  42. 140 POKE 53296,1:RETURN:POKE 53265,PEEK(53265)AND239:RETURN:REM  FASTMODE FOR C128
  43. 145 POKE 53296,0:RETURN:POKE 53265,PEEK(53265)OR 16:RETURN
  44. 149 REM ** FILE READER **
  45. 150 DV$=STR$(DV):GOSUB175:IF CK=1 THEN V=1:Z=0:GOTO 160
  46. 151 REM:IF PEEK(LC+110)=1 AND MU=1 THEN V=1:Z=0:GOTO 160
  47. 152 PO$=CR$+CR$:CLOSE15:CLOSE8:OPEN15,DV,15:OPEN8,DV,8,"0:"+FL$+",S,R"
  48. 153 GOSUB 185:IF CK=1 THEN V=1:ZT=0:GOTO 160
  49. 154 IFZT=1THENPO$=CR$+"[158]<P[158]> [208]AUSE  <Q[158]> QUIT  [211]PACE RESUMES[158]"+CR$:GOSUB120
  50. 155 SR=ST:PO$=IN$:GOSUB130
  51. 159 PRINT#15,"I0:":CLOSE15
  52. 160 DV$="":IF V=1 THEN V=0
  53. 161 IF MU=1 THEN PO$=CR$+CR$+"[216] -> [197]XITS AREA."+CR$:GOSUB120
  54. 162 PO$=CHR$(14):GOSUB120
  55. 165 CLOSE8:CLOSE15:MU=0:ZT=0:RETURN
  56. 175 REM ** DEVICE CK
  57. 176 CK=0:CLOSE15:OPEN15,DV,15:CLOSE15:IFST>=0THEN180
  58. 177 PO$=CR$+"[196]EVICE FAILURE #"+STR$(DV)+CR$:GOSUB120:CK=1
  59. 180 CLOSE15:RETURN
  60. 185 REM ** FILE CK
  61. 186 CK=0:EN=0:EM$="":INPUT#15,EN,EM$:IFEN<2THEN190
  62. 187 CK=1:PRINT:PRINT"["+STR$(DV)+","+FL$+","+EM$+"]"
  63. 190 RETURN
  64. 195 PO$=CR$+CR$+"[159]<[210]ETURN[159]>: ":GOSUB120:GOSUB100:RETURN
  65. 199 GOSUB175:IFCK=1 THEN GOSUB195:GOTO225
  66. 200 CLOSE15:OPEN15,DV,15:PO$=CR$+ZC$:OPEN8,DV,8,"0:"+FL$+",S,R":WA$="":HB=1
  67. 201 INPUT#15,EN,B$:IFEN<2THEN WA$="1":SR=0:GOTO204
  68. 202 IF WA$=""THEN225
  69. 203 PO$=CR$+CR$+"[158][206]O MORE [205]AIL.[146]"+CR$:CLOSE15:CLOSE8:GOSUB120:GOSUB195:GOTO 220
  70. 204 INPUT#8,PA$
  71. 205 INPUT#8,PB$:IF PA$=""THEN202
  72. 206 PO$=CR$+CR$+ZC$:GOSUB120:GOSUB80:PO$="[205]ESSAGE:[159] #"+WA$+CR$:GOSUB120
  73. 207 PO$="[198]ROM: "+PA$+CR$+"[211]UBJECT: "+PB$+CR$:GOSUB120:GOSUB80:PO$=CR$:GOSUB120
  74. 209 GET#8,A$:IFA$=CHR$(42)THENGOTO214
  75. 210 IF A$=CHR$(13)THENPO$=PO$+CR$:GOSUB120:GOTO212
  76. 211 PO$=PO$+A$
  77. 212 GOTO 209
  78. 213 GOTO 202
  79. 214 GOSUB85
  80. 215 CP=1:PO$=CR$+"<[206]> [206][197][216][212]  [159]<[209]> [209][213][201][212]  [156]<[210]> [210][197][208][204][217] : ":GOSUB120:GOSUB110:CP=0
  81. 216 IFIN$="[209]"THEN 220
  82. 217 IFIN$="[206]"THEN IN=VAL(WA$):IN=IN+1:WA$=STR$(IN):PA$="":PB$="":GOTO230
  83. 218 IFIN$="[210]" THENCLOSE8:CLOSE15:PO$=CR$+"* [210]EPLY *"+CR$:GOSUB120:GOTO 15210
  84. 219 GOTO213
  85. 220 PO$=CR$+"[196]ELETE [205]AIL (Y/N): ":CP=1:GOSUB120:GOSUB110:CP=0:IFIN$="[206]"THEN225
  86. 221 IF IN$<>"[217]" THEN220
  87. 222 PO$=CR$+"[203]ILLING [205]AIL .."+CR$:GOSUB120
  88. 223 FL$="EM-"+NM$
  89. 224 DV=PEEK(LC+34):CLOSE15:OPEN15,DV,15,"S0:"+FL$
  90. 225 CLOSE8:CLOSE15:GOTO 15205
  91. 230 FOR Z=1TO100:A$="":GET#8,A$:IFA$=CHR$(42)THEN 204
  92. 231 NEXTZ:GOTO202
  93. 249 PO$=CR$+CR$:GOSUB120:GOSUB80
  94. 250 DV=B(MA):CLOSE15:CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,R":OPEN15,DV,15:GOSUB185:IF CK=0THEN255
  95. 251 PO$=CR$+"[205]ESSAGE [196]ELETED."+CR$:GOSUB120:GOSUB195:GOTO 275
  96. 252 Z=PEEK(746):IFIN<=ZTHEN 250
  97. 253 PO$=CR$+CR$+"[206]O MORE MESSAGES.":GOSUB120:GOSUB195:GOTO 275
  98. 255 GET#2,A$:RS=ST:IFA$=CHR$(13)THENA$=CR$
  99. 256 IF A$<>""THENPO$=PO$+A$:IFA$=CR$THENGOSUB120
  100. 257 IF RS=0 THEN 255
  101. 258 CLOSE2
  102. 260 PO$=CR$+CR$:GOSUB120:GOSUB85
  103. 261 IFAC>=8THENPO$=CR$+"([196]) [196]ELETE "+CR$:GOSUB120
  104. 262 PO$=CR$+"([206])EXT [159]([209])UIT  [156]([210])EPLY  ([193])GAIN"+CR$:GOSUB120
  105. 263 PO$=CR$+"[158][195]HOICE:[146] ":GOSUB120:CP=1:GOSUB100:CP=0
  106. 265 ON-(IN$="[209]")-(IN$="[206]")*2-(IN$="[210]")*3-(IN$="[196]")*4GOTO275,280,268,269
  107. 266 IF IN$="[193]"THEN249
  108. 267 GOTO 261
  109. 268 CLOSE8:CLOSE2:CLOSE15:R1=LC+41:PM=1:GOTO21200
  110. 269 IFAC>7 THEN 271
  111. 270 GOTO 261
  112. 271 CP=1:PO$=CR$+CR$+"[158][211]URE? (Y/N): ":GOSUB120:GOSUB100:CP=0:IFIN$<>"[217]"THEN275
  113. 272 PO$=CR$+CR$+"[196]ESTROYING [205]ESSAGE ...":GOSUB120
  114. 273 CLOSE15:OPEN15,DV,15,"S0:"+FL$:FORI=1TO500:NEXT I
  115. 275 CLOSE2:CLOSE8:CLOSE15:GOTO21100
  116. 280 IN=VAL(WA$):IN=IN+1:WA$=STR$(IN):FL$=LEFT$(MB$,4)+"-"+WA$:CLOSE2
  117. 282 GOTO252
  118. 300 X=0:X=FRE(0)
  119. 301 A$="[147] [151][206][193][205][197]: "+NM$+"     [204][214]:"+STR$(AC)+"  [205]EM:"+STR$(X)+"[146]":X=0
  120. 302 IF LEN(A$)>39 THEN 306
  121. 305 FORX=1 TO 40-LEN(A$):A$=A$+"[151] [146]":NEXT X
  122. 306 PRINTA$:A$="":PRINT"[------------------------------------]":PRINT:RETURN
  123. 307 RETURN
  124. 308 REM
  125. 309 REM
  126. 310 GOSUB85:RETURN
  127. 500 GOSUB51500:POKE659,0:POKE680,0:POKE LC,0:POKE LC+2,0:POKE LC+20,0
  128. 501 POKE LC+3,0:POKE LC+4,0:POKE LC+111,40:POKE LC+21,0:POKE LC+110,0
  129. 550 POKE646,7:A$(0)="[151][207]FF":A$(1)="[207]N":A$=""
  130. 555 GOSUB51500:PRINT"[147][158][199][205]-[194][194][211] [214]ERSION 4.0   [215][193][201][212][201][206][199] [198][207][210] [195][193][204][204][146]"
  131. 556 PRINT"----------------------------------------";
  132. 560 PRINT"-     <<<   [207]PTIONS    >>>":PRINT"-"
  133. 566 PRINT"-     01  [204][207][195][193][204] [204][207][199]-[207][206]"
  134. 567 PRINT"-     02  [211]ET [212]IME/[196]ATE"
  135. 568 PRINT"-     03  [212]OGGLE [195]HAT [198]LAG"
  136. 569 PRINT"-     04  [212]OGGLE [206]EW[213]SER [198]LAG
  137. 570 [153]"-     05  (null)OGGLE (null)/STR$ ASCLAG
  138. 571 PRINT"-     06  [212]OGGLE [198]EEDBACK [198]LAG"
  139. 572 PRINT"----------------------------------------";:PRINT
  140. 577 PRINT"[155][195]HAT FLAG: "+A$(PEEK(LC+114))+"[155]  [206]EW-[213]SER [198]LAG: "+A$(PEEK(LC+115))
  141. 578 PRINT"[155][213]/[196]  FLAG: "+A$(PEEK(LC+116))+"[155]  [198]EEDBACK  [198]LAG: "+A$(PEEK(LC+32))
  142. 579 PRINT"[212]IME/[196]ATE           [195]ALLER [201]NFO:":PRINT"-------             -----------"
  143. 580 IF PEEK(LC+22)<>1 THEN 602
  144. 585 NM$="":FOR I=LC+9 TO LC+19:IFPEEK(I)<>0THEN PK=PEEK(I):NM$=NM$+CHR$(PK):PK=0
  145. 587 NEXT I:GOTO610
  146. 602 NM$="[194][207][207][212][213][208]":P3$="0":FORI=LC+9TO LC+19:POKEI,0:NEXT I:POKE LC+22,1
  147. 603 POKE LC+1,0:GOSUB4900
  148. 610 P3$=STR$(PEEK(LC+1))
  149. 630 GOSUB52002
  150. 635 PRINT DT$,"",NM$+" LV:"+P3$
  151. 640 GOSUB704:IF LEFT$(T$,2)<>"12" THEN 660
  152. 650 GY=PEEK(749):T=LC+112:IF PEEK(T)=0 THEN POKET,1:PV=1
  153. 652 IF PV=1 THEN GY=GY+1:IF GY>1 THEN GY=0:FL$="UTIL-MOD-[194]BS [205]AINT":DV=PEEK(LC+35)
  154. 653 IF PV=1 AND GY=0 THEN GOSUB12050:IF CK=1THENPOKE749,GY:PV=0:GOTO660
  155. 655 IF PV=1THENPV=0:POKE749,GY:IF GY=0THENPOKE659,0:POKE(LC+118),1:GOTO5700
  156. 660 IF LEFT$(T$,2)<>"12"THEN POKE (LC+112),0:POKE(LC+118),0
  157. 662 GOTO 690
  158. 665 ZT$="[208]ROBLEM W/[194][194][211] [205]AINT ON DRIVE"+STR$(DV):GOSUB49500:ZT$=""
  159. 690 XZ=0:PO=56577:POKE LC,0
  160. 691 IFBG=1THENBG=0
  161. 692 X=PEEK(56577):IFX<91THENPRINT"[147]":POKE659,0:POKE LC+20,1:GOTO801:REM *RING*
  162. 693 IFA$="1"THENCLOSE15:POKE LC,1:GOTO 9990
  163. 694 IF A$="3"THEN X=LC+114:GOTO850
  164. 695 IF A$="4"THEN X=LC+115:GOTO850
  165. 696 IFA$="5"THEN X=LC+116:GOTO850
  166. 697 IFA$="2"THEN 718
  167. 698 IF A$="6" THEN X=LC+32:GOTO850
  168. 703 PRINTT$+"[157][157][157][157][157][157][157][157]";:GETA$:GOTO640
  169. 704 H=PEEK(56331)AND31:M=PEEK(56330):S=PEEK(56329):TV$(0)="[193][205]":TV$(1)="[208][205]"
  170. 707 X=PEEK(56328):HH=INT(H/16):HL=H-HH*16:MH=INT(M/16):ML=M-MH*16
  171. 708 SH=INT(S/16):SL=S-SH*16
  172. 709 H$=MID$(STR$(HH),2)+MID$(STR$(HL),2)
  173. 710 M$=MID$(STR$(MH),2)+MID$(STR$(ML),2)
  174. 711 S$=MID$(STR$(SH),2)+MID$(STR$(SL),2)
  175. 712 T$=H$+" "+M$:X=PEEK(749):T$=T$+" "+TV$(X):TV$(0)="":TV$(1)=""
  176. 715 RETURN
  177. 717 GOTO690
  178. 718 PRINT"[147][197]NTER [200]OUR (00): ":INPUTR$:R=VAL(MID$(R$,1,1))*16+VAL(MID$(R$,2,1)):POKE56331,R
  179. 719 PRINT"[147][197]NTER [205]IN. (00): ":INPUTM$:M=VAL(MID$(M$,1,1))*16+VAL(MID$(R$,2,1)):POKE56330,M
  180. 720 PRINT"[147][197]NTER [211]EC.[145](00): ":INPUTS$:S=VAL(MID$(S$,1,1))*16+VAL(MID$(R$,2,1)):POKE56329,S
  181. 721 INPUT"AM OR PM";TZ$:IFTZ$="AM"THENPOKE749,0:GOTO728
  182. 722 IFTZ$="PM"THENPOKE749,1:GOTO728
  183. 723 GOTO721
  184. 728 POKE56328,0:IF R$="12"THEN POKE(LC+112),1
  185. 729 PRINT"[197]NTER [205]ONTH (1-12)":INPUTMN$:MN=VAL(MN$):POKE699,MN
  186. 730 INPUT"[197]NTER [196]AY";DY$:DY=VAL(DY$):POKE698,DY:MN=PEEK(699):DY=PEEK(698):GOSUB52002
  187. 763 A$="":GOTO550
  188. 791 PO=56577
  189. 800 FORK=1TO5000:NEXTK:RETURN
  190. 801 CLOSE15:CLOSE5:OPEN5,2,2,CHR$(8)+CHR$(0):GOSUB 51500
  191. 802 GOSUB800:X=PEEK(56577):POKE LC+20,1
  192. 803 IFX<16THENPOKE659,8:CLOSE5:GOTO806:REM *1200 BAUD DETECT*
  193. 804 IFX<91THENGOTO808:REM *300 BAUD DETECT*
  194. 805 ZT$="! [198]AILED [195]ALL. !":GOSUB49500:CLOSE15:OPEN15,8,15:GOTO500:REM *NO BAUD*
  195. 806 CLOSE5:OPEN5,2,2,CHR$(8)+CHR$(0)+CHR$(61)+CHR$(1):POKE830,1:SYS850:IN$="":GOSUB51500
  196. 807 CR$=CHR$(13):DIMLN$(50):GOTO9992
  197. 808 CLOSE5:OPEN5,2,2,CHR$(6):POKE830,1:SYS850:IN$="":CR$=CHR$(13):GOSUB51500
  198. 809 DIMLN$(50):GOTO 9992
  199. 850 Z=PEEK(X):Z=Z+1:IF Z>1 THEN Z=0:REM *FLAG SET*
  200. 855 POKE X,Z:GOTO550
  201. 3400 REM LEVEL READ
  202. 3401 FL$="GM-LEVEL"+STR$(AC):DV=8:GOSUB6000:IF CK THENGOSUB3450:GOSUB3425
  203. 3402 TL=VAL(Z$):B=VAL(B$):C=VAL(C$):D=VAL(D$)
  204. 3403 POKE(LC+26),B:POKE(LC+27),C:POKE(LC+28),D:Z$="":B$="":C$="":D$=""
  205. 3405 POKE(LC+3),TL:POKE(LC+2),CR:POKE(LC+1),AC:RETURN
  206. 3425 Z$="15":B$="0":C$="10":D$="1":RETURN
  207. 3450 REM ** ERROR REPORT **
  208. 3452 PO$=CR$+"[201]NTERNAL ERROR. [210]ECORDING, [208]LEASE WAIT."+CR$:GOSUB120
  209. 3455 ZT$="[197]RROR"+CHR$(13)+"[198]ILENM: "+FL$+CHR$(13)+"[196]RIVE #: "+STR$(DV):GOSUB49500
  210. 3460 ZT$="[197]RROR #/NAME: "+STR$(EN)+"/"+EM$+CHR$(13)+"[213]SER/[204]V: "+NM$+" "+STR$(AC)
  211. 3461 GOSUB 49500
  212. 3465 GOSUB52002:GOSUB704:ZT$="[196]ATE/[212]IME: "+DT$+" "+T$:GOSUB49500:RETURN
  213. 3500 CK=0:REM ** CREDIT SYSTEM **
  214. 3505 IF PEEK (LC+26)=0 THEN 3519
  215. 3510 G=PEEK(R1):G=G-PEEK(R1+8):CR=CR+G
  216. 3512 PO$=CR$+"[150][195]REDIT [211]TATUS: "+STR$(G)+CR$:GOSUB120
  217. 3517 IF CR>=CA THEN 3519
  218. 3518 PO$=CR$+"[201]NSUFFICENT CREDITS."+CR$:GOSUB120:CK=1:IF G<0THENCR=CR+ABS(G)
  219. 3519 IF CR<0 THEN CR=0
  220. 3520 IF CR>255 THEN CR=255
  221. 3522 IF CK=1 THEN GOSUB195
  222. 3525 POKE LC+2,CR:RETURN
  223. 3550 REM ** PRINTER ONLINE FEEDBACK
  224. 3560 IFPEEK(LC+32)=0 OR NS$<>"[211][217][211][207][208]" THEN 3580
  225. 3561 REM * PRINTER ROUTINE
  226. 3562 DV=4:GOSUB175:IFCK=1THEN ZT$="[[206]O [205]AIL TO PRINTER]":GOSUB49500:ZT$="":GOTO3580
  227. 3565 CLOSE4:OPEN4,4,7:PRINT#4:PRINT#4,"[[197]LECTRONIC [205]AIL]":PRINT#4
  228. 3570 OP=4:PO=4:RETURN
  229. 3580 DV=PEEK(LC+34)
  230. 3585 OP=2:PO=2:RETURN
  231. 3800 AC=0:AC$="0":CR=0:GOSUB51500:POKE LC+1,AC:POKE LC+2,CR:TI$="000000":TL=05
  232. 3801 POKE LC+3,TL:RETURN
  233. 3900 REM ** 1670 MODEM HANG-UP **
  234. 3901 FORK=1TO1000:NEXTK:PRINT#5,"+++";:FORK=1TO3000:NEXTK:PRINT#5,"[193][212][200]0":RETURN
  235. 4500 PO$=CR$+CR$+"[204]OADING .. [208]LEASE WAIT"+CR$:GOSUB120:GOSUB51100:GOTO5700
  236. 4600 NH$="("+IN$+")":IN$=NH$:NH$="":RETURN
  237. 4800 IF CG=0THENRETURN
  238. 4801 LF$=FL$:FL$=FL$+"-A":CLOSE15:CLOSE8:OPEN15,DV,15:OPEN8,DV,8,FL$+",S,R"
  239. 4804 INPUT#15,EN
  240. 4805 IFEN>2THENFL$=LF$
  241. 4810 LF$="":CLOSE8:PRINT#15,"I0":CLOSE15:RETURN
  242. 4850 REM ** CARRIER CHECK
  243. 4855 KC=0:Y=PEEK(56577):IFY>92 AND PEEK(LC+20)=1 THEN KC=1
  244. 4856 IF KC=1 THEN R1=LC+44:GOSUB3500
  245. 4860 RETURN
  246. 4865 GOTO 4855
  247. 4900 FORI=LC+9 TO LC+19:POKEI,0:NEXT I
  248. 4905 FORI=1TOLEN(NM$):A$=MID$(NM$,I,1):A=ASC(A$):POKE (LC+8)+I,A:NEXT I:RETURN
  249. 5600 PO$=CR$+CR$+"[211]ORRY, YOUR TIMELIMIT HAS EXPIRED."+CR$:GOSUB120:GOTO11009
  250. 5700 REM ** MOD LOADER **
  251. 5701 PO$=ZC$+CR$+CR$+"[204]OADING "+FL$+" MOD, PLEASE WAIT."+CR$:GOSUB120
  252. 5702 R$=CHR$(13)
  253. 5703 PRINT"[147]NEW"R$"LOAD"CHR$(34)FL$CHR$(34)+","+STR$(DV);":"R$"RUN"
  254. 5705 POKE198,3:POKE631,13:POKE632,13:POKE633,13:PRINT"":END
  255. 5800 CLOSE2:CLOSE15:DV=8:FL$="GM-+CALLERS":OPEN15,DV,15:OPEN2,DV,2,"0:"+FL$+",S,R"
  256. 5801 INPUT#15,EN
  257. 5805 IFEN<2THEN5830
  258. 5806 PRINT#15,"S0:"+FL$:FORK=1TO500:NEXTK
  259. 5810 CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,W"
  260. 5811 PRINT#2,"[211][217][211][207][208]":PRINT#2,"0"
  261. 5812 FORK=1TO1000:NEXTK
  262. 5815 GOTO 5835
  263. 5830 INPUT#2,A$,A:IFA$=NM$THENTL=TL-A:TC=TC+1
  264. 5831 IFST=0THEN5830
  265. 5835 CLOSE2:PRINT#15,"I0:":CLOSE15:RETURN
  266. 5900 PO$=CR$+CR$+"[217]OUR TIMELIMIT HAS EXPIRED FOR TODAY.[146]"+CR$:GOSUB120:OC=1
  267. 5905 GOTO11009
  268. 6000 CLOSE15:EN=0:GOSUB175:IF CK=1THEN 6006
  269. 6001 CLOSE15:OPEN15,DV,15:CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,R"
  270. 6003 GOSUB185:IF CK=1 THEN 6005
  271. 6004 FT=1:INPUT#2,Z$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$:FT=0
  272. 6005 PRINT#15,"I0:":CLOSE15:CLOSE2:RETURN
  273. 6200 REM * NEW USER *
  274. 6201 IF PEEK(LC+115)<>1 THEN 6210
  275. 6202 PO$=CR$+"[154][211]ORRY, NO NEW USERS ALLOWED."+CR$:NM$="[206][197][215]":GOSUB120
  276. 6203 ZT$="[206]EW [213]SER REJECTED ([198]LAG [211]ET)":GOSUB49500:OC=1:GOTO11009
  277. 6210 TL=20:GOSUB17000:IF CK=0 THEN 6220
  278. 6212 PO$=CR$+"[149][208]LEASE CALLBACK AFTER 12 TO APPLY."+CR$:GOSUB120:NM$="[206][197][215]"
  279. 6213 ZT$="[206]EW [213]SER REJECTED DUE TO SCHEDULED BBS OPERATIONS.":GOSUB49500
  280. 6215 OC=1:GOTO11009
  281. 6220 FL$="P-NEWUSER":DV=PEEK(LC+35):GOSUB12050:IF CK=0 THEN 6225
  282. 6221 PO$=CR$+"[211]ORRY, TEMPORARILY UNAVAILABLE."+CR$:GOSUB120:OC=1:DV=8:NM$="[206][197][215]"
  283. 6222 GOSUB704:ZT$="[212]RANSPORT TO [206][197][215] AREA DENIED BY MODULE CHECKER AT "+T$:T$=""
  284. 6223 GOSUB49500:TL=0:POKE(LC+3),0:FORK=1TO2000:NEXTK:K=0:GOTO11009
  285. 6225 POKE(LC+3),TL:GOTO 5700
  286. 6300 KJ=0:WDL=LEN(IN$):FORI=1TOWDL:A$=MID$(IN$,I,1)
  287. 6305 IFA$="*"ORA$=":"ORA$=","ORA$="?"THENKJ=1
  288. 6310 NEXT:IFKJTHENPO$=CR$+"[158](* : , ?) ARE NOT ALLOWED IN THIS RESPONSE."+CR$:GOSUB120
  289. 6311 IFIN$=""THENPO$=CR$+"[208]LEASE ENTER A PROPER RESPONSE."+CR$:GOSUB120:KJ=1
  290. 6315 RETURN
  291. 6500 PO$=CR$+"[196]EVICE (8-11): ":GOSUB120:GOSUB100
  292. 6505 DV=VAL(IN$):IF DV<8 OR DV>11 THEN6500
  293. 6510 RETURN
  294. 7990 GOSUB85:PO$=CR$+CR$+"[197]DITOR, (***) [197][216][201][212][211]."+CR$:LP=1:IFPEEK(LC+111)=80THENLP=2
  295. 7991 GOSUB120:LM=PEEK(LC+27)/LP:PO$=STR$(LM)+" LINE [205][193][216]."+CR$:GOSUB120:GOSUB85
  296. 7992 PO$=CR$+CR$:GOSUB120:LN%=1:FORG=1TO50:LN$(G)="":NEXTG:IL=PEEK(LC+111)
  297. 8000 PO$="[155]"+STR$(LM-LN%)+"[146]"+CR$:GOSUB120
  298. 8003 GOSUB100:IF IN$="***" THEN 8011
  299. 8005 LN$(LN%)=IN$:LN%=LN%+1:IFXK=1ANDLN%>5THEN8008
  300. 8006 IF LM-LN%<=5 THEN PO$=PO$+CHR$(7):GOSUB120
  301. 8007 NI$="":IN=0:IFLN%<LMTHEN8000
  302. 8008 PO$=CR$+"[[206]O MORE SPACE]"+CR$:GOSUB120
  303. 8009 IFLN%=0THENER=1:RETURN
  304. 8010 IFLN%=0THEN7990
  305. 8011 CP=1:PO$=CR$+CR$+"[207]PTION"+CR$+"[205]ENU [?]-=> ":GOSUB120:GOSUB100:CP=0
  306. 8012 IFIN$=""THENGOTO8011
  307. 8013 L1$=MID$(IN$,2):IFLEN(L1$)=0THENLF%=1:EL%=LN%:GOTO8023
  308. 8014 G=2:FL%=VAL(L1$):IFFL%=0ORFL%>LN%THENPO$="[206]OT AVAILABLE":GOSUB120:GOTO8010
  309. 8015 IFFL%>0THENEL%=ABS(FL%):FL%=1:GOTO8022
  310. 8016 Y$=MID$(IN$,G,1):IFY$="[195]"THEN8021
  311. 8017 IFY$=" "THEN8019
  312. 8018 IFY$<"0"ORY$>"9"THENPO$="ILLEGAL ARGUMENT":GOSUB120:GOTO8010
  313. 8019 G=G+1:IFG>LEN(IN$)THENEL%=FL%:GOTO8023
  314. 8020 GOTO8016
  315. 8021 EL$=MID$(IN$,G+1):EL%=VAL(EL$):IFEL%=0THENEL%=LN%:GOTO8023:REM * EL$ WAS EL%
  316. 8022 IFEL%>LN%OREL%<1THENPO$="... TOO MANY LINES.":GOSUB120:GOTO8010
  317. 8023 IFEL%<FL%THENX%=EL%:EL%=FL%:FL%=X%
  318. 8024 IFIN$="?"THENGOSUB8100:GOTO8011
  319. 8025 IFIN$="[197]"THENGOTO8038
  320. 8026 IFIN$="[195]"THEN8072
  321. 8027 IFIN$="[193]"THEN8090
  322. 8028 IFIN$="[211]"THEN CK=0:RETURN
  323. 8029 IFIN$="[196]"THENRD%=1:GOTO8031
  324. 8030 GOSUB8100:GOTO8011
  325. 8031 PO$=ZC$:GOSUB120:FORG=FL%TOEL%:IFRD%=1THENPO$="":GOTO8034
  326. 8034 PO$=PO$+LN$(G)+CR$:GOSUB120
  327. 8035 NEXTG
  328. 8036 GOTO8010
  329. 8038 CP=0:PO$=CR$+"[208]HRASE TO REPLACE:[146] ":GOSUB120:GOSUB100:IN=LEN(IN$):IFIN=0THEN8010
  330. 8039 SP$=IN$:CP=0:PO$=CR$+"[206]EW PHRASE: ":GOSUB120:GOSUB100:IN=LEN(IN$):IFIN=0THEN8010
  331. 8040 NS%=0:RP$=IN$:PO$=CR$+CR$+" [211][197][193][210][195][200][201][206][199] ..."+CR$:GOSUB120:IFCU=1 THEN GOSUB140
  332. 8041 NR%=0:NS%=0:SP%=LEN(SP$):RP%=LEN(RP$):FORL=FL%TOEL%:NS%=0
  333. 8042 H%=1:W$=LN$(L):W=LEN(W$):IFW<SP%THEN8052
  334. 8043 IFMID$(W$,H%,SP%)=SP$THEN8046
  335. 8044 H%=H%+1:IFH%<W+1THEN8043
  336. 8045 GOTO8052
  337. 8046 W1$=W$:W$=LEFT$(W$,H%-1)+RP$+RIGHT$(W$,W-(H%+SP%)+1):W=LEN(W$)
  338. 8047 IFW>PEEK(LC+111)-2 THEN8049
  339. 8048 LN$(L)=W$:PO$=CR$+"[210][197][208][204][193][195][201][206][199]."+CR$:GOSUB120:NR%=NR%+1:H%=H%+RP%-1:GOTO8044
  340. 8049 IFUS%=0THENPO$=CR$+"[158][208]HRASE TOO LONG![146]"+CR$:GOSUB120:US%=1
  341. 8050 NS%=NS%+1
  342. 8051 W$=W1$:W=LEN(W$):GOTO8044
  343. 8052 NEXTL
  344. 8053 PO$=CR$+CR$+STR$(NR%)+" [208]HRASES REPLACED.[146]":GOSUB120
  345. 8054 PO$=CR$+STR$(NS%)+" [213]NSUCCESSFUL REPLACEMENT":GOSUB120
  346. 8055 IF CU THEN GOSUB 145
  347. 8060 GOTO 8010
  348. 8071 IFPO$<>"[197]"THEN8073
  349. 8072 IFLN%>=LMTHENPO$=CR$+"[206]O MORE SPACE":GOSUB120:GOTO8010
  350. 8073 PO$=CR$+CR$+CR$:GOSUB120:IC=0
  351. 8074 IC=IC+1:PO$=LN$(IC):PO$=PO$+CR$
  352. 8075 GOSUB120:IF IC<LN% THEN 8074
  353. 8076 CT=1:LN%=LN%+1:GOTO 8000
  354. 8090 PO$=CR$+"[158][193]RE YOU SURE (Y/N)? ":GOSUB120:CP=1:GOSUB100:CP=0
  355. 8092 ON-(IN$="[217]")-(IN$="[206]")*2 GOTO 8095,8011
  356. 8094 GOTO 8090
  357. 8095 CK=1:RETURN
  358. 8100 GOSUB85
  359. 8101 PO$=CR$+"[158]([193])BORT[146]  ([195])ONT ([196])ISPLAY[146][156] ([197])DIT [159]([211])AVE[146]"+CR$
  360. 8102 GOSUB120:GOSUB85:RETURN
  361. 9600 X$(0)=F$:X$(1)=T$
  362. 9605 F$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":REM *CAPS*
  363. 9630 T$="[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  364. 9660 S$=IN$:SYS 49152,F$,T$,S$:IN$=S$:F$=X$(0):S$="":T$=X$(1):X$(0)="":X$(1)=""
  365. 9690 RETURN
  366. 9700 PO$=CR$+"[217]OU HAVE ENTERED AN INCORRECT [200][193][206][196][204][197] OR [208][193][211][211][215][207][210][196]."+CR$:GOSUB120
  367. 9705 PO$=CR$+"[201]F YOU ARE A NEW USER ENTER '[206][197][215]' AT THE [200][193][206][196][204][197] PROMPT.":GOSUB120
  368. 9708 TR=TR+1:IFTR>3THENNM$="":GOTO11009
  369. 9710 GOTO10005
  370. 9800 PRINT"[147]"
  371. 9801 PO$=ZC$+CR$+"* [199][205]-[194][194][211] [214][197][210][211][201][207][206]: 4.0"+CR$+"* [211][213][208][208][207][210][212] [206][213][205][194][197][210]: (517)754-1276"
  372. 9805 GOSUB120:PO$=CR$+"* [205]ODIFIER   : [205]ICHAEL [211]EABRUM"+CR$+"--------------------"
  373. 9810 GOSUB120:PO$=CR$+CR$+"[208]LEASE [204]OGON:"+CR$+CR$:GOSUB120:RETURN
  374. 9990 PRINT"[147]":CLOSE5:OPEN5,2,2,CHR$(8):POKE830,1:SYS850:IN$="":CR$=CHR$(13):QZ=255:QX=255
  375. 9991 DIM LN$(50):GOSUB51500:XZ=1:BD=0
  376. 9992 GOSUB3800:BU=PEEK(659):CU=PEEK(LC+24):IF BU=6THEN BD$="300":BD=0:GOTO9996
  377. 9993 IF BU=8 THEN BD$="1200":BD=1:GOTO9996
  378. 9994 IF BU=10 THEN BD$="2400":BD=2:GOTO 9996
  379. 9995 GOSUB3900:GOTO500:REM * UNKNOWN BAUD *
  380. 9996 U=1:DV=8:PO$=CR$+CR$+"[[195]]= [199]RAPHICS OR [[193]]SC: ":GOSUB120:CP=1:GOSUB100:CP=0
  381. 9997 IFIN$="[195]"ANDPEEK(LC+79)=1THENCG=1:QX=0:POKELC+4,1:POKELC+21,0:ZC$=CHR$(147):GOTO10000
  382. 9998 IFIN$="[193]"ANDPEEK(LC+78)=1THENCG=0:QX=255:POKELC+4,0:POKELC+21,1:ZC$=CHR$(12):GOTO10000
  383. 9999 GOTO 9996
  384. 10000 X=PEEK(700+BD):POKE(LC+7),QX:POKE(LC+23),QZ:X=X+1:IF X<256THENPOKE(700+BD),X
  385. 10001 A=PEEK(LC+4):X=PEEK(703+A):X=X+1:IF X<256 THEN POKE(703+A),X
  386. 10002 IFBD$="300"ANDPEEK(LC+77)=1THENPO$=CR$+"[206]O 300 BAUD"+CR$:GOSUB120:GOTO11009
  387. 10003 DV=8:FL$="GM-INTRO":GOSUB4800:GOSUB150:GOSUB195
  388. 10004 GOSUB704:ZT$=CR$+"* [207]N- "+T$+" AT "+BD$+" BAUD":GOSUB49500:TR=0:GOSUB9800
  389. 10005 U=1:CP=1:PO$=CR$+CR$+"[200]ANDLE: ":GOSUB120:GOSUB100:IFIN$=""THEN 10005
  390. 10006 NM$=IN$:YH$=NM$:NH$="("+NM$+")":NM$=NH$:NH$="":IFIN$="[206][197][215]"THEN 6200
  391. 10008 PO$=CR$+CR$+"[211]EARCHING.. "+CR$:GOSUB120:DV=PEEK(LC+33)
  392. 10009 FL$=NM$:Z$="0":B$="0":C$="0":D$="0":E$="0":F$="0":GOSUB6000:IFCK=1THEN9700
  393. 10010 RN$=C$:TI$="000000":AC=VAL(D$):CR=VAL(J$)
  394. 10011 U=0:PO$=CR$+"[208]ASSWORD: ":GOSUB120:CP=1:GOSUB100:CP=0:PW$=IN$
  395. 10012 DV=8:PS$=B$:IFPW$=PS$ANDPW$<>""THEN NM$=YH$:YH$="":GOTO10014
  396. 10013 PO$=CR$+"[158][201][206][195][207][210][210][197][195][212] [208][193][211][211][215][207][210][196]!"+CR$+CR$:GOSUB120:GOTO9700
  397. 10014 PRINT"[147]":U=1:PO$=ZC$+CR$+"[215][197][204][195][207][205][197] [194][193][195][203], "+NM$+"."+CR$:GOSUB120:ZT$=NM$
  398. 10015 GOSUB49500:GOSUB51100:GOSUB4900
  399. 10016 IF AC<1THENOC=1:PO$=CR$+"[156][217]OU ARE NOT VALIDATED."+CR$:GOSUB120:GOTO11009
  400. 10017 IF AC>9THEN AC=9
  401. 10018 IF CR<0THEN CR=0
  402. 10019 IF CR>255THEN CR=255
  403. 10020 GOSUB3400:PO$=CR$+"[159][195]HECKING LOG .."+CR$:GOSUB120:GOSUB5800
  404. 10021 GOSUB17000
  405. 10023 ON-(TL<1)GOTO5900:IF TC<1THEN TC=1
  406. 10024 PO$=CR$+"[217]OU HAVE CALLED "+STR$(TC)+" TIMES TODAY."+CR$:TC=0:GOSUB120
  407. 10025 PO$=CR$+STR$(TL)+" MINUTES REMAINING FOR TODAY."+CR$+CR$:GOSUB120
  408. 10026 DV=8:FL$="GM-CALLERS":GOSUB6000:PO$=CR$+"[149][204]AST 3 [195]ALLERS:[129]"+CR$:GOSUB120
  409. 10027 PO$=CR$+Z$+CR$+B$+CR$+C$+""+CR$+CR$:GOSUB120
  410. 10028 GOSUB12000:PO$=CR$+"[154][217]OU ARE CALLER #"+STR$(TC)+""+CR$:GOSUB120
  411. 10029 POKE(LC+3),TL:PO$=CR$+"[158][195]HECKING FOR MAIL."+CR$:GOSUB120:DV=PEEK(LC+34):GOSUB175
  412. 10030 IF CK=1 THEN 10034
  413. 10031 DV=PEEK(LC+34):CLOSE15:OPEN15,DV,15:CLOSE2:OPEN2,DV,2,"0:EM-"+NM$+",S,R":INPUT#15,Z$
  414. 10032 ON-(Z$="00")-(Z$<>"00")*2GOTO10033,10034:GOTO10034
  415. 10033 PO$=CR$+CR$+BP$+"[156][217]OU HAVE [158][197]-[205]AIL!"+CR$+CR$:GOSUB120:GOTO10035
  416. 10034 PO$=CR$+CR$+"[156][211]ORRY, NO MAIL TODAY!        "+CR$:GOSUB120
  417. 10035 PRINT#15,"I0:":CLOSE2:CLOSE15
  418. 10047 DV=8:FL$="GM-BULL":GOSUB150:PO$=CR$+CR$:GOSUB120
  419. 10070 DV=8:AD=INT(RND(0)*3)+1:AD$=STR$(AD):FL$="GM-AD"+AD$:GOSUB4800
  420. 10072 GOSUB 150:GOSUB 195
  421. 10100 AC=PEEK(LC+1):GOSUB300:IF PEEK(LC+110)=1 THEN 10103
  422. 10101 DV=8:OC=0:GOSUB300:FL$="GM-MAIN":IF CG=1 THEN GOSUB4800
  423. 10102 MU=1:GOSUB150
  424. 10103 AR$="[205][193][201][206] [205][197][206][213]":DV=8:CP=1:GOSUB90:CP=0
  425. 10104 REM
  426. 10105 IFIN$="[195]"THEN 13000
  427. 10106 IFIN$="[196]"THEN 14000
  428. 10107 IFIN$="[197]"THEN AR$="[197]-[205]AIL":GOTO15050
  429. 10109 IFIN$="[199]"THEN OC=1:GOTO 11000
  430. 10110 IFIN$="[200]"THEN 18000
  431. 10112 IFIN$="[204]"THEN AR$="[204]IBRARY":GOTO 20000
  432. 10113 IFIN$="[205]"THEN AR$="[205]ESSAGES":GOTO 21000
  433. 10117 IFIN$="[213]" THENAR$="[213]TIL":GOTO29990
  434. 10118 IFIN$="[207]" THENAR$="[199]AMES":GOTO 29990
  435. 10119 IF IN$="[193]" THENAR$="[195]= [199]AMES":GOTO29990
  436. 10121 IFIN$="[217]"THENAR$="[208]ARAMETERS":GOTO 26000
  437. 10123 IFIN$="?"THEN 10101
  438. 10143 PO$=CR$+"[156][201]NVALID REQUEST![146]"+CR$:GOSUB120:GOTO10103
  439. 11000 CP=0:PO$=CR$+CR$+"[215]ISH TO [204][207][199] [207][198][198] (Y/N)? ":GOSUB120:CP=1:GOSUB100:CP=0
  440. 11001 IFIN$<>"[217]"THEN 10100
  441. 11009 FL$="GM-SEEYA":GOSUB4800:GOSUB149:POKE1008,0:IF NM$=""THENNM$="[202]ERK"
  442. 11010 PO$=CR$+"[156] [204]OGGING [207]FF "+NM$+CR$+CR$:GOSUB120:GOSUB4900:GOSUB704:ZT$="[207]FF - "+T$
  443. 11012 GOSUB49500:ZT$="":IFNM$="[202]ERK"ORNM$="[206][197][215]"THEN 11132
  444. 11013 PO$="[213]PDATING [213]SER"+CR$:GOSUB120:CLOSE2:IF KC=1THENR1=PEEK(LC+44):CA=-100:GOSUB3500
  445. 11014 DV=PEEK(LC+33):FL$="("+NM$+")":GOSUB6000:GOSUB52001
  446. 11015 D$=STR$(PEEK(LC+1)):J$=STR$(PEEK(LC+2))
  447. 11017 CLOSE2:OPEN2,DV,2,"@0:"+FL$+",S,W":PRINT#2,Z$:PRINT#2,B$:PRINT#2,C$
  448. 11018 PRINT#2,D$:PRINT#2,E$:PRINT#2,F$:PRINT#2,G$:PRINT#2,H$:PRINT#2,I$
  449. 11020 PRINT#2,J$:PRINT#2,K$:CLOSE2
  450. 11021 FL$="GM-CALLERS":DV=8:GOSUB6000:CLOSE2:OPEN2,8,2,"@0:GM-CALLERS,S,W"
  451. 11022 GOSUB704:GOSUB52002
  452. 11023 PRINT#2,NM$;:FORX=1TO15-LEN(NM$):PRINT#2," ";:NEXTX:PRINT#2,DT$;"  "+T$
  453. 11024 PRINT#2,Z$:PRINT#2,B$:CLOSE2:CLOSE15
  454. 11025 CTM$=MID$(TI$,1,4):CT=VAL(CTM$):DV=8:FL$="GM-+CALLERS"
  455. 11026 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"0:"+FL$+",S,R":INPUT#15,EN:IFEN<2THEN11028
  456. 11027 PRINT#15,"S0:"+FL$:CLOSE15:CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,W":GOTO11029
  457. 11028 CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,A"
  458. 11029 PRINT#2,NM$:PRINT#2,CT:CLOSE2:CLOSE15
  459. 11132 IF KC=1THENZT$="[196][210][207][208][208][197][196] [195][193][210][210][201][197][210]!":GOSUB 49500
  460. 11133 BG=1:GOSUB3900:POKE1004,0
  461. 11134 IFNM$="[211][217][211][207][208]" OR AC>=8 OR NM$="[202]ERK" OR NM$="[206][197][215]" THEN11150
  462. 11135 IF PEEK(LC+28)<>1 THEN 11140
  463. 11137 PRINT:PRINT"[196]ELETING "+NM$+"'S MAIL (IF ANY)"
  464. 11140 CLOSE15:DV=8:OPEN15,DV,15:PRINT#15,"S0:EM-"+NM$+"*":FORT=1TO4000:NEXT
  465. 11149 CLOSE15
  466. 11150 X=PEEK(756):X=X+1:IFX<256 THEN POKE 756,X:REM *LEAVE*
  467. 11151 CLOSE8:ZT$="[192][192][192][192][192][192][192][192][192][192][192][192]":GOSUB49500:POKE LC+110,0
  468. 11155 GOTO500
  469. 12000 REM * CALLS *
  470. 12001 DV=8:FL$="GM-TC":GOSUB6000:IF CK=1 THEN 12005
  471. 12002 TC=VAL(Z$):TC=TC+1:GOTO12010
  472. 12005 CLOSE2:OPEN2,DV,2,"@0:GM-TC,S,W":PRINT#2,"0":TC=0:Z$="0":GOTO12002
  473. 12010 CLOSE2:OPEN2,DV,2,"@0:GM-TC,S,W":PRINT#2,TC:CLOSE2:RETURN
  474. 12050 REM * LOADER CKER *
  475. 12052 CK=0:IF FL$="" OR DV<8 OR DV>11 THEN CK=1
  476. 12053 ON-(CK=0)GOSUB175:IF CK=0 THEN 12055
  477. 12054 ZT$="[204]OAD [197]RROR - [198]ILE > "+FL$+" [196]RIVE "+STR$(DV):GOSUB49500:RETURN
  478. 12055 CLOSE2:OPEN2,DV,2,"0:"+FL$+",P,R":OPEN15,DV,15:GOSUB185
  479. 12060 IF CK=1 THEN 12075
  480. 12065 GOSUB175:IF CK=1 THEN 12075
  481. 12066 GOSUB704:ZT$=FL$+" VISIT AT "+T$:GOSUB49500
  482. 12075 CLOSE2:CLOSE15:RETURN
  483. 12991 FORX=54272TO54296:POKEX,W:NEXT:RETURN
  484. 12992 POKE54277,190:POKE54278,100:POKE54273,45:POKE54272,125:POKE54276,17:RETURN
  485. 13000 SS=1:GOSUB13090:A=PEEK(LC+114):IF A=1 ANDAC<8THENGOSUB13096:GOTO10100
  486. 13001 PO$=CR$+CR$+"[156][208]AGING [211]YSOP !"+CR$:GOSUB120:PRINT:PRINT"[211]YSOP- [208]RESS '^' TO ANSWER"
  487. 13002 GOSUB12991:GOSUB12992:POKE54296,15:FORT=1TO300:NEXTT:R=15:L=0
  488. 13003 L=L+1:PO$=".":GOSUB120:FORK=1TO50:NEXTK
  489. 13004 GETA$:IFA$="^"THEN 13008
  490. 13005 IFL<20THENR=PEEK(54273):R=R+2.5:POKE54273,R:GOTO13003
  491. 13006 GOSUB12991:GOSUB13096:GOTO10100
  492. 13007 GETA$:IFA$=""THEN13011
  493. 13008 POKE53280,0:POKE838,0:PO$=CR$+"[212]IMER [200]ALTED."+CR$:GOSUB120:IT$=TI$:POKE54296,0
  494. 13009 POKE49820,0:POKE49819,1:PRINT:PRINT"'??' FOR OPTIONS":GOTO13012
  495. 13010 PRINTCR$"[198]4[146] TO ADJUST USER LEVEL."CR$"[198]2[146] TO ADJUST TIME."CR$
  496. 13011 PRINT"[198]6[146] TO [197][216][201][212]"CR$"[198]8[146] TO VIEW USER"CR$"[210]ETURN AFTER FUNCT KEYS."CR$:RETURN
  497. 13012 PO$=CR$+"[211]YSOP [207]NLINE !!"+CR$+CR$:GOSUB120
  498. 13013 GOSUB100:IFIN$="??" THEN GOSUB 13010
  499. 13015 IF IN$="[139]"THENPO$=" "+CR$+CR$+"[197]XITING .."+CR$:GOSUB120:TI$=IT$:IT$="":GOTO10100
  500. 13017 IF IN$="[138]"THEN GOSUB 13050:GOTO 13025
  501. 13018 IF IN$="[140]"THEN 15550
  502. 13019 IF IN$="[137]"THEN GOSUB 15500:GOTO 13025
  503. 13025 GOTO 13013
  504. 13050 GOSUB 16000
  505. 13054 PRINT:PRINT"[207]LD [193]CCESS [204]EVEL= ";AC :PRINT:PRINT
  506. 13055 A=-1:INPUT"[206]EW [204]EVEL (1-9):";A:IF A=AC THEN 13080
  507. 13060 IFA<1ORA>9THEN13055
  508. 13065 POKE LC+1,A:AC=A
  509. 13080 PO$=CR$+"[156][213]SER [204]EVEL NOW SET AT "+STR$(AC)+CR$:GOSUB120
  510. 13085 GOSUB 16010:RETURN
  511. 13090 PO$=CR$+CR$+"[156][210]EASON FOR [195][200][193][212]?[156] ":GOSUB120
  512. 13091 CP=1:GOSUB100:CP=0:GOSUB6300:IF KJ THEN 13090
  513. 13092 IFIN$=""THEN IN$="[199][197][206][197][210][193][204]"
  514. 13093 X=PEEK(762):X=X+1:IFX<256THEN POKE 762,X
  515. 13095 ZT$="[[195][200][193][212]] [210]EASON - "+IN$:IN$="":GOSUB49500:RETURN
  516. 13096 DV=8:FL$="GM-CHAT":GOSUB4800:GOSUB150
  517. 13097 GOSUB 195:RETURN
  518. 14000 CA=10:IF PEEK(LC+116)=1 AND AC<8  THEN 10100
  519. 14002 U=1:PO$=CR$+ZC$+"[159][204]OADING [212]RANSFERS [211]ECTION, [208]LEASE [215][193][201][212]."+CR$:GOSUB120
  520. 14005 DV=PEEK(LC+35):FL$="P-TRANSFERS":GOSUB12050:IF CK=1 THEN 10100
  521. 14013 R1=LC+43:GOSUB 3500:IF CK=1 THEN 10100
  522. 14014 X=PEEK(761):X=X+1:IF X<255 THENPOKE761,X
  523. 14015 PO$=CR$+"[204]OADING ... PLEASE WAIT":GOSUB120
  524. 14016 GOTO 5700
  525. 14999 REM * EMAIL SECTION *
  526. 15000 U=1:MS=0:GOSUB300:AR$="[197]-[205]AIL"
  527. 15001 IFPEEK(LC+110)=1 THEN 15005
  528. 15002 DV=8:FL$="GM-EMAIL MENU":IF CG=1 THEN GOSUB 4800
  529. 15003 MU=1:GOSUB150
  530. 15005 CP=1:GOSUB90:CP=0:IFIN$="[208]" THEN NS$="[211][217][211][207][208]":IF NS$<>NM$ THEN R1=LC+42:GOTO15018
  531. 15006 IF IN$="?"THEN 15002
  532. 15007 IFIN$="[210]" THEN 15200
  533. 15008 IFIN$="[211]" THEN R1=LC+39:GOTO 15012
  534. 15009 IFIN$="[216]"THEN GOSUB 15030:GOTO10100
  535. 15010 IFIN$="[205]"THEN MS=1:GOSUB15030:GOTO21000
  536. 15011 GOTO15000
  537. 15012 PO$=CR$+"[212]O? ":GOSUB120:CP=1:GOSUB100:CP=0:NS$=IN$:GOSUB6300
  538. 15013 ON-(IN$="")-(KJ=1)*2GOTO 15012,15012
  539. 15014 SN$="("+NS$+")":DV=PEEK(LC+33):IF NS$=NM$ THEN NS$="":SN$="":GOTO 15000
  540. 15015 CLOSE2:CLOSE15:GOSUB175:ON-(CK=1)GOTO15017:CLOSE15:OPEN15,DV,15:Z$=""
  541. 15016 OPEN2,DV,2,"0:"+SN$+",S,R":INPUT#15,Z$:IFVAL(Z$)<2THENCLOSE2:CLOSE15:GOTO 15018
  542. 15017 PO$=CR$+"[213]SER NOT [198]OUND."+CR$:GOSUB120:CLOSE2:CLOSE8:CLOSE15:GOSUB195:GOTO15000
  543. 15018 CP=0:PO$=CR$+CR$+"[211]UBJECT: ":GOSUB120:GOSUB100:IF IN$="" THEN15000
  544. 15019 SJ$=IN$:GOSUB6300:ON-(KJ=1)GOTO15018:GOTO 15025
  545. 15020 CLOSE15:CLOSE2:OPEN15,DV,15:OPEN2,DV,2,"0:EM-"+NS$+",S,R":INPUT#15,EN,EM$:CLOSE2
  546. 15021 IFEN<2THENCLOSE2:OPEN2,DV,2,"EM-"+NS$+",S,A":GOTO 15024
  547. 15023 CLOSE2:OPEN2,DV,2,"@0:EM-"+NS$+",S,W"
  548. 15024 RETURN
  549. 15025 CLOSE2:CLOSE8:PO$=CR$+CR$+CR$:GOSUB120:GOSUB7990:IF CK=1 THEN 15115
  550. 15026 GOTO15099
  551. 15030 REM ** CLEAN UP ROUTINE **
  552. 15035 NS$="":Z$="":SJ$="":R$="":RA$="":RB$="":SN$=""
  553. 15040 RETURN
  554. 15050 GOTO 15000
  555. 15055 GOTO3475
  556. 15099 PO$=CR$+"[158][211]ENDING [197]-MAIL TO "+NS$+CR$:GOSUB120:REM SAVE E-MAIL
  557. 15100 GOSUB704:ZT$="[208]OSTED [197]-[205][193][201][204] [212][207] "+NS$+" AT "+T$:GOSUB49500
  558. 15101 EM=PEEK(751):FD=PEEK(750):EM=EM+1:IF NS$="[211][217][211][207][208]"THENFD=FD+1:EM=EM-1
  559. 15102 GOSUB3550:R$="*":RA$="*"+NM$:RB$=SJ$:IF DV>=8THENGOSUB175:IF CK=1THEN15115
  560. 15103 IF DV>=8 THEN CLOSE2:CLOSE8:GOSUB15020
  561. 15104 GOSUB52001:GOSUB704
  562. 15105 RA$=RA$+"     "+T$+"   "+DT$:PRINT#OP,RA$:PRINT#OP,RB$
  563. 15106 U$="":T$="":FORG=1TOLN%:PRINT#OP,LN$(G):LN$(G)="":NEXT G
  564. 15107 PRINT#OP,R$:PRINT#OP,CR$+CR$:CLOSE PO:DT$="":IF FD<256 THEN POKE 750,FD
  565. 15108 IF EM<256 THEN POKE 751,EM
  566. 15109 PO$=CR$+"[205]AIL [196]ELIVERED."+CR$:GOSUB120
  567. 15110 CLOSE15:IF DV>=8 THEN OPEN 15,DV,15:PRINT#15,"I0":CLOSE15
  568. 15111 GOSUB 3500
  569. 15115 CLOSE15:CLOSE2:CLOSE8:FORX=1TOLN%:LN$(X)="":NEXTX:U$="":T$="":DT$="":GOSUB195:GOTO15000
  570. 15200 PO$=CR$+ZC$:GOSUB120:FL$="EM-"+NM$:DV=PEEK(LC+34):GOTO200
  571. 15205 GOTO 15000
  572. 15210 R1=LC+40:X=0:Z=LEN(PA$):NS$="":REM ** REPLY TO MAIL **
  573. 15211 X=X+1:L$=MID$(PA$,X,1):IFL$=""ORL$=" "THEN 15215
  574. 15212 IF L$="*" THEN 15211
  575. 15213 NS$=NS$+L$:IF X<Z THEN 15211
  576. 15215 L$="":X=0:Z=0:PA$="":GOTO 15014
  577. 15500 REM *** ONLINE TIME
  578. 15501 GOSUB 16000
  579. 15505 PRINT:PRINT:PRINT"[195]URRENT TIMELIMIT ="TL" MINS."
  580. 15510 PRINT:A=-1:INPUT"[206][197][215] [212][201][205][197][204][201][205][201][212]: ";A:IFA<1ORA>255 THEN 15530
  581. 15520 POKE LC+3,A:PRINT:PRINT"[212]IME ADJUSTED!":FORT=1TO2000:NEXT
  582. 15530 GOSUB 16010:RETURN
  583. 15550 GOSUB16000:PRINT"[147][213]SER [198]ILE:":FL$="("+NM$+")":DV=PEEK(LC+33):GOSUB6000
  584. 15555 PRINTZ$CR$A$CR$B$CR$C$CR$D$CR$E$CR$F$CR$G$CR$H$CR$I$CR$J$CR$K$CR$CR$
  585. 15560 INPUT"[210]ETURN";A$
  586. 15565 GOSUB 16010:GOTO 13013
  587. 16000 PO$=CR$+CR$+"[217]OUR SYSOP HAS DROPPED TO SPECIAL FUNCTIONS.":GOSUB120
  588. 16005 PO$=CR$+"[158][[208]LEASE [200]OLD][146]"+CR$:GOSUB120:RETURN
  589. 16010 PO$=CR$+CR$+"[217]OUR SYSOP IS [210][197][212][213][210][206][201][206][199][146] ..."+CR$+CR$:GOSUB120:RETURN
  590. 17000 CK=0:REM *TIME MODERATOR*
  591. 17005 IFPEEK(LC+112)=1 OR PEEK(LC+118)=1 THEN 17020
  592. 17010 GOSUB704:A$=LEFT$(T$,2):A=VAL(A$):Z=(12-A)*60:B$=MID$(T$,4,2):B=VAL(B$)
  593. 17015 Z=Z-B:IFTL>ZTHENTL=Z:PO$=CR$+"[129][211]YS [198]UNCTION SOON - [212]IME REDUCED."+CR$:FX=1
  594. 17016 GOSUB120
  595. 17017 IF FX=1 THEN PO$=CR$+"[153][206]EW [212]IMELIMIT: "+STR$(TL)+" MINS."+CR$:GOSUB120:CK=1
  596. 17018 IF TL<0 THEN TL=0
  597. 17020 FX=0:RETURN
  598. 18000 U=1:PO$=CR$+ZC$:GOSUB120
  599. 18001 FL$="GM-HELP":GOSUB300:GOSUB150
  600. 18012 GOSUB195:GOTO 10100
  601. 20000 PO$=CR$+ZC$:GOSUB120:X=PEEK(754):X=X+1:IF X<256 THEN POKE 754,X
  602. 20001 AR$="[205]AIN [204]IBRARY":IF PEEK(LC+110)=1 THEN 20003
  603. 20002 MU=1:DV=8:FL$="GM-LIBR":GOSUB149
  604. 20003 CP=1:GOSUB89:LI$=IN$:CP=0:ON-(IN$="[216]")-(IN$="?")*2GOTO10100,20002
  605. 20004 AR$=LI$+"-[194]ULLETIN":IF PEEK(LC+110)=1 THEN 20006
  606. 20005 MU=1:DV=8:FL$=LI$+"-BULL":GOSUB149:IF CK THEN20001
  607. 20006 CP=1:GOSUB90:CP=0:ON-(IN$="[216]")-(IN$="?")*2GOTO20001,20005
  608. 20008 DV=8:FL$=LI$+"-BULL-"+IN$:GOSUB149
  609. 20009 IF CK=1 THEN 20001
  610. 20010 GOSUB 195:GOTO20004
  611. 21000 NB=1:MV=0
  612. 21001 PO$=CR$+"[159][208]LEASE WAIT."+CR$:GOSUB120
  613. 21002 FL$="BASE-"+STR$(NB):DV=8:GOSUB6000:IF CK=1 THEN Z$="[EMPTY]"
  614. 21005 A$=RIGHT$(Z$,1):A=VAL(A$):IF AC<A THEN Z$="[EMPTY]":REM *ACESS CK*
  615. 21007 IF Z$="[EMPTY]"ORZ$="[[197][205][208][212][217]]"THEN21020
  616. 21010 A=LEN(Z$):A$=LEFT$(Z$,A-2):MV=MV+1:B$(MV)=A$:A$="":B(MV)=VAL(D$)
  617. 21011 MX(MV)=VAL(C$)
  618. 21015 NB=NB+1:IF NB>9THEN21020
  619. 21016 GOTO 21002
  620. 21020 PO$=CR$+"[159][205]ESSAGE [193]REAS [193]VAILABLE.[146]"+CR$+CR$:GOSUB120
  621. 21021 IF MV<1THENPO$=CR$+"[212]HIS AREA IS UNAVAILABLE."+CR$:GOSUB120:GOSUB195:GOTO10100
  622. 21022 FOR T1=1TOMV:PO$=STR$(T1)+" "+B$(T1)+CR$:GOSUB120:NEXT T1
  623. 21025 PO$=CR$+CR$+"([216]) [197]XITS"+CR$:GOSUB120:AR$="[159][205]ESSAGES":CP=1:GOSUB90:CP=0
  624. 21026 IN=VAL(IN$):XO$=IN$:POKE745,IN
  625. 21027 IFIN$="[216]"THEN 10100
  626. 21028 IFIN$="?"THEN21020
  627. 21030 IFIN<1 OR IN>MVTHEN21025
  628. 21035 MA=IN:MB$=B$(MA):AR$=MB$:GOTO21100
  629. 21100 GOSUB300:IF PEEK(LC+110)=1 THEN 21107
  630. 21101 DV=8:FL$="GM-MB":IF CG=1THEN GOSUB4800
  631. 21102 MU=1:GOSUB150
  632. 21107 GOSUB21120:PO$=CR$+CR$+"  [200]IGHEST [193]CTIVE [205]ESSAGE "+STR$(Z)+CR$:GOSUB120
  633. 21108 PO$=CR$:GOSUB120:GOSUB85:CP=1:GOSUB90:CP=0:IFIN$="[208]"THEN R1=LC+39:GOTO21200
  634. 21109 IFIN$="[210]"THEN 21150
  635. 21110 IFIN$="[211]"THEN 21300
  636. 21111 IFIN$="[216]"THENGOSUB21125:GOTO10100
  637. 21112 IFIN$="[195]"THEN21020
  638. 21114 IF IN$="?" THEN 21101
  639. 21115 GOTO21107
  640. 21120 DV=8:DZ=PEEK(745):FL$="BASE-"+STR$(DZ):GOSUB6000:Z=VAL(B$):POKE746,Z
  641. 21121 HM=VAL(C$):AR=VAL(D$):U=1:DV=8:RETURN
  642. 21125 REM * MSGBASE CLEANUP *
  643. 21127 FL$="":MG$="":Z$="":B$="":C$="":D$="":E$="":F$="":G$="":H$="":I$=""
  644. 21128 J$="":K$="":MB$="":AR$="":BS$="":FL$="":SJ$="":WA$="":PM=0:R$="":RU$=""
  645. 21129 RS$="":XO$="":FORI=1TO10:B$(I)="":B(I)=0:MX(I)=0:NEXTI:SM=0
  646. 21130 RETURN
  647. 21150 BS$=STR$(Z):BS=VAL(BS$):IF BS<1 THEN 21100
  648. 21153 PO$=CR$+"[194]EGIN READING AT MESSAGE #":GOSUB120:GOSUB100:IN=VAL(IN$):WA$=IN$
  649. 21154 IF IN<0 OR IN>BS THEN 21153
  650. 21155 IF IN=0THEN21100
  651. 21160 FL$=LEFT$(MB$,4)+"- "+WA$:PO$=ZC$+CR$:GOSUB120:GOTO249
  652. 21200 PO$=CR$+CR$+"[211]UBJECT: ":GOSUB120:CP=1:GOSUB100:CP=0:IF IN$=""THEN21100
  653. 21201 GOSUB6300:IF KJ THEN 21200
  654. 21202 IF LEN(IN$)>15 THEN PO$=CR$+"[212]OO [204]ONG."+CR$:GOSUB120:GOTO21200
  655. 21203 SJ$=IN$:IF PM=1 THEN SJ$=SJ$+"   ([210]EPLY TO [205]SG# "+WA$+")":PM=0
  656. 21204 X=PEEK(745):FL$="BASE-"+STR$(X):DV=8:GOSUB6000:MG=Z
  657. 21205 GOSUB7990:ON-(CK=1)GOTO21260:GOSUB21400
  658. 21207 IF PM=1 THEN SJ$=SJ$+"  ([210]EPLY TO [205]SG# "+WA$+")[146]":PM=0
  659. 21210 SM=SM+1:MG=MG+1:MG$=STR$(MG):PO$=CR$+CR$+"[156][198]ILING MESSAGE #"+MG$+CR$:GOSUB120
  660. 21211 GOSUB704:ZT$="[205]ESSAGE #"+MG$+" POSTED IN "+B$(MA)+" AT "+T$:GOSUB49500
  661. 21212 X=PEEK(752):X=X+1:IF X<256 THEN POKE 752,X
  662. 21213 FL$=LEFT$(MB$,4)+"-"+MG$
  663. 21214 R$="*":RU$=NM$:RS$=SJ$
  664. 21218 DV=B(MA):OPEN2,DV,2,"@0:"+FL$+",S,W"
  665. 21220 PRINT#2,"[198]ROM- "+RU$+CHR$(13)+"[211]UBJECT- "+RS$
  666. 21221 GOSUB52001:GOSUB704:PRINT#2,"[212]IME/[196]ATE- "+T$+" "+DT$+CHR$(13)+CHR$(13)
  667. 21222 FORG=1TOLN%:PRINT#2,LN$(G):LN$(G)="":NEXT G
  668. 21223 CLOSE2:CLOSE8:CLOSE15:DT$="":T$="":GOSUB 3500
  669. 21226 IF VAL(XO$)<9 THEN R=VAL(XO$)
  670. 21250 Y=PEEK(745):FL$="BASE-"+STR$(Y):DV=8:GOSUB6000
  671. 21251 CLOSE2:OPEN2,DV,2,"@0:"+FL$+",S,W"
  672. 21252 PRINT#2,Z$
  673. 21253 PRINT#2,MG$:PRINT#2,C$:PRINT#2,D$
  674. 21260 CLOSE2:CLOSE8:CLOSE15:MS=1:OT=0:FORX=1TOLN%:LN$(X)="":NEXTX
  675. 21270 GOTO21100
  676. 21300 BS$=STR$(Z):BS=VAL(BS$):IF BS<1 THEN 21100
  677. 21301 PO$=CR$+CR$+"[194]EGIN SCAN AT MESSAGE #: ":GOSUB120:GOSUB100:IN=VAL(IN$)
  678. 21302 IF IN=0 THEN 21100
  679. 21303 WA$=STR$(IN):NI=VAL(WA$):IF IN<0 OR IN>BS THEN 21301
  680. 21304 DV=B(MA):FL$=LEFT$(MB$,4)+"-"+WA$
  681. 21305 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"0:"+FL$+",S,R":GOSUB185
  682. 21306 IFCK=1 AND NI<BS THEN21320
  683. 21307 IFCK=1 OR NI>BS THEN 21322
  684. 21308 INPUT#2,Z$,B$,C$:CLOSE2
  685. 21309 PO$=CR$+CR$+"[159][205]ESSAGE: #"+WA$+CR$:GOSUB120
  686. 21310 PO$=CR$+Z$+CR$:GOSUB120
  687. 21311 PO$=CR$+B$+CR$:GOSUB120:PO$=CR$+C$+CR$:GOSUB120
  688. 21312 PO$=CR$+"([206]) [206]EXT  ([193]) [193]BORT.[146] [195]HOICE? ":GOSUB120:CP=1:GOSUB 100:CP=0
  689. 21313 IFIN$="[206]"THENPO$=CR$:GOSUB120:GOTO21320
  690. 21314 IFIN$="[193]"THEN 21330
  691. 21315 GOTO21312
  692. 21320 NI=NI+1:WA$=STR$(NI):GOTO21304
  693. 21322 PO$=CR$+CR$+"[206]O MORE MESSAGES!"+CR$:GOSUB120:GOSUB195:GOTO 21330
  694. 21330 A$="":B$="":C$="":IN$="":WA$="":NI=0:BS$="":BS=0:FL$=""
  695. 21335 CLOSE15:CLOSE2:GOTO21100
  696. 21400 FL$=LEFT$(MB$,4)+"-":REM * M/B MAINT *
  697. 21405 IF Z<MX(MA) THEN 21450
  698. 21410 PO$=CR$+"[211]YSTEM [198]UNTION IN EFFECT,  [208]LEASE WAIT..."+CR$:GOSUB120
  699. 21415 DV=B(MA):CLOSE2:CLOSE15:OPEN15,DV,15,"S0:"+FL$+"*":FORI=1TO500:NEXT I
  700. 21420 Y=PEEK(745):FL$="BASE-"+STR$(Y):DV=8:GOSUB6000
  701. 21422 B$="0":OPEN2,DV,2,"@0:"+FL$+",S,W"
  702. 21424 PRINT#2,Z$:PRINT#2,B$:PRINT#2,C$:PRINT#2,D$:CLOSE2:PM=0:Z=0:MG=0
  703. 21430 ZT$="[205]SG [194]ASE > "+B$(MA)+" < CLEARED BY SYSTEM (OVERLOAD)":GOSUB49500:ZT$=""
  704. 21450 RETURN
  705. 26000 U=1:PO$=CR$+ZC$:GOSUB120:GOSUB300:IF PEEK(LC+110)=1 THEN 26005
  706. 26001 DV=8:FL$="GM-PARAMETERS"
  707. 26002 NC$(0)="[207]FF":NC$(1)="[207]N":IF CG=1 THEN GOSUB 4800
  708. 26003 MU=1:GOSUB 150
  709. 26005 CP=1:GOSUB90:IF IN$="?" THEN 26001
  710. 26006 ON-(IN$="[210]")-(IN$="[205]")*2 GOTO 26012,26150
  711. 26008 ON-(IN$="[208]")-(IN$="[217]")*2GOTO 26300,26200,26025
  712. 26009 ON-(IN$="[211]")-(IN$="[193]")*2GOTO 26075,26030
  713. 26010 ON-(IN$="[216]")-(IN$="[212]")*2-(IN$="[195]")*3 GOTO 26015,26019,26100
  714. 26011 GOTO 26000
  715. 26012 X=PEEK(LC+110):X=X+1:IFX>1 THEN X=0
  716. 26013 POKE LC+110,X:PO$=CR$+CR$+"[216]PERT [205]ODE IS "+NC$(X)+CR$:GOSUB120:GOSUB195:GOTO26000
  717. 26015 NC$(0)="":NC$(1)="":GOTO10100
  718. 26019 GOTO 26050
  719. 26020 GOTO26001
  720. 26030 PO$=CR$+CR$:GOSUB120
  721. 26031 IFCR$=CHR$(13)THENPO$="[204][198] [207][206]!":CR$=CR$+CHR$(10):GOSUB120:POKE LC+21,1:GOTO26125
  722. 26035 IF PEEK(LC+21)=1THENPO$="[204]INEFEED [207][198][198]!":CR$=CHR$(13):GOSUB120:POKE LC+21,0
  723. 26040 GOTO 26125
  724. 26050 GOSUB 704:PO$=CR$+CR$+"[212][201][205][197]: "+T$+""+CR$:GOSUB120
  725. 26051 MN=PEEK(699):DY=PEEK(698):GOSUB 52002:PO$=CR$+"[196][193][212][197]: "+DT$+CR$:GOSUB120
  726. 26052 GOSUB195:GOTO26000
  727. 26075 DV=8:FL$="GM-SYS":ZT=1:GOSUB150:GOSUB195
  728. 26099 GOTO 26000
  729. 26100 PO$=CR$+CR$+"<[193]>SCII OR <[195]>OMMODORE"+CR$+"[215]HICH? ":GOSUB120:CP=1:GOSUB100
  730. 26101 CP=0:IFIN$="[193]"AND PEEK(LC+78)=1 THENQX=255:CG=0:POKE(LC+21),1:GOTO26110
  731. 26102 IFIN$="[195]" AND PEEK(LC+79)=1 THENQX=0:CG=1:POKE(LC+21),0:GOTO26110
  732. 26103 GOTO26100
  733. 26110 PO$=CR$+"[195]HANGE YOUR TERMINAL"+CR$+"[210]ETURN WHEN COMPLETED: ":GOSUB120
  734. 26111 GOSUB100
  735. 26115 POKE LC+7,QX:POKE LC+4,CG:IF CG=0 THEN 26117
  736. 26116 GOTO 26118
  737. 26117 PO$=CR$+CR$+"[212]URNING [195][207][204][207][210] [205][207][196][197] OFF."+CR$:GOTO 26120
  738. 26118 PO$=CR$+CR$+"[195][207][159][204][156][207][210] [205][207][158][196][197] [158][193][195][212][201][214][197][146]!!!"+CR$
  739. 26120 GOSUB120
  740. 26125 GOSUB195:GOTO26000
  741. 26150 X=PEEK(LC+111):IF X=40 THEN X=80:GOTO 26155
  742. 26152 X=40
  743. 26155 POKE LC+111,X:PO$=CR$+CR$+STR$(PEEK(LC+111))+" COLUMNS ACTIVE."+CR$:GOSUB120
  744. 26160 GOSUB 195:GOTO 26000
  745. 26200 DV=PEEK(LC+33):GOSUB175:IF CK=1 THEN 26000
  746. 26203 FL$="("+NM$+")":DV=PEEK(LC+33):GOSUB6000:J$=STR$(PEEK(LC+2))
  747. 26205 PO$=CR$+CR$+"[210][197][193][204] [206][193][205][197]    : "+C$+CR$:GOSUB120
  748. 26206 PO$="[200]ANDLE       : "+Z$+CR$:GOSUB120
  749. 26207 PO$="[159][193]CCESS       : "+D$+CR$:GOSUB120
  750. 26208 PO$="[195]ITY/[211]TATE   : "+E$+CR$:GOSUB120
  751. 26209 PO$="[158][193]GE          : "+F$+CR$:GOSUB120
  752. 26210 PO$="[208]HONE #      : "+G$+CR$:GOSUB120
  753. 26211 PO$="[204]AST ON      : "+I$+CR$:GOSUB120
  754. 26212 PO$="[195]OMPUTER     : "+K$+CR$:GOSUB120
  755. 26213 PO$="[129][195][210][197][196][201][212][211]      : "+J$+CR$+"":GOSUB120
  756. 26215 GOSUB195:GOTO26000
  757. 26300 FL$="("+NM$+")":DV=PEEK(LC+33):GOSUB175:ON-(CK=1)GOTO26000:GOSUB6000
  758. 26301 PO$=CR$+"[158][207]LD [208]ASSWORD[146]? ":GOSUB120:CP=1:GOSUB100:CP=0
  759. 26302 IF IN$<>B$ THEN 26000
  760. 26303 U=0
  761. 26304 PO$=CR$+"[159][206][197][215] PASSWORD?[146] ":GOSUB120:CP=1:GOSUB100:CP=0:IFLEN(IN$)<5THEN26000
  762. 26305 P$=IN$:U=1:GOSUB6300:DV=PEEK(LC+33):GOSUB175
  763. 26308 FL$="("+NM$+")":ON-(KJ=1)-(CK=1)*2GOTO26303,10100
  764. 26309 CLOSE15:OPEN15,DV,15,"S0:"+FL$:FORK=1TO500:NEXTK
  765. 26310 CLOSE2:OPEN2,DV,2,"0:"+FL$+",S,W":PRINT#2,Z$:PRINT#2,P$:PRINT#2,C$
  766. 26311 PRINT#2,D$:PRINT#2,E$:PRINT#2,F$:PRINT#2,G$:PRINT#2,H$:PRINT#2,I$
  767. 26312 PRINT#2,J$:PRINT#2,K$
  768. 26313 CLOSE2:CLOSE15:PO$=CR$+"[155][208]ASSWORD [151][195]HANGED."+CR$:GOSUB120
  769. 26315 GOSUB195:GOTO26000
  770. 26400 REM*USER DIRECTORY*
  771. 29990 ON -(AR$="[199]AMES")-(AR$="[195]= [199]AMES")*2-(AR$="[213]TIL")*3 GOTO 29995,29996,29997
  772. 29991 GOTO 10100
  773. 29995 FL$="GM-GAMES":LF$="GAME-MOD-":R=764:DV=PEEK(LC+35):AR$="[199][193][205][197][211]":GOTO30000
  774. 29996 FL$="[195] GM-GAMES":LF$="GAME-MOD-":R=765:DV=PEEK(LC+35):AR$="[195]= [199][193][205][197][211]":GOTO30000
  775. 29997 FL$="GM-UTILS":LF$="UTIL-MOD-":R=763:DV=PEEK(LC+35):AR$="[213][212][201][204][201][212][197][211]"
  776. 29999 PO$=CR$+"[147]"+ZC$+CR$:GOSUB120:GOSUB300
  777. 30000 CA=5:R1=LC+43:G=0:DV=8:IF AR$="[199][193][205][197][211]" AND CG=1 THEN 10100
  778. 30001 IF AR$="[195]= [199][193][205][197][211]" AND CG=0 THEN 10100
  779. 30002 CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,"0:"+FL$+",S,R":INPUT#15,EN:IFEN>2THEN10100
  780. 30003 Z$="":INPUT#2,Z$:RS=ST:RL=VAL(RIGHT$(Z$,1)):IF AC<RL THEN 30005
  781. 30004 L=LEN(Z$):Z$=LEFT$(Z$,L-2):G=G+1:LN$(G)=Z$
  782. 30005 IF RS=0AND G<51 THEN 30003
  783. 30006 CLOSE2:CLOSE15:IF G<1THENPO$=CR$+"[206]O [211]ELECTIONS![146]"+CR$:GOSUB120:GOSUB195
  784. 30007 PO$=CR$+"[208]LEASE SELECT:"+CR$+CR$:GOSUB120
  785. 30008 FOR T1=1 TOG:PO$=STR$(T1)+" "+LN$(T1)+CR$:GOSUB120:NEXT T1
  786. 30009 PO$=CR$+"([216]) TO EXIT."+CR$:GOSUB120:CP=1:GOSUB90:CP=0
  787. 30010 ON-(IN$="?")-(IN$="[216]")*2GOTO30007,30050
  788. 30011 IN=VAL(IN$):IF IN<1 OR IN>G THEN30009
  789. 30012 FL$=LF$+LN$(IN):DV=PEEK(LC+35):GOSUB12050:IF CK=1 THEN 30050
  790. 30013 GOSUB3500:IF CKTHEN10100
  791. 30015 X=PEEK(R):X=X+1:IF X<256 THEN POKE R,X
  792. 30020 PO$=CR$+"[204]OADING ..."+CR$:GOSUB120:GOTO 5700
  793. 30050 FORI=1TO50:LN$(I)="":NEXT I:Z$="":GOTO10100:REM *CLEANUP FOR GMS/UTLS
  794. 41999 GOSUB51500:REM * MOD CHK POINT *
  795. 48000 PO$=CR$+CR$+"[211]YS[207]P [201]NTERRUPT":GOSUB120:GOTO13008
  796. 48001 GOSUB12991:GOSUB12992:GOTO13008
  797. 49500 CLOSE2:CLOSE15:OPEN2,8,2,"GM-LOG,S,A":OPEN15,8,15:INPUT#15,EN:IFEN>2THEN49510
  798. 49501 PRINT#2,ZT$:CLOSE2:ZT$="":PRINT#15,"I0:":CLOSE15
  799. 49505 RETURN
  800. 49510 CLOSE15:OPEN15,8,15,"S0:GM-LOG":FORK=1TO500:NEXTK
  801. 49515 CLOSE2:OPEN2,8,2,"GM-LOG,S,W":FORK=1TO500:NEXTK:GOTO49501
  802. 49999 DIM LN$(50):GOSUB 51500
  803. 50000 CR=PEEK(LC+2):NM$="":AC=PEEK(LC+1):POKE LC+24,PEEK(LC+80)
  804. 50001 U=255:QX=PEEK(LC+7):QZ=PEEK(LC+23):CR$=CHR$(13):FORI=LC+9 TO LC+19
  805. 50002 IFPEEK(I)<>0THEN PK=PEEK(I):NM$=NM$+CHR$(PK):PK=0
  806. 50003 NEXT I:IFPEEK(LC+21)=1THENCR$=CR$+CHR$(10)
  807. 50004 CU=PEEK(LC+24):CG=PEEK(LC+4):TD$=STR$(PEEK(699))+"/"+STR$(PEEK(698)):GOTO10100
  808. 50005 DV=8:FL$="GM-CONFIG":GOSUB6000
  809. 50007 A(1)=VAL(B$):A(2)=VAL(C$):A(3)=VAL(D$)
  810. 50008 FOR I=1TO3:POKE (LC+32)+I,A(I):NEXT I
  811. 50009 FOR I=1TO9:A(I)=0:NEXT I
  812. 50010 POKE (LC+111),40:RETURN
  813. 50050 REM
  814. 50100 DV=PEEK(LC+35):FL$="P-BBS MAINT":GOSUB12050:IF CK=1 THEN 10100
  815. 50101 GOTO 5700
  816. 50190 LC$="53000":CL$="200":Z=0:LC=VAL(LC$):CL=VAL(CL$)
  817. 50191 FORI=820TO826:POKEI,0:NEXT I
  818. 50192 FOR T=1 TO LEN(LC$):L$=MID$(LC$,T,1):L=VAL(L$):POKE819+T,L:NEXT T
  819. 50195 POKE 826,VAL(CL$):IFPEEK(LC+6)=1THEN50300
  820. 50200 PRINT"[147][210]EADING [196]ATA ..[158]":FOR I=LC TO LC+CL:POKEI,0:NEXT I
  821. 50205 FORI=700 TO 767:POKEI,0:NEXT I:REM *BBS STATS*
  822. 50225 DV=8:FL$="GM-CREDIT 1":GOSUB6000:A(1)=VAL(Z$):A(2)=VAL(B$):A(3)=VAL(C$)
  823. 50230 A(4)=VAL(D$):A(5)=VAL(E$):A(6)=VAL(F$):A(7)=VAL(G$):A(8)=VAL(H$)
  824. 50235 FORI=1TO7:POKE (LC+38)+I,A(I):NEXT I
  825. 50240 DV=8:FL$="GM-CREDIT 2":GOSUB6000:A(1)=VAL(Z$):A(2)=VAL(B$):A(3)=VAL(C$)
  826. 50245 A(4)=VAL(D$):A(5)=VAL(E$):A(6)=VAL(F$):A(7)=VAL(G$):A(8)=VAL(H$)
  827. 50250 FORI=1TO7:POKE (LC+46)+I,A(I):NEXT I
  828. 50255 DV=8:FL$="GM-DATA":GOSUB6000:A(1)=VAL(B$):A(2)=VAL(C$):A(3)=VAL(D$)
  829. 50260 A(4)=VAL(E$):A(5)=VAL(F$):A(6)=VAL(G$):A(7)=VAL(H$)
  830. 50262 POKE(LC+32),A(7)
  831. 50265 FOR I=LC+55 TO LC+75:POKEI,0:NEXT I
  832. 50268 L=LEN(Z$):IF L>20 THEN L=20
  833. 50270 FOR I=1TO L:A$=MID$(Z$,I,1):POKE (LC+54)+I,ASC(A$):NEXT I:A$="":Z$="":L=0
  834. 50275 FOR I=1 TO 6:POKE (LC+75)+I,A(I):NEXT I
  835. 50276 POKE (LC+24),PEEK(LC+80)
  836. 50285 FOR I=8 TO 11:CLOSE15:OPEN15,I,15:CLOSE15:IFST<0THEN 50288
  837. 50286 OPEN15,I,15:PRINT#15,"U0>M1":CLOSE15
  838. 50288 NEXT I:CLOSE15
  839. 50290 GOSUB 50005
  840. 50292 POKE(LC+119),0
  841. 50300 POKE LC+6,1:LC$="":CL$="":GOTO500
  842. 51000 PO$=CR$+CR$+"[195]ARRIER [196]ROP![146]"+CR$:GOSUB120:FORK=1TO500:NEXTK
  843. 51001 IFNM$=""THENNM$="[202]ERK"
  844. 51003 GOTO11009
  845. 51100 FORI=LC+9 TO LC+19:POKEI,0:NEXT
  846. 51105 RETURN
  847. 51500 REM ** POKING LOCATOR **
  848. 51502 LC$=""
  849. 51555 FOR T=1 TO 5:LC$=LC$+STR$(PEEK(819+T)):NEXT T:LC=VAL(LC$):LC$=""
  850. 51560 CL=PEEK(826):RETURN
  851. 52000 OPEN15,8,15:INPUT#15,EN,EM$,ES,ET:IFEN>0THENCLOSE15:RETURN
  852. 52001 REM *DON'T MOVE!*
  853. 52002 MN=PEEK(699):DY=PEEK(698):IFMN=1THENMN$="[202]AN."
  854. 52003 IFMN=2THENMN$="[198]EB."
  855. 52004 IFMN=3THENMN$="[205]AR."
  856. 52005 IFMN=4THENMN$="[193]PR."
  857. 52006 IFMN=5THENMN$="[205]AY"
  858. 52007 IFMN=6THENMN$="[202]UNE"
  859. 52008 IFMN=7THENMN$="[202]ULY"
  860. 52009 IFMN=8THENMN$="[193]UG."
  861. 52010 IFMN=9THENMN$="[211]EP."
  862. 52011 IFMN=10THENMN$="[207]CT."
  863. 52012 IFMN=11THENMN$="[206]OV."
  864. 52013 IFMN=12THENMN$="[196]EC."
  865. 52014 IFMN=0THENMN$="[211]ET [196]ATE"
  866. 52019 IFMN=0THENDT$=MN$+" ":GOTO52025
  867. 52020 DY$=STR$(DY):DT$=MN$+DY$
  868. 52025 RETURN
  869.