home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (ST / R.UD.LIB (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  22.8 KB  |  654 lines
  1. 40 IFPEEK(56)=144THEN100
  2. 50 POKE828,PEEK(56):POKE56,144:CLR
  3. 100 POKE152,PEEK(251)
  4. 110 GOTO460
  5. 120 :
  6. 130 :REM START OF USER JUMP TABLE.
  7. 140 :
  8. 150 GOTO690 :REM CHECK FOR CARRIER.
  9. 160 GOTO750 :REM SEND P$+CHR$(13) OUT.
  10. 170 GOTO760 :REM SEND P$ OUT.
  11. 180 GOTO800 :REM GET L$ FROM MODEM.
  12. 190 GOTO910:REM CALL FOR CHAT.
  13. 200 GOTO950:REM ENGAGE CHAT MODE.
  14. 210 GOTO1010:REM SEND 'P' TO USERFILE.
  15. 220 B=DV-8:GOTO1050:REM READ ERR CHNL.
  16. 230 GOTO1070:REM READ SYSTEM CLOCK.
  17. 240 GOTO1130:REM DISPLAY USER STATS.
  18. 250 GOTO1270:REM DISPLAY USER ONLINE.
  19. 260 GOTO1290:REM EDIT USER STATISTICS.
  20. 270 GOTO1660:REM REMOTE SYSOP MENU.
  21. 280 GOTO1880:REM DISPLAY DIR.
  22. 290 GOTO2190:REM BREAK RC INTO LO/HI.
  23. 300 GOTO2230:REM UPDATE (USER LOG).
  24. 310 GOTO2240:REM SAME AS 2330.
  25. 320 GOTO2250:REM GET U$() FROM DISK.
  26. 330 GOTO2260:REM GET N$() FROM DISK.
  27. 340 GOTO2300:REM SEND U$() TO DISK.
  28. 350 GOTO2310:REM SEND N$() TO DISK.
  29. 360 GOTO2360:REM FIND DV,DR$.
  30. 370 GOTO2380:REM INCREMENT DV,DR$.
  31. 380 GOTO2440:REM HANG UP PHONE.
  32. 390 GOTO2510:REM FIND TIME CONNECTED.
  33. 400 GOTO2540:REM RETURN TO BBS.
  34. 410 GOTO2550:REM LOAD NEXT MODULE.
  35. 420 GOTO860:REM SEND SEQ/8;0 TO MODEM
  36. 430 :
  37. 440 :REM END OF USER JUMP TABLE.
  38. 450 :
  39. 460 GOSUB470:GOTO2610
  40. 470 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0)
  41. 480 DIMD$(30),U$(15),N$(15),DR%(7),E$(51):DR$="0":SI=54272
  42. 490 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN510
  43. 500 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  44. 510 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  45. 520 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  46. 530 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4,DL:CLOSE1
  47. 540 OPEN1,8,5,"0:(GENERAL)":INPUT#1,GF:IFGF=0THENCLOSE1:GOTO578
  48. 550 DIMGF$(GF,30),GF(GF,2):FORI=1TOGF:INPUT#1,GF$(I,0),GF(I,0),GF(I,1),GF(I,2)
  49. 560 FORT=1TOGF(I,0):INPUT#1,GF$(I,T):NEXT:NEXT:CLOSE1:GOTO578
  50. 562 OPEN1,8,5,"0:(UDFILES1)":GOSUB220:IFER$>"00"THENUD=0:CLOSE1:RETURN
  51. 564 INPUT#1,UD,HD,CP$,CD$:DIMLI$(UD),UD$(30,1),UD(30,2),UD%(30,1),PT$(UD),PA$(UD)
  52. 566 FORI=1TOUD:INPUT#1,LI$(I),UD(I,1),UD(I,2),PT$(I),PA$(I):NEXT:CLOSE1:RETURN
  53. 578 F$=CHR$(139):P=0:BS=255:UL$=""
  54. 580 BR=300:IFPEEK(659)=8THENBR=1200
  55. 585 IFPEEK(659)=10THENBR=2400
  56. 590 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":RETURN
  57. 600 IFA$="[133]"THENSY=SY+1:GOSUB1660:SY=SY-1:RETURN
  58. 610 IFA$="[134]"THENGOSUB950:TI$="000000":RETURN
  59. 620 IFA$="[140]"THENCD=1:RETURN
  60. 630 IFL<>65535THENRETURN
  61. 640 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  62. 650 CD=1:UL$="":RETURN
  63. 660 IFA$=""ORZ$=""THENGOSUB680
  64. 670 RETURN
  65. 680 POKESI+4,21:POKESI+4,20:RETURN
  66. 690 CD=0:IFSYTHENRETURN
  67. 700 IF(PEEK(B1)AND16)<>HLTHENRETURN
  68. 710 TI$="000000"
  69. 720 IF(PEEK(B1)AND16)<>HLTHENRETURN
  70. 730 IFVAL(TI$)>5THENCD=1:RETURN
  71. 740 GOTO720
  72. 750 P$=P$+F$
  73. 760 IFL=55THENPRINT#4,P$;
  74. 770 POKE52030,SY:POKE52040,MM:SYS51994,P$:CD=PEEK(52033):A$=CHR$(PEEK(52034))
  75. 780 IFA$=CHR$(0)THENA$=""
  76. 790 RETURN
  77. 800 GOSUB2510:IFCO>VAL(U$(14))THEN840
  78. 810 POKE52038,EC:POKE52039,L:POKE52040,MM:POKE52030,SY
  79. 820 L$="9[195][141]KSLE HERE. '[195]'OMMENTING ONANDINGLY ":SYS52003,L$:CD=PEEK(52033)
  80. 830 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB600:RETURN
  81. 840 P$="[139][139][217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!![139][199][207][207][196][194][217][197]![139]":GOSUB160
  82. 850 GOSUB390:GOTO400
  83. 860 B=0:OPEN1,8,5,"0:"+FI$:GOSUB220:IFER$>"01"THENCLOSE1:RETURN
  84. 870 SYS52021:CLOSE1:RETURN
  85. 880 P$="[139][197]NTER [193]CCESS LEVEL: ":GOSUB170:L=5:GOSUB180:IFCDTHENRETURN
  86. 890 IFVAL(L$)<0ORVAL(L$)>65535ORL$=""THENRETURN
  87. 900 L=VAL(L$):A2=INT(L/256):A1=L-A2*256:A$=L$+"":RETURN
  88. 910 IFSA<>1THENP$="[139][139]"+SY$+" IS NOT AVAILABLE RIGHT NOW.":GOSUB160:RETURN
  89. 920 P$="[195]ALLING "+SY$+"....":GOSUB160:FORI=1TO20:GETA$:IFA$="[134]"THEN950
  90. 930 GOSUB680:FORT=1TO600:NEXT:NEXT
  91. 940 P$="[212]RY AGAIN LATER....":GOSUB160:RETURN
  92. 950 P$="[139][139]"+SY$+", CHATTING WITH "+U$(1)+F$:GOSUB160
  93. 960 SYS52012:A$=CHR$(PEEK(52034)):CD=PEEK(52033)
  94. 970 IFA$="[134]"ORCDTHENP$="[139]"+SY$+" HAS RETURNED TO "+BD$+".":GOSUB160:RETURN
  95. 980 IFA$="[133]"THENSY=SY+1:GOSUB1660:SY=SY-1
  96. 990 IFA$="[140]"THENCD=1:RETURN
  97. 1000 RETURN
  98. 1010 GOSUB2200:AA=RF:GOSUB2360
  99. 1020 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB1050:NEXT
  100. 1030 GOSUB1050:IFER$<"20"ORER$="50"THENRETURN
  101. 1040 PRINT"[197]RROR IN (USERFILE)!":GOSUB2440:STOP
  102. 1050 ES$="":GOSUB1060:ER$=LEFT$(ES$,2):RETURN
  103. 1060 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO1060:RETURN
  104. 1070 T1$="10:04:09.4 PM":SYS51982,T1$:TM$=T1$+""
  105. 1080 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  106. 1090 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO1120
  107. 1100 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  108. 1110 IFC2THENC2=0:NT=0:IFSFTHENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  109. 1120 DA$=M$+STR$(DT):RETURN
  110. 1130 P$="[139][217]OUR [211]TATISTICS....[139]":GOSUB160
  111. 1140 P$="[206]AME          : "+U$(1):GOSUB160
  112. 1150 P$="[193]CCESS LEVEL  :"+STR$(AC):GOSUB160:GOSUB1070
  113. 1160 P$="[196]ATE/[212]IME     : "+DA$+" "+TM$:GOSUB160:GOSUB2510
  114. 1170 P$="[195]ONNECT [212]IME  :"+STR$(CO)+" MINS.":GOSUB160
  115. 1180 P$="[205]EMBER #      : "+R$:GOSUB160
  116. 1190 P$="[208]ASSWORD      : "+U$(4):GOSUB160
  117. 1200 P$="[193]GE           : "+U$(6):GOSUB160
  118. 1210 P$="[210]EAL [206]AME     : "+U$(7):GOSUB160
  119. 1220 P$="[193]VAIL [195]REDITS : "+U$(9):GOSUB160
  120. 1230 P$="[194]LOCKS [196]/[204]'D  : "+U$(10):GOSUB160
  121. 1240 P$=""+MID$(STR$(RR),2)+" [195]REDITS PER [208]OST":GOSUB160
  122. 1250 P$="[204]AST CALL DATE: "+U$(11):GOSUB160
  123. 1260 P$="[212]OTAL CALLS   : "+U$(12):GOSUB160:RETURN
  124. 1270 GOSUB2510:PRINTCHR$(13)""U$(1)TAB(20)LEFT$(U$(7),19)
  125. 1275 PRINT"[154][207]N: "LN$TAB(20)"[206]OW: "TM$:PRINT"[159][204]EVEL:"ACTAB(20);
  126. 1280 PRINT"[195]ONNECTED:"CO"MINS.":RETURN
  127. 1290 P$=" [147][197]NTER ACCOUNT # OF USER.":GOSUB160
  128. 1300 P$="[193]CCOUNT # OF CURRENT USER: "+R$:GOSUB160
  129. 1310 P$="[214][213]:":GOSUB170:L=3:GOSUB180:IFCDTHENRETURN
  130. 1320 IFL$=""THENRETURN
  131. 1330 E$=L$+"":IFL$=R$THENFORL=1TO15:N$(L)=U$(L):NEXT:AA=AC:GOTO1350
  132. 1340 OPEN3,RF,3,RF$:RC=VAL(L$):GOSUB1010:GOSUB2260:CLOSE3
  133. 1350 P$=" [147]1 - [206]AME      : "+N$(1)+"[139]2 - [208]HONE     : "+N$(2):GOSUB160:GOSUB2220
  134. 1360 P$="3 - [193]CCESS [204]VL:"+STR$(AA)+"[139]4 - [208]ASSWORD  : "+N$(4):GOSUB160
  135. 1370 P$="5 - # OF [197]MAIL: "+N$(5)+"[139]6 - [193]GE       : "+N$(6):GOSUB160
  136. 1380 P$="7 - [210]EAL NAME : "+N$(7)+"[139]8 - C/G MODE  : "+N$(8):GOSUB160
  137. 1390 P$="9 - [193]VAL [195]RDTS: "+N$(9)+"[139][193] - [194]LCKS [196]/[204] : "+N$(10):GOSUB160
  138. 1400 P$="[194] - [204]AST CALL : "+N$(11):GOSUB160
  139. 1410 P$="[195] - # CALLS   : "+N$(12):GOSUB160
  140. 1420 P$="[196] - [195]ALLS/[196]AY : "+N$(13)+"[139][197] - [212]IME/[195]ALL : "+N$(14):GOSUB160
  141. 1430 P$="[198] - [195]ALLS[212]ODAY: "+N$(15):GOSUB160
  142. 1440 IFL=55THENL=0:PRINT#4:CLOSE4:GOTO1350
  143. 1450 P$="[139][215]HICH TO CHANGE:":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  144. 1460 IFL$=""ANDR$=E$THENFORL=1TO15:U$(L)=N$(L):NEXT:AC=AA:GOTO1290
  145. 1470 IFL$=""THEN1290
  146. 1480 IFL$="S"ORL$="[211]"THEN1560
  147. 1490 IFL$="P"ORL$="[208]"THENL=55:OPEN4,4,7:GOTO1350
  148. 1500 S=(ASC(L$)AND127)-64:IFS=>1ANDS<=6THENS=S+9:GOTO1530
  149. 1510 S=VAL(L$):IFS<1ORS>9THEN1350
  150. 1520 IFS=3THENGOSUB880:N$(3)=A$:AA=A:GOTO1350
  151. 1530 P$="[139]["+N$(S)+"]:[195]HANGE TO->":GOSUB170
  152. 1540 L=20:GOSUB180:IFCDTHENRETURN
  153. 1550 N$(S)=L$+"":GOTO1350
  154. 1560 P$="[139][211]AVE STATS WHERE? (DEFAULT="+E$+"):":GOSUB170
  155. 1570 L=3:GOSUB180:IFCDTHENRETURN
  156. 1580 IFL$<>""ANDVAL(L$)>0THENE$=L$
  157. 1590 P$="[139][211]AVE AT: "+E$:GOSUB160
  158. 1600 P$="[195]ORRECT? (Y/N):":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  159. 1610 IFL$<>"Y"ANDL$<>"[217]"THEN1350
  160. 1620 OPEN3,RF,3,RF$:RC=VAL(E$):GOSUB1010
  161. 1630 GOSUB2310
  162. 1640 CLOSE3
  163. 1650 RETURN
  164. 1660 AA=D8:GOSUB2360
  165. 1670 P$=" [147]":GOSUB160
  166. 1680 P$=DC$+"[139]   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--[139]"+DC$+F$:GOSUB160
  167. 1690 P$="[214] - [214]ALIDATE USER":GOSUB160
  168. 1700 P$="[193] - [211]CAN ANY SEQ ON DISK":GOSUB160
  169. 1710 P$="$ - [196]IRECTORY":GOSUB160
  170. 1720 P$="@ - [196]OS COMMANDS":GOSUB160
  171. 1730 P$="[213] - [211]CAN USER LOG":GOSUB160
  172. 1740 P$="[212] - [212]ODAY'S CALLERS":GOSUB160
  173. 1750 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB160
  174. 1760 P$="[139][210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  175. 1770 IFL$=""THENRETURN
  176. 1780 L$=CHR$(ASC(L$)AND127)
  177. 1790 GOSUB2230:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  178. 1800 DV=D8:ON-(L$="U")-2*(L$="A")-3*(L$="V")-4*(L$="$")GOSUB2030,2140,1290,1880
  179. 1810 ON-(A$="#")-2*(L$="T")GOSUB2380,2130
  180. 1820 IFL$="?"THEN1670
  181. 1830 IFL$<>"@"THEN1760
  182. 1840 P$="[139]>":GOSUB170:L=39:GOSUB180:IFCDTHENRETURN
  183. 1850 IFL$=""THENGOSUB1050:P$="[139]"+ES$:GOSUB160:GOTO1760
  184. 1860 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  185. 1870 GOTO1760
  186. 1880 P$="[139][208]ATTERN? $"+DR$+":":GOSUB170:L=16:GOSUB180:ONCDGOTO400
  187. 1882 FI$=L$+"":IFFI$=""THENFI$="*"
  188. 1888 P$=F$:GOSUB160:OPEN1,DV,0,"$"+DR$+":"+FI$
  189. 1890 GOSUB1050:IFER$>"01"THENCLOSE1:P$="[139]"+ES$:GOSUB160:RETURN
  190. 1900 GET#1,A$:GET#1,A$
  191. 1910 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  192. 1920 GET#1,LO$:GET#1,HI$
  193. 1930 LO$=LO$+N$:HI$=HI$+N$
  194. 1940 P$=STR$(ASC(LO$)+256*ASC(HI$)):P$=MID$(P$+"     ",2,5)+" ":S=0
  195. 1950 GET#1,A$:IFA$=""THEN1985
  196. 1960 GET#5,Z$:IFZ$=""THENGETZ$
  197. 1970 IFZ$=" "THENCLOSE1:RETURN
  198. 1972 IFA$=CHR$(34)THENS=1
  199. 1975 IFA$=" "ANDS=0THEN1950
  200. 1980 P$=P$+A$:GOTO1950
  201. 1985 IFMID$(P$,7,1)="B"THENP$=LEFT$(P$,6)+"[194]LOCKS [198]REE."
  202. 1990 L=8:IFECANDMID$(P$,L,1)=Q$THENL=9
  203. 2000 IFECANDMID$(P$,L,1)="("THEN1910
  204. 2005 IFMID$(P$,26,1)="D"ANDECTHEN1910
  205. 2010 GOSUB160:IFA$=" "THENCLOSE1:RETURN
  206. 2020 GOTO1910
  207. 2030 FI$="(USER LOG)"
  208. 2040 OPEN1,DV,5,DR$+":"+FI$:P$="":GOSUB1050:IFER$>"01"THENCLOSE1:RETURN
  209. 2050 GET#1,A$:IF(ST)AND64THEN2100
  210. 2060 GET#5,Z$:IFZ$=""THENGETZ$
  211. 2070 IFZ$=" "ORZ$="/"THEN2100
  212. 2080 IFA$=CHR$(13)ORLEN(P$)=39THENGOSUB160:P$="":GOTO2050
  213. 2090 P$=P$+A$:GOTO2050
  214. 2100 GOSUB160:CLOSE1:P$="[139][211]CRATCH? (Y/N):":GOSUB170:L=1:GOSUB180
  215. 2110 IFL$=""OR(L$<>"Y"ANDL$<>"[217]")THENRETURN
  216. 2120 OPEN1,DV,5,"@"+DR$+":"+FI$+",S,W":PRINT#1," ":CLOSE1:RETURN
  217. 2130 FI$="(T.CALLERS)":GOTO2040
  218. 2140 P$="[139][211]CAN FILE: ":GOSUB170:L=16:GOSUB180
  219. 2150 FI$=L$+"":GOTO2040
  220. 2160 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  221. 2170 GOSUB2160:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  222. 2180 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB2160:RETURN
  223. 2190 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  224. 2200 GOSUB2190:R1=LO:R2=HI:RETURN
  225. 2210 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  226. 2220 AA=VAL(N$(3)):RETURN
  227. 2230 IFLEN(UL$)<230THENRETURN
  228. 2240 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  229. 2250 GOSUB2260:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  230. 2260 GET#3,A$:FORI=1TO15:INPUT#3,N$(I):NEXT:RETURN
  231. 2300 FORI=1TO15:N$(I)=U$(I):NEXT
  232. 2310 N$(0)="":FORI=1TO15:N$(0)=N$(0)+Q$+N$(I)+CHR$(13):NEXT
  233. 2340 PRINT#3,N$(0):RC=1:GOSUB1010:RETURN
  234. 2360 FORT=0TODV%-1:IFDR%(T)AND63<>AATHENNEXT:AA=0:RETURN
  235. 2370 IFDR%(T)>128THENDR$="1"
  236. 2375 RETURN
  237. 2380 IFDR$="0"THENAA=D8:GOSUB2360:IFDR$="1"THENRETURN
  238. 2390 D8=D8+1:IFD8=16THEND8=8
  239. 2400 AA=D8:GOSUB2360:IFAA=0THEN2390
  240. 2410 DR$="0":B=D8-8:RETURN
  241. 2440 ON(MT%-1)GOTO2450,2460,2490,2500,2170,2170
  242. 2450 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  243. 2460 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT:PRINT#5,"[193][212][200]"
  244. 2470 FORT=1TO2000:NEXT:PRINT#5,"[193][212][216]2[197]0[205]1[209]0[214]0[211]0=0":RETURN
  245. 2490 POKEB2,38:POKEB1,38:RETURN
  246. 2500 POKEB1,PEEK(B1)OR32:RETURN
  247. 2510 GOSUB1070:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  248. 2520 IFLH=12ANDC2THENCO=ABS(CO-720)
  249. 2530 RETURN
  250. 2540 FI$="(ST/R 3.?)":DV=D5
  251. 2550 GOSUB7100:GOSUB2240:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:FORT=1TO15
  252. 2560 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  253. 2570 PRINT#1,SF:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  254. 2580 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1
  255. 2590 POKE252,32:POKE251,PEEK(152):DR$="0":IFDVAND128THENDR$="1"
  256. 2600 PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127"":POKE631,131:POKE198,1
  257. 2605 POKE56,PEEK(828):NEW
  258. 2610 GOSUB2615:GOTO2660
  259. 2615 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  260. 2620 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,SF,HL,M$,DT,T,LN$,DV,NW,L$
  261. 2650 CLOSE1:GOSUB2210:CG=VAL(U$(8)):IFT=2THENF$=CHR$(139)+CHR$(10)
  262. 2655 RETURN
  263. 2660 GOSUB562:IFL$="G"THEN4280
  264. 2662 IFUD=0ANDAC<65535THENP$="[139][156][211]ORRY, [206]O [204]IBRARIES!":GOSUB160:GOTO400
  265. 2664 IFUD=0THENFI$="(ST/R.UDEDIT":DV=D6:GOTO410
  266. 2670 FORU1=1TOUD:IFAC<UD(U1,1)THENNEXT:P$="[139][206]O [193]CCESS!!":GOSUB160:GOTO400
  267. 2672 REM
  268. 2675 FI$="0:(PUNTER)":PC$="[208]UNTER"
  269. 2680 IFCG=0THENFI$="0:(XMODEM)":PC$="[216]MODEM"
  270. 2685 IFPEEK(52070)THENFI$="0:(XMODEM-1K)":PC$="[216]MODEM-1[203]"
  271. 2690 P$="[139][158][206]OW [204]OADING: "+PC$+"[139]":GOSUB170:SYS52090,FI$:GOSUB7010:GOSUB7060
  272. 2700 DV=UD(U1,2)AND127:AA=(UD(U1,2)AND128)=128:DR$=MID$(STR$(AA),2):B=DV-8
  273. 2710 MU=0:GOSUB250:GOSUB2510:P$="[139][212]IME [204]EFT:"+STR$(VAL(U$(14))-CO)+F$
  274. 2720 PRINT"[196]EVICE"DV"[157];"DR$:P$=P$+"[154][213][196]:":GOSUB170
  275. 2730 L=1:GOSUB180:IFCDTHENGOSUB380:GOTO400
  276. 2740 IFL$=""THEN2710
  277. 2750 L$=CHR$(ASC(L$)AND127):IFVAL(L$)>0ANDVAL(L$)<UD+1THENGOSUB4760
  278. 2760 GOSUB300:UL$=UL$+"UD-"+L$+CHR$(13):IFL$="$"ORL$="A"THENGOSUB4710:GOTO2710
  279. 2770 ON-(L$="G")-2*(L$="Q")-3*(L$="P")-4*(L$="Z")GOTO4270,400,3750,6035
  280. 2780 ON-(L$="U")-2*(L$="D")-3*(L$="#")-4*(L$="B")GOSUB4900,4860,4740,3540
  281. 2810 ON-(L$="S")-2*(L$="Y")-3*(L$="L")GOSUB240,190,4780
  282. 2815 IFL$="M"ANDPC$="[208]UNTER"THENGOSUB3850
  283. 2820 IFL$="R"THEN4950
  284. 2830 IFL$="C"THENGOSUB5000
  285. 2840 IFL$="F"THENFI$="&#%\'":GOSUB3590
  286. 2850 IFL$="F"ANDER$<"02"THENP$="[139]"+STR$(F)+" [194]LOCKS FREE.":GOSUB160
  287. 2870 IFL$<>"?"THEN2700
  288. 2880 DV=8:DR$="0":IFMFANDCGTHENFI$="(M.UD.LIB)":GOSUB420:IFER$="00"THEN2700
  289. 2885 DV=UD(U1,2)AND127:AA=(UD(U1,2)AND128)=128:DR$=MID$(STR$(AA),2):B=DV-8
  290. 2890 P$=" [147]":GOSUB170
  291. 2900 P$=DC$+"[139]     --==]> [208]UNTER [213]/[196] [205]ENU <[==--[139]"+DC$+F$:GOSUB160
  292. 2910 IFA$>""THEN2740
  293. 2915 P$="[156][195]URRENT [204]IBRARY: "+LI$(U1)+F$:GOSUB160
  294. 2920 P$="$/[193] - [204]IST [198]ILES    # - [195]HANGE [204]IBRARY":GOSUB160:IFA$>""THEN2740
  295. 2930 P$="[150][213] - [213]PLOAD          [196] - [196]OWNLOAD":GOSUB160:IFA$>""THEN2740
  296. 2940 P$="[129][198] - [194]LOCKS [198]REE     [194] - [194]LOCK [211]IZE":GOSUB160:IFA$>""THEN2740
  297. 2950 P$="[158][211] - [217]OUR [211]TATS      [204] - [204]IST [204]IBRARIES":GOSUB160:IFA$>""THEN2740
  298. 2960 P$="[153][199] - [199]ENERAL [198]ILES   [209] - [210]ETURN TO [194][194][211]":GOSUB160:IFA$>""THEN2740
  299. 2970 P$="[195] - [195]OMMENT ON [198]ILE [210] - [210]EAD [195]OMMENTS":GOSUB160:IFA$>""THEN2740
  300. 2980 P$="[159][208] - [208]ROTOCOL IN [213]SE:"+PC$:GOSUB160
  301. 2990 IFPC$="[208]UNTER"THENP$="[154][205] - [205]ULTI-[198]ILE [212]RANSFER":GOSUB160
  302. 3000 P$=DC$:GOSUB160:GOTO2710
  303. 3010 REM
  304. 3020 IFMUTHEN3070
  305. 3025 IFOD=0THEN3050
  306. 3030 P$="[139][208]ROGRAM NAME: [155]":GOSUB170:L=16:GOSUB180:IFCDTHENRETURN
  307. 3040 FI$=L$+"":IFFI$=""THENRETURN
  308. 3050 OPEN2,DV,5,DR$+":"+FI$:GOSUB220
  309. 3060 CLOSE2:IFER$>"01"THENP$="[139]"+ES$:GOSUB160:RETURN
  310. 3070 GOSUB3590:IFL$="R"THENP$="[139][152][206]OT A [210]ELATIVE FILE.":GOSUB160:RETURN
  311. 3090 TY=-(L$="P")-2*(L$="S"):TY$=L$+"":IFMUTHENCLOSE6
  312. 3100 IFLEN(FI$)=0THENRETURN
  313. 3110 IFF>VAL(U$(9))THENP$="[139][206]OT [197]NOUGH [195]REDITS! [208][207][211][212] [205]ORE!":L$="":GOTO160
  314. 3120 P$="[139][152][198]ILE  : "+FI$+MID$("                ",LEN(FI$))+"  [212]YPE  : "+L$
  315. 3130 GOSUB160
  316. 3140 A$=STR$(F):P$="[194]LOCKS:"+A$+MID$("                   ",LEN(A$))
  317. 3150 I=INT((F*500)/BR)/10
  318. 3160 P$=P$+"[212]IME  : "+MID$(STR$(I),2,4):GOSUB160:IFMUTHEN3230
  319. 3162 IFBS=255THENI=(F*254)/248
  320. 3164 IFBS=128THENI=(F*254)/126
  321. 3166 IFBS=1024THENI=(F*254)/1019
  322. 3168 IFI<>INT(I)THENI=INT(I)+1
  323. 3170 P$="[194]LOCK SIZE:"+STR$(BS)+"\_26[212]OTAL :"+STR$(I):GOSUB160
  324. 3180 P$="[139][193] - [193]BORTS    [194] - CHANGE [194]LOCK SIZE":GOSUB160
  325. 3190 P$="[208]RESS [210][197][212][213][210][206] TO BEGIN [196]OWNLOAD:":GOSUB170
  326. 3200 L=1:GOSUB180:IFCDTHENRETURN
  327. 3210 IFL$="A"ORL$="[193]"THENRETURN
  328. 3220 IFL$="B"ORL$="[194]"THENGOSUB3540:GOTO3170
  329. 3230 GOSUB6850
  330. 3250 P$="":GOSUB160
  331. 3260 F$=DR$+":"+FI$+","+TY$:B1%=BS/256:B2%=BS-B1%*256
  332. 3270 POKE49162,B2%:POKE49163,B1%:POKE49177,TY:POKE49182,0:POKE49183,0
  333. 3275 OPEN2,DV,6,F$+",R":POKE49179,DV
  334. 3280 SYS49152:CLOSE2:F$="[139]"
  335. 3282 IFPEEK(49176)=1THENP$="[139][139][196]OWNLOAD [198]AILED![139]":GOSUB170:GOTO3520
  336. 3285 P$="[139][139][196]OWNLOAD [211]UCESSFUL!":GOSUB160:GOTO3500
  337. 3290 REM
  338. 3300 IFMUTHEN3400
  339. 3310 P$="[139][208]ROGRAM NAME: [155]":GOSUB170:L=16:GOSUB180:IFCDTHENRETURN
  340. 3320 FI$=L$+"":IFFI$=""THENRETURN
  341. 3330 TY=0:TY$="":A$=LEFT$(PC$,1):IFA$="[216]"ORA$="[217]"THENGOSUB3780
  342. 3340 P$="[139][152][194]LOCK SIZE:"+STR$(BS):GOSUB160
  343. 3350 P$="[193] - [193]BORTS   [194] - CHANGE [194]LOCK SIZE":GOSUB160
  344. 3360 P$="[208]RESS [210][197][212][213][210][206] TO BEGIN [213]PLOAD:":GOSUB170
  345. 3370 L=1:GOSUB180:IFCDTHENRETURN
  346. 3380 IFL$="A"ORL$="[193]"THENRETURN
  347. 3390 IFL$="B"ORL$="[194]"THENGOSUB3540:GOTO3340
  348. 3400 IFSYTHEN3490
  349. 3402 IFMUTHENTY$=RIGHT$(FI$,1):FI$=LEFT$(FI$,LEN(FI$)-2):GOTO3410
  350. 3404 IFPEEK(49175)AND1THEN3420
  351. 3410 OPEN2,DV,2,DR$+":"+FI$+","+TY$+",W":GOSUB220:IFER$>"01"THENCLOSE2:RETURN
  352. 3420 GOSUB7030:F$=DR$+":"+FI$+",?,W":IFTY$>""THENF$=DR$+":"+FI$+","+TY$+",W"
  353. 3430 POKE49177,TY:POKE49179,DV:POKE49182,0:POKE49183,0
  354. 3440 SYS49155:CLOSE2:F$="[139]"
  355. 3450 IFPEEK(49176)=1THENP$="[139][139][213]PLOAD [213]NSUCCESSFUL!":GOSUB160
  356. 3460 IFPEEK(49176)=1THENB=DV-8:PRINT#15-B,"S"+DR$+":"+FI$:GOTO3520
  357. 3490 E$="M":GOSUB3590:U$(9)=MID$(STR$(VAL(U$(9))+F),2):UD%=UD%+1
  358. 3491 IFUD%>30THENUD%=30
  359. 3492 IFOD=1THENUD%=0:GOTO3510
  360. 3493 IFL$="R"ORL$="U"ORL$="C"ORL$="D"THENUD%=UD%-1:GOTO3510
  361. 3494 T=UD%:UD$(T,0)=FI$:UD%(T,0)=-(L$="P")-2*(L$="S"):UD%(T,1)=F
  362. 3496 UD$(T,1)=U$(1):GOSUB4820:GOTO3510
  363. 3500 REM
  364. 3505 U$(9)=MID$(STR$(VAL(U$(9))-F),2):U$(10)=MID$(STR$(VAL(U$(10))+F),2)
  365. 3510 IFMU=0THENGOSUB300:UL$=UL$+FI$+CHR$(13)
  366. 3520 IFMU=0THENFORT=1TO3000:NEXT:P$="[139][139][212]RANSFER COMPLETE.":GOSUB160
  367. 3530 PRINT#15-B,"I"+DR$+":":L$="":RETURN
  368. 3540 P$="[139][150][195]URRENT [194]LOCK [211]IZE:"+STR$(BS)+F$
  369. 3545 P$=P$+"[194]LOCK SIZE ("+MID$(STR$(BN),2)+"-"+MID$(STR$(BX),2)+"): "
  370. 3547 GOSUB170:L=4:GOSUB180:IFCDTHENRETURN
  371. 3550 IFL$=""THENRETURN
  372. 3560 BS=VAL(L$):IFBS<BNTHENBS=BN
  373. 3570 IFBS>BXTHENBS=BX
  374. 3580 RETURN
  375. 3590 OPEN6,DV,0,"$"+DR$+":"+FI$:GOSUB220
  376. 3600 IFER$>"01"THENCLOSE6:P$="[139]"+ES$:GOSUB160:RETURN
  377. 3610 GET#6,A$:GET#6,A$:LC=1
  378. 3620 GET#6,A$:GET#6,A$:FI$=""
  379. 3630 GET#6,LO$:GET#6,HI$
  380. 3640 IFLC=1THEN3710
  381. 3650 F=ASC(LO$+N$)+256*ASC(HI$+N$):IFL$="F"THENCLOSE6:RETURN
  382. 3660 GET#6,A$:IFA$="B"THENU=64:CLOSE6:RETURN
  383. 3670 IFA$<>CHR$(34)THEN3660
  384. 3680 GET#6,A$:IFA$<>CHR$(34)THENFI$=FI$+A$:GOTO3680
  385. 3690 GET#6,A$:IFA$=" "THEN3690
  386. 3700 L$=A$:IFMU=0ORE$="M"THENCLOSE6:RETURN
  387. 3710 GET#6,A$:IFA$<>""THEN3710
  388. 3720 IFMUANDLC=2THENRETURN
  389. 3730 LC=2:GOTO3620
  390. 3740 RETURN
  391. 3750 GOSUB6900:GOTO2700
  392. 3780 IFA$="[217]"THENP$="[139][198]ILE [212]YPE FOR [193][204][204] [198]ILES [213]PLOADED.[139]":GOSUB160
  393. 3785 P$="[152][198]ILE TYPE (P/S):":GOSUB170:L=1:GOSUB180:IFCDORL$=""THENRETURN
  394. 3790 IFL$<>"P"ANDL$<>"[208]"ANDL$<>"S"ANDL$<>"[211]"THENRETURN
  395. 3792 IFL$="P"ORL$="[208]"THENTY$="P":TY=1
  396. 3794 IFL$="S"ORL$="[211]"THENTY$="S":TY=2
  397. 3800 RETURN
  398. 3850 L$="":ONSYGOTO3880:FI$="&%'&":GOSUB3590:IFER$>"01"THENRETURN
  399. 3860 P$="[139]"+STR$(F)+" [194]LOCKS [198]REE":GOSUB160
  400. 3870 P$="[139][213] - [213]PLOAD  [196] - [196]OWNLOAD[139][139][205][216]:":GOSUB170:L=1:GOSUB180
  401. 3880 IFL$=""ORCDTHENRETURN
  402. 3890 IFL$="D"ORL$="[196]"THEN3990
  403. 3900 FI$="":IFL$<>"U"ANDL$<>"[213]"THEN3870
  404. 3902 IFOD=1THEN3910
  405. 3905 P$="[139][217]OU CAN ONLY [213]PLOAD"+STR$(30-UD%)+" FILES.":GOSUB160
  406. 3910 GOSUB310:P$="[139][208]LEASE BEGIN [205]ULTI [213]PLOAD[139][[195]TRL-[196]] [193]BORTS":GOSUB160
  407. 3920 PRINT:PRINT:PRINT"[208]ROGRAM NAME: ";:GET#5,A$,A$,A$:FI$=""
  408. 3930 GET#5,A$:GETZ$:IFA$=""THENA$=Z$
  409. 3935 IFFI$="S/B"ORFI$="GOO"ORFI$="ACK"ORFI$="SYN"THENFI$="":PRINT"[157][157][157]   [157][157][157]";
  410. 3940 GOSUB150:IFCDTHENRETURN
  411. 3950 IFA$=CHR$(13)THENPRINT:MU=1:UL$=UL$+FI$+CHR$(13):GOSUB300:GOSUB3290:GOTO3920
  412. 3960 IFA$=CHR$(4)THENMU=0:PRINT"[196]ONE.":GOSUB310:GOTO3520
  413. 3970 IFASC(A$+N$)<32THEN3930
  414. 3980 PRINTA$;:FI$=FI$+A$:GOTO3930
  415. 3990 P$="[139][210]EADING DIRECTORY....":GOSUB160:P$="[139][217] - [217]ES [206] - [206]O [194] - [194]EGIN"
  416. 4000 P$=P$+" [193] - [193]BORT":GOSUB160:P$="[139]30 [198]ILES [205]AXIMUM":GOSUB160:X=VAL(U$(9))
  417. 4010 MU=1:L$="":FI$="*":U=0:L=65:GOSUB6750:GOTO4030
  418. 4020 GOSUB6760
  419. 4030 IFUTHEN4110
  420. 4040 IFF>XTHEN4020
  421. 4050 IFLEFT$(FI$,1)="("ANDOD=1THEN4020
  422. 4055 IFL$="D"ORL$="R"ORL$="U"ORL$="C"THEN4020
  423. 4060 FI$=FI$+","+L$:P$="[139]"+STR$(F)+" "+FI$+"[139] [217]/[206]/[194]/[193]:":GOSUB170:L=1:GOSUB180
  424. 4070 IFL$="A"ORL$="[193]"ORCDTHENCLOSE6:RETURN
  425. 4080 IFL$=""ORL$="N"ORL$="[206]"THEN4020
  426. 4090 IFL$="Y"ORL$="[217]"THEND$(MU)=FI$:MU=MU+1:X=X-F:IFMU<31THEN4020
  427. 4100 IFL$<>"B"ANDL$<>"[194]"ANDMU<31THEN4060
  428. 4110 CLOSE6:IFMU=1THENP$="[139][206]O FILES SELECTED.":GOSUB160:MU=0:RETURN
  429. 4120 P$="[139][139][197]NTER [205]ULTI [210]ECEIVE IN 15 SECONDS.":GOSUB160:T=TI
  430. 4130 IFTI-T<900THENPRINTTI-T"[145]":GOTO4130
  431. 4140 FORT=1TOMU-1:FI$=D$(T):PRINT#5,"                                        ";:FORI=1TOLEN(FI$)
  432. 4150 PRINT#5,MID$(FI$,I,1);:NEXT:PRINT#5:FI$=LEFT$(FI$,LEN(FI$)-2)
  433. 4160 GET#5,A$:IFA$=CHR$(4)THENP$="[139][193]BORTED.":GOSUB160:MU=0:GOTO3520
  434. 4170 SY=SY+1:GOSUB3010:SY=SY-1:FORI=1TO10000:NEXT:GOSUB150:IFCDTHENRETURN
  435. 4180 UL$=UL$+FI$+CHR$(13):GOSUB300:NEXT:PRINT#5,"";:MU=0:GOTO3520
  436. 4190 IFAC<DLTHEN4260
  437. 4200 IFUD=0THENP$="[139][156][211]ORRY, [206]O [204]IBRARIES!":GOSUB160:GOTO4340
  438. 4210 FORU1=1TOUD:IFAC<UD(U1,1)THENNEXT:GOTO4260
  439. 4215 GOTO2672
  440. 4260 P$="[139][211]ORRY, THE [196]OWNLOAD SECTION IS CLOSED.":GOSUB160:GOTO4340
  441. 4270 GOSUB7100:IFGF=0THENP$="[139][206]O [199]ENERAL [198]ILES AVAILABLE!":GOSUB160:GOTO2700
  442. 4280 FORG1=1TOGF:IFAC<GF(G1,1)THENNEXT:GOTO2700
  443. 4290 IFCG=0ANDRIGHT$(GF$(G1,0),3)=".CG"THENNEXT:GOTO2700
  444. 4300 DV=8:DR$="0":IFMFANDCGTHENFI$="(M.GFILES)":GOSUB420:IFER$="00"THEN4340
  445. 4310 GOSUB4530:GOTO4340
  446. 4320 P$="[139][150][204]IBRARY: "+GF$(G1,0)+F$:GOSUB160:FORLC=1TOGF(G1,0)
  447. 4330 P$=RIGHT$(STR$(LC),2)+". "+GF$(G1,LC):GOSUB160:NEXT
  448. 4340 P$="[139][152][195]HOICE 1-"+MID$(STR$(GF(G1,0)),2)+", [204] - [204]IST OF [198]ILES.":GOSUB250
  449. 4350 P$=P$+"[139][199][198]:":GOSUB170
  450. 4360 L=2:GOSUB180:IFCDORL$="Q"ORL$="[209]"THEN400
  451. 4370 GOSUB300:UL$=UL$+"[199]FILES - "+L$+CHR$(13)
  452. 4380 IFL$="L"ORL$="[204]"THEN4320
  453. 4390 IFL$="A"ORL$="[193]"THENGOSUB4650:GOTO4340
  454. 4400 IFL$="+"ANDG1+1<=GFTHENT=G1+1:GOTO4620
  455. 4410 IFL$="D"ORL$="[196]"THEN4190
  456. 4420 IFL$="-"ANDG1-1>0THENT=G1-1:GOTO4620
  457. 4430 IFL$="Y"ORL$="[217]"THENGOSUB190:GOTO4340
  458. 4440 ON-(L$="?")GOTO4300:IFL$="B"ORL$="[194]"THEN4590
  459. 4450 T=VAL(L$):IFT<1ORT>GF(G1,0)THENP$="[139][210]EALLY?":GOSUB160:GOTO4340
  460. 4460 FI$="("+GF$(G1,T):POKE52030,SY:POKE52031,CG:DV=GF(G1,2)AND127
  461. 4470 IFRIGHT$(GF$(G1,0),1)="-"THENFI$=GF$(G1,T)
  462. 4480 DR$=MID$(STR$(-(GF(G1,2)>128)),2):OPEN1,DV,5,DR$+":"+FI$:B=DV-8
  463. 4490 GOSUB220:IFER$>"01"THENCLOSE1:GOTO4340
  464. 4500 IFRIGHT$(GF$(G1,0),3)=".CG"THENP$="[147][142]":GOSUB170
  465. 4510 SYS52021:CLOSE1:P$="[139][139] (PRESS A KEY) [144]":GOSUB160:L=1:GOSUB180
  466. 4520 P$="[147]":GOSUB170:GOTO4340
  467. 4530 P$="[139][158][217] - [217]ELL FOR [195]HAT":GOSUB160
  468. 4540 P$="+ - [205]OVE TO [206]EXT [204]IBRARY[139][153]- - [205]OVE TO [208]REVIOUS [204]IBRARY[139]"
  469. 4550 P$=P$+"[159]? - [196]ISPLAY [212]HIS [205]ENU[139][154][194] - [195]HANGE [204]IBRARY":GOSUB160
  470. 4560 P$="[193] - [204]IST [193]LL [204]IBRARIES":GOSUB160
  471. 4570 P$="[155][204] - [204]IST [198]ILES[139][152][209] - [210]ETURN TO [205]AIN [205]ENU[139]"
  472. 4580 P$=P$+"[151][196] - [213]P/[196]OWNLOADS":GOSUB160:GOTO4340
  473. 4590 P$="[139][205]OVE TO [204]IBRARY (1-"+MID$(STR$(GF),2)+"): ":GOSUB170:L=2:GOSUB180
  474. 4600 IFCDORVAL(L$)=0THEN4340
  475. 4610 T=VAL(L$):IFT<1ORT>GFTHENP$="[139][206]ON-[197]XISTANT!":GOSUB160:GOTO4340
  476. 4620 IFAC<GF(T,1)THEN4340
  477. 4630 IFCG=0ANDRIGHT$(GF$(T,0),3)=".CG"THEN4340
  478. 4640 G1=T:GOTO4320
  479. 4650 P$="[139][154][217]OU HAVE ACCESS TO THE FOLLOWING[139][204]IBRARIES.  [212]O CHANGE A"
  480. 4660 P$=P$+" [204]IBRARY,[139]USE THE '[194]' COMMAND.[139]":GOSUB160:X=0
  481. 4670 FORL=1TOGF:IFAC<GF(L,1)OR(CG=0ANDRIGHT$(GF$(L,0),3)=".CG")THENNEXT:RETURN
  482. 4680 P$="[204]IBRARY"+STR$(L)+": "+LEFT$(GF$(L,0)+".................",17)
  483. 4690 P$=P$+STR$(GF(L,0))+" FILES.":X=X+1:A$="":IFXAND1THENA$=""
  484. 4700 P$=A$+P$:GOSUB160:NEXT:RETURN
  485. 4710 IFOD=1THENEC=-(AC<65535):GOSUB280:EC=0:RETURN
  486. 4715 IFUD%=0THENP$="[139][204]IBRARY [197]MPTY!":GOSUB160:RETURN
  487. 4720 P$="[139][156][204]IBRARY: "+LI$(U1)+F$:GOSUB160:X=0:FORLC=1TOUD%
  488. 4725 X=X+1:P$="[159]":IFXAND1THENP$=""
  489. 4727 P$="[156] \O-\O-[139]"+P$
  490. 4730 P$=P$+RIGHT$(STR$(LC),2)+". "+LEFT$(UD$(LC,0)+"                 ",16)
  491. 4732 P$=P$+"[146] "+MID$("PRGSEQ",UD%(LC,0)*3-2,3)+" "
  492. 4735 P$=P$+RIGHT$("    "+STR$(UD%(LC,1)),4)+" [194]LOCKS.":GOSUB160
  493. 4737 P$="[155][213]PLOADER: "+UD$(LC,1):GOSUB160:NEXT:P$=" [156]\O-\O-":GOTO160
  494. 4740 GOSUB4780:P$="[139][205]OVE TO [204]IBRARY (1-"+MID$(STR$(UD),2)+"): ":GOSUB170:L=2
  495. 4750 GOSUB180:ONCDGOTO400:IFVAL(L$)<1ORVAL(L$)>UDTHENRETURN
  496. 4760 T=VAL(L$):IFAC<UD(T,1)THENRETURN
  497. 4770 U1=T:GOSUB7060:P$="[139][159][217]OU HAVE ENTERED: "+LI$(U1):GOSUB160:RETURN
  498. 4780 P$="[139][158][204]IBRARIES [217]OU CAN [193]CCESS:[139]":GOSUB160:X=0
  499. 4790 FORT=1TOUD:A$=LI$(T):IFA$="$"THENA$="[207]PEN [196]ISK [205]ODE"
  500. 4800 X=X+1:P$="[158]":IFXAND1THENP$="[155]"
  501. 4805 IFAC<UD(T,1)THENNEXT:RETURN
  502. 4810 P$=P$+RIGHT$(STR$(T),2)+". "+A$:GOSUB160:NEXT:RETURN
  503. 4820 DR$="0":DV=UD(U1,2):IFDV>128THENDR$="1":DV=DVAND127
  504. 4830 OPEN1,DV,5,"@"+DR$+":(D.LIB"+STR$(U1)+",S,W":PRINT#1,UD%
  505. 4840 FORT=1TOUD%:PRINT#1,UD$(T,0)","UD$(T,1)","UD%(T,0)","UD%(T,1):NEXT
  506. 4850 CLOSE1:RETURN
  507. 4860 IFOD=1THEN3010
  508. 4870 P$="[139][196]OWNLOAD [198]ILE #(1-"+MID$(STR$(UD%),2)+"): ":GOSUB170:L=2
  509. 4880 GOSUB180:ONCDGOTO400:IFVAL(L$)<1ORVAL(L$)>UD%THENRETURN
  510. 4890 FI$=UD$(VAL(L$),0):GOTO3010
  511. 4900 IFUD%=30THENP$="[139][150][204]IBRARY [198]ULL!":GOSUB160:RETURN
  512. 4905 IFOD=1ANDSYTHENP$="[139][129][200]AHAHA!  [206]O CAN DO.":GOSUB160:RETURN
  513. 4910 IFSY=0THEN3290
  514. 4920 P$="[139][154][208]ROGRAM [206]AME: [155]":GOSUB170:L=16:GOSUB180:ONCDGOTO400:IFL$=""THENRETURN
  515. 4930 OPEN2,DV,5,DR$+":"+L$:GOSUB220:CLOSE2:IFER$="00"THENGOTO3320
  516. 4940 P$="[139]"+ES$:GOTO160
  517. 4950 IFOD=0THEN4958
  518. 4952 P$="[139][158][210]EAD [193]BOUT [198]ILENAME?: ":GOSUB170:L=16:GOSUB180:IFCDTHEN400
  519. 4954 IFL$=""THEN2710
  520. 4956 BS$=LEFT$(L$,11)+".COM":T=0:GOTO4970
  521. 4958 P$="[139][158][210]EAD [193]BOUT [215]HICH [198]ILE?: ":GOSUB170:L=2:GOSUB180:IFCDTHEN400
  522. 4960 T=VAL(L$):IFT<1ORT>UD%THEN2710
  523. 4965 BS$=LEFT$(UD$(T,0),11)+".COM"
  524. 4970 X=T:GOSUB5670:IFER$="00"THEN2700
  525. 4980 IFER$="62"THENP$="[139][156][211]ORRY [206]O [195]OMMENTS [208]OSTED!":GOSUB160:GOTO2700
  526. 4990 P$="[139]"+ES$:GOSUB160:GOTO2700
  527. 5000 IFOD=0THEN5008
  528. 5002 P$="[139][158][195]OMMENT ON [215]HICH [198]ILENAME:? ":GOSUB170:L=16:GOSUB180:ONCDGOTO400
  529. 5004 IFL$=""THENRETURN
  530. 5006 BS$=LEFT$(L$,11)+".COM":SU$=L$+"":GOTO5070
  531. 5008 P$="[139][159][195]OMMENT ON [215]HICH [198]ILE?: ":GOSUB170:L=2:GOSUB180:ONCDGOTO400
  532. 5010 T=VAL(L$):IFT<1ORT>UD%THENRETURN
  533. 5020 BS$=LEFT$(UD$(T,0),11)+".COM":SU$=UD$(T,0)
  534. 5070 P$="[139][205]AXIMUM OF 50 LINES.  [197]NTER /H FOR":GOSUB160
  535. 5080 P$="HELP ON A [194][204][193][206][203] LINE.[139]":GOSUB160
  536. 5090 P$="<==== [205]AX. [204]INE [204]ENGTH - 38 [195]HAR ====>[139]":GOSUB160
  537. 5100 GOSUB230:DT$=M$+STR$(DT)+" "+TM$:LC=0
  538. 5110 LC=LC+1:MM=1:IFLC=51THENMM=0:GOTO5170
  539. 5120 IFLC>50THEN5170
  540. 5130 L=39:GOSUB180:MM=0:IFCDTHENRETURN
  541. 5140 IFLEFT$(L$,1)="/"THEN5190
  542. 5150 E$(LC)=L$+"":IFLC=45THENP$="-----> [198]IVE LINES LEFT.":GOSUB160
  543. 5160 GOTO5110
  544. 5170 P$="[139][197]NTER EDIT COMMAND OR '/S' TO SAVE:":GOSUB160
  545. 5180 L=4:GOSUB180:IFCDTHENRETURN
  546. 5190 E$=CHR$(ASC(MID$(L$,2,1)+N$)AND127):IFE$=N$THEN5120
  547. 5200 ON-(E$="A")-2*(E$="E")-3*(E$="L")-4*(E$="S")GOTO5310,5350,5440,5540
  548. 5210 ON-(E$="D")-2*(E$="I")-3*(E$="H")GOTO5260,5290,5240
  549. 5220 IF(CG)OR(SY)THENP$="[145]     [157][157][157][157][157]":GOSUB170
  550. 5230 GOTO5120
  551. 5240 P$="[139]/[193] - [193]BORT /[197]XX - [197]DIT   /[204] - [204]IST[139]/[211] - [211]AVE  /[196]XX - [196]ELETE "
  552. 5250 P$=P$+"/[200] - [200]ELP[139]/[201]XX - [201]NSERT LINE [194][197][198][207][210][197] XX[139]":GOSUB160:GOTO5120
  553. 5260 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN5280
  554. 5270 P$="[206]O DELETETION.":GOSUB160:GOTO5120
  555. 5280 FORI=AATOLC-1:E$(I)=E$(I+1):NEXT:LC=LC-1:GOTO5220
  556. 5290 AA=VAL(MID$(L$,3)):IFAA=0ORLC=>50THENP$="[206]O INSERTION.":GOSUB160:GOTO5120
  557. 5300 FORI=LC-1TOAASTEP-1:E$(I+1)=E$(I):NEXT:E$(AA)="":LC=LC+1:GOTO5220
  558. 5310 P$="[193]BORT LETTER (Y/N):":GOSUB170
  559. 5320 L=1:GOSUB180:IFCDTHENRETURN
  560. 5330 IFL$="Y"ORL$="[217]"THENRETURN
  561. 5340 GOTO5120
  562. 5350 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN5400
  563. 5360 FORT=1TOLC-1:P$=STR$(T)+":[139]"+E$(T):GOSUB160:NEXT
  564. 5370 P$="[139][197]DIT [204]INE #:":GOSUB170
  565. 5380 L=2:GOSUB180:IFCDTHENRETURN
  566. 5390 AA=VAL(L$):IFAA<1ORAA>LC-1THENP$="[206]ON-EXISTANT LINE #.":GOSUB160:GOTO5120
  567. 5400 P$="[207]LD LINE:[139]"+E$(AA):GOSUB160
  568. 5410 P$="[206]EW LINE:":GOSUB160
  569. 5420 L=39:GOSUB180:IFCDTHENRETURN
  570. 5430 E$(AA)=L$+"":GOTO5120
  571. 5440 FORT=1TOLC-1:P$=E$(T)
  572. 5450 GOSUB160:NEXT:GOTO5120
  573. 5540 U$(9)=MID$(STR$(VAL(U$(9))+INT(RR/4)),2)
  574. 5550 P$="[211]AVING MESSAGE....":GOSUB160
  575. 5560 OPEN1,DV,5,DR$+":("+BS$+",A":GOSUB220:IFER$="00"THEN5600
  576. 5590 CLOSE1:OPEN1,DV,5,"@"+DR$+":("+BS$+",S,W"
  577. 5600 PRINT#1,Q$U$(1)" (#"R$")":PRINT#1,Q$SU$:PRINT#1,Q$DT$
  578. 5620 FORI=1TOLC-1:PRINT#1,Q$E$(I):NEXT:PRINT#1,Q$"\":CLOSE1
  579. 5630 RETURN
  580. 5670 GOSUB5830:IFER$>"01"THENCLOSE1:RETURN
  581. 5680 P$=" [147]":GOSUB170
  582. 5700 P$="[205]SG#"+MID$(STR$(M),2)+"------>"+BS$:GOSUB160
  583. 5710 P$="[139][198]ILENAME:"+SU$:GOSUB160
  584. 5712 A$=UD$(X,1):IFX=0THENA$="[213]NKNOWN"
  585. 5740 P$="[213]PLOADER:"+A$:GOSUB160
  586. 5750 P$="    [198]ROM:"+US$:GOSUB160
  587. 5760 P$="    [196]ATE:"+DT$+F$:GOSUB160
  588. 5770 FORT=1TO50:P$=E$(T):IFP$="\"THENT=56:GOTO5800
  589. 5780 GOSUB160:IFA$=" "THENT=56
  590. 5790 IFA$="/"THENCLOSE1:U=64:RETURN
  591. 5800 NEXT:P$=DC$:GOSUB160
  592. 5810 P$="[205]ESSAGE SENT BY: "+US$:GOSUB160
  593. 5820 IFUAND64THENRETURN
  594. 5825 GOSUB5850:GOTO5710
  595. 5830 OPEN1,DV,5,DR$+":("+BS$:GOSUB220
  596. 5840 IFER$>"01"THENCLOSE1:RETURN
  597. 5850 INPUT#1,US$:IF(ST)AND64THEN5930
  598. 5880 INPUT#1,SU$:IF(ST)AND64THEN5930
  599. 5900 INPUT#1,DT$:IF(ST)AND64THEN5930
  600. 5910 FORI=1TO51:INPUT#1,E$(I):IFE$(I)="\"THEN5930
  601. 5920 NEXT
  602. 5930 U=ST:GOSUB220:IFUAND64THENCLOSE1
  603. 5940 RETURN
  604. 6035 IFAC<65535THEN2700
  605. 6040 P$="[139][197]DIT [204]IBRARIES? (Y/N):":GOSUB170:L=1:GOSUB180:IFCDTHEN2700
  606. 6050 IFL$="Y"ORL$="[217]"THENFI$="(ST/R.UDEDIT":DV=D6:GOTO410
  607. 6060 GOTO2700
  608. 6750 LC=0:IFOD=1THEN3590
  609. 6760 IFOD=1THEN3620
  610. 6770 LC=LC+1:U=0:IFLC>UD%THENU=64:RETURN
  611. 6780 FI$=UD$(LC,0):L$=MID$("PS",UD%(LC,0),1):F=UD%(LC,1):RETURN
  612. 6800 REM
  613. 6810 PRINT"[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][192]";:BW=PEEK(49180)
  614. 6820 BW=BW+256*PEEK(49181):R2=INT(BW/40):R1=BW-R2*40:IFBW=0THENRETURN
  615. 6830 FORL=1TOR2:PRINT"";:NEXT:PRINTTAB(R1)
  616. 6840 PRINT" [146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":RETURN
  617. 6850 PRINT"[147][211]ENDING: ";FI$:GOSUB6800:PRINT"[198]ILE [212]YPE: ";TY$:BL=F
  618. 6860 PRINT"[194]LOCKS   :";BL
  619. 6870 PRINT"[216]FER [212]IME:";INT((BL*500)/BR)/10;"[205]IN."
  620. 6872 I=248:IFBS=128THENI=126
  621. 6874 IFBS=1024THENI=1019
  622. 6875 PRINT"[193]PPROX [208]ROTOCOL [194]LOCKS:";INT(((BL*254)/I)+.5)
  623. 6880 PRINT"[215]AITING...[208]RESS [195]= TO [193]BORT"
  624. 6890 PRINT"[199]OOD [194]LOCKS:        [194]AD [194]LOCKS:[145]";:RETURN
  625. 6900 P$="[139][156][195]HOOSE [217]OUR [208]ROTOCOL:[139][139][150]1. [208]UNTER[139]":GOSUB170
  626. 6910 P$="2. [216]MODEM[139]3. [216]MODEM-1[203][139]4. [217]MODEM [194]ATCH[139]":GOSUB170
  627. 6920 P$="[139][159][215]HICH [208]ROTOCOL? (1-4):":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  628. 6930 L=VAL(L$):IFL<1ORL>4THENRETURN
  629. 6940 DATA"(PUNTER)","[208]UNTER"
  630. 6950 DATA"(XMODEM)","[216]MODEM","(XMODEM-1K)","[216]MODEM-1[203]"
  631. 6960 DATA"(YMODEM)","[217]MODEM [194]ATCH"
  632. 6970 B$=PC$:SB=BS:RESTORE:FORT=1TOL:READA$,PC$:NEXT
  633. 6975 FI$="0:"+A$:IFHD=8THENFI$=CP$+CD$+":"+A$
  634. 6980 OPEN1,8,5,FI$:B=0:GOSUB1050:CLOSE1:IFER$>"01"THEN7000
  635. 6990 P$="[139][158][206]OW [204]OADING: "+PC$:GOSUB160:SYS52090,FI$:GOSUB7010:RETURN
  636. 7000 P$="[139][211]ORRY, [212]HAT [208]ROTOCOL IS NOT AVAILABLE!":PC$=B$:BS=SB:GOSUB160:RETURN
  637. 7010 BN=PEEK(49164)+256*PEEK(49165):BX=PEEK(49166)+256*PEEK(49167)
  638. 7020 BS=PEEK(49162)+256*PEEK(49163):RETURN
  639. 7030 PRINT"[147][210]ECEIVING: ";FI$;",";TY$:GOSUB6800
  640. 7040 PRINT"[215]AITING...[208]RESS [195]= TO [193]BORT"
  641. 7050 PRINT"[199]OOD [194]LOCKS:        [194]AD [194]LOCKS:";:RETURN
  642. 7060 DR$="0":DV=UD(U1,2):IFDV>128THENDR$="1":DV=DVAND127:IFHD=0THEN7066
  643. 7062 IFPT$(U1)=""THENGOSUB7100:GOTO7066
  644. 7064 B=DV-8:PRINT#15-B,"CP"+PT$(U1):PRINT#15-B,"CD"+PA$(U1)
  645. 7066 OD=0:IFLEFT$(LI$(U1),1)="$"THENOD=1:UD%=0:RETURN
  646. 7070 OPEN1,DV,5,DR$+":(D.LIB"+STR$(U1)+",S,R":INPUT#1,UD%
  647. 7080 FORT=1TOUD%:INPUT#1,UD$(T,0),UD$(T,1),UD%(T,0),UD%(T,1):NEXT
  648. 7090 CLOSE1:RETURN
  649. 7100 IFUD=0THENRETURN
  650. 7105 L=0:FORT=1TOUD:D8=UD(T,2)AND127:IFPT$(T)=""THEN7120
  651. 7110 L=1:B=D8-8:PRINT#15-B,"CP"+PT$(T):PRINT#15-B,"CD//"
  652. 7120 NEXT:IFLTHENB=HD-8:PRINT#15-B,"CP"+CP$:PRINT#15-B,"CD"+CD$
  653. 7130 RETURN
  654.