home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0950.lha / BBDoors / BBDoors65.lha / rexxDoors / MatchMaker.rexx < prev    next >
OS/2 REXX Batch file  |  1993-08-07  |  32KB  |  1,055 lines
  1. /* The MatchMaker by Patrick Baker 12-11-89 */
  2. /* Revised on 12-12-89 This is version 1.1  */
  3. /* Revised May-Oct 1991 by RLStockton for BBBBS */
  4. /* Revised Apr 1992 by RLStockton & 7-Aug-93 */
  5.  
  6. options results
  7. signal on syntax
  8.  
  9. CALL TIME('R')
  10. SIGNAL ON BREAK_C
  11.  
  12. ARG REALNAME . . . secs .
  13. IF secs='' THEN secs=3600
  14. direct=GETCLIP('BBS_path')'rexxDoors/Data'
  15. CALL MAKEDIR(direct)
  16. direct=direct'/'
  17. CALL MAKEDIR(direct||'users')
  18. TOP = '0D'x||'0A'x||'Patrick Baker''s MatchMaker v 1.3'
  19.  
  20. EP:
  21.  CALL TRANSMIT TOP
  22.  CALL TRANSMIT ''
  23.  CALL TRANSMIT 'Please enter alias: '
  24.  OPTIONS PROMPT '> '
  25.  PARSE PULL alias
  26.  if alias = '' then EXIT
  27.  if exists(direct'users/Total') then do
  28.     call open file,direct'users/Total','R'
  29.          tot = readln(file)
  30.     call close file
  31.  end
  32.  if ~exists(direct'users/Total') then do
  33.      call open file,direct'users/Total','W'
  34.      call writeln file, 0
  35.      call close file
  36.      tot = 0
  37.  end 
  38.   if exists(direct'users/'ALIAS) then do
  39.      call open file,direct'users/'ALIAS,'R'
  40.           realname = readln(file)
  41.           alias1 = readln(file)
  42.           pass   = readln(file)
  43.      call close file
  44.      OPTIONS PROMPT 'Password: '
  45.      PARSE PULL anspass
  46.      if anspass = pass then
  47.        DO
  48.          CALL FINDMESSAGES
  49.          SIGNAL MAIN
  50.        END
  51.      CALL TRANSMIT 'Wrong!  Please logon and type the correct password!'
  52.      CALL TRANSMIT 'If you FORGOT it, contact the SysOp!'
  53.      CALL TRANSMIT ''
  54.      OPTIONS PROMPT 'Hit RETURN: '
  55.      PULL junk
  56.      EXIT
  57.    end
  58.  if ~exists(direct'users/'ALIAS) then do
  59.      CALL TRANSMIT 'Your name is not found among the MatchMaker members!'
  60.      OPTIONS PROMPT 'Are you a member(Y/N)? '
  61.      PARSE PULL ans
  62.      if ans = 'Y' | ans = 'y' then do
  63.         SIGNAL EP
  64.      end
  65.      CALL TRANSMIT ''
  66.      CALL TRANSMIT 'You must first answer a few questions to register!'
  67.      OPTIONS PROMPT 'Do you wish to register(Y/N)? '
  68.      PARSE PULL ans
  69.      if ans = 'N' | ans = 'n' then EXIT
  70.      if ans = '' then EXIT
  71. /* Register */
  72.      call REG
  73.      CALL TRANSMIT 'Alias = 'alias
  74.      CALL TRANSMIT 'Pass  = 'pass
  75.      CALL TRANSMIT ''
  76.      OPTIONS PROMPT 'Correct(Y/N)? '
  77.      PULL ans
  78.      if ans = '' then EXIT
  79.      IF ans = 'N' | ans = 'n' then do 
  80.         call REG
  81.         CALL TRANSMIT 'You just entered:'
  82.         CALL TRANSMIT 'Alias = 'alias 
  83.         CALL TRANSMIT 'Pass  = 'pass
  84.         CALL TRANSMIT ''
  85.         CALL TRANSMIT 'If it is incorrect, quit and contact the SysOp!'
  86.      end  
  87.      CALL TRANSMIT ''
  88.      OPTIONS PROMPT 'Hit RETURN: '
  89.      PULL junk
  90.      call QUEST
  91.  
  92. MAIN:
  93.   CALL TRANSMIT TOP
  94.   CALL TRANSMIT ''
  95.   CALL TRANSMIT ' 1)  Make Your Match'
  96.   CALL TRANSMIT ' 2)  View Your Stats'
  97.   CALL TRANSMIT ' 3)  View Others Stats'
  98.   CALL TRANSMIT ' 4)  Change Your Stats'
  99.   CALL TRANSMIT ' 5)  User Listing'
  100.   CALL TRANSMIT ' 6)  Send A Message'
  101.   CALL TRANSMIT ' 7)  Check For Messages To 'ALIAS
  102.   CALL TRANSMIT ' '
  103.   CALL TRANSMIT ' E)xit to BBBBS '
  104.   CALL TRANSMIT ''
  105.   OPTIONS PROMPT '> '
  106.   PULL ans
  107.   CALL checkBBS()
  108.   if ans = '' then SIGNAL MAIN
  109.   if ans = 'E' then EXIT
  110.   if ans = '1' then call MATCH
  111.   if ans = '2' then call YOURSTATS
  112.   if ans = '3' then call OTHERSTATS
  113.   if ans = '4' then call QUEST
  114.   if ans = '5' then call USERLIST
  115.   if ans = '6' then call SENDMESSAGE
  116.   if ans = '7' then call FINDMESSAGES
  117. SIGNAL MAIN
  118.  
  119.  
  120. SENDMESSAGE:
  121. OPTIONS PROMPT 'Send Message To: '
  122. PARSE PULL toname
  123. IF toname='' THEN RETURN
  124. IF ~EXISTS(direct'users/'toname) THEN
  125.   DO
  126.     CALL TRANSMIT '***' toname' not found in the MatchMaker userlist!'
  127.     RETURN
  128.   END
  129. CALL TRANSMIT 'Note: Lines are limited to 75 characters!'
  130. CALL TRANSMIT 'There is no editing, so start over if you mess up.'
  131. CALL TRANSMIT 'Enter your message.  Enter a blank line to exit.'
  132. lynes.=''
  133. OPTIONS PROMPT ': '
  134. DO i=1
  135.   PARSE PULL lynes.i
  136.   IF lynes.i='' THEN LEAVE i
  137.   IF LENGTH(lynes.i)>75 THEN lynes.i=LEFT(lynes.i,75)
  138. END
  139. lynes.0=i-1
  140. OPTIONS PROMPT 'Send this MatchMaker Message to 'toname'? (n/Y) > '
  141. PULL temp
  142. IF LEFT(temp,1)~='N' THEN
  143.   DO
  144.     mess=direct'users/Messages'
  145.     CALL MAKEDIR(mess)
  146.     mess=mess'/'ALIAS'.'toname
  147.     IF EXISTS(mess) THEN x=OPEN(f,mess,'A')
  148.     ELSE x=OPEN(f,mess,'W')
  149.     IF x=0 THEN RETURN
  150.     CALL WRITELN(f,LEFT('=',40,'='))
  151.     CALL WRITELN(f,'MatchMaker Message to' toname 'from' ALIAS)
  152.     CALL WRITELN(f,DATE() 'at' TIME('C'))
  153.     CALL WRITELN(f,LEFT('=',40,'='))
  154.     DO i=1 TO lynes.0
  155.       CALL WRITELN(f,lynes.i)
  156.     END
  157.     CALL CLOSE(f)
  158.   END
  159. RETURN
  160.  
  161.  
  162. FINDMESSAGES:
  163. CALL TRANSMIT 'Checking your MatchMaker Mail...'
  164. foundmsg=0
  165. mess=direct'users/Messages'
  166. CALL MAKEDIR(mess)
  167. CALL FileList(mess'/*',msgs)
  168. DO i=1 TO msgs.0
  169.   dotpos=LASTPOS('.',msgs.i)
  170.   IF UPPER(ALIAS)=UPPER(SUBSTR(msgs.i,dotpos+1)) THEN
  171.     DO
  172.       x=OPEN(f,msgs.i,'R')
  173.       IF x=0 THEN ITERATE i
  174.       DO j=1
  175.         line=READLN(f)
  176.         IF EOF(f) THEN LEAVE j
  177.         CALL TRANSMIT line
  178.       END
  179.       CALL CLOSE(f)
  180.       OPTIONS PROMPT 'Delete this message? (n/Y) > '
  181.       PULL temp
  182.       IF LEFT(temp,1)~='N' THEN CALL DELETE(msgs.i)
  183.       foundmsg=1
  184.     END
  185. END
  186. IF foundmsg=0 THEN CALL TRANSMIT 'No messages to' ALIAS 'were found.'
  187. RETURN
  188.  
  189.  
  190. QUEST:
  191. /* ANSWER QUESTIONARE */
  192. CALL TRANSMIT 'Please answer these 18 questions truthfully'
  193. CALL TRANSMIT ''  
  194. CALL TRANSMIT 'Question #1'
  195. OPTIONS PROMPT 'Gender (1=Male/2=Female)? '
  196. PULL gender
  197. if gender = '' then EXIT
  198. CALL TRANSMIT ''
  199. CALL TRANSMIT 'Question #2'
  200. CALL TRANSMIT 'What is your sexual preference: '
  201. CALL TRANSMIT '     1) Heterosexual'
  202. CALL TRANSMIT '     2) Homosexual'
  203. CALL TRANSMIT '     3) BiSexual'
  204. CALL TRANSMIT '     4) TrySexual (Ill try anything!)'
  205. OPTIONS PROMPT '1-4> '
  206. PULL pref
  207. if pref = '' then EXIT
  208. CALL TRANSMIT ''
  209. CALL TRANSMIT 'Question #3'
  210. CALL TRANSMIT 'What is your weight:'
  211. CALL TRANSMIT '     1) 90-100 '
  212. CALL TRANSMIT '     2) 101-120 '
  213. CALL TRANSMIT '     3) 121-130 '
  214. CALL TRANSMIT '     4) 131-150 '
  215. CALL TRANSMIT '     5) 151-180 '
  216. CALL TRANSMIT '     6) 181-210 '
  217. CALL TRANSMIT '     7) over 210 '
  218. OPTIONS PROMPT '1-7> '
  219. PULL weight
  220. if weight = '' then EXIT
  221. CALL TRANSMIT 'Question #4'
  222. CALL TRANSMIT ''
  223. CALL TRANSMIT 'What weight do you prefer to match with: '
  224. CALL TRANSMIT '     1) 90-100 '
  225. CALL TRANSMIT '     2) 101-120 '
  226. CALL TRANSMIT '     3) 121-130 '
  227. CALL TRANSMIT '     4) 131-150 '
  228. CALL TRANSMIT '     5) 151-180 '
  229. CALL TRANSMIT '     6) 181-210 '
  230. CALL TRANSMIT '     7) over 210 '
  231. OPTIONS PROMPT '1-7> '
  232. PULL weightpref
  233. if weightpref = '' then EXIT
  234. CALL TRANSMIT ''
  235. CALL TRANSMIT 'Question #5'    
  236. CALL TRANSMIT 'Eye color:'
  237. CALL TRANSMIT '     1) Blue'
  238. CALL TRANSMIT '     2) Grey'
  239. CALL TRANSMIT '     3) Brown'
  240. CALL TRANSMIT '     4) Green'
  241. CALL TRANSMIT '     5) Hazel'
  242. CALL TRANSMIT '     6) Black'
  243. OPTIONS PROMPT '1-6> '
  244. PULL eye
  245. if eye = '' then EXIT
  246. CALL TRANSMIT ''
  247. CALL TRANSMIT 'Question #6'
  248. CALL TRANSMIT 'Height: '
  249. CALL TRANSMIT '     1) 4 ft - 4.5 ft'
  250. CALL TRANSMIT '     2) 4.6  - 5.0 ft'
  251. CALL TRANSMIT '     3) 5.1  - 5.5 ft'
  252. CALL TRANSMIT '     4) 5.6  - 5.8 ft'
  253. CALL TRANSMIT '     5) 5.9  - 5.11 ft'
  254. CALL TRANSMIT '     6) 6.0  - 6.5 ft'
  255. CALL TRANSMIT '     7) 6.6  - up'
  256. CALL TRANSMIT '(period denotes a quote for feet)'
  257. OPTIONS PROMPT '1-7> ' 
  258. PULL height
  259. if height = '' then EXIT
  260. CALL TRANSMIT 'Question #7'
  261. CALL TRANSMIT 'Age: '
  262. CALL TRANSMIT '     1) 13-15'
  263. CALL TRANSMIT '     2) 16-18'
  264. CALL TRANSMIT '     3) 19-25'
  265. CALL TRANSMIT '     4) 26-30'
  266. CALL TRANSMIT '     5) 31-35'
  267. CALL TRANSMIT '     6) 36-40'
  268. CALL TRANSMIT '     7) 41-45'
  269. CALL TRANSMIT '     8) 46-50'
  270. CALL TRANSMIT '     9) 51-60'
  271. CALL TRANSMIT '    10) Other'
  272. OPTIONS PROMPT '1-10> '
  273. PULL age
  274. if age = '' then EXIT
  275. CALL TRANSMIT 'Question #8'
  276. CALL TRANSMIT 'What age would you like to match with: '
  277. CALL TRANSMIT '     1) 13-15'
  278. CALL TRANSMIT '     2) 16-18'
  279. CALL TRANSMIT '     3) 19-25'
  280. CALL TRANSMIT '     4) 26-30'
  281. CALL TRANSMIT '     5) 31-35'
  282. CALL TRANSMIT '     6) 36-40'
  283. CALL TRANSMIT '     7) 41-45'
  284. CALL TRANSMIT '     8) 46-50'
  285. CALL TRANSMIT '     9) 51-60'
  286. CALL TRANSMIT '    10) Other'
  287. OPTIONS PROMPT '1-10> '
  288. PULL agepref
  289. if agepref = '' then EXIT
  290.  
  291. CALL TRANSMIT 'Question #9'
  292. CALL TRANSMIT 'What kind of music do you like?'
  293. CALL TRANSMIT '     1) Rock and Roll'
  294. CALL TRANSMIT '     2) Punk/New Wave'
  295. CALL TRANSMIT '     3) Heavy Metal dude!'
  296. CALL TRANSMIT '     4) Classical'
  297. CALL TRANSMIT '     5) Country'
  298. CALL TRANSMIT '     6) Opera'
  299. CALL TRANSMIT '     7) Soft Rock'
  300. CALL TRANSMIT '     8) Jazz'
  301. CALL TRANSMIT '     9) Rap'
  302. CALL TRANSMIT '    10) Folk'
  303. CALL TRANSMIT '    11) Other'
  304. CALL TRANSMIT '    12) All Music'
  305. OPTIONS PROMPT '1-12> '
  306. PULL music
  307. if music = '' then EXIT
  308.  
  309. CALL TRANSMIT 'Question #10'
  310. CALL TRANSMIT 'What are your hobbies?'
  311. CALL TRANSMIT '     1) Sex'
  312. CALL TRANSMIT '     2) Sports or exercise'
  313. CALL TRANSMIT '     3) Parties'
  314. CALL TRANSMIT '     4) Watching TV'
  315. CALL TRANSMIT '     5) Computers'
  316. CALL TRANSMIT '     6) Reading'
  317. CALL TRANSMIT '     7) All of the Above'
  318. CALL TRANSMIT '     8) Other'
  319. OPTIONS PROMPT '1-8> '
  320. PULL hobby
  321. if hobby = '' then EXIT
  322.  
  323. CALL TRANSMIT 'Question #11'
  324. CALL TRANSMIT 'How much do you make a year?'
  325. CALL TRANSMIT '     1) under 5000'
  326. CALL TRANSMIT '     2) 5001-10000'
  327. CALL TRANSMIT '     3) 10001-15000'
  328. CALL TRANSMIT '     4) 15001-25000'
  329. CALL TRANSMIT '     5) 25001-40000'
  330. CALL TRANSMIT '     6) 40001-60000'
  331. CALL TRANSMIT '     7) 60001-up'
  332. OPTIONS PROMPT '1-7> '
  333. PULL salary
  334. if salary = '' then EXIT
  335.  
  336. CALL TRANSMIT 'Question #12'
  337. CALL TRANSMIT 'What do you do on a first date?'
  338. CALL TRANSMIT '     1) go to a movie'
  339. CALL TRANSMIT '     2) go out to dinner'
  340. CALL TRANSMIT '     3) go dancing/bars'
  341. CALL TRANSMIT '     4) go to a play/concert'
  342. CALL TRANSMIT '     5) I hit the MOTEL ROOM with my date'
  343. CALL TRANSMIT '     6) I go and meet the mother'
  344. CALL TRANSMIT '     7) I have never been on a date'
  345. CALL TRANSMIT '     8) Other'
  346. OPTIONS PROMPT '1-8> '
  347. PULL firstdate
  348. if firstdate = '' then EXIT
  349.  
  350. CALL TRANSMIT 'Question #13'
  351. CALL TRANSMIT 'Do you believe in womens lib?'
  352. CALL TRANSMIT '     1) YES'
  353. CALL TRANSMIT '     2) No'
  354. CALL TRANSMIT '     3) No opinion'
  355. OPTIONS PROMPT '1-3> '
  356. PULL womenslib
  357. if womenslib = '' then EXIT
  358.  
  359. CALL TRANSMIT 'Question #14'
  360. CALL TRANSMIT 'Are you:'
  361. CALL TRANSMIT '     1) Democrat'
  362. CALL TRANSMIT '     2) Republican'
  363. CALL TRANSMIT '     3) Communist'
  364. CALL TRANSMIT '     4) Socialist'
  365. CALL TRANSMIT '     5) Liberal'
  366. CALL TRANSMIT '     6) Independent'
  367. CALL TRANSMIT '     7) Other'
  368. OPTIONS PROMPT '1-7> '
  369. PULL politics
  370. if politics = '' then EXIT
  371.  
  372. CALL TRANSMIT 'Question #15'
  373. CALL TRANSMIT 'Do you believe in Racial equality?'
  374. CALL TRANSMIT '     1) Heck YES!'
  375. CALL TRANSMIT '     2) No.'
  376. CALL TRANSMIT '     3) No Opinion'
  377. OPTIONS PROMPT '1-3> '
  378. PULL RACIALEQUAL
  379. if RACIALEQUAL = '' then EXIT
  380.  
  381. CALL TRANSMIT 'Question #16'
  382. CALL TRANSMIT 'Would you date someone of another RACE?'
  383. CALL TRANSMIT '     1) Yes!'
  384. CALL TRANSMIT '     2) No.'
  385. CALL TRANSMIT '     3) Depends'
  386. OPTIONS PROMPT '1-3> '
  387. PULL RACEPREF
  388. if RACEPREF = '' then EXIT
  389.  
  390. CALL TRANSMIT 'Question #17'
  391. CALL TRANSMIT 'What race are you?'
  392. CALL TRANSMIT '     1) Hispanic'
  393. CALL TRANSMIT '     2) Asian'
  394. CALL TRANSMIT '     3) African American'
  395. CALL TRANSMIT '     4) Native American'
  396. CALL TRANSMIT '     5) Caucasion'
  397. CALL TRANSMIT '     6) NewComer'
  398. CALL TRANSMIT '     7) Other'
  399. OPTIONS PROMPT '1-7> '
  400. PULL race
  401. if race = '' then EXIT
  402.  
  403. CALL TRANSMIT 'Question #18'
  404. CALL TRANSMIT 'Do you believe in abortion?'
  405. CALL TRANSMIT '     1) Yes'
  406. CALL TRANSMIT '     2) No '
  407. CALL TRANSMIT '     3) only in certain circumstances.'
  408. OPTIONS PROMPT '1-3> '
  409. PULL abort
  410. if abort = '' then EXIT
  411.  
  412. OPTIONS PROMPT 'Was everything entered correctly(Y/N)? '
  413. PULL ans
  414. if ans = '' then EXIT
  415. if ans = 'n' | ans = 'N' then call QUEST
  416. CALL TRANSMIT 'Writing questionare.....'
  417.  
  418. /* WRITE STATS to TOTAL, PEOPLE, and CREATE FILE */
  419. IF ~EXISTS(direct'users/'ALIAS) THEN DO
  420.   if exists(direct'users/Total') then do
  421.     call open file,direct'users/Total','W'
  422.         tot = tot + 1
  423.         call writeln file, tot
  424.         call close file
  425.   end
  426.   if ~exists(direct'users/Total') then do
  427.     tot = 1
  428.     call open file,direct'users/Total','W'
  429.     call writeln file, tot
  430.     call close file
  431.   end
  432.   if exists(direct'users/People') then do
  433.        call open file,direct'users/People', 'A'
  434.        call writeln file, alias
  435.        call close file
  436.   end 
  437.   if ~exists(direct'users/People') then do
  438.     call open file,direct'users/People','W'
  439.     call writeln file, alias
  440.     call close file
  441.   end
  442. END
  443. CALL MAKEDIR(direct'users')
  444. call open(file,direct'users/'ALIAS,'W')
  445. CALL WRITELN FILE, REALNAME
  446. call writeln file, ALIAS 
  447. call writeln file, PASS
  448. call writeln file, gender
  449. call writeln file, pref
  450. call writeln file, weight
  451. call writeln file, weightpref
  452. call writeln file, eye
  453. call writeln file, height
  454. call writeln file, AGE
  455. call writeln file, AGEPREF
  456.  
  457. call writeln file, MUSIC
  458. call writeln file, HOBBY
  459. call writeln file, SALARY
  460. call writeln file, FIRSTDATE
  461. call writeln file, WOMENSLIB
  462. call writeln file, POLITICS
  463. call writeln file, RACIALEQUAL
  464. call writeln file, RACEPREF
  465. call writeln file, RACE
  466. call writeln file, ABORT
  467. CALL close file
  468. RETURN
  469.  
  470.  
  471. MATCH:
  472. call open file1,direct'users/Total', 'R'
  473. tot = readln(file1)
  474. call close file1 
  475. call open file,direct'users/'alias,'R'
  476. NAME = READLN(FILE)
  477. alias1 = readln(file)
  478. pass = readln(file)
  479. gender = readln(file)
  480. pref = readln(file)
  481. weight = readln(file)
  482. weightpref = readln(file)
  483. eye = readln(file)
  484. height = readln(file)
  485. age = readln(file)
  486. agepref = readln(file)
  487. MUSIC = readln(file)
  488. HOBBY = readln(file)
  489. SALARY = readln(file)
  490. FIRSTDATE = readln(file)
  491. WOMENSLIB = readln(file)
  492. POLITICS = readln(file)
  493. RACIALEQUAL = readln(file)
  494. RACEPREF = readln(file)
  495. RACE = readln(file)
  496. ABORT = readln(file)
  497. call close file
  498. CALL TRANSMIT 'Matching...'
  499. call open file,direct'users/People','R'
  500. do j = 1 to tot
  501.   matchname.j = readln(file)
  502. end
  503. do i = 1 to tot
  504.   call open file2,direct'users/'matchname.i,'R'
  505.   othername.i = readln(file2)
  506.   otheralias.i = readln(file2)
  507.   otherpass.i = readln(file2)
  508.   othergender.i = readln(file2) 
  509.   otherpref.i = readln(file2)
  510.   otherweight.i = readln(file2)
  511.   otherweightpref.i = readln(file2)
  512.   othereye.i = readln(file2)
  513.   otherheight.i = readln(file2)
  514.   otherage.i = readln(file2)
  515.   otheragepref.i = readln(file2)
  516.   otherMUSIC = readln(file2)
  517.   otherHOBBY = readln(file2)
  518.   otherSALARY = readln(file2)
  519.   otherFIRSTDATE = readln(file2)
  520.   otherWOMENSLIB = readln(file2)
  521.   otherPOLITICS = readln(file2)
  522.   otherRACIALEQUAL = readln(file2)
  523.   otherRACEPREF = readln(file2)
  524.   otherRACE = readln(file2)
  525.   otherABORT = readln(file2)
  526.   call close file2
  527. end
  528. call close file
  529. ct = 0
  530. CALL TRANSMIT 'Name                    %      Gender'
  531. CALL TRANSMIT ''
  532. matches=0
  533. do i = 1 to tot
  534.   if othergender.i = 1 then AGEN='MALE'
  535.   if othergender.i = 2 then AGEN='FEMALE'
  536.   if otherpref.i = pref then do
  537.      ct=ct+1
  538.   end
  539.   if otherweight.i = weightpref then ct = ct + 1
  540.   if otherweightpref.i = weight then ct = ct + 1
  541.   if othereye.i = eye then ct = ct + 1
  542.   if gender = 1 then do
  543.      if height > otherheight.i then ct = ct + 1
  544.   end
  545.   if gender = 2 then do
  546.      if height < otherheight.i then ct = ct + 1
  547.   end
  548.   if age = otheragepref.i then ct = ct + 1
  549.   if otherage.i = agepref then ct = ct + 1
  550.  
  551.   if otherpref.i = pref then do
  552.      if pref = 4 | pref = 3 then do
  553.        percentage = (ct/7)* 100
  554.        percentage = left(percentage,4) 
  555.        matchname.i = left(matchname.i,20)
  556.        gen = left(gen,10)
  557.        CALL TRANSMIT matchname.i'  'percentage'%    'Agen
  558.        matches=matches+1
  559.        ct=0
  560.      end 
  561.      if pref = 2 then do
  562.        if othergender.i = gender then do
  563.          percentage = (ct/7)* 100
  564.          percentage = left(percentage,4) 
  565.          matchname.i = left(matchname.i,20)
  566.          gen = left(gen,10)
  567.          CALL TRANSMIT matchname.i'  'percentage'%    'Agen
  568.          matches=matches+1
  569.          ct=0
  570.        end
  571.      end 
  572.      if pref = 1 then do
  573.        if otherpref.i = 1 then do
  574.          if othergender.i ~= gender then do
  575.            percentage = (ct/7)* 100
  576.            percentage = left(percentage,4) 
  577.            matchname.i = left(matchname.i,20)
  578.            gen = left(gen,10)
  579.            CALL TRANSMIT matchname.i'  'percentage'%    'Agen
  580.            matches=matches+1
  581.            ct=0
  582.          end
  583.        end
  584.      end
  585.      ct=0
  586.   end
  587. end
  588.  
  589. CALL TRANSMIT ''
  590. if matches = 0 then do
  591.   CALL TRANSMIT 'No Matches!  Try later!'
  592. end
  593. OPTIONS PROMPT 'Hit RETURN'
  594. PULL junk
  595. RETURN
  596.  
  597.  
  598. USERLIST:
  599.   CALL TRANSMIT TOP
  600.   CALL TRANSMIT ''
  601.   CALL TRANSMIT 'MatchMaker Userlist: '
  602.   CALL TRANSMIT ''
  603.   count = 0
  604.   call open file,direct'users/People','R'
  605.   do loop=1 until EOF(File)
  606.      count = count + 1  
  607.      name = readln(file)
  608.      CALL TRANSMIT Name
  609.      if count = 20 then do
  610.         CALL TRANSMIT ''
  611.         OPTIONS PROMPT 'Continue(Y/N)? '
  612.         PULL ans
  613.         if ans = 'N' then LEAVE loop
  614.         count = 0
  615.      end
  616.   end
  617.   call close file
  618.   CALL TRANSMIT ''
  619.   OPTIONS PROMPT 'Hit RETURN: '
  620.   PULL junk
  621. RETURN
  622.  
  623.  
  624. OTHERSTATS:
  625.   OPTIONS PROMPT 'View who? '
  626.   PARSE PULL name
  627.   IF NAME='' THEN RETURN
  628. IF exists(direct'users/'NAME) then do
  629.   call open file,direct'users/'NAME,'R'
  630.        OTHERNAME = READLN(FILE)
  631.        otheralias = readln(file)
  632.        otherpass = readln(file)
  633.        othergender = readln(file)
  634.        otherpref = readln(file)
  635.        otherweight = readln(file)
  636.        otherweightpref = readln(file)
  637.        othereye = readln(file)
  638.        otherheight = readln(file)
  639.        otherage = readln(file)
  640.        otheragepref = readln(file)
  641.        otherMUSIC = readln(file)
  642.        otherHOBBY = readln(file)
  643.        otherSALARY = readln(file)
  644.        otherFIRSTDATE = readln(file)
  645.        otherWOMENSLIB = readln(file)
  646.        otherPOLITICS = readln(file)
  647.        otherRACIALEQUAL = readln(file)
  648.        otherRACEPREF = readln(file)
  649.        otherRACE = readln(file)
  650.        otherABORT = readln(file)
  651.   call close file
  652.  
  653.   if othermusic = 1 then othermusic = 'Rock and Roll'
  654.   if othermusic = 2 then othermusic = 'Punk/New Wave'
  655.   if othermusic = 3 then othermusic = 'Heavy Metal dude!'
  656.   if othermusic = 4 then othermusic = 'Classical'
  657.   if othermusic = 5 then othermusic = 'Country'
  658.   if othermusic = 6 then othermusic = 'Opera'
  659.   if othermusic = 7 then othermusic = 'Soft Rock'
  660.   if othermusic = 8 then othermusic = 'Jazz'
  661.   if othermusic = 9 then othermusic = 'Rap'
  662.   if othermusic =10 then othermusic = 'Folk'
  663.   if othermusic =11 then othermusic = 'Other'
  664.   if othermusic =12 then othermusic = 'All Music'
  665.  
  666.   if otherhobby = 1 then otherhobby = 'Sex'
  667.   if otherhobby = 2 then otherhobby = 'Sports or exercise'
  668.   if otherhobby = 3 then otherhobby = 'Parties!!'
  669.   if otherhobby = 4 then otherhobby = 'Watching TV'
  670.   if otherhobby = 5 then otherhobby = 'Computers'
  671.   if otherhobby = 6 then otherhobby = 'Reading'
  672.   if otherhobby = 7 then otherhobby = 'All of the above'
  673.   if otherhobby = 8 then otherhobby = 'Other'
  674.  
  675.   if othersalary = 1 then othersalary = 'under 5000'
  676.   if othersalary = 2 then othersalary = '5001-10000'
  677.   if othersalary = 3 then othersalary = '10001-15000'
  678.   if othersalary = 4 then othersalary = '15001-25000'
  679.   if othersalary = 5 then othersalary = '25001-40000'
  680.   if othersalary = 6 then othersalary = '40001-60000'
  681.   if othersalary = 7 then othersalary = '60001-up'
  682.  
  683.   if otherfirstdate = 1 then otherfirstdate = 'go to a movie'
  684.   if otherfirstdate = 2 then otherfirstdate = 'go out to dinner'
  685.   if otherfirstdate = 3 then otherfirstdate = 'go dancing/bars'
  686.   if otherfirstdate = 4 then otherfirstdate = 'go to a play/concert'
  687.   if otherfirstdate = 5 then otherfirstdate = 'I hit the MOTEL ROOM with my date'
  688.   if otherfirstdate = 6 then otherfirstdate = 'I go and meet the mother'
  689.   if otherfirstdate = 7 then otherfirstdate = 'I have never been on a date'
  690.   if otherfirstdate = 8 then otherfirstdate = 'Other'
  691.  
  692.   if otherwomenslib = 1 then otherwomenslib = 'YES'
  693.   if otherwomenslib = 2 then otherwomenslib = 'No'
  694.   if otherwomenslib = 3 then otherwomenslib = 'No opinion'
  695.  
  696.   if otherpolitics = 1 then otherpolitics = 'Democrat'
  697.   if otherpolitics = 2 then otherpolitics = 'Republican'
  698.   if otherpolitics = 3 then otherpolitics = 'Communist'
  699.   if otherpolitics = 4 then otherpolitics = 'Socialist'
  700.   if otherpolitics = 5 then otherpolitics = 'Liberal'
  701.   if otherpolitics = 6 then otherpolitics = 'Independent'
  702.   if otherpolitics = 7 then otherpolitics = 'Other'
  703.  
  704.   if otherRacialequal = 1 then otherRacialequal = 'Heck YES!'
  705.   if otherRacialequal = 2 then otherRacialequal = 'No.'
  706.   if otherRacialequal = 3 then otherRacialequal = 'No Opinion'
  707.   
  708.   if otherracepref = 1 then otherracepref = 'Yes!'
  709.   if otherracepref = 2 then otherracepref = 'No.'
  710.   if otherracepref = 3 then otherracepref = 'Depends'
  711.  
  712.   if otherRACE = 1 then otherrace = 'Hispanic'
  713.   if otherRACE = 2 then otherrace = 'Asian'
  714.   if otherRACE = 3 then otherrace = 'African American'
  715.   if otherRACE = 4 then otherrace = 'Native American'
  716.   if otherRACE = 5 then otherrace = 'Caucasion'
  717.   if otherRACE = 6 then otherrace = 'Newcomer'
  718.   if otherRACE = 7 then otherrace = 'Other'
  719.  
  720.   if otherabort = 1 then otherabort = 'Yes'
  721.   if otherabort = 2 then otherabort = 'No'
  722.   if otherabort = 3 then otherabort = 'only in certain circumstances'
  723.  
  724.  
  725.  
  726.  
  727. /* OLD QUESTIONS */
  728.   if othergender = 1 then othergender = 'Male'
  729.   if othergender = 2 then othergender = 'Female'
  730.  
  731.   if otherpref = 1 then otherpref = 'HeteroSexual'
  732.   if otherpref = 2 then otherpref = 'HomoSexual'
  733.   if otherpref = 3 then otherpref = 'BiSexual'
  734.   if otherpref = 4 then otherpref = 'TrySexual'
  735.  
  736.   if otherweight = 1 then otherweight = '90-100'
  737.   if otherweight = 2 then otherweight = '101-120'
  738.   if otherweight = 3 then otherweight = '121-130'
  739.   if otherweight = 4 then otherweight = '131-150'
  740.   if otherweight = 5 then otherweight = '151-180'
  741.   if otherweight = 6 then otherweight = '181-210'
  742.   if otherweight = 7 then otherweight = 'over 210'
  743.  
  744.   if otherweightpref = 1 then otherweightpref = '90-100'
  745.   if otherweightpref = 2 then otherweightpref = '101-120'
  746.   if otherweightpref = 3 then otherweightpref = '121-130'
  747.   if otherweightpref = 4 then otherweightpref = '131-150'
  748.   if otherweightpref = 5 then otherweightpref = '151-180'
  749.   if otherweightpref = 6 then otherweightpref = '181-210'
  750.   if otherweightpref = 7 then otherweightpref = 'over 210'
  751.  
  752.   if othereye = 1 then othereye = 'Blue'
  753.   if othereye = 2 then othereye = 'Grey'
  754.   if othereye = 3 then othereye = 'Brown'
  755.   if othereye = 4 then othereye = 'Green'
  756.   if othereye = 5 then othereye = 'Hazel'
  757.   if othereye = 6 then othereye = 'Black'
  758.  
  759.   if otherheight = 1 then otherheight = '4ft-4.5ft'
  760.   if otherheight = 2 then otherheight = '4.6ft-5ft'
  761.   if otherheight = 3 then otherheight = '5.1ft-5.5ft'
  762.   if otherheight = 4 then otherheight = '5.6ft-5.8ft'
  763.   if otherheight = 5 then otherheight = '5.9ft-5.11ft'
  764.   if otherheight = 6 then otherheight = '6ft-6.5ft'
  765.   if otherheight = 7 then otherheight = '6.6ft-UP'
  766.  
  767.   if otherage = 1 then otherage = '13-15'
  768.   if otherage = 2 then otherage = '16-18'
  769.   if otherage = 3 then otherage = '19-25'
  770.   if otherage = 4 then otherage = '26-30'
  771.   if otherage = 5 then otherage = '31-35'
  772.   if otherage = 6 then otherage = '36-40'
  773.   if otherage = 7 then otherage = '41-45'
  774.   if otherage = 8 then otherage = '46-50'
  775.   if otherage = 9 then otherage = '51-60'
  776.   if otherage = 10 then otherage = 'Other'
  777.  
  778.   if otheragepref = 1 then otheragepref = '13-15'
  779.   if otheragepref = 2 then otheragepref = '16-18'
  780.   if otheragepref = 3 then otheragepref = '19-25'
  781.   if otheragepref = 4 then otheragepref = '26-30'
  782.   if otheragepref = 5 then otheragepref = '31-35'
  783.   if otheragepref = 6 then otheragepref = '36-40'
  784.   if otheragepref = 7 then otheragepref = '41-45'
  785.   if otheragepref = 8 then otheragepref = '46-50'
  786.   if otheragepref = 9 then otheragepref = '51-60'
  787.   if otheragepref = 10 then otheragepref = 'Other'
  788.  
  789.   CALL TRANSMIT ''
  790.   CALL TRANSMIT 'Alias:       'otheralias
  791.   CALL TRANSMIT 'Gender:      'othergender
  792.   CALL TRANSMIT 'Sex Pref:    'otherpref
  793.   CALL TRANSMIT 'Weight:      'otherweight
  794.   CALL TRANSMIT 'Weight Pref: 'otherweightpref
  795.   CALL TRANSMIT 'Eye color:   'othereye
  796.   CALL TRANSMIT 'Height:      'otherheight
  797.   CALL TRANSMIT 'Age:         'otherage
  798.   CALL TRANSMIT 'Age Pref:    'otheragepref
  799.   CALL TRANSMIT 'Music Pref:  'otherMUSIC
  800.   CALL TRANSMIT 'Hobby:       'otherHOBBY
  801.   CALL TRANSMIT 'Salary:      $'otherSALARY
  802.   CALL TRANSMIT ''
  803.   CALL TRANSMIT 'Like to do on 1ST date:  'otherFIRSTDATE
  804.   CALL TRANSMIT 'Believes in womens Lib?  'otherWOMENSLIB
  805.   CALL TRANSMIT 'Political preference?    'otherPOLITICS
  806.   CALL TRANSMIT 'All races are equal?     'otherRACIALEQUAL
  807.   CALL TRANSMIT 'Will date another race?  'otherRACEPREF
  808.   CALL TRANSMIT 'Race:                    'otherRACE
  809.   CALL TRANSMIT 'Abortion views:          'otherABORT
  810.   CALL TRANSMIT ''
  811.   OPTIONS PROMPT 'Hit RETURN: '
  812.   PULL junk
  813.   SIGNAL MAIN
  814.   END
  815. CALL TRANSMIT 'User not FOUND!'
  816. CALL TRANSMIT ''
  817. OPTIONS PROMPT 'Hit RETURN: '
  818. PULL junk
  819. RETURN
  820.  
  821.  
  822. YOURSTATS:
  823.   call open file,direct'users/'ALIAS,'R'
  824.        NAME = READLN(FILE)
  825.        alias1 = readln(file)
  826.        pass = readln(file)
  827.        gender = readln(file)
  828.        pref = readln(file)
  829.        weight = readln(file)
  830.        weightpref = readln(file)
  831.        eye = readln(file)
  832.        height = readln(file)
  833.        age = readln(file)
  834.        agepref = readln(file)
  835.        MUSIC = readln(file)
  836.        HOBBY = readln(file)
  837.        SALARY = readln(file)
  838.        FIRSTDATE = readln(file)
  839.        WOMENSLIB = readln(file)
  840.        POLITICS = readln(file)
  841.        RACIALEQUAL = readln(file)
  842.        RACEPREF = readln(file)
  843.        RACE = readln(file)
  844.        ABORT = readln(file)
  845.  
  846.  
  847.  
  848.   call close file
  849.   if gender = 1 then gender = 'Male'
  850.   if gender = 2 then gender = 'Female'
  851.   if pref = 1 then pref = 'HeteroSexual'
  852.   if pref = 2 then pref = 'HomoSexual'
  853.   if pref = 3 then pref = 'BiSexual'
  854.   if pref = 4 then pref = 'TrySexual'
  855.   if weight = 1 then weight = '90-100'
  856.   if weight = 2 then weight = '101-120'
  857.   if weight = 3 then weight = '121-130'
  858.   if weight = 4 then weight = '131-150'
  859.   if weight = 5 then weight = '151-180'
  860.   if weight = 6 then weight = '181-210'
  861.   if weight = 7 then weight = 'over 210'
  862.   if weightpref = 1 then weightpref = '90-100'
  863.   if weightpref = 2 then weightpref = '101-120'
  864.   if weightpref = 3 then weightpref = '121-130'
  865.   if weightpref = 4 then weightpref = '131-150'
  866.   if weightpref = 5 then weightpref = '151-180'
  867.   if weightpref = 6 then weightpref = '181-210'
  868.   if weightpref = 7 then weightpref = 'over 210'
  869.   if eye = 1 then eye = 'Blue'
  870.   if eye = 2 then eye = 'Grey'
  871.   if eye = 3 then eye = 'Brown'
  872.   if eye = 4 then eye = 'Green'
  873.   if eye = 5 then eye = 'Hazel'
  874.   if eye = 6 then eye = 'Black'
  875.   if height = 1 then height = '4ft-4.5ft'
  876.   if height = 2 then height = '4.6ft-5ft'
  877.   if height = 3 then height = '5.1ft-5.5ft'
  878.   if height = 4 then height = '5.6ft-5.8ft'
  879.   if height = 5 then height = '5.9ft-5.11ft'
  880.   if height = 6 then height = '6ft-6.5ft'
  881.   if height = 7 then height = '6.6ft-UP'
  882.  
  883.   if age = 1 then age = '13-15'
  884.   if age = 2 then age = '16-18'
  885.   if age = 3 then age = '19-25'
  886.   if age = 4 then age = '26-30'
  887.   if age = 5 then age = '31-35'
  888.   if age = 6 then age = '36-40'
  889.   if age = 7 then age = '41-45'
  890.   if age = 8 then age = '46-50'
  891.   if age = 9 then age = '51-60'
  892.   if age = 10 then age = 'Other'
  893.  
  894.   if agepref = 1 then agepref = '13-15'
  895.   if agepref = 2 then agepref = '16-18'
  896.   if agepref = 3 then agepref = '19-25'
  897.   if agepref = 4 then agepref = '26-30'
  898.   if agepref = 5 then agepref = '31-35'
  899.   if agepref = 6 then agepref = '36-40'
  900.   if agepref = 7 then agepref = '41-45'
  901.   if agepref = 8 then agepref = '46-50'
  902.   if agepref = 9 then agepref = '51-60'
  903.   if agepref = 10 then agepref = 'Other'
  904.  
  905.   if music = 1 then music = 'Rock and Roll'
  906.   if music = 2 then music = 'Punk/New Wave'
  907.   if music = 3 then music = 'Heavy Metal dude!'
  908.   if music = 4 then music = 'Classical'
  909.   if music = 5 then music = 'Country'
  910.   if music = 6 then music = 'Opera'
  911.   if music = 7 then music = 'Soft Rock'
  912.   if music = 8 then music = 'Jazz'
  913.   if music = 9 then music = 'Rap'
  914.   if music =10 then music = 'Folk'
  915.   if music =11 then music = 'Other'
  916.   if music =12 then music = 'All Music'
  917.  
  918.   if hobby = 1 then hobby = 'Sex'
  919.   if hobby = 2 then hobby = 'Sports or exercise'
  920.   if hobby = 3 then hobby = 'Parties!!'
  921.   if hobby = 4 then hobby = 'Watching TV'
  922.   if hobby = 5 then hobby = 'Computers'
  923.   if hobby = 6 then hobby = 'Reading'
  924.   if hobby = 7 then hobby = 'All of the above'
  925.   if hobby = 8 then hobby = 'Other'
  926.  
  927.   if salary = 1 then salary = 'under 5000'
  928.   if salary = 2 then salary = '5001-10000'
  929.   if salary = 3 then salary = '10001-15000'
  930.   if salary = 4 then salary = '15001-25000'
  931.   if salary = 5 then salary = '25001-40000'
  932.   if salary = 6 then salary = '40001-60000'
  933.   if salary = 7 then salary = '60001-up'
  934.  
  935.   if firstdate = 1 then firstdate = 'go to a movie'
  936.   if firstdate = 2 then firstdate = 'go out to dinner'
  937.   if firstdate = 3 then firstdate = 'go dancing/bars'
  938.   if firstdate = 4 then firstdate = 'go to a play/concert'
  939.   if firstdate = 5 then firstdate = 'I hit the MOTEL ROOM with my date'
  940.   if firstdate = 6 then firstdate = 'I go and meet the m'
  941.   if firstdate = 7 then firstdate = 'I have never been on a date'
  942.   if firstdate = 8 then firstdate = 'Other'
  943.  
  944.   if womenslib = 1 then womenslib = 'YES'
  945.   if womenslib = 2 then womenslib = 'No'
  946.   if womenslib = 3 then womenslib = 'No opinion'
  947.  
  948.   if politics = 1 then politics = 'Democrat'
  949.   if politics = 2 then politics = 'Republican'
  950.   if politics = 3 then politics = 'Communist'
  951.   if politics = 4 then politics = 'Socialist'
  952.   if politics = 5 then politics = 'Liberal'
  953.   if politics = 6 then politics = 'Independent'
  954.   if politics = 7 then politics = 'Other'
  955.  
  956.   if Racialequal = 1 then Racialequal = 'Heck YES!'
  957.   if Racialequal = 2 then Racialequal = 'No.'
  958.   if Racialequal = 3 then Racialequal = 'No Opinion'
  959.   
  960.   if racepref = 1 then racepref = 'Yes!'
  961.   if racepref = 2 then racepref = 'No.'
  962.   if racepref = 3 then racepref = 'Depends'
  963.  
  964.   if RACE = 1 then race = 'Hispanic'
  965.   if RACE = 2 then race = 'Asian'
  966.   if RACE = 3 then race = 'African American'
  967.   if RACE = 4 then race = 'Native American'
  968.   if RACE = 5 then race = 'Caucasion'
  969.   if RACE = 6 then race = 'Newcomer'
  970.   if RACE = 7 then race = 'Other'
  971.  
  972.   if abort = 1 then abort = 'Yes'
  973.   if abort = 2 then abort = 'No'
  974.   if abort = 3 then abort = 'only in certain circumstances'
  975.  
  976.  
  977.   CALL TRANSMIT ''
  978.   CALL TRANSMIT 'Name:        'NAME
  979.   CALL TRANSMIT 'Alias:       'alias1
  980.   CALL TRANSMIT 'Password:    'pass
  981.   CALL TRANSMIT 'Gender:      'gender
  982.   CALL TRANSMIT 'Sex Pref:    'pref
  983.   CALL TRANSMIT 'Weight:      'weight
  984.   CALL TRANSMIT 'Weight Pref: 'weightpref
  985.   CALL TRANSMIT 'Eye color:   'eye
  986.   CALL TRANSMIT 'Height:      'height
  987.   CALL TRANSMIT 'Age:         'age
  988.   CALL TRANSMIT 'Age Pref:    'agepref
  989.   CALL TRANSMIT 'Music Pref:  'MUSIC
  990.   CALL TRANSMIT 'Hobby:       'HOBBY
  991.   CALL TRANSMIT 'Salary:      $'SALARY
  992.   CALL TRANSMIT ''
  993.   CALL TRANSMIT 'Like to do on 1ST date:  'FIRSTDATE
  994.   CALL TRANSMIT 'Believes in womens Lib?  'WOMENSLIB
  995.   CALL TRANSMIT 'Political preference?    'POLITICS
  996.   CALL TRANSMIT 'All races are equal?     'RACIALEQUAL
  997.   CALL TRANSMIT 'Will date another race?  'RACEPREF
  998.   CALL TRANSMIT 'Race:                    'RACE
  999.   CALL TRANSMIT 'Abortion views:          'ABORT
  1000.   CALL TRANSMIT ''
  1001.   OPTIONS PROMPT 'Hit RETURN: '
  1002.   PULL junk
  1003. RETURN
  1004.  
  1005.  
  1006. /* Procedure to REGISTER */  
  1007. REG: 
  1008.      OPTIONS PROMPT 'Verify ALIAS you wish to use: '
  1009.      PARSE PULL alias
  1010.      OPTIONS PROMPT 'Enter PASSWORD you wish to use: '
  1011.      PARSE PULL pass
  1012. RETURN 
  1013.  
  1014.  
  1015. /* Procedures for Errors, Logging off and re-entering Abyss */
  1016.  
  1017. SYNTAX:
  1018.    errorline='Line:' SIGL '   Error Code:' RC
  1019.    CALL TRANSMIT '*BOOM*  Got a syntax error.  PLEASE notify the sysop.'
  1020.    CALL TRANSMIT errorline
  1021.    call CloseShop
  1022. exit
  1023.  
  1024.  
  1025. CloseShop: procedure
  1026.    CALL TRANSMIT ' '
  1027.    CALL TRANSMIT ' '
  1028.    OPTIONS PROMPT 'Press RETURN:'
  1029.    PULL junk
  1030.    EXIT
  1031. return
  1032.  
  1033.  
  1034. TRANSMIT:
  1035. PARSE ARG string
  1036. SAY string'0D'x
  1037. RETURN;
  1038.  
  1039.  
  1040. checkBBS:
  1041. IF ADDRESS()~='BAUD' THEN RETURN 0
  1042. IF TIME('E')>secs THEN EXIT
  1043. dcd
  1044. IF RC=0 THEN EXIT
  1045. temp=secs-TIME('E')
  1046. IF temp<120 THEN SAY '*** Only' temp 'seconds left! ***'CR 
  1047. RETURN 0
  1048.  
  1049.  
  1050. Quit: procedure
  1051. BREAK_C:
  1052. SAY '0D'x
  1053.    exit
  1054. return
  1055.