' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u` D$(4):H$(8)1H$H$H$H$H$H$H$H$TFILE$"X"H$"==============="Z(v2 YOU REALLY SHOULD NOT< BE READING THIS, F YOU KNOW!PZD$;"SAVE ";FILE$ 5:"THANKS FOR PLAYING WITH ME...":BP 10:15:" GOOD BYE! ":JJ11SS:6JJ,10JJ4SS:6JJ,10JJ8SSE 9SS,4JJ:10SS,3JJK Q e MYSTERY SIGNl  4SS,9SS3JJ:6SS,9SS7JJ:4JJ,6JJ9SS 4SS,4JJ:6SS,8JJ:6SS,9JJ:6SS,11JJ( 2 :936< S$"B"S$"G"2640%F FEMALE SIGN O 11:3SS,10SS2JJ:3SS,10SS8JJ:5SS,8SS10JJ 3JJ,7JJ3SS:3JJ,7JJ10SS:9JJ,11JJ6SS:9JJ,11JJ7SS   MALE SIGN  7:9SS,11SS2JJ:4SS,8SS5JJ:4SS,8SS11JJ* 3JJ,4:JJ0:2560:155018 X2SS26:JJ0:2560:1550QB X3SS0:JJ13:2560:1550rL X4SS13:JJ13:2560:1550V X5SS26:JJ13:2560:1550` X6SS0:JJ26:2560:1550j X7SS13:JJ26:2560:1550t X8SS26:JJ26:2560:1550~  0:2490:1550.X3SS0:JJ13:2490:1550OX4SS13:JJ13:2490:1550pX5SS26:JJ13:2490:1550 X6SS0:JJ26:2490:1550 X7SS13:JJ26:2490:1550 X8SS26:JJ26:2490:1550$ X0SS0:JJ0:2560:1550. X1SS132430:1550,X4SS13:JJ13:2430:1550MX5SS26:JJ13:2430:1550mX6SS0:JJ26:2430:1550X7SS13:JJ26:2430:1550X8SS26:JJ26:2430:1550X0SS0:JJ0:2490:1550X1SS13:JJ0:2490:1550X2SS26:JJ:I42090RV2060#3 F2:E6:I2=2090C K*R0X4JFEIe>RRS(J)wHS(J)02140RBJ\JfpX0SS0:JJ0:2430:1550zX1SS13:JJ0:2430:1550X2SS26:JJ0:2430:1550 X3SS0:JJ13:820 F3:E5:I1#&209020RV18608:HDF6:E8:I1RN2090aXRV1900gbwlF0:E6:I3v2090RV1940F1:E7:I32090RV1980F2:E8:I32090RV2020F0:E8:2340 XV3 "1780/,RV161076R0=@FJV21PT1780_^RV1660ghR1mrv|V141780RV1710R3V21780RV1760R2R4F0:E2:I12090RV1)0ī1550S(X)1ī15002(S$,1)"G"2160H(S$,1)"B"2250c(S$,1)"O"Ġ13:2340m1550(S$,1)"B"2160(S$,1)"G"2250(S$,1)"O"(SS$,1)"G"2160(S$,1)"O"(SS$,1)"B"2250(S$,1)"O"(SS$,1)"N"Ġ1.";A$:A(A$):12E(0,3913:0,3926:0,3913:0,3926X2S(A1)01410^<F"SORRY...THAT SPACE IS TAKEN"PI1100:M(16336)1ZN(16336)(16336)9dI3001400nIx1270S(A1)1X08 S(X1170~S(6)71000+S(8)012006S(8)7@1000HI1ZS(I)01240eS(I)7o1000yII21210936:(7);:"1 2 3 CHOOSE A SQUARE (1-9).""4 5 6 WAIT FOR COMPUTER TO MAKE" "7 8 9 ITS CHOICE.."B"ĺ"SORRY...THE BOYS LOSE"<S$"O"ĺ"SORRY...YOU LOSE"E800O1430X730gR31050rS(B)7{950S(4)01080$S(4)7.10008S(O)01110BS(O)7L1000VS(2)01140`S(2)7j1000tS(6)0E BOYS WIN!"%S$"O"ĺ" YOU WIN!"/ 14308*460@4A0K>I08\HS(I)0860dRA1k\IxfA1910~pz"TIE GAME!"800R21020S(B)71560R11000S$"G"ĺ"SORRY...THE GIRLS LOSE"S$ TO PLAY WITH (B)OYS (G)IRLS (N)ONE OF ABOVE? ";:SS$:C v:936M 1260Z A5680e S(4)7n 720 S(O)0710 S(0)7 720 S(2)7 1430 1260 1560 R0820  S$"G"ĺ"THE GIRLS WIN!"  S$"B"ĺ"TH(L$,1)"Y"510 &T1O 0::21:"READY FOR TICKY=TACKY=SEX?":M12000:M} :21:"READY FOR TIC = TAC = TOE? ";:Z$: D"ARE YOU (B)OY (G)IRL (O)THER? ";:S$ N(Z$)0560 XZ$"N"2610 b(Z$,1)"Y"5607 l936:S$"O"ĺ"DO YOU WANTC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121 G  XII/XXIV/MCMLXXXc  (C)1980 PEC/LAS VEGASj  p x T0 S(8) I08 S(I)0 I  T0550 "ANOTHER GAME (Y/N) ";:L$ (L$)0510 (L$,1)"N"2610  "% ," TICKY=TACKY "B 6" "^ @" { J" " TM13000:M:380::255:936 ^ h TICKY=TACKY=TOE r A MULTI-SEX GAME |  PAUL RAYMER0  PAUL'S ELECTRI " " "= " CREATORS OF STRANGE "Z " AND NOVEL PROGRAMS "w " IS PLEASED TO " " PRESENT ........ " " " " " " " "" Cd:::5Kn37x"*************************"QX210:"*";23);"*"XXy"*************************"384:34,4:35,12:32,2:33,22:936100" PAUL'S ELECTRIC "" COMPUTER OF " " LAS VEGAS NEVADA       OSE$"X"ı.OFF WHILE RUNNING THIS PROGRAM"dLOOK1Ģ20:"(Take a deep breath -- press 'X' key)";:103020:"(TAKE A DEEP BREATH -- PRESS 'X' KEY)";RELAXED$:RELAXED$"X"1050"":"CAN'T YOU ";::"READ?" $20:31:"X"::LOOSE$:LOsonal questions. Do not be embarassed -- do your best -- answer honestly":990:"YOU WILL BE ASKED SEVERAL VERY PERSONAL QUESTIONS. DO NOT BE EMBARASSED -- DO YOUR BEST -- ANSWER HONESTLY"::" WARNING! ":$:"DO NOT TAKE YOUR CLOTHES u are anxious to please your mate and improve your relationship":970936:"BY ASKING FOR INSTRUCTIONS YOU HAVE SHOWN THAT YOU ARE ANXIOUS TO PLEASE YOUR MATE AND IMPROVE YOUR RELATIONSHIP"PLOOK1ĺ:"You will be asked several very perO SATISFY YOUR MATE -- LET ME KNOW..."GzDAMNIT12000:DAMNITP620^936:50"THIS IS HOW TO SATISFY YOUR MATE:"THINK12000:THINKXX$(AA$,SS,LL):670HLOOK1ė:"By asking for instructions you have shown that yo89,32,89,79,85,33,348> 34,71,69,84,32,85,80,33,34,32\H 72,69,89,32,68,85,77,77,89,33R 55,58,48,48,32,65,46,77,46,33\ 42,32,70,73,82,69,33,32,42,32f936:"SOME PEOPLE JUST HATE TO TAKE ADVICE!",p:"WHEN YOU ARE READY TO KNOW HOW T1HH$(XX$,H,1)HH$;&H.:=255:::CVSS1:LL9:910kSS10:LL11:910SS21:LL15:910 SS36:LL9:910SS45:LL7:910  88,88,88,88,88,88,88,88,88,88* 87,65,75,69,32,85,80,33,32,324 34,72,69,ATE IS AROUSED -- PRESS SPACE BAR TO CONTINUE)":EXCITED$:936a b"HOW TO SATISFY YOUR MATE" l"ARE YOU READY FOR INSTRUCTIONS?":SET$:SET$"Y"870 v THINK12000:THINK A(5(1))1 A750,760,770,780,790 H(XX$)1E YOUR MATE BY SHOUTING IN A VERY LOUD VOICE EARLY IN THE MORNING..."f THINK12000:THINKl x X170 SEX(X) X AROUSE(6(1))1 WOWAROUSE10 &LUST110 0(SEX(WOWLUST)); :LUST D: N20@ X"(IF MHOT$"Y"İ9604 936:"HOW TO AROUSE YOUR MATE": p "WHAT DO YOU THINK A GOOD IDEA WOULD BE? ";LEWD$ :"YOUR IDEA OF AROUSING YOUR MATE --" :(34);LEWD$;(34)::"IS INTERESTING...": THINK12000:THINKM "OR YOU COULD AROUS 6 IV/XIX/MCMLXXX @::] JAA$"HCNUL XIFRENNID KOOCSEHSID EHT HSAWBOJ A TEGYAWA OG"k TSEX(101) ^:10:13:" THE SEX TEST " hM13000:M: r936:"NEED INSTRUCTIONS? ";:HOT$ |(1101)6LOOK1 LOOK1HOT$"Y"İ950:410 ******************** 6 *** WARNING !!! ***Q *** SEX-ORIENTED ***i *** PROGRAM ! ***o  ORIG CONCEPT BY  PAUL RAYMER  PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121 " (C)1980 PEC/LAS VEGAS , d"n ********************=x * *X * THE SEX TEST *s * * * PAUL'S ELECTRIC * * COMPUTER * * * * LAS VEGAS NEVADA * * *       V$(A)G PROGRAM LENGTH IS 2348 BYTES. IF YOU DELETE LINE 740 YOU CAN REDUCE THE LENGTH BY AN ADDITIONAL 133 BYTES. (4);S$," ";V$7 Foundation on such Principles, and=m organizing its Powers in such Form, as toxV$" "  them shall seem most likely to effect(L(40)(41)256F their Safety and Happiness.dG(36)39A(LG)V$nyA181S$"BRUN":1020J Form of Government becomes destructiveS130 of these Ends, it is the Right of the8:384:V$:380 People to alter or to abolish it, and8V to institute new Government, laying its tV$,33)/ of Happiness--That to secure theseCA(N$)P42821r Rights, Governments are instituted among A180S$"RUN":1020* Men, deriving their just Powers from theHA188S$"RUN":1020f Consent of the Governed, that when a;:A$1  that all Men are created equal, that @ E(A$)60m  they are endowed by their Creator with} E5E23Ā : certain unalienable Rights, that among XE:1:1260 v these are Life, Liberty, and the PursuitN$(V$,2,1):V$(Disk":320) 61:13:"SOFTCORN DISK #1"U @ should declare the causes which impel[ Jy T them to the Separation. ^VV1 h We hold these Truths to be self-evident, (1101)6ĺ"Select A-";(VS);2);:A$:450 "SELECT A-";(VS);2)4/ the separate and equal Station to whichE "-";(VS);"->";r  the Laws of Nature and of Nature's Gody V  entitle them, a decent Respect to the "380 , Opinions of Mankind requires that they 1(1101)6Ģ1:14:"Softcorn s, it P42831:S188A becomes necessary for one People toU (4);"CATALOG" dissolve the Political Bonds which have 384 connected them with another, and to V5(37) assume among the Powers of the Earth,  V:EFORE ASSUMES THAT UNLESS OTHERWISE NOTIFIED IT IS OK TO USE MOST OF THE FOLLOWING MATERIAL. x FAVORABLE COMMENTS SHOULD BE ADRESSED TO PAUL RAYMER/3464 TOWNHOUSE DR/LAS VEGAS NEVADA/89121 }1560 :936 When in the Course of human Event d THIS PROGRAM HAS PARTS OF IT WHICH HAVE BEEN TAKEN FROM OTHER SOURCES. IN MANY CASES THE ORIGINAL AUTHOR(S) WERE NOT READILY AVAILABLE FOR THEIR APPROVAL.\ n ASSUMING THAT IN THE INTERESTS OF NATIONAL SECURITY THE PUBLISHER OF THIS PROGRAM THER 'M12000:Mt' '500,600&<(7(M12000:MY)"TYPE 'RUN 100' TO CONTINUE"fh)500,600OU PULL THAT UNDEFINED FUNCTION BIT ON ME."#S254ĺ"IT'S NOT THE HEAT -- IT'S THE STUPIDITY.LOOK AT THE DUMB RESPONSE TO THAT INPUT STATEMENT"#S255ĺ"YOU HAVE A BAD HABIT WITH THOSE HANDS OFYOURS. YOU TRIED A CONTROL-C INTERRUPT"#216,0 STRING IS JUST TOO DARN LONG."#S191ĺ"YOU'VE GOT AN IDEA, BUT IT HASN'T REACHED YOUR BRAIN. TRYING TO FOIST OFFA FORMULA TOO COMPLEX FOR ME. WELL!"+#S224ĺ"I COULD GROW TO DISLIKE YOU INTENSELY BUT I'M NOT EVEN GOING TO BOTHER AFTER Y YOU JUST TRIED TO DIVIDE BY ZERO"#S163ĺ"YOU ARE TRYING. REALLY TRYING. I THOUGHT EVERYONE KNEW A TYPE MISMATCH BY NOW"#S176ĺ"YOU CAN'T BE TWO-FACED OR YOU WOULDN'T BE WEARING THAT ONE. EGAD! HOW LONG- WINDED CAN YOU BE? THAT AT MOVE CLIMAXES A VERY DULL DAY FOR ME. JUST WHAT I NEEDED, ANOTHER DUMB SUBSCRIPT ERROR"#S120ĺ"YOU SHOULD GO A LONG WAY. THE SOONER THE BETTER IF YOU KEEP REDIMENSIONING ARRAYS LIKE THAT"$#S133ĺ"THINK! IT MAY BE AN NEW EXPERIENCE. W"{#S77ĺ"WHAT'S ON YOUR MIND? (IF YOU WILL FORGIVE THE OVERSTATEMENT) YOU ARE OUT OF MEMORY (AND MARBLES TOO)"#S90ĺ"WHY BE DIFFICULT WHEN WITH A LITTLE MOREEFFORT YOU COULD BE IMPOSSIBLE. THAT'S AN UNDEFINED STATEMENT."^#S107ĺ"THAN FIND IT IN YOUR HEART, HOW ABOUT ADDING MORE DATA? YOU'RE OUT OF IT NOW."n#S53ĺ"IF YOU COULD BE ARRESTED FOR DUMB YOU'D BE IN JAIL. THIS IS AN ILLEGAL QUANTITY"x#S69ĺ"GO JUMP IN THE LAKE AND PULL A WAVE OVERYOUR HEAD. THIS IS AN OVERFLO TRYING...VERY TRYING THIS IS A SYNTAX ERROR...AGAIN (HAVE YOU EVER THOUGHT OF LOOKING IN THE MANUAL?)"Z#S22ĺ"I DON'T FORGET FACES, BUT I'LL MAKE AN EXCEPTION IN YOUR CASE. DUMMY, YOU JUSTTRIED TO RETURN WITH A GOSUB"Pd#S42ĺ"IF YOU CHIS LINE NUMBER)) :"TYPE 'GOTO 400'"/ ": 9000E "10000K (#S 2#:` <#S(222) F#S0ĺ"I'M PLEASED TO SEE YOU'RE BACK, PARTICULARLY AFTER SEEING YOUR FACE... BUT YOU TRIED A NEXT WITHOUT A FOR..."qP#S16ĺ"YOU ARE CERTAINLY ------------------ 3 III/VII/MCMLXXXI9 Q A UTILITY PROGRAMn (TO END DUMB MISTAKES)t :"PRESENTING..." :" SMART.ASSM ": : "TYPE IN YOUR DUMB ANSWERS AS FOLLOWS:" : "500 (YOUR ENTRY ON T- ----\ ) IF YOU WISH TO ELIMINATE UNIMPORTANT PARTS OF THIS PROGRAM, TYPE "DEL 0,11000"f d:: n ------------------ x PAUL RAYMER (C)1981 PEC LAS VEGAS 3464 TOWNHOUSE DR LAS VEGAS NV 89121 "! " AN INTERACTIVE "> " AND INSTRUCTIONAL "[ " UTILITY PROGRAM "x !" FOR PROGRAMMERS " "" #" " $M13000:M:380::255:936 ( IMPORTANT NOTE -------- " "9 " CREATORS OF STRANGE "V " AND NOVEL PROGRAMS "s " IS PLEASED TO " " PRESENT ........ " " " " " " " " g  :: 33 "*************************"M X210:"*";23);"*"TXu"*************************"384:34,4:35,12:32,2:33,22:936100" PAUL'S "" ELECTRIC COMPUTER "" OF LAS VEGAS NEVADA "   LY,DELAYINGLY,HALTINGLY,DELIBERATELY,LEISURELY,WARMLY,EROTICALLY,SENSUALLY,ROMANTICALLY,CAREFULLY,PASSIONATELY,DELIGHTFULLY,HOTLY DEFTLY,BRISKLY,QUICKLY,SWIFTLY,METICULOUSLY,DUTIFULLY,PRURIENTLY,LASCIVIOUSLY,EASILY,DRIPPINGLY. DEHYDRATEDLY,DAMPLY,LEACHEROUSLY,LUSTFULLY,INTENTLY,CONSIDERATEOVOCATIVEd NOBLE,FLASHY,ATTRACTIVE,GOOD LOOKING,BRASH,FERTILE,SPLENDID,SUPERB,DARLING,INTREPID STATELY,FLAMBOYANT,OBEDIENT,PASSIVE,FRIGID,CALM,ENCHANTING,SATISFYING,AGREEABLE,RECKLESS X b ACTION DESCRIPTORSlSv RAPIDLY,SLOWLY,HEDONISTIC,WICKED,RAUNCHY,NAUGHTY BEDROOM,BOUDOIR,DRAWING ROOM,HALL CLOSET,HALLWAY,MASTER BEDROOM,BATHROOM,DEN,LIBRARY,FOYERpz GIRL DESCRIPTORS  ADORABLE,STRANGE,SENSUOUS,SEXY,GORGEOUS,TANTALIZING,DELIGHTFUL,CUTE,ADVENTUROUS,PRONCEALEDf PURPLE,MIRRORED,PRIVATE,ROSE-COLORED,FUR LINED,ARCANE,SENSUOUS,SEXY,MYSTERIOUS,ROMANTIC COLORFUL,PANELLED,SECLUDED,GAUDY,PRENTENTIOUS,ROCOCO,CARNAL,RISQUE,RIBALD,SALTY"SUMPTUOUS,CARPETED,FLAMBOYANT,GARISH,OSTENTATIOUS,OLDFASHIONEDPTORS S LOVELY,DELIGHTFUL,LARGE,TINY,PINK,GORGEOUS,DARK,QUIET,WARM,SECRET EXQUISITE,LUSH,ENORMOUS,ITTY-BITTY,ELEGANT,OPULENT,UNOBTRUSIVE,TAWDRY,CLANDESTINE,MYSTICAL ENCHANTING,DARLING,HUGE,TEENSY,LUXURIOUS,PLUSH,SIMPLE,BRAZEN,HIDDEN,CHURTIN' ":) T70L$"VERY TENDER ":B T60L$"TIRING ":c T50L$"THE INSATIABLE ": T40L$"THE SATYR ":& T30L$"THE EROTIC ":0 T20L$"BIG LOVER ":: T10L$"ROMANTIC ":D L$"FRIENDLY ": ROOM DESCRICE GIRL LIKE YOU DOING IN A PLACE LIKE THIS?"@Z12000:ZFL W AGER] g TT1 T100ĺ"THE DECEASED, ";N$;", DIED OF":"COMPLETE EXHAUSTION BUT HAD A BIG SMILE":"ON HIS FACE.": T90L$"RAPIDLY AGING ":  T80L$"1:30:F$"Y"ĺ"ROOM #";F;%21:jT99Ģ21:1::" WARNING! CONSIDER NEXT MOVE CAREFULLY ":"TRY ADVENTURE #";T1;:"? (Y/N) ";:Z$Z$"Y"750:"BYE, ";L$;Q$M12000:M1:6:868:N$/"WHAT IS A NI0(1))101B(PP(1))15 S$(A);(32);R$(B)H*A(GG(1))1\4B(30(1))71t>S$(B);(32);G$(A);H" IN THE"RA(30(1))1:FA\B(30(1))31:FF(B30)fC(10(1))61:FF(C60)pS$(A);(32);S$(B);(32);S$(C)zTO USE ";:N$#N$""N$Q$:710=:10::" ";N$;" ":_:"THAT'S IT? (Y/N)";:A$xA$"N"ė:N$Q$:650:"OK, ";N$;" LET'S ENTER THE "936:10:14:" SIN PALACE ":Z12000:Z9363000L$N$  A(3K...GREEDY, THAT'S ENOUGH!":Z12000:ZF:"UH...":Z11500:Z:N$;", ON SECOND THOUGHT, PERHAPS":"YOU MIGHT WANT TO USE A NICKNAME WHILE ON THIS ADVENTURE, JUST IN CASE THIS THING GETS IN THE PAPERS OR ON TV." "WHAT NAME DO YOU WANT PPP1: &Z 0"TYPE NAMES OF GIRLS YOU WOULD LIKE TO VISIT WITH IN THE SIN PALACE" ::"WHEN YOUR LIST IS ENDED JUST TYPE WITH NO NAME": DM125 N"GIRL #";M;:G$(M) XG$(M)""ī620 bM lGGM1:(vGG25ĺ"OLD LIKE TO DO IN THE SIN PALACE. KEEP ALL ACTIONS AS SINGLE WORDS, ALL IN THE PAST TENSE -- SUCH AS 'LOVED', 'KISSED' ETC."  "TYPE WITHOUT AN ENTRY TO STOP": P110 "ACTION #";P;:R$(P) R$(P)""PPP1:540 P S):S / "WHAT IS YOUR NAME? ";N$:Q$N$t :"I'M NOT TOO BRIGHT ABOUT NAMES.":"IS ";N$;" A BOY'S NAME ";| A$ (A$,1)"Y"1000  "WOULD YOU LIKE TO SEE THE ROOM ";::"NUMBERS";::"?";:F$:~ "TYPE NAMES OF THINGS YOU WOU AN EROTIC ORIGINAL BY( 6 PAUL RAYMERo @ PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121 J VIII/XVIII/MCMLXXX T THIS VERSION (V.7) ^ GREATLY ENHANCED h AND RECHARGED 8/30/81 r |S$(130),G$(25) S1130:S$( COMPUTER * "5 " * * "U " * LAS VEGAS NEVADA * "u " * * " " ********************** " " " Z13000:Z: 5:11:"MEN";: Z11000:Z " ,/d:::4Kn5x" "U" ********************** "u" * * "" * THE SIN * PALACE * "" * (FOR MEN ONLY) * "" * * "" * PAUL'S ELECTRIC * " " *             TOWNHOUSE DRIVE"0"LAS VEGAS, NEVADA 89121"6I&M12000:M:k if you are using a Z-80 card or a Radio Shack Computer.":480 :" PLEASE NOTE: "::"THIS PROGRAM MAY NOT WORK IF YOU ARE USING A Z-80 CARD" 550:550 X110:(10):X "PAUL RAYMER" "PAUL'S ELECTRIC COMPUTER""3464LAG1:220 r PR1ĺ"This program presented as a public service to apple //e owners everywhere.":460 "THIS PROGRAM PRESENTED AS A PUBLIC SERVICE TO APPLE OWNERS EVERYWHERE.":G PR1ĺ:"PLEASE NOTE:"::"This program may not wor J- T"TYPE ";Q$;"500 Z = 25 ^ 1234";Q$3 ^V h"...OR ANY OTHER DUMB STUFF." r:"USE LINES 500-600 AS NEEDED, BUT DON'T OVERDO IT" |:"TYPE ";Q$;"GOTO 400";Q$;" ...THAT'S IT!"  "NEED MORE INFORMATION? ";:A$  A$"Y"F 550:2 FLAG1ĺ"BUT HERE THEY ARE:"::280M "SO HERE THEY ARE:":q "TYPE ";Q$;"RUN SMART.ASSM";Q$ ""WATCH PATIENTLY AS VERY LONG TITLE IS BEAUTIFULLY DISPLAYED ON SCREEN":550 ,:"TYPE ";Q$;"500 X = 25 / 0";Q$ 6 @"...OR"20< "MY GOD! WHAT OTHER CHOICES DO YOU NEED? ":550:100B FLAG1ĺ"THIS PROGRAM IS ";::" STILL ";::" SO SIMPLE YOU SHOULD NOT NEED ANY INSTRUCTIONS.":250 "THIS PROGRAM IS SO SIMPLE, NO INSTRUCTIONS SHOULD BE REQUIRED." J d:: n(1101)6PR1-xQ$(34)YPR1ĺ"Is your printer on? ";:A$:150z"IS YOUR PRINTER ON? ";:A$A$"Y"200A$"N"190210"GOOD...PRINTER NOT REQUIRED":550:220 "SHUT IT OFF...NOT REQUIRED":550:2      N LATELY!"23<"IT'S ALL IN FUN! ENJOY!"9FBP255rZ"=== TO CONTINUE PRESS ANY KEY === ";:AN$xdn HAVE A HEADACHE? WHY NOT TAKE TWO ASPIRINS AND CALL YOUR DOCTOR IN THE MORNING? ==== YOUR FRIENDS TO""SAY""X (34);"WOW! LOOK AT THAT! HOW IMPRESSIVE!";(34)s:ZZZZZ11000:ZZZZZ"...OR NOT.":("BUT TRY IT AND SEE HOW CLOSE IT LOOKS TO THE MOST RECENT WRITTEN REPORT YOU RECEIVED FROM A PROFESSIONAL PERSODOCTORS";::" DO...IN THE PRIVACY OF YOUR OWN HOME OR OFFICE...AND WITHOUT ANY "w"MEDICAL EXPERIENCE OR EXPENSE."ZZZZZ13000:ZZZZZ:"...WRITE MEDICAL REPORTS IN GREAT DETAIL WHICH LOOK VERY IMPRESSIVE AND CAN VERY WELL CAUSE ALLEDS TO BE VALIDATED";:3"A FRIGID MISTRESS";:T"A CASEHARDENED PARTNER";:v"A SALUBRIOUS APOTHECARY";:"AN INNOCUOUS MEDICANT";:"AN OPULENT HOSPITAL STAFF";::100Q"YOU NOW HAVE A CHANCE TO ";::"DO";::" WHAT"::"IN THE READER'S DIGEST OR THE NATIONAL ENQUIRER";:``"A LOOPHOLE IN THE HIPPOCRATIC OATH";:j"A PRESCRIPTION OF TWO ASPIRINS";:t"A GOOD LOOKING RECEPTIONIST";:~"A SURGEON WITH HIS OWN TOOLS";:"A PATIENT'S PARKING TICKET WHICH NEHE DOCTOR MAY USE PSYCHOTHERAPEUTICS OR LEECHES TO RELIEVE THE SYMPTOMS OF";:k."A TICKLISH PATIENT";:8"AN UNSATISFACTORY WASSERMAN TEST";:B"THE FINAL SOLUTION (WHICH COULD WELL BE FORMALDEHYDE)";:L"A FEW DOLLARS";:3V"THE REPORT R HANDICAP THEN";:Q"THE PHARMACY MAY NOT PREPARE POTIONS PROFITABLY FOR";:"THE SUPPLY OF MORPHINE, BELLADONA, HASHISH AND BHANG MAY PROVE A DRUG ON THE MARKET FOR";:"THE USE OF A NOSTROM IS NOT SUGGESTED FOR THE TREATMENT OF";:N$"TRNIST RECOGNIZES THE ENIGMA IF THE ENEMA BACKS UP FOR";:"THE DOCTOR'S ACCOUNTANT WILL UNDERSTAND THE POSSIBILITY OF FINANCIAL GAIN FOR";:"THE DOCTOR SHOULD NOT PANIC WHEN HE REALIZES THE POTENTIAL FOR";:"THE SPECIALIST MAY HAVE A BETTEESULTS FOR";:Y"THE NURSE USUALLY DECIDES IF THE NEED FOR X-RAYS IS REQUIRED FOR";:"THE DOCTOR MAY INSIST UPON A MOST THOROUGH EXAMINATION OF";:"THE PRACTITIONER MUST CONCLUDE THAT FURTHER TREATMENT MAY BE REQUIRED FOR";:9"THE INTES MEDICAL INSURANCE IS IN EFFECT FOR";:s"THE PHYSICIAN MAY WISH TO PROJECT THE PROBABILITY OF SUCCESS FOR";:"THE DOCTOR MUST CONSIDER THE CAUSE OF PREGNACY AND/OR OTHER ACCIDENTS FOR";:"THE LAB MUST USE LITMUS PAPER TO INSURE ACCURATE Rf"AFTER THOROUGH INVESTIGATION";:Qp"UPON SUGGESTION BY A PSYCHOLOGIST";:z"AFTER STOPPING AT THE GOLDEN ARCHES";:"PRIOR TO SEEING THE PATIENT";:"REGARDLESS OF THE SYMPTOMS";:("THE BOOKKEEPER SHOULD UNDERSTAND THAT AS LONG AESTS ARE EXAMINED";:I4"WHEN SOUND MEDICAL PRACTICES ARE EMPLOYED";:r>"IF OTHER MEDICAL GROUPS CONCUR";:H"WITHOUT ANY CONSIDERATION OF THE COST";:R"AS A RESULT OF INTENSIVE RESEARCH";:\"ACCORDING TO PREVIOUS MEDICAL RECORDS";:%"IN OTHER WORDS";:1"IN SIMPLE TERMS";:Z"DURING RESEARCH IN THIS MATTER";: "AFTER A STUDY OF EFFECTIVE TREATMENT";:"WHEN EXAMININING SPECIFIC BODY FUNCTIONS";: "CONSIDERING THE VARIOUS ALTERNATIVES";:*"WHEN THE LAB T"HOWEVER";:#"SIMILARLY";:<"IN THIS REGARD";:d"ACCORDING TO MEDICAL RESEARCH";:z"FOR EXAMPLE";:"THUS";:"IN LAYMAN'S LANGUAGE";:"IN SIMILAR CASES";:"HENCE";:"THEREFORE";:"CONSEQUENTLY";:,1130,1140,1150,1160,1170,1180,1190,1200,1210D MDMD1:MDDR590V &(44);(32);f 0PLAY0430 :XRAY1PLAY250:XRAY D430 N", IN ANY CASE, THE DOCTOR IS ALWAYS RIGHT." X0 b l"IN PARTICULAR";: v"ON THE OTHER HAND";:20,730,740,750,760$ (44);(32);k VEGAS770,780,790,800,810,820,830,840,850,860,870,880,890,900,910| (44)(32); NEVADA920,930,940,950,960,970,980,990,1000,1010,1020,1030,1040,1050,1060 (32);- CLARK1070,1080,1090,1100,1110,1120PRINTER SLOT # (0=SCREEN)";MEDICARE1 MEDICAREg MEDICARE0ĺ(9)"80N": CENTRONICS 80 CHAR LINEr (10) LAS(15(1))1 VEGAS(15(1))1 NEVADA(15(1))1 CLARK(15(1))1 LAS620,630,640,650,660,670,680,690,700,710,7MLXXXI , (C) PEC LAS VEGAS$ 6. @936U J"NEED INSTRUCTIONS? (Y/N) ";:AN$h TAN$"Y"İ1220n ^ h"REPORT SPEED 1 TO 100 (1=FAST 100=SLOW) ";PLAY r"COMPLEXITY OF MEDICAL REPORT (1 TO 100)":"1=SIMPLE 100=COMPLEX ";DR |936# "VEGAS NEVADA * "1 " * * "Q " ********************** "q " "w ZZZZZ13000:ZZZZZ:   PAUL RAYMER  PAUL'S ELECTRIC COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121  " VI/XXV/MC d::n1x" "Q" ********************** "q" * * "" * PLAY DOCTOR * "" * * "" * PAUL'S ELECTRIC * "" * COMPUTER * " " * LAS              -  ::%(4);"RUN SYNEDOCHE"+ RDRYER--FIRST,SAY 'I LOVE YOU' -- OFTENt SIGN UP FOR A REMEDIAL READING CLASS AT A LOCAL ELEMENTARY SCHOOL! PLANT,DO A KIND DEED -- ANONYMOUSLY,SING HER A SONG ON THE PIANO,TAPE A CARTOON TO THE REFRIGERATOR DOOR' ADMIRE A SUNSET WITH SOMEONE,GET UP TO GREET THE SUNRISE--TOGETHER,LET HER READ HER FAVORITE PARTS OF THE NEWSPAPER--FIRST,LET HIM USE THE HAIRISE HIM WITH A SNACK,GIVE A FLOWER YOU PICKED YOURSELF,GIVE A FLOWER YOU GREW YOURSELF,PLAY CATCH WITH A LITTLE BOY,PLAY CATCH WITH A LITTLE GIRL,PASS ON SOME GOOD NEWS,ADOPT A STRAY CATi ADOPT A LOST DOG,SEND A FRIENDLY NOTE TO A COMPUTER,TALK TO AY CARD FOR YOUR MAILMAN CHANGE SOMEONE'S TYPEWRITER RIBBON,CUT THE GRASS,TELL A BEDTIME STORY,THREAD A NEEDLE FOR YOUR GRANDMOTHER,SHARE YOUR VITAMIN C'S,SHARE YOUR UMBRELLA,SHARE YOUR FAVORITE MOVIE,KEEP QUIET WHILE HE WATCHES THE GAME  SURPBE QUIET WHEN OTHERS ARE TRYING TO CONCENTRATE,SPREAD A LITTLE LAUGHTER AROUND INSPIRE A SAD PERSON WITH A POEM OR A PRAYER,BUY YOUR SPOUSE A TANK OF GAS,LEAVE A LOVENOTE ON SOMEONE'S WINDSHIELD,LEAVE A TIP FOR YOUR NEWSPAPER BOY,LEAVE A FUNNL SOMEONE WHEN HE'S DOING A GOOD JOB,TELL HER SHE'S LOST WEIGHT,TELL THE TRUTH,SAY 'PLEASE',SAY 'YES',SAY YOU WERE WRONG WHEN YOU WERE WRONGS SAY SOMEONE ELSE WAS RIGHT,HELP SOMEONE CHANGE A TIRE,HELP SOMEONE CHANGE THEIR OIL,DON'T ONLY THINK OF SEX,E BREAKFAST IN BED CLEAN YOUR ROOM,SHARE A DREAM,JOG WITH HER,PLAY GOLF WITH HIM,KEEP A SECRET,TRY TO UNDERSTAND THE KIDS,TRY TO UNDERSTAND YOUR PARENTS,SQUEEZE THE TOOTHPASTE TUBE FROM THE BOTTOM  LET SOMEONE ELSE AHEAD OF YOU IN LINE,TELRUDGE,TALK TO SOMEONE WHO'S LONELY,LOOK AT BOTH SIDES OF THE STORY RETURN A BOOK TO A FRIEND,LOAN A BOOK TO A FRIEND,TELL HIM HE'S WONDERFUL,TELL HER SHE'S BEAUTIFUL,TAKE SOME KIDS TO THE BEACH,TAKE THE FOLKS OUT TO DINNER,LAUGH AT AN OLD JOKE,SERVMPLIMENTARY LETTER,TELL THE MARKET MANAGER YOU LIKE HIS STORE,BUY THE WINE SHE LIKES,BUY THE CHEESE HE LIKESB SAY SOMETHING NICE - INSTEAD,SEND A 'CARE' PACKAGE TO A SHUT-IN,TAKE AN APPLE TO YOUR TEACHER,TAKE A FLOWER TO YOUR BOSS,FORGIVE AN OLD GNK THE COOK FOR DINNER,GIVE HIM/HER A SQUEEZE FOR DESSERT,DON'T DISCUSS POLITICS WITH YOUR MOTHER-IN-LAW,DON'T DISCUSS THE SUPERBOWL WITH YOUR FATHER-IN-LAWo TAKE YOUR MOTHER TO LUNCH,SMILE AT A METER MAID,SEND A COMPUTER MANUFACTURER A CO ON YOU HELP A FRIEND MOVE,HELP A FRIEND CLEAN OUT HIS GARAGE,MAKE THE COFFEE AT THE OFFICE,MAKE SOME COOKIES FOR THE GANG AT THE OFFICE,CLIP COUPONS FOR YOUR MOTHER,CLIP WANT-ADS FOR A JOB-HUNTING FRIEND WRITE A NICE LETTER TO THE EDITOR,THA HE LOOKS,SAY 'GOOD MORNING' EVEN IF IT ISN'T,DRIVE WITHIN THE 55 MPH SPEED LIMITv MAIL A LETTER TO YOUR GRANDMOTHER,CALL ON AN OLD FRIEND,WASH THE DISHES WHEN IT'S HER TURN,EMPTY THE TRASH WHEN IT'S HIS TURN,IGNORE A RUDE REMARK,LAUGH WHEN THE JOKE'SMEONE A PAT ON THE BACK,SAY 'THANK YOU',DON'T WAIT FOR A REASON TO GIVE SOMEONE A KISS,DON'T WAIT FOR A REASON TO GIVE SOMEONE A HUGQl WHISTLE WHEN YOU'RE FEELING DOWN,RUB HIS/HER SORE BACK,TELL HER HOW NICE SHE LOOKS,TELL HIM HOW NICE"WHAT NUMBER? (1-102) ";X:X102X103C 384:Z123:40):ZN 2:B$Z 22:B$b 50j &11x 02:G$(X) :(7) D N23:255:868:"ANOTHER? (Y/N) ";:Z$:Z$"Y"490 X:: b SMILE,GIVE SOMEONE A SHOULDER TO LEAN ON,GIVE SO*******************************"& 8  PAUL RAYMERN  XI/XXIX/MCMLXXX`  (C)1980 PECx  3464 TOWNHOUSE DR  LAS VEGAS NV 89121  G$(103) I1103:G$(I):I 3::" 102 WONDERFUL IDEAS... ": M12000:M :3( UL IDEAS";(34);" "1 ," "N 6" 102 IDEAS FOR "k @" MATURE CONSENTING " J" ADULTS " T" ^" " hM13000:M:380::255:936 r:: |B$"******** " "9 " CREATORS OF STRANGE "V " AND NOVEL PROGRAMS "s " IS PLEASED TO " " PRESENT ........ " " " " " " " "" ";(34);"WONDERFu d::n33x"*************************"MX210:"*";23);"*"TXu"*************************"384:34,4:35,12:32,2:33,22:936100" PAUL'S ELECTRIC "" COMPUTER OF "" LAS VEGAS NEVADA "           =======================. 'B'5:1:"LOADING APPLE II+ VERSION...STAND BY"['(4);"RUN L.U.S.T." ======================= AN ORIGINAL CONCEPT BY PAUL RAYMER XI/III/MCMLXXX (C)1980/PEC LAS VEGAS (C)1982/VERSION II 3464 TOWNHOUSE DR LAS VEGAS NV 89121 AR. THANK YOU. (L)(U)(S)(T) IS BASED ON EROTIC STUDIES MADE IN THE PARKING LOT OF ONE OF OUR COUNTRY'S LEADING UNIVERSITIES.  IT USES THE (L)ET'S (U)SE (S)ENSUAL (T)ERMS PLOY WHICH HELPS SELL MANY PROGRAMS LIKE THIS=! "'@H3H$"W-O-N-D-E-R-F-U-L-! "HJH4H$"T%E%R%R%I%F%I%C%! "sTH5H$"U.N.B.E.L.I.E.V.E.A.B.L.E.! "^H6H$"D+E+L+I+G+H+T+F+U+L+! "hH7H$"GGG RRR EEE AAA TTT !!! "r| YOU ARE VERY NICE TO READ THE LISTING THIS FST$"Sexy"&(Q$)20ST$"Erotic"@(Q$)25ST$"Horny"FUX1(H$)kF$(H$,X,1):F$;M1250:M:X:: ** CLOSING TAG LINE "H(7(1))1,H1H$"F~A~N~T~A~S~T~I~C~! "6H2H$"R=E=M=A=R=K=A=B=L=EJ$(N$,X,1)<(J$)32RX&FX1PNN$N$7Z:Rd ** SURNAME USED? Xn:pxJJ$(N$,((N$)R)){N$JJ$:: ** DEGREE OF LUST :ST$"(?)"(Q$)5ST$"Emotional"(Q$)10ST$"Sensuous" (Q$)15ve a headache","Hey! That's really neat!"h "I think you need help","Is that all you can think of?" "Don't you think that too wierd?","Well--if you want to--I guess we may as well" : *** HOW MANY NAMES? *** :(X1(N$) 2dding?","Thank you--I needed that","You are really good!","Is that legal?","Can one get pregnant doing this?","Oops sorry"* "This sure beats jogging","Oh! How nice that is!","Will I enjoy it as much as you?","Can I take a rain check?","Sorry but I ha,"Don't hurt now","It's my first time","When do I get to do it","Isn't this great" "Wow","I never knew it would be like this","Whew!!!!!","Take it easy","Slowly now","Not yet please","Good Gracious this is fun","Ouch","That's it?"z "Are you ki1):B$"Yes, "TT$", "SX$" "BB$hTT$"MISS"TT$"MS."TT$"Miss"TT$"Ms."B$"Yes, "TT$" "BB$uN$" ":B$"Of course, "SX$" ":B$"Without a doubt, "TT$" ":N$"":Z$", ":B$"Absolutely, "SX$" ":R "Please be gentle", ";TT$;".":1160`~"It is always thrilling working closely with a woman like you, ";TT$;".":"More? (Y/N)";(8)(8)(8)(8);:A$:A$"N"A$"n"ė:RR10:R0:450:"Thanks for coming, ";NN$:B$"Yes, "TT$", "SX$" ":"BB$(N$,000:M::* *** BE KIND NOW 0:L$"As usual -- ";NN$;","R.i8"you are ";:1530qB:LM12000:MV:` ** GRATEFUL GOODBYE ** j:tTT$"SIR"TT$"Sir"ĺ"It is always a pleasure working under a man like you" :, *** ADD ! IF NEEDED 2:O(Q$,1)(64)Q$Q$"!"(Q$)2ĺ"is that you are sure easy to satisfy! ~~~~":1000(34);Q$;(34)"is ";(34);Y$(A);(34);Z$:NN$255M12:Q$1430::  *** POLITE RESPONSE @:S A(30(1))1e*B(5(1))1k4:> *** VARY RESPONSE H:RB1180,1190,1220,1230,1240\50fB$;N$;"--"pz"My only comment to your"ST$;" desire... {S} {T} ?":255G20:" = Press Space Bar to start program = ";:A$Q936v"What is your name? ";N$:NA$N$1320:"Thank you for answering so promptly,"TT$;".":"What erotic event do you wish to occur?"TT$;" ";"MS."SX$"MS"SX$"Ms"SX$"Ms."TT$"Ms."` DSX$"MR"SX$"MR."SX$"Mr"SX$"Mr."TT$"Sir"f Nl X: b *** GREETING l *** DEPENDS ON GENDER v *** OF PLAYER :10:"Yes ";TT$;", are you ready for "::50:"{L} {U}/ 'MISS' / 'MRS' / 'MS' ";SX$> RR10(SX$)0ė:460Q HH1:H7H1[ 1580v (SX$)0SX$AX$:540 550 RR10N$NA$:690 &SX$"MISS"SX$"Miss"TT$"Miss" 0SX$"MRS"SX$"MRS."SX$"Mrs"SX$"Mrs."TT$"M'am"+ :SX$(30) X130 Y$(X)" X( :F  ** PLAYER'S SEX, IF ANYL : RR10ĺ"{If you wish same name as before merely press [RETURN]}": RR:L$: RR10:1:L$# RR2:ZZ$NN$:AX$SX$:"How do you prefer to be addressed 'MR' " "4 "" "Q ," L.U.S.T. "n 6" " @" J" " TM13000:M::255:936 ^Z$",":RR5 hX140:L$L$"%":X r1560 |Y$aul's Electric "/ " Computer "L " of Las Vegas Nevada "i " " " Creators of Strange " " and novel programs " " is pleased to " " present......... " " " d:::5K%i(1101)69999In:X126:Y140:" ";:Y:X:Px3t2:"*************************"X210:2:"*";23);"*"X2:"*************************"384:34,4:35,12:32,3:33,22:936100 " P           RMS PLOY WHICH HELPS SELL MANY PROGRAMS LIKE THIS. @ ======================= AN ORIGINAL CONCEPT BY PAUL RAYMER XI/III/MCMLXXX (C)1980/PEC LAS VEGAS (C)1982/VERSION II 3464 TOWNHOUSE DR LAS VEGAS NV 89121 =======================E YOU ARE VERY NICE TO READ THE LISTING THIS FAR. THANK YOU.K (L)(U)(S)(T) IS BASED ON EROTIC STUDIES MADE IN THE PARKING LOT OF ONE OF OUR COUNTRY'S LEADING UNIVERSITIES. : IT USES THE (L)ET'S (U)SE (S)ENSUAL (T)EF*A*N*T*A*S*T*I*C*! ":6H2H$"R=E=M=A=R=K=A=B=L=E=! "]@H3H$"W-O-N-D-E-R-F-U-L-! "~JH4H$"T%E%R%R%I%F%I%C%! "TH5H$"U.N.B.E.L.I.E.V.E.A.B.L.E.! "^H6H$"D+E+L+I+G+H+T+F+U+L+! "hH7H$"GGG RRR EEE AAA TTT !!! "r|"EMOTIONAL"((Q$)10ST$"SENSUOUS"A(Q$)15ST$"SEXY"\(Q$)20ST$"EROTIC"v(Q$)25ST$"HORNY"|X1(H$)F$(H$,X,1):F$;M1250:M:X:: ** CLOSING TAG LINE "H(7(1))1,H1H$" *** HOW MANY NAMES? *** #:2(X1(N$)C2J$(N$,X,1)U<(J$)32RX\FXgPNN$N$mZ:d ** SURNAME USED? n:xJJ$(N$,((N$)R))N$JJ$:: ** DEGREE OF LUST :ST$"(?)" (Q$)5ST$LL I ENJOY IT AS MUCH AS YOU?,CAN I TAKE A RAIN CHECK?,SORRY BUT I HAVE A HEADACHE,HEY! THAT'S REALLY NEAT!,I THINK YOU NEED HELP,IS THAT ALL YOU CAN THINK OF?  DON'T YOU THINK THAT TOO WIERD?,WELL--IF YOU WANT TO--I GUESS WE MAY AS WELL  :ASY,SLOWLY NOW,NOT YET PLEASE,GOOD GRACIOUS THIS IS FUN,OUCH,THAT'S IT? ARE YOU KIDDING?,THANK YOU--I NEEDED THAT,YOU ARE REALLY GOOD!,IS THIS LEGAL?,CAN ONE GET PREGNANT DOING THIS?,OOPS,SORRY THIS SURE BEATS JOGGING,OH! HOW NICE THAT IS!,WIURSE, "SX$" ":DB$"WITHOUT A DOUBT, "TT$" ":N$"":Z$", ":dB$"ABSOLUTELY, "SX$" ":G PLEASE BE GENTLE,DON'T HURT NOW,IT'S MY FIRST TIME,WHEN DO I GET TO DO IT,ISN'T THIS GREAT,WOW,I NEVER KNEW IT WOULD BE LIKE THIS,WHEW!!!!!,TAKE IT E:"MORE? (Y/N)";(8)(8)(8)(8);:A$:A$"N"ė:RR10:R0:450b:"THANKS FOR COMING, ";NN$:B$"YES, "TT$", "SX$" ":BB$(N$,1):B$"YES, "TT$", "SX$" "BB$TT$"MISS"TT$"MS."B$"YES, "TT$" "BB$N$" ":B$"OF CO ARE ";:1530B:&LM12000:M,V:N` ** GRATEFUL GOODBYE ** Tj:tTT$"SIR"ĺ"IT IS ALWAYS A PLEASURE WORKING UNDER A MAN LIKE YOU, ";TT$;".":1160~"IT IS ALWAYS THRILLING WORKING CLOSELY WITH A WOMAN LIKE YOU, ";TT$;"."?ĺ"IS THAT YOU ARE SURE EASY TO SATISFY! ====":1000_(34);Q$;(34)e"IS ";(34);Y$(A);(34);Z$:NN$255M12000:M:: *** BE KIND NOW :$"AS USUAL -- ";NN$;",". 8"YOU5(1))14:,> *** VARY RESPONSE 2H:RRB1180,1190,1220,1230,1240Z\50jfB$;N$;"--"ppz"MY ONLY COMMENT TO YOUR"ST$;" DESIRE...": *** ADD ! IF NEEDED :(Q$,1)(64)Q$Q$"!"K(Q$)2 IS YOUR NAME? ";N$:NA$N$$1320R:"THANK YOU FOR ANSWERING SO PROMPTLY,"_TT$;"."e:"WHAT EROTIC EVENT DO YOU WISH TO OCCUR?"TT$;" ";:Q$1430:  *** POLITE RESPONSE : A(30(1))1 *B(SIR" N X:' b *** GREETING I l *** DEPENDS ON GENDER c v *** OF PLAYER i : 10:"YES ";TT$;", ARE YOU READY FOR "::50:"(L) (U) (S) (T) ?":255 20:" = PRESS SPACE BAR TO START PROGRAM = ";:A$ 936"WHAT 'MS' ";SX$( RR10(SX$)0ė:460; HH1:H7H1E 1580` (SX$)0SX$AX$:540i 550 RR10N$NA$:690 &SX$"MISS"TT$"MISS" 0SX$"MRS"SX$"MRS."TT$"M'AM" :SX$"MS."SX$"MS"TT$"MS." DSX$"MR"SX$"MR."TT$"Y$(X) X :0  ** PLAYER'S SEX, IF ANY6 : RR10ĺ"(IF YOU WISH SAME NAME AS BEFORE MERELY PRESS )": RR:L$: RR10:1:L$ RR2:ZZ$NN$:AX$SX$:"HOW DO YOU PREFER TO BE ADDRESSED 'MR' / 'MISS' / 'MRS' /" "5 ," L.U.S.T. "R 6" "n @" J" " TM13000:M:380::255:936 ^Z$",":RR5 hX140:L$L$"%":X r1560 |Y$(30) X130  COMPUTER "0 " OF LAS VEGAS NEVADA "M " "j " CREATORS OF STRANGE " " AND NOVEL PROGRAMS " " IS PLEASED TO " " PRESENT......... " " " " " "d:::5K3n:X126:Y140:" ";:Y:X::x3^2:"*************************"{X210:2:"*";23);"*"X2:"*************************"384:34,4:35,12:32,3:33,22:936100" PAUL'S ELECTRIC " "       (1101)622A 10:"YOU ARE THE PROUD OWNER OF AN APPLE"l :"WITH A ";::MEM"K";::" MEMORY!"w 23:1 255  10:"You are the proud owner of an apple //e" :"with a ";::" 64K ";::" memory!" 19 :: ' COMPLIMENTS OF> THE ENGINEERING M STAFF OFc PAUL'S ELECTRICr COMPUTER 3464 TOWNHOUSE DR LAS VEGAS NV 89121  MEM((978)35)4 "HOW BIG IS IT?" M12000:M50936:1184  :: PLACES CURSOR AT BOTTOM OF SCREEN FOR NEATNESS!SCREEN LINE IS FILLED ONCE.]R1X1: TO DETERMINE REPEAT TIMES. lI1(B$)s8C$(B$,I,(B$)1)(B$,1,I1)(C$,40)Z1(10(1).5):PP(Q):W130:W:ZK1LG:KIR423:1140(B$):B$B$".":Jv h LINES 59-62 PRINTING MESSAGE STARTING WITH MESSAGES ENTERING FROM RIGHT SIDE OF SCREEN. rI140:8:41I:(B$,I);" ":K1LG:K |Z1(10(1).5):PP(Q):W130:W:Z I LINES 90-160 PRINT MESSAGE AFTER ILL APPEAR W " NEXT LINE PUTS SOLID WHITE BAR ON SCREEN TO SIMULATE TICKER TAPE| ,L140:J79:J:L:" ";:J:L 6 LINES 52-55 PREPARING MESSAGE IN TWO CASES:LENGTH> OR <=40 @(B$)40B1 J(B$)40ī350 TB$B$".....":370 ^JERS+ J12:J42:I140:"=";:I::JV MESSAGE TO TICKER TAPE IS STRING B$ 12::"(KEEP IT CLEAN)"::M11500: 12:"WHAT IS YOUR MESSAGE? ";B$ "HOW MANY TIMES SHALL IT REPEAT? ";X 12:958: CLEARS SCREEN SO ONLY MESSAGE W LAS VEGAS NV 89121 < LG1: DELAY BETWEEN LETTERS B0: INDICATOR SET LATER AS 1 IF MESSAGE IS >40 LETTERS ELSE B=0 Q16336::: Q IS SPEAKER LINES 61 AND 146 ARE RANDOM CLICKS TO SIMULATE SOUND OF TICKER TAPE PRINTING BORDP$:I1(P$):"-";:::"RUN NUMBER:";N::"(STAND BY...)"t (4);"UNLOCK ";P$:(4);"SAVE ";P$:(4);"LOCK ";P$  APPEND PROGRAM HERE... d FROM CHUCK CARPENTER'S APPLE CART n x UPDATED BY PAUL RAYMER 3464 TOWNHOUSE DR 5 11:NUMBER0005/ P$"FREE PROGRAM #2" L(103)(104)25616:N(L3)10(L2)100(L1)1000(L)1:NN53328:N9999N0 L3,48N(N10)10:L2,48((N(N100)100)10):L1,48((N(N1000)1000)100):L,48(N1000); :22:  BY LETTER...";:A$:! : QUICKIE VEGAS QUIZO BY DON DIGILIOh L.V. VALLEY TIMES  FREELY ADAPTED BY  PAUL RAYMER USTED HELP CAN BE OBTAINED FROM:"(XEb5:"A) CASINO PIT BOSS"fl5:"B) CHAMBER OF COMMERCE"v5:"C) NEVADA HOTEL ASSOCIATION"680:A$(13)TT1M11000:M"YOUR SCORE IS ";(10T)10;"%."M11000:M:15:"SELECT EN'S MUD WRESTLING"* 680:A$"C"TT1g "ONE OF THE HARDEST THINGS TO HIT IN LAS VEGAS IS:"m  &5:"A) TWO TRAFFIC LIGHTS IN A ROW" 05:"B) $50,000 BINGO CARD" :5:"C) $1,000,000 JACKPOT" D680:A$"A"TT1"N"IF YOU ARE B DINNER FOR TWO AT THE PALACE COURT"K 5:"C) THE CRIME RATE"b 680:A$"B"TT1 "ONE OF THE FOLLOWING ISN'T EXPECTED TO CAPTURE LAS VEGAS' IMAGINATION:"  5:"A) A FRENCH REVUE" 5:"B) A SUNDAY BUFFET" 5:"C) WOM NOT FIT INTO 'GREATESTFIGHTS OF THE CENTURY':"5 hQ r5:"A) HOLMES-BERBICK"j |5:"B) ALI-FRAZIER" 5:"C) MARCIANO-MOORE" 680:A$"A"TT1 "ONE OF THE HIGHEST THINGS IN LAS VEGAS IS:"  5:"A) THE HILTON HOTEL"/ 5:"B)TT1o ""ONE OF THE FOLLOWING DOES NOT FIGURE PROMINENTLY IN THE PULITZER PRIZE PICTURE THIS YEAR:"u , 65:"A) NEW YORK TIMES" @5:"B) NATIONAL ENQUIRER" J5:"C) WALL STREET JOURNAL" T680:A$"B"TT1/ ^"ONE OF THESE WILL5:"A) DALLAS"+ 5:"B) BILL COSBY SHOW"N 5:"C) THE DICK MAURICE SHOW"e 680:A$"C"TT1 "THE TOUGHEST PLACE TO DISCUS DEMOCRACY IS:" 5:"A) RUSSIA" 5:"B) IRAN" 5:"C) LAS VEGAS CULINARY UNION HALL" 680:A$"C"ě d::>n"THE EASIEST THING TO FIND IN LAS VEGAS IS:"DxW5:"A) A BUS"w5:"B) A QUIET LOUNGE ACT"5:"C) HOOKERS"680:A$"C"TT1"NOT EXPECTED TO PLAY A MAJOR ROLE IN THE NIELSON TV RATINGS THIS YEAR:"     -  ::%(4);"RUN SYNEDOCHE"+ z#    ٽ١ ب Ҡ ٠Ҡ ӯӠ ΠŠ Ԯ͠ Š ŠؠԠà Š͠ Š͠  Կ̮ծӮԮԯŠ ŠȠϠ