home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / PFILES3.9.ARC / (ÄATES(INC) (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.1 KB  |  312 lines
  1. 1 GOTO100
  2. 2 RC=X:GOTO116
  3. 3 GOSUB118:A=VAL(ER$):A$=ES$:RETURN
  4. 4 A=PEEK(52033)*16:RETURN
  5. 7 P$=A$:GOTO112
  6. 9 GOSUB114:AN$="":ONPEEK(52033)GOTO16:IFL$=""THENRETURN
  7. 10 IFPL=0THENAN$=L$+"":RETURN
  8. 11 FORL=1TOLEN(L$):A$=MID$(L$,L,1):IFA$<"A"ORA$>"Z"THENAN$=AN$+A$:NEXT:RETURN
  9. 12 AN$=AN$+CHR$(ASC(A$)OR128):NEXT:RETURN
  10. 14 FI$=A$:GOTO154
  11. 15 L=1:PL=1:POKE45058,1:GOSUB9:POKE45058,0:A$=AN$:RETURN
  12. 16 POKE45058,0:GOTO152
  13. 17 P$="[139]":GOTO112
  14. 18 P$="[139][139]":GOTO112
  15. 20 CLOSE1:CLOSE2:CLOSE3:RETURN
  16. 23 OPEN2,D7,5,"@"+D7$+":"+A$+",S,W":RETURN
  17. 24 RETURN
  18. 40 P$=" (Y/[156][N]): ":IFATHENP$=" ([156][Y]/N): "
  19. 41 GOSUB112:L=1:GOSUB15:IFATHEN43
  20. 42 A=-(L$="Y"ORL$="[217]"):RETURN
  21. 43 A=-(L$="N"ORL$="[206]"):RETURN
  22. 50 P$="[193]REA TEMPORARILY CLOSED.":GOSUB112:GOTO152
  23. 51 GOTO152:REM NOT USED
  24. 52 P$="[150][211]ORRY.  [213]NATHORIZED COMMAND.":GOSUB112:GOTO152
  25. 53 P$="[147] ":GOSUB112
  26. 54 FI$=A$:GOTO160
  27. 62 GOTO14
  28. 65 OPEN2,D7,5,D7$+":"+A$:RETURN
  29. 100 POKE152,PEEK(251)
  30. 102 GOTO164
  31. 104 :
  32. 106 :REM START OF USER JUMP TABLE.
  33. 108 :
  34. 112 GOTO206 :REM SEND P$ OUT.
  35. 114 GOTO214:REM GET L$ FROM MODEM.
  36. 116 B=D7%:GOTO328:REM SEND 'P' TO REL.
  37. 118 B=D7%:GOTO234:REM READ ERR CHANNEL.
  38. 120 GOTO238:REM READ SYSTEM CLOCK.
  39. 122 GOTO250:REM DISPLAY USER ONLINE.
  40. 124 GOTO254:REM REMOTE SYSOP MENU.
  41. 126 GOTO286:REM DISPLAY DIR.
  42. 128 GOTO324:REM BREAK RC INTO LO/HI.
  43. 130 GOTO334:REM UPDATE (USER LOG).
  44. 132 GOTO336:REM EMPTY UL$.
  45. 134 GOTO338:REM GET U$() FROM DISK.
  46. 136 GOTO340:REM GET N$() FROM DISK.
  47. 138 GOTO342:REM SEND U$() TO DISK.
  48. 140 GOTO344:REM SEND N$() TO DISK.
  49. 142 GOTO348:REM FIND DV,DR$ IN DR%().
  50. 144 GOTO350:REM FIND DV,DR$
  51. 146 GOTO352:REM INCREMENT DV,DR$.
  52. 148 GOTO364:REM HANG UP PHONE.
  53. 150 GOTO376:REM FIND TIME CONNECTED.
  54. 152 GOTO408:REM RETURN TO BBS.
  55. 154 GOTO410:REM LOAD NEXT MODULE.
  56. 156 GOTO386:REM GET SC() FROM DISK.
  57. 158 GOTO402:REM SEND SC() TO DISK.
  58. 160 GOTO382:REM SEND SEQ OUT.
  59. 162 :
  60. 164 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  61. 166 DIMU$(15),N$(15),DR%(7):DR$="0"
  62. 168 GOSUB170:GOTO180
  63. 170 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN174
  64. 172 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  65. 174 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  66. 176 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  67. 178 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  68. 180 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO422
  69. 182 IFA$="[133]"THENSY=SY+1:GOSUB254:SY=SY-1:RETURN
  70. 184 IFA$<>"[134]"THEN190
  71. 186 P$=F$+F$+"[195]HAT [205]ODE:"+F$:GOSUB112:SYS52012:CD=PEEK(52033)
  72. 188 A$=CHR$(PEEK(52034)):P$=F$+F$+"[197]XITED...."+F$:GOSUB110
  73. 190 IFA$="[140]"THENCD=1:RETURN
  74. 192 IFL<>65535THENRETURN
  75. 194 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  76. 196 CD=1:UL$="":RETURN
  77. 198 IFA$=""ORZ$=""THENGOSUB202
  78. 200 RETURN
  79. 202 POKESI+4,21:POKESI+4,20:RETURN
  80. 206 IFL=55THENPRINT#4,P$;:RETURN
  81. 208 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  82. 210 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  83. 212 RETURN
  84. 214 GOSUB376:IFVAL(U$(14))<COTHEN222
  85. 216 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  86. 218 L$="ING REALLYR DESCTIPTIONRIPTION THA ":SYS52003,L$:CD=PEEK(52033)
  87. 220 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB182:RETURN
  88. 222 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB110
  89. 224 GOTO152
  90. 226 GOSUB326:AA=RF:GOSUB348
  91. 228 FORL=1TO2:PRINT#15-B,"P"CHR$(101)CHR$(R1)CHR$(R2)CHR$(1):GOSUB234:NEXT
  92. 230 GOSUB234:IFER$<"20"ORER$="50"THENRETURN
  93. 232 PRINT"[197]RROR IN [210][197][204] FILE!":GOSUB364:STOP
  94. 234 ES$="":GOSUB236:ER$=LEFT$(ES$,2):RETURN
  95. 236 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO236:RETURN
  96. 238 T1$="10:14:09.0 PM":SYS51982,T1$:TM$=T1$+""
  97. 240 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  98. 242 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO248
  99. 244 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  100. 246 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  101. 248 DA$=M$+STR$(DT):RETURN
  102. 250 SYS52050:PRINT:PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB376
  103. 252 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":SYS52041:RETURN
  104. 254 D8=D7:DR$=D7$
  105. 256 PRINT" [147]"
  106. 258 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB110
  107. 260 P$="$ - [196]IRECTORY":GOSUB110
  108. 262 P$="@ - [196]OS COMMANDS":GOSUB110
  109. 264 P$="# - [212]OGGLE DRIVE #"+STR$(D8)+";"+DR$:GOSUB110
  110. 266 P$=F$+"[210][211][205]"+MID$(STR$(D8),2)+";"+DR$+":":GOSUB112:L=1:GOSUB114:IFCDTHENRETURN
  111. 268 IFL$=""THENRETURN
  112. 270 GOSUB334:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  113. 272 AA=D8:ON-(L$="$")-2*(L$="#")GOSUB286,352
  114. 274 IFL$="?"THEN256
  115. 276 IFL$<>"@"THEN266
  116. 278 P$=F$+">":GOSUB112:L=39:GOSUB114:IFCDTHENRETURN
  117. 280 B=D8-8:IFL$=""THENGOSUB234:P$=F$+ES$:GOSUB110:GOTO266
  118. 282 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  119. 284 GOTO266
  120. 286 P$=F$+"[208]ATTERN? $"+DR$+":":GOSUB112:L=16:GOSUB114:FI$=L$+""
  121. 288 IFFI$=""THENFI$="*"
  122. 290 P$=F$:GOSUB110:OPEN1,D8,0,"$"+DR$+":"+FI$
  123. 292 GOSUB234:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB110:RETURN
  124. 294 GET#1,A$:GET#1,A$
  125. 296 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  126. 298 GET#1,LO$:GET#1,HI$
  127. 300 LO$=LO$+N$:HI$=HI$+N$
  128. 302 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  129. 304 GET#1,A$:IFA$=""THEN312
  130. 306 GET#5,Z$:IFZ$=""THENGETZ$
  131. 308 IFZ$=" "THENCLOSE1:RETURN
  132. 310 P$=P$+A$:GOTO304
  133. 312 IFECANDMID$(P$,8,1)="("THEN296
  134. 314 GOSUB110:IFA$=" "THENCLOSE1:RETURN
  135. 316 GOTO296
  136. 318 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  137. 320 GOSUB318:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  138. 322 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB318:RETURN
  139. 324 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  140. 326 GOSUB324:R1=LO:R2=HI:RETURN
  141. 328 GOSUB326:GOTO228
  142. 330 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  143. 332 AA=VAL(N$(3)):RETURN
  144. 334 IFLEN(UL$)<230THENRETURN
  145. 336 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  146. 338 GOSUB340:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  147. 340 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  148. 342 FORI=1TO15:N$(I)=U$(I):NEXT
  149. 344 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  150. 346 PRINT#3,N$(0):RC=1:GOSUB226:RETURN
  151. 348 B=AA-8:A=-((DR%(B)AND128)=128):DR$=MID$(STR$(A),2):RETURN
  152. 350 GOSUB348:A=(AAAND128)=128:DR$=MID$(STR$(A),2):RETURN
  153. 352 IFDR$="0"THENGOSUB348:IFDR$="1"THENRETURN
  154. 354 AA=AA+1:IFAA>15THENAA=8
  155. 356 FORL=0TO(DR-8):IFAA<>(DR%(L)AND63)THENNEXT:GOTO354
  156. 358 IFA1AND32ORSYTHEN362
  157. 360 GOSUB348:IFDR%(B)AND64THEN354
  158. 362 D8=AA:DR$="0":RETURN
  159. 364 ON(MT%-1)GOTO366,368,372,374,320,320
  160. 366 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  161. 368 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  162. 370 PRINT#5,"[193][212][200]0[216]2[197]0[205]0[209]0[214]0[211]0=0":RETURN
  163. 372 POKEB2,38:POKEB1,38:RETURN
  164. 374 POKEB1,PEEK(B1)OR32:RETURN
  165. 376 GOSUB238:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  166. 378 IFLH=12ANDC2THENCO=ABS(CO-720)
  167. 380 RETURN
  168. 382 B=D7%:OPEN1,D7,5,D7$+":"+FI$:GOSUB118:IFER$>"01"THENCLOSE1:RETURN
  169. 384 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  170. 386 OPEN3,8,3,"0:(SCORES)":GOSUB118:IFER$>"01"THENCLOSE3:RETURN
  171. 388 RC=R:GOSUB324:B=0:GOSUB228:GET#3,A$:IF(ST)AND64THENSC=0:GOTO392
  172. 390 INPUT#3,SC
  173. 392 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  174. 394 IFI>SCTHENDIMSC(I):GOTO398
  175. 396 DIMSC(SC)
  176. 398 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  177. 400 RETURN
  178. 402 OPEN3,8,3,"0:(SCORES)":GOSUB118:IFER$>"01"THENCLOSE3:RETURN
  179. 404 RC=R:GOSUB324:B=0:GOSUB228:SC$=STR$(SC)+F$:FORT=1TOSC
  180. 406 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB228:CLOSE3:RETURN
  181. 408 FI$="(ST/R 3.?)":DV=D5
  182. 410 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB350:FORT=1TO15
  183. 412 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  184. 414 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  185. 416 PRINT#1,DV:PRINT#1,NW:PRINT#1,Q$L$:CLOSE1:POKE252,32:SYS52050
  186. 418 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  187. 420 POKE631,131:POKE198,1:NEW
  188. 422 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  189. 424 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  190. 426 CLOSE1:GOSUB330:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  191. 428 D7=DVAND127:AA=(DVAND128)=128:D7$=MID$(STR$(AA),2):D7%=D7-8
  192. 430 P=51994:SYS52041
  193. 500 PRINT"\F1\C4[139][139][196]ATES ([201]NC)![139][139][207]RGINALLY WRITTEN BY:[139][139]"
  194. 510 PRINT"\CN[194]LUE [193]DEPT OF [208]HAZE [194][194][211][139][139]"
  195. 520 PRINT"[195]ONVERSIONS [194]Y:[139][139][150][196][211]][:  \C7[215]ASTED [208]ANDEMONIUM[139]"
  196. 530 PRINT"[150][211][212]/[210]:  \K1[194]LACK [198]IRE\K0[139][139]\W2":PRINT"\C3[207]NE [205]OMENT [208]LEASE..."
  197. 540 DIMDD$(22,6),C%(22):QQ$=CHR$(13):PRINT"[139][139][153][210]EADING QUESTIONS[139]"
  198. 550 OPEN1,D7,5,DR$+":(DATEQUEST),S,R":GOSUB3:IFA>1THENPRINT"[139][206]O QUESTIONS[139]":CLOSE1:GOTO152
  199. 560 PRINT"[139]->":FORLQ=1TO22:PRINT".":INPUT#1,DD$(LQ,0):NEXT
  200. 570 PRINT"[139][139][210]EADING [193]NSWERS[139][139]->":FORLQ=1TO22:FORX=1TO6:PRINT"."
  201. 580 INPUT#1,DD$(LQ,X):NEXT:NEXT:PRINT"[139]":CLOSE1:GOTO600
  202. 590 CLOSE2:X=1:A$="(DATERS)":GOSUB65:X=1:RETURN
  203. 600 GOSUB590:GOSUB3:GOTO650
  204. 610 IFAC<>65535THENRETURN
  205. 620 CLOSE2:PRINT"[139][139][195]REATING [196]ATEFILE...":X=1:A$="(DATERS),L,"+CHR$(55)
  206. 630 GOSUB65:C$="^"+QQ$:FORX=1TO100
  207. 640 GOSUB2:PRINT#2,C$:PRINT".":NEXT:CLOSE2:RETURN
  208. 650 IFA>1THENGOSUB610:IFAC<65535THENPRINT"[139][139][206]O [199]AME![139]":GOTO152
  209. 660 CLOSE2:X=1:GOSUB590:PRINT"[139][153][204]OOKING FOR \R1[217][207][213]\R0[139][139]->":J=0:GOTO680
  210. 670 GOSUB2:INPUT#2,NN$(1):RETURN
  211. 680 FORX=1TO100:GOSUB670:IFNN$(1)<>U$(1)THENPRINT".":NEXT:GOTO700
  212. 685 INPUT#2,D$,A$:IFVAL(A$)<>RTHENPRINT"[139][139][206]O [195]HEATING![139]":GOTO850
  213. 690 J=X:GOTO710
  214. 700 PRINT"[139][139][154][217]OU'RE NOT A PARTY MEMBER! (YET)\W2[139]":J=0
  215. 710 Y$=D$:CLOSE2
  216. 720 PRINT"\F1\C4 \O-\O-[139]":A$="":IFJ=0THENA$=""
  217. 725 PRINT"\_04[159][[193]][146] [129]"+A$+"[198]ILL OUT A [196]ATING [198]ORM[139]"
  218. 730 PRINT"\_04[159][[204]][146] [129][204]IST OTHER MEMBERS HERE[139]"
  219. 740 PRINT"\_04[159][[205]][146] [129][198]IND YOURSELF A [205]ATCH[139]"
  220. 750 PRINT"\_04[159][[198]][146] [129][198]IND A [198]RIEND[139]"
  221. 760 PRINT"\_04[159][[209]][146] [129][209]UIT TO [205]AIN[139]"
  222. 770 PRINT"\_04[159][[195]][146] [129][195]HANGE YOUR [211]TATISTICS[139]"
  223. 780 PRINT"\_04[159][[214]][146] [129][214]IEW ANOTHER USER'S [211]TATS[139]":IFAC<65535THEN800
  224. 790 PRINT"\_04[159][[196]][146] [129][196]ELETE [206]AME[139]"
  225. 800 PRINT"\C4 \O-\O-[139]"
  226. 810 GOSUB122:PRINT"[139][150][196][193][212][197][211](INC):":PL=1:L=1:GOSUB9
  227. 820 ON-(AN$="[209]")-2*(AN$="?")-3*(AN$="[205]")-4*(AN$="[195]")GOTO850,720,1240,1220
  228. 830 ON-(AN$="[193]")-2*(AN$="[196]")-3*(AN$="[211]")GOTO860,1170,810
  229. 840 ON-(AN$="[214]")-2*(AN$="[204]")-3*(AN$="[198]")GOTO1080,1020,1230:GOTO810
  230. 850 PRINT"[139][210]ETURNING TO [194][194][211]....[139]":GOTO152
  231. 860 IFJ>0THENPRINT"[139][158][217]OU'RE ALREADY A MEMBER![139]":GOTO810
  232. 870 PRINT"\F1[139][150][196]ATES ([201]NC) [193]PPLICATION FORM:[139]"
  233. 880 D$="":FORC=1TO22
  234. 890 PRINT"[139][139][154]"+DD$(C,0)+"[139]":FORS=1TO6
  235. 900 PRINT"[139]  "+MID$(STR$(S),2)+" [146][150]  "+DD$(C,S):NEXT
  236. 910 PRINT"[139][139][158][217]OUR [193]NSWER:":L=2:GOSUB9
  237. 920 IFAN$=""ORVAL(AN$)<1ORVAL(AN$)>6THENC=27:NEXT:GOTO810
  238. 930 D$=D$+RIGHT$(STR$(VAL(AN$)),1):NEXT
  239. 940 PRINT"[139][139][153][193]DDING YOU TO THE LIST[139]":X=1:CLOSE2:GOSUB950:GOSUB590:GOTO970
  240. 950 IFLEFT$(D$,1)="2"ANDMID$(D$,6,1)="2"THEND$=LEFT$(D$,5)+"3"+RIGHT$(D$,20)
  241. 960 IFLEFT$(D$,1)="1"ANDMID$(D$,6,1)="3"THEND$=LEFT$(D$,5)+"2"+RIGHT$(D$,20)
  242. 965 RETURN
  243. 970 IFJTHENPRINT"[139][139][153][210]ESAVING [217]OUR [211]TATS...[139]":GOTO990
  244. 975 FORX=1TO100:GOSUB670:IFNN$(1)="^"THENJ=X:GOTO990
  245. 980 NEXT:PRINT"[139][211]ORRY, NO ROOM![139]":J=0:GOTO810
  246. 990 C$=U$(1)+QQ$+D$+QQ$+R$+QQ$:GOSUB2:PRINT#2,C$:CLOSE2:Y$=D$:GOTO810
  247. 1000 PRINT"[139][153][217]OU MUST FILL OUT AN APPLICATION AND[139]BECOME A MEMBER FIRST.[139]"
  248. 1010 GOTO810
  249. 1020 IFJ=0THEN1000
  250. 1025 PRINT"\F1[150][205]EMBER'S [204]ISTING:[139][139]":X=1:GOSUB590:POKE52040,1:POKE52036,0
  251. 1030 FORX=1TO100:GOSUB670:IFNN$(1)="^"THENNN$(1)="[[196]ELETED]"
  252. 1040 PRINT"[139]"+RIGHT$("   "+MID$(STR$(X),2),3)+". [155]"+NN$(1):A$=CHR$(PEEK(52036))
  253. 1050 GET#5,A$:IFA$=""THENGETA$:IFA$=""THEN1070
  254. 1060 IFA$=" "ORA$="/"THENCLOSE2:POKE52040,0:PRINT"[139][153][193]BORTED....[139]":GOTO810
  255. 1070 NEXT:CLOSE2:POKE52040,0:GOTO810
  256. 1080 ON-(J=0)GOTO1000:PRINT"[139][158][206]UMBER OF [205]EMBER TO [214]IEW:":L=3:GOSUB9
  257. 1090 X=VAL(AN$):IFX<1ORX>100THEN810
  258. 1100 GOSUB590:X=VAL(AN$):GOSUB670:IFNN$(1)="^"THENCLOSE2:PRINT"[139][153][[196]ELETED][139]":GOTO1080
  259. 1110 GOSUB1120:CLOSE2:PRINT"[139][139][150]"+NN$(1)+"[139]":GOTO1140
  260. 1120 GOSUB1130:FORB=2TO22:C%(B)=VAL(MID$(D$,B,1)):NEXT:RETURN
  261. 1130 INPUT#2,D$:RETURN
  262. 1140 FORB=1TO22:C=VAL(MID$(D$,B,1)):PRINT"[139][154]"+DD$(B,0)+":  "+DD$(B,C):NEXT
  263. 1150 A=0:PRINT"[139][139][158][193]NOTHER [205]EMEBER? ":GOSUB40:PRINT"[139]":IFA=.THEN810
  264. 1160 GOTO1080
  265. 1170 IFAC<65535THEN810
  266. 1180 PRINT"[139][158][213]SER [206]UMBER TO [196]ELETE:":L=3:GOSUB9
  267. 1190 X=VAL(AN$):IFX<1ORX>100THEN810
  268. 1200 C$="^"+QQ$:GOSUB590:GOSUB2:PRINT#2,C$:CLOSE2:IFX=JTHENJ=0
  269. 1210 GOTO810
  270. 1220 PRINT"\F1[139][150][211]TAT [195]HANGE:[139]":GOTO880
  271. 1230 PRINT"[139][198]INDING A [198]RIEND...[139]":AX%=0:GOTO1250
  272. 1240 PRINT"[139][198]INDING A [205]ATCH...[139]":AX%=1
  273. 1250 ON-(J=0)GOTO1000:PRINT"[139][195]HECKING THE [204]IST...[139][139]":GOTO1265
  274. 1260 PRINT"[153][217]OUR GENDER IS UNSPECIFIED--[139][206]O MATCHES CAN BE MADE![139]":GOTO810
  275. 1265 POKE52040,1:POKE52036,0
  276. 1270 IFVAL(LEFT$(Y$,1))>2ANDAX%THEN1260
  277. 1280 GOSUB590:KK$=RIGHT$(Y$,20):C%(1)=VAL(LEFT$(Y$,1)):C%(6)=VAL(MID$(Y$,6,1))
  278. 1290 GOSUB670:IFNN$(1)="^"ORNN$(1)=U$(1)THEN1340
  279. 1300 GOSUB1130:MS$=RIGHT$(D$,20):C=0:IFAX%=0THEN1320
  280. 1310 GOSUB1360:IFD$=""THEN1340
  281. 1320 FORB=1TO20:IFMID$(KK$,B,1)=MID$(MS$,B,1)THENC=C+1
  282. 1330 NEXT:PRINT"[150]"+MID$(STR$(X),2)+". "+NN$(1)+" -"+STR$((C/20)*100)+"[150]% [205]ATCH[139]"
  283. 1340 X=X+1:PRINT"...\H3":IFX>100THENCLOSE2:POKE52040,0:PRINT"[139]":GOTO810
  284. 1345 A$=CHR$(PEEK(52036)):IFA$=" "ORA$="/"THENPOKE52040,0:CLOSE2:PRINT"[139]":GOTO810
  285. 1350 GOTO1290
  286. 1360 GE=VAL(LEFT$(D$,1)):SE=VAL(MID$(D$,6,1))
  287. 1370 IFC%(1)<>1THEN1500
  288. 1380 IFC%(6)<>1THEN1410
  289. 1390 IFGE=2AND(SE=1ORSE=4)THENRETURN
  290. 1400 D$="":RETURN
  291. 1410 IFC%(6)<>2THEN1440
  292. 1420 IFGE=1AND(SE=2ORSE=4)THENRETURN
  293. 1430 GOTO1400
  294. 1440 IFC%(6)<>4THEN965
  295. 1450 IFSE=4OR(GE=2ANDSE=1)OR(GE=1ANDSE=2)THENRETURN
  296. 1460 GOTO1400
  297. 1470 IFC%(6)=5ANDSE=5THENRETURN
  298. 1480 IFC%(6)=6THENRETURN
  299. 1490 GOTO1400
  300. 1500 IFC%(6)<>1THEN1530
  301. 1510 IFGE=1AND(SE=1ORSE=4)THENRETURN
  302. 1520 GOTO1400
  303. 1530 IFC%(6)<>3THEN1560
  304. 1540 IFGE=2AND(SE=3ORSE=4)THENRETURN
  305. 1550 GOTO1400
  306. 1560 IFC%(6)<>4THEN1590
  307. 1570 IFSE=4OR(GE=1ANDSE=1)OR(GE=2ANDSE=3)THENRETURN
  308. 1580 GOTO1400
  309. 1590 IFC%(6)=5ANDSE=5THENRETURN
  310. 1600 IFC%(6)=6THENRETURN
  311. 1610 GOTO1400
  312.