home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE2.ARC / (ST / R.EDITOR (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.3 KB  |  360 lines
  1. 100 POKE152,PEEK(251)
  2. 110 GOTO420
  3. 120 :
  4. 130 :REM START OF USER JUMP TABLE.
  5. 140 :
  6. 150 GOTO630 :REM SEND P$+CHR$(13) OUT.
  7. 160 GOTO640 :REM SEND P$ OUT.
  8. 170 GOTO680:REM GET L$ FROM MODEM.
  9. 180 B=D7%:GOTO1250:REM SEND 'P' TO REL.
  10. 190 B=D7%:GOTO780:REM READ ERR CHANNEL.
  11. 200 GOTO800:REM READ SYSTEM CLOCK.
  12. 210 GOTO860:REM DISPLAY USER ONLINE.
  13. 220 GOTO880:REM REMOTE SYSOP MENU.
  14. 230 GOTO1040:REM DISPLAY DIR.
  15. 240 GOTO1230:REM BREAK RC INTO LO/HI.
  16. 250 GOTO1280:REM UPDATE (USER LOG).
  17. 260 GOTO1290:REM EMPTY UL$.
  18. 270 GOTO1300:REM GET U$() FROM DISK.
  19. 280 GOTO1310:REM GET N$() FROM DISK.
  20. 290 GOTO1320:REM SEND U$() TO DISK.
  21. 300 GOTO1330:REM SEND N$() TO DISK.
  22. 310 GOTO1350:REM FIND DV,DR$ IN DR%().
  23. 320 GOTO1360:REM FIND DV,DR$
  24. 330 GOTO1370:REM INCREMENT DV,DR$.
  25. 340 GOTO1430:REM HANG UP PHONE.
  26. 350 GOTO1490:REM FIND TIME CONNECTED.
  27. 360 SYS52050:GOTO1650:REM RETURN TO BBS.
  28. 370 GOTO1660:REM LOAD NEXT MODULE.
  29. 380 GOTO1540:REM GET SC() FROM DISK.
  30. 390 GOTO1620:REM SEND SC() TO DISK.
  31. 400 GOTO1520:REM SEND SEQ OUT.
  32. 410 :
  33. 420 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  34. 430 DIMU$(15),N$(15),DR%(7):DR$="0"
  35. 440 GOSUB450:GOTO500
  36. 450 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN470
  37. 460 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  38. 470 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  39. 480 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  40. 490 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  41. 500 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  42. 510 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO1720
  43. 520 IFA$="[133]"THENSY=SY+1:GOSUB880:SY=SY-1:RETURN
  44. 530 IFA$<>"[134]"THEN560
  45. 540 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB150:SYS52012:CD=PEEK(52033)
  46. 550 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB150
  47. 560 IFA$="[140]"THENCD=1:RETURN
  48. 570 IFL<>65535THENRETURN
  49. 580 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  50. 590 CD=1:UL$="":RETURN
  51. 600 IFA$=""ORZ$=""THENGOSUB620
  52. 610 RETURN
  53. 620 POKESI+4,21:POKESI+4,20:RETURN
  54. 630 P$=P$+F$
  55. 640 IFL=55THENPRINT#4,P$;:RETURN
  56. 650 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  57. 660 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  58. 670 RETURN
  59. 680 GOSUB1490:IFVAL(U$(14))<COTHEN720
  60. 690 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  61. 700 L$="2LLING [194]OOTH                          ":SYS52003,L$:CD=PEEK(52033)
  62. 710 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB520:L$=L$+"":RETURN
  63. 720 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB150
  64. 730 GOTO360
  65. 740 GOSUB1240:AA=RF:GOSUB1350
  66. 750 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB780:NEXT
  67. 760 GOSUB780:IFER$<"20"ORER$="50"THENRETURN
  68. 770 PRINT"[197]RROR IN (USERFILE)!":GOSUB1430:STOP
  69. 780 ES$="":GOSUB790:ER$=LEFT$(ES$,2):RETURN
  70. 790 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO790:RETURN
  71. 800 T1$="07:22:58.4 PM":SYS51982,T1$:TM$=T1$+""
  72. 810 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  73. 820 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO850
  74. 830 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  75. 840 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  76. 850 DA$=M$+STR$(DT):RETURN
  77. 860 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB1490
  78. 870 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  79. 880 D8=D7:DR$=D7$
  80. 890 P$=" [147]":GOSUB150
  81. 900 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB150
  82. 910 P$="$ - [196]IRECTORY":GOSUB150
  83. 920 P$="@ - [196]OS COMMANDS":GOSUB150
  84. 930 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB150
  85. 940 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB160:L=1:GOSUB170:IFCDTHENRETURN
  86. 950 IFL$=""THENRETURN
  87. 960 GOSUB1280:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  88. 970 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB1040,1370
  89. 980 IFL$="?"THEN890
  90. 990 IFL$<>"@"THEN940
  91. 1000 P$=F$+">":GOSUB160:L=39:GOSUB170:IFCDTHENRETURN
  92. 1010 B=D8-8:IFL$=""THENGOSUB780:P$=F$+ES$:GOSUB150:GOTO940
  93. 1020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  94. 1030 GOTO940
  95. 1040 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB160:L=16:GOSUB170:FI$=L$
  96. 1050 IFFI$=""THENFI$="*"
  97. 1060 P$=F$:GOSUB150:OPEN1,D8,0,"$"+DR$+":"+FI$
  98. 1070 GOSUB780:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB150:RETURN
  99. 1080 GET#1,A$:GET#1,A$
  100. 1090 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  101. 1100 GET#1,LO$:GET#1,HI$
  102. 1110 LO$=LO$+N$:HI$=HI$+N$
  103. 1120 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  104. 1130 GET#1,A$:IFA$=""THEN1170
  105. 1140 GET#5,Z$:IFZ$=""THENGETZ$
  106. 1150 IFZ$=" "THENCLOSE1:RETURN
  107. 1160 P$=P$+A$:GOTO1130
  108. 1170 IFECANDMID$(P$,8,1)="("THEN1090
  109. 1180 GOSUB150:IFA$=" "THENCLOSE1:RETURN
  110. 1190 GOTO1090
  111. 1200 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  112. 1210 GOSUB1200:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  113. 1220 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB1200:RETURN
  114. 1230 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  115. 1240 GOSUB1230:R1=LO:R2=HI:RETURN
  116. 1250 GOSUB1240:GOTO750
  117. 1260 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  118. 1270 AA=VAL(N$(3)):RETURN
  119. 1280 IFLEN(UL$)<230THENRETURN
  120. 1290 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  121. 1300 GOSUB1310:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  122. 1310 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  123. 1320 FORI=1TO15:N$(I)=U$(I):NEXT
  124. 1330 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  125. 1340 PRINT#3,N$(0):RC=1:GOSUB740:RETURN
  126. 1350 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  127. 1360 GOSUB1350:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  128. 1370 IFDR$="0"THENGOSUB1350:IFDR$="1"THENRETURN
  129. 1380 AA=AA+1:IFAA>15THENAA=8
  130. 1390 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO1380
  131. 1400 IFA1AND32ORSYTHEN1420
  132. 1410 GOSUB1350:IFDR%(B)AND64THEN1380
  133. 1420 D8=AA:DR$="0":RETURN
  134. 1430 ON(MT%-1)GOTO1440,1450,1470,1480,1210,1210
  135. 1440 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  136. 1450 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  137. 1460 PRINT#5,"[193][212][200]0[216]2[197]0[205]1[209]0[214]0[211]0=0":RETURN
  138. 1470 POKEB2,38:POKEB1,38:RETURN
  139. 1480 POKEB1,PEEK(B1)OR32:RETURN
  140. 1490 GOSUB800:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  141. 1500 IFLH=12ANDC2THENCO=ABS(CO-720)
  142. 1510 RETURN
  143. 1520 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB190:IFER$>"01"THENCLOSE1:RETURN
  144. 1530 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  145. 1540 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  146. 1550 RC=R:GOSUB1230:B=0:GOSUB750:GET#3,A$:IF(ST)AND64THENSC=0:GOTO1570
  147. 1560 INPUT#3,SC
  148. 1570 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  149. 1580 IFI>SCTHENDIMSC(I):GOTO1600
  150. 1590 DIMSC(SC)
  151. 1600 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  152. 1610 RETURN
  153. 1620 OPEN3,8,3,"0:(SCORES)":GOSUB190:IFER$>"01"THENCLOSE3:RETURN
  154. 1630 RC=R:GOSUB1230:B=0:GOSUB750:SC$=STR$(SC)+F$:FORT=1TOSC
  155. 1640 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB750:CLOSE3:RETURN
  156. 1650 FI$="(ST/R 3.?)":DV=D5
  157. 1660 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB1360:FORT=1TO15
  158. 1670 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  159. 1680 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  160. 1690 PRINT#1,DV:PRINT#1,NX:PRINT#1,L$:CLOSE1:POKE252,32
  161. 1700 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  162. 1710 POKE631,131:POKE198,1:NEW
  163. 1720 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  164. 1730 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NX,L$
  165. 1760 CLOSE1:GOSUB1260:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  166. 1770 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8
  167. 1780 SYS52041
  168. 1790 DIMBR$(9,9),BM(9,9),MD(9,9),NB(9),UN$(15,1),AC(15),SC(40),AR(9)
  169. 1800 DIMTQ$(16,16),TA$(16,16),TU$(16,16),CA$(16,1),TR(16),BA(9,9):Q$=CHR$(34)
  170. 1810 DIMPF$(99),PD(99),PF(99),GF$(30,30),GF(30,2),D1%(9),D2%(9)
  171. 1820 OPEN1,8,5,"0:(BBS.CONFIG)":INPUT#15,ER$:IFER$>"01"THENCLOSE1:GOTO1920
  172. 1830 FORT=0TO9:INPUT#1,NB(T):IFNB(T)=0THEN1850
  173. 1840 FORI=0TONB(T)-1:INPUT#1,BR$(T,I),MD(T,I),BA(T,I):NEXT
  174. 1850 NEXT:INPUT#1,DR:FORT=0TODR-1
  175. 1860 INPUT#1,DR%(T):NEXT:INPUT#1,RF
  176. 1870 INPUT#1,SY$,BD$,MT%,NW,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1
  177. 1880 OPEN1,8,5,"0:(BBS DATA)":INPUT#1,CN,NU,LC$,LN$,LF$:CLOSE1
  178. 1890 OPEN1,8,5,"0:(BBS MESS)":FORT=0TO9:IFNB(T)=0THEN1910
  179. 1900 FORI=0TONB(T)-1:INPUT#1,BM(T,I):NEXT
  180. 1910 NEXT:CLOSE1
  181. 1920 PRINT"[147] [150][208]RESS APPROPRIATE KEY TO CHANGE DATA.[139]"
  182. 1930 DD$="---------------------------------------[139]"
  183. 1940 PRINTDD$:IFP2$=""THENP2$="   "
  184. 1950 PRINT"1. [211]YSOP         : "+SY$
  185. 1960 PRINT"[139]2. [194]OARD NAME    : "+BD$
  186. 1970 PRINT"[139]3. [205]ODEM TYPE    :"+STR$(MT%)
  187. 1980 A$="[196]ONE.":IFN2=0ANDN3=0ANDN4=0THENA$="[206]OT [217]ET!"
  188. 1990 PRINT"[139]4. [206]EW USER STATS: "+A$
  189. 2000 AA=RF:GOSUB2870
  190. 2010 PRINT"[139]5. [213]SERFILE DV;DR:"+STR$(DV)+";"+DR$
  191. 2020 PRINT"[139]6. # OF CALLERS  :"+STR$(CN)
  192. 2030 PRINT"[139]7. [195]REDITS/[208]OST  :"+STR$(RR)
  193. 2040 PRINT"[139]8. [210]EMOTE P-WORD : "+P1$
  194. 2050 PRINT"[139]9. [196]OS ACCESS PW : "+P2$+":[139]"
  195. 2060 PRINTDD$
  196. 2070 PRINT"[193]. [195]REATE/[197]DIT [211]UB-BOARDS"
  197. 2080 PRINT"[139][194]. [195]REATE/[197]DIT [199]ENERAL FILES"
  198. 2090 PRINT"[139][195]. [195]REATE/[197]DIT [213]SERFILE(S)"
  199. 2100 PRINT"[139][196]. [195]REATE/[197]DIT [196]RIVE CONFIGURATION"
  200. 2110 PRINT"[139][197]. [195]REATE/[197]DIT SYSOP AVAILABILITY MSGS"
  201. 2120 PRINT"[139][198]. [195]REATE/[197]DIT [212]RIVIA"
  202. 2130 PRINT"[139][199]. [195]REATE/[197]DIT [208]ROGRAM FILES[139]"
  203. 2140 PRINTDD$
  204. 2150 PRINT"[200]. [209]UIT[139]"+DD$
  205. 2160 PRINT"[215]HICH? ":L=1:GOSUB170
  206. 2170 A$=L$:IFCDTHEN360
  207. 2180 A=VAL(A$):IFA=0THENA=ASC(A$)-55:IFA<10ORA>17THEN2170
  208. 2190 ONAGOTO2210,2240,2270,    ,    ,    ,    ,    ,    ,    ,    ,    ,    ,
  209. 2200 ONA-14GOTO    ,2890,360
  210. 2210 PRINT"[197]NTER NEW [211]YSOP'S NAME: ":L=20:GOSUB170:ONCDGOTO360:SY$=L$
  211. 2220 IFSY$=""THENPRINT"[145][145][139]":GOTO2210
  212. 2230 GOTO1920
  213. 2240 PRINT"[197]NTER NEW [194]OARD NAME: ":L=20:GOSUB170:ONCDGOTO360:BD$=L$
  214. 2250 IFBD$=""THENPRINT"[145][145][139]":GOTO2240
  215. 2260 GOTO1920
  216. 2270 PRINT"[147][205]ODEM TYPES:[139][139]"
  217. 2280 PRINT"[139]2. 1650/[215]ESTRIDGE"
  218. 2290 PRINT"[139]3. [200]AYES/1670 & [195]OMPATS
  219. 2300 [153]"IF4. (null)IGHTY (null)O/LEFT$ES RIGHT$RIGHT$/(null)OLKS 6420"
  220. 2310 [153]"IF5. 1660 & LENOMPATS"
  221. 2320 [153]"IF6. (null)OLKS 6470 (null)EVISION ATN"
  222. 2330 [153]"IF7. (null)OLKS 6480/6470 (null)EVISION PEEK":[153]"IFIF(null)(null)STR$VAL(null):":L[178]1:[141]170
  223. 2340 [145]CD[137]360:A$[178]L$
  224. 2350 [139][197](A$)[179]2[176][197](A$)[177]7[167]2340
  225. 2360 MT%[178][197](A$):[139]MT%[179][177]3[167]1920
  226. 2370 [159]1,8,5,"(MODEM.CONFIG)":[132]15,ER$:[139]ER$[177]"01"[167][160]1:[137]2390
  227. 2380 [132]1,M1$,M2$,M3$,M4$,M6$:[160]1:[137]2400
  228. 2390 M1$[178]"+++":M2$[178]"ATN(null)(null)2VAL0(null)0(null)0":M3$[178]"(null)0=1":M4$[178]"(null)1":M6$[178]"1200"
  229. 2400 [153]"LOAD"DD$:[153]"        (null)MART(null)ODEM LENONFIGURATIONIF":[153]DD$
  230. 2410 [153]"1. (null)ODEM VALSCAPE LENODE: "[170]M1$
  231. 2420 [153]"IF2. RIGHT$NIT (null)EQUENCE    : "[170]M2$
  232. 2430 [153]"IF3. ATNNSWER ON (null)ING # : "[170][202](M3$,4)
  233. 2440 A$[178]"(null)OUD":[139]M4$[178]"(null)0"[167]A$[178]"(null)UIET"
  234. 2450 [153]"IF4. (null)ODEM (null)PEAKER IS : "[170]A$
  235. 2460 [153]"IF5. (null)AX PEEKAUD (null)ATE    : "[170]M6$
  236. 2470 [153]"IF"[170]DD$:[153]"(null)ODEM (null)EQUENCE: "[170]M2$M4$M3$[170]"IF"
  237. 2480 [153]DD$:[153]"(null). (null)UIT AND (null)AVEIF":[153]DD$:[153]"(null)(null)STR$VAL(null):":L[178]1:[141]170
  238. 2490 A$[178]L$:[145]CD[137]360:[139]A$[178]"Q"[167]2520
  239. 2500 [145][171](A$[178]"1")[171]2[172](A$[178]"2")[171]3[172](A$[178]"3")[171]4[172](A$[178]"4")[137]2560,2630,2770,2810
  240. 2510 [145][171](A$[178]"5")[137]2830:[137]2490
  241. 2520 [153]"IF(null)AVE LENHANGES? (Y/N):":L[178]1:[141]170:A$[178]L$:[145]CD[137]360
  242. 2530 [139]A$[179][177]"Y"[175]A$[179][177]"(null)"[167]1920
  243. 2540 [159]1,8,5,"@0:(MODEM.CONFIG),S,W":[152]1,M1$","M2$","M3$","M4$","M6$
  244. 2550 [160]1:[137]1920
  245. 2560 [153]"IF(null)HE (null)ODEM VALSCAPE LENODE IS DEFINED BYIF(null) (null)EGISTER 2.IFIF"
  246. 2570 [153]"VALSCAPE LENODE: ":L[178]1:[141]170
  247. 2580 A$[178]L$:[145]CD[137]360
  248. 2590 [139]A$[178]","[176]A$[178]":"[176]A$[179]" "[176][198](A$)[177]127[167]2570
  249. 2600 [139]A$[179][177]"+"[167][153]"IFIF(null)OU (null)(null)(null)(null) DEFINE THIS CODE IN THE (null)ODEMIF"
  250. 2610 [139]A$[179][177]"+"[167][153]"PEEKVALASC(null)(null)VAL BOOTING THE PEEKPEEK(null)!!IF":[129]T[178]1[164]3500:[130]
  251. 2620 M1$[178]A$[170]A$[170]A$:[137]2400
  252. 2630 [153]"IF(null)EQUENCE (null)(null)(null)(null) START WITH ATN(null),IFAND BE IN ALL (null)(null)(null)VAL(null) LENATN(null)VAL.IF"
  253. 2640 [153]" (null) (null)UST PROVIDE ALL LEN(null)(null)(null)VALLEN(null) RESPONSES.IF"
  254. 2650 [153]" VAL (null)UST TURN OFF VALCHO.IF"
  255. 2660 [153]" (null) (null)UST RETURN (null)ESULT LENODES.IF (null) (null)UST GIVE (null)UMERICAL RESULTS.IF"
  256. 2670 [153]"ATNDD YOUR MODEM'S CUSTOM COMMANDS HERE.IFIF"
  257. 2680 [153]"(null)EQUENCE: ":L[178]30:[141]170
  258. 2690 M5$[178]L$:[145]CD[137]360:A$[178][200](M5$,2)
  259. 2700 [139](A$[179][177]"AT"[175]A$[179][177]"ATN(null)")[176][195](M5$)[179]3[167]2690
  260. 2710 [129]T[178]1[164][195](M5$):A$[178][202](M5$,T,1)
  261. 2720 [139]A$[178]"0"[176][197](A$)[177]0[176]A$[178]"="[167][130]:[137]2760
  262. 2730 [139][198](A$)[177]192[175][198](A$)[179]219[167][130]:[137]2760
  263. 2740 [139][198](A$)[179]65[176][198](A$)[177]90[167]2690
  264. 2750 A$[178][199]([198](A$)[170]128):M5$[178][200](M5$,T[171]1)[170]A$[170][202](M5$,T[170]1):[130]
  265. 2760 M2$[178]M5$:[137]2400
  266. 2770 [153]"IF(null)EGAL (null)UMBERS: 1-255IFIF"
  267. 2780 [153]"(null)ING #: ":L[178]3:[141]170
  268. 2790 A$[178]L$:[145]CD[137]360:[139][197](A$)[179]1[176][197](A$)[177]255[167]2800
  269. 2800 M3$[178]"(null)0="[170][202]([196]([181]([197](A$))),2):[137]2400
  270. 2810 [139]M4$[178]"(null)0"[167]M4$[178]"(null)1":[137]2400
  271. 2820 M4$[178]"(null)0":[137]2400
  272. 2830 [153]"IF(null)EGAL (null)ALUES: 300/1200/2400IFIF":[153]"(null)AX PEEKAUD: ":L[178]4:[141]170
  273. 2840 A$[178]L$:[145]CD[137]360:A[178][197](A$)
  274. 2850 [139]A[179][177]300[175]A[179][177]1200[175]A[179][177]2400[167]2830
  275. 2860 M6$[178][202]([196](A),2):[137]2400
  276. 2870 DR$[178]"0":[139]AA[177]128[167]DR$[178]"1"
  277. 2880 DV[178]AA[175]63:[142]
  278. 2890 [159]1,8,5,"0:(PFILES)":[132]15,ER$:[139]ER$[178]"00"[167]2910
  279. 2900 [160]1:PF[178]0:[137]2930
  280. 2910 [132]1,PF:[139]PF[178]0[167][160]1:[137]2930
  281. 2920 [129]T[178]1[164]PF:[132]1,PF$(T),PD(T),PF(T):[130]:[160]1
  282. 2930 [153]"LOADLENREATE/VALDIT (null)ROGRAM FILES:IF"
  283. 2940 [153]DD$
  284. 2950 [139]PF[178]0[167][153]"(null)O (null)ROGRAM FILES.IF":[137]2980
  285. 2960 [129]T[178]1[164]PF:[153][202]([196](T),1[171](T[177]9))[170]". "[170]PF$(T):AA[178]PD(T):[141]2870
  286. 2965 [153][200]("               ",15[171][195](PF$(T)))
  287. 2970 [153]"ON"[170][196](DV)[170]";"[170]DR$:[153]"  ":[139]DV[179]10[167][153]" "
  288. 2975 [153]"(null)VL:"[170][196](PF(T))[170]"IF":[130]
  289. 2980 [153]DD$
  290. 2990 [153]" ATN. VALDIT FILENAMEIF"
  291. 3000 [153]" PEEK. ATNDD NEW FILEIF"
  292. 3010 [153]" LEN. STR$ELETE A FILEIF STR$. (null)ET ATNUTO (null)UN FILEIF"
  293. 3020 [153]" VAL. (null)UITIF"
  294. 3030 [153]DD$:[153]"(null)ASCRIGHT$(null)VAL:":L[178]1:[141]170:A$[178]L$:[145]CD[137]360
  295. 3050 [139][197](A$)[177]0[175][197](A$)[179][178]PF[167]A[178][197](A$):[137]3110
  296. 3060 A[178][198](A$)[171]64:[139]A[179]1[176]A[177]5[167][153]"ONON":[137]3030
  297. 3070 [145]A[137]3080,3230,3250,3350,3300
  298. 3080 [153]"IFVALDIT WHICH FILE: ":L[178]2:[141]170:A[178][197](L$):[145]CD[137]360
  299. 3090 [139]A[178]0[167]2930
  300. 3100 [139]A[179]1[176]A[177]PF[167]3080
  301. 3110 [153]"IF(null)EW FILENAME: ":L[178]15:[141]170:PF$(A)[178]L$:[145]CD[137]360
  302. 3120 AA[178]PD(A):[141]2870:[139]PF$(A)[178]""[167]3290
  303. 3130 [153]"      STR$EVICE: ":L[178]2:[141]170:DV[178][197](L$):[145]CD[137]360
  304. 3140 [139]DV[179]8[176]DV[177]15[167]3130
  305. 3150 [153]"       STR$RIVE: ":L[178]1:[141]170:A$[178]L$:[145]CD[137]360
  306. 3170 [139]A$[179]"0"[176]A$[177]"1"[167][153]"ON":[137]3150
  307. 3190 DR$[178]A$:PD(A)[178]DV[171]128[172](DR$[178]"1")
  308. 3200 [153]"ATNCCESS (null)EVEL: ":L[178]5:[141]170:PF(A)[178][197](L$):[145]CD[137]360
  309. 3210 [139]PF(A)[179]1[176]PF(A)[177]65535[167]3200
  310. 3220 [137]2930
  311. 3230 [139]PF[170]1[178]100[167][153]"IF(null)OO MANY (null)ROGRAM FILES!":[129]T[178]1[164]3000:[130]:[137]2930
  312. 3240 PF[178]PF[170]1:A[178]PF:[137]3110
  313. 3250 [139]PF[178]0[167]3040
  314. 3260 [153]"IFSTR$ELETE WHICH FILE: ":L[178]2:[141]170:A[178][197](L$):[145]CD[137]360
  315. 3270 [139]A[178]0[167]2930
  316. 3280 [139]A[179]1[176]A[177]PF[167]3260
  317. 3290 [129]T[178]A[164]PF:PF$(T)[178]PF$(T[170]1):PD(T)[178]PD(T[170]1):PF(T)[178]PF(T[170]1):[130]:PF[178]PF[171]1:[137]2930
  318. 3300 [153]"IF(null)AVE CHANGES (Y/N):":L[178]1:[141]170:A$[178]L$:[145]CD[137]360
  319. 3310 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167]3300
  320. 3320 [139]A$[178]"N"[167]1920
  321. 3330 [159]1,8,5,"@0:(PFILES),S,W"
  322. 3340 [152]1,PF:[129]T[178]1[164]PF:[152]1,PF$(T)","PD(T)","PF(T):[130]:[160]1:[137]1920
  323. 3350 [139]PF[178]0[167][153]"IF(null)O (null)-ASCILES DEFINED!":[129]T[178]1[164]3000:[130]:[137]2930
  324. 3360 [159]1,8,5,"0:(RUNPFILE)":B[178]0:[141]780:[139]ER$[177]"01"[167]AR[178]0:[160]1:[137]3380
  325. 3370 [129]T[178]0[164]9:[132]1,AR(T),D1%(T),D2%(T):[130]:[160]1:AR[178]1
  326. 3380 [153]"LOADDEFATNUTO (null)UNNING (null)ROGRAM FILES:IF"
  327. 3390 [153]DD$:[139]AR[178]0[167][153]"(null)ONE DEFINED.IF":[137]3450
  328. 3400 [129]T[178]0[164]9:[153][196](T)[170]". "
  329. 3410 [139]AR(T)[178]0[167][153]"(null)NDEFINED.IF":[130]:[137]3450
  330. 3420 [153]PF$(AR(T)[175]63):[153][200]("               ",15[171][195](PF$(AR(T)[175]63)))
  331. 3430 A$[178]"(null)UERY":[139]AR(T)[177]64[167]A$[178]"STR$ATE":[139]AR(T)[177]128[167]A$[178]"ATNUTO"
  332. 3435 [139]A$[178]"STR$ATE"[167]A$[178]A$[170]":"[170][196](D1%(T))[170]"/"[170][202]([196](D2%(T)),2)
  333. 3440 [153]A$[170]"IF":[130]
  334. 3450 [153]DD$
  335. 3460 [153]"ATN. ATNDD A (null)FILEIFPEEK. STR$ELETE A (null)FILEIF(null). (null)UIT AND (null)AVEIF":[153]DD$
  336. 3470 [153]"ATN(null)(null)(null):":L[178]1:[141]170:[145]CD[137]360
  337. 3475 [139]L$[178]"0"[176][197](L$)[177]0[167]T[178][197](L$):[137]3500
  338. 3480 [145][171](L$[178]"A")[171]2[172](L$[178]"B")[171]3[172](L$[178]"Q")[137]3490,3560,3590:[137]3470
  339. 3490 [129]T[178]0[164]9:[139]AR(T)[177]0[167][130]:[153]"IFATNLL ASCULL!":[137]3550
  340. 3500 [153]"IFASCILENAME: ":L[178]15:[141]170:A$[178]L$:[139]CD[167]360
  341. 3510 [129]I[178]1[164]PF:[139]PF$(I)[179][177]A$[167][130]:[153]"IF(null)OT A DEFINED (null)FILE.":[137]3550
  342. 3520 AR(T)[178]I:[153]"(null)SYSUERY/STR$SYSATE/(null)SYSANDATORY?: ":L[178]1:[141]170:[145]CD[137]360
  343. 3530 [139]L$[178]"M"[176]L$[178]"(null)"[167]AR(T)[178]AR(T)[170]128
  344. 3535 [139]L$[178]"D"[176]L$[178]"STR$"[167]AR(T)[178]AR(T)[170]64:[141]3630
  345. 3540 AR[178]1:[137]3380
  346. 3550 [129]T[178]1[164]3500:[130]:[137]3380
  347. 3560 [153]"IFSTR$ELETE WHICH?: ":L[178]1:[141]170:A[178][197](L$):[145]CD[137]360
  348. 3570 [139](A[179]0[176]A[177]9)[176](A[178]0[175]L$[179][177]"0")[167]3560
  349. 3580 [129]T[178]A[164]8:AR(T)[178]AR(T[170]1):[130]:AR(9)[178]0:[129]T[178]0[164]9:[139]AR(T)[178]0[167][130]:AR[178]0
  350. 3585 [137]3380
  351. 3590 [153]"IFCLR(null)AVE LENHANGES? (Y/N): ":L[178]1:[141]170:[145]CD[137]360
  352. 3600 [139]L$[178]"N"[176]L$[178]"(null)"[167]2930
  353. 3610 [159]1,8,5,"@0:(RUNPFILE),S,W":[129]T[178]0[164]9:[152]1,AR(T)","D1%(T)","D2%(T)
  354. 3620 [130]:[160]1:[137]2930
  355. 3630 [153]"(null)ONTH (1-12): ":L[178]2:[141]170:A[178][197](L$):[145]CD[137]360:D1%(T)[178]A
  356. 3640 [139]A[179]1[176]A[177]12[167]3630
  357. 3650 [153]"CONTSTR$ATE  (1-31): ":L[178]2:[141]170:A[178][197](L$):[145]CD[137]360:D2%(T)[178]A
  358. 3660 [139]A[179]1[176]A[177]31[167]3650
  359. 3670 [142]
  360.