@L `}/j5  $% l0?$)$$Hȱ$ ShL$ `e$$%` h?/ `  !I PR@1 YL I`! S S) H$ЙH 0}Џ$%`@ $% CC$$%e%dU$% ]0%$% DDmLp   % J)Lz J  (( o L (y/)  [L< ( yL Z 0o Tya y }4IB [y32C/10m?4 V V  wLL a ` V y/})23LzA! ߰")-݈ y" $zzG@LL 08` k")};1k0 -G$Ș݈ SL! 9 y8(()(0˥)Nk`$GȘ݈LS )L ݈ L GzȘ} ݈LL )W>Z   HH)H o h  yhy00hy11/ V  }L> L JJaHJJJh) yLT J u (`  IBLH % 6h HHGH`LdJ })LJJLw!,"!,/@F  L! ! 0E^  }^ E E7EȩEdE/EȩE / ! Vΐ )L   mx n wym }?x7x?4 ( ) w y32 R V LL n w ) V  L y / o   }E` , ny/) / V Ly/) 0BM݌L݋ ML  N݈ L }NLML [ fEqEHȱEqEh 3Gȹ G KLL GzɛL  L}FREE SECTORSy /H) *Gȩ GȽ4G GȌyh%*J >G<-+=!*?%% &%z3%$$HEL{*DIR*LOC.CLR.LOA-VER%INI+UNL.FMS.SAV,MODg%CARR*REN?,FME.H"}EAP)BAC_%BONo1DEL.FMD.SUM(RUNm*BOF|1COP3&FMQ.TYP.)EXE$ 1Y5P" O."8""@R'S15%#}0i5i5501ȊԢx5"JFJPWy"HH *5")IAY54 4> 4,0$}L#N #L|*J #L*J #14"4`J # 1Lk*v} 4 *%H$H`)?4 $ 4 #$0 %} 2 4 $ y$, L$LL-19" !"H "H` $ $Ѻ Ѻ걺 2ȱ 4ɛL"ȱH&}H 2e滠滱 u2`> 8e滐`+"`e` y$ 2" 2Execute: W. /p O. '}/ 1L"*ԆՎ l$ 2 \*L#L)4 % HJJJJ 3. 4h 3 3XFHSEX; 4L4(}"݅pq y$ 2ݹp` %ݱp 3`,5 2`N5 l$ /0 / 1 l$L$$8n" }$ 2pq y$I eppq> )}4pq 3 3p,"0 ' 4 3L& 3`p8pqŠ 2ݑpȥpȄ(` /5D . 5 - #( l*}$ / #(莉5 2Reading: . .ii e֥iש 0( . `1,P3 1S / / 1&+}& 5$?♵5 -8tu E( rȥs(0 O. .Еߥ .8 ' 0( 2Writing: rȱsr* / /,} ,` / 1rs8 E($0 O. . .C .L'5  e . 'Lx&,5PJC`,50 2I-}nsert ( 2sourceL' 2destination 2 & hit key ! #ڭ ҍ5L25`5օtׅu` S2tu /.} 1HrettIseuu(` (x / / O.L1`$0'5 / S2 1XY O./}8` W.r n( (errstuvw 2LEN: vw 3u 3 2 SUM: st 3rL3 W.$0 * n( ( 4LB)0}N` W.ʆ n( ($0,F (!$0բ 2No COM-File !LO. (8ԨՐυلإ5 * 1}2# 2RUN: E* 3 2INIT: E*L^) * 3 2. ԥ 3- 4֥ 3 2 LEN:إ 3 (L)إL^) 2}( ( 3L3 1 y$T 4T l y$l 2l *" 4 3 * $ $ 4 2 *ݥURL4` 3}, /$0"I" 1 n+,"0e+Di5Ei Q2 1 2 V/8," 24}LV+ԩ 3: 4 4I 4L+ 2D5:1 4 2: $;0+ 2SINGLE 2 DENSITY 2 RAMDISKL* 2ENH5}ANCEDp 2DOUBLE 2QUAD }/5,5$ 1 O.$0 `DOS.SYS8f5ȩU5ȩP5婿t"Y56}L, / - l$ / /X,L. /,55 5.5 橛5L/LL$ }/ l$ 2 2刄t( 287}$, 2RUN : y-ft 2INIT: y-ft 1 -$tP`$tPF$6ee8}ȄԄՠ$0֩ /$0 q- /8ਥi S2 L15 4ɛ 2` y$ 2 " 2Load: W.9} /$莞 1 -5 lL"0L2`")i"` 1 . / Q2 1'  Q2 1٠:}0 V/ .L.L2 BLVhihi / -i(i( -8((((.. . `1 1 - .;}`5  e`,,,,"H 0hZ,!,#,$/ /$0 $0ZL/ -/L. / /!L11/2/5<} 5 H.5h5ک5`5c/d/ 5? $08`$0`45 [2519 5=}55 /$05455 /5ED` *50 4`5008f [2R0/@ 2.>}/ȱ 280@0  eiȱ/\FȢɛ  o- *  D.8;+"/+ȱ0"?}LL$V ȱ+F/ڊ u2 80 ? 00 0/+$0Wy`5 ` 2Sure ? 1Q`$O 2es, @}o or bort? 81YN 4(` 'ɛ)YN A 2AL"` * 4 `)  ӆiA}j O.+ /  /$0Ș,J, 1B V0`1 O.:>ݩ,".U * 2 is locked !Unlock file? 1ݐ`B}$ 1УԢ5 )p O. * * 2# 4 3L"IH`:;:` ,ɛ`` u2` *C}hihi 4eiHH` ," 4 2 8`0:` 3` 2iԥiդ o$ԥ(`LL$ 2ԍ2Ս2D}Ԇՠ+22ȱ.6'`0#: AG6  &&`8`芄  (` }$ 2 2 3 E}2=' 38nɛL4ԥ 3 2=.݆ކ&բuݕت 3ߊ, 3HJJJJ 3h) 0:i,  F}4,500 BHI V,L2,"p:ɛUR.* t4 t4^ 81 t4( $x0Nhh`S8R^`倈G}HH`p@BDE-HI V0H-` O. 4L2L"ȱ 4ɛ`D1:*.*pB 5H}0#452"/ $/38%by("arth&"ruchhaeuserc -2eitershan#omputertechnikI"L2L"ȱ 4ɛ`D1:*.*pB 5[I) !"`3!3AA270,60,4,263,61,259,61,248,58,243,58,265,62,2,258,63,249,61@FF242k},62,8,237,63,228,61,220,56,210,51,208,51,205,52,202,56,200,60BFF240,62,8,237,63,228,61,220,56,210,51,208,51,205,52,202,56,l}200,60D??243,65,7,236,66,232,66,223,63,217,58,213,55,211,55,209,56FXX207,55,2,203,58,200,63,213,59,3,210,58,206,60,201,m}66,232,69,3,229,69,220,66,213,61HQQ213,64,3,211,63,206,65,204,68,214,68,2,210,68,206,72,219,72,2,215,70,213,71JQQ238,70n},3,230,72,228,72,220,70,235,73,2,230,76,222,78,215,73,2,207,75,201,82LQQ222,74,3,214,75,210,77,208,78,216,78,2,213,78,204,o}82,212,80,2,210,88,206,94NQQ215,81,3,213,88,210,94,206,96,219,85,2,216,92,212,96,238,74,2,228,79,221,84Pee220,88,3,215,p}100,214,106,215,110,239,77,4,230,82,222,90,219,100,218,109,238,79,2,228,88,222,102RNN239,91,2,232,98,229,106,226,99,2,224,q}104,223,106,227,101,2,226,97,226,99TKK245,65,8,241,74,240,80,239,90,237,100,232,106,220,115,216,120,213,125VSS248,66,5,r}244,74,243,90,240,100,231,110,223,117,251,69,3,249,76,247,90,242,104XPP240,107,5,234,113,221,120,212,125,207,129,205,133,2s}50,90,2,247,100,242,108ZTT255,68,9,251,82,252,94,251,100,246,108,240,114,232,119,220,124,210,129,206,133\99212,128,2,21t}2,133,215,126,227,121,2,224,128,232,119^ii254,90,2,255,94,253,101,259,90,2,257,96,256,104,252,105,2,249,112,242,119,248,11u}5,2,245,118,242,121```254,108,3,252,114,246,120,240,123,261,93,6,259,100,258,105,260,111,265,114,270,115,272,115bPP264,v}94,3,262,100,262,103,264,110,265,100,4,265,104,267,109,269,111,272,112dWW269,94,3,268,99,268,101,270,106,271,96,2,271,100,w}273,110,281,90,2,278,100,276,107fYY292,82,3,284,96,280,100,277,106,260,114,2,252,120,248,126,257,119,2,254,121,250,125h[x}[262,116,2,258,122,256,126,262,121,2,260,123,257,125,264,117,3,262,121,261,127,263,133jQQ266,120,3,265,126,266,132,269,13y}8,269,117,4,268,123,268,125,270,132,274,138lgg289,95,5,284,102,278,110,273,118,271,121,271,125,290,98,5,284,106,276,118,27z}4,124,274,126,278,138nii286,107,4,280,116,277,124,277,126,278,130,292,103,6,289,107,283,116,281,122,280,106,280,110,282,11{}6pll299,69,3,299,72,293,87,291,95,292,98,8,292,102,294,110,298,116,310,130,312,134,313,138,311,140,308,141rll300,65,6,3|}01,69,301,71,297,84,297,88,310,112,315,121,294,97,2,295,102,298,107,295,93,2,300,103,307,112tII297,109,2,302,114,308,124,3}}01,109,4,316,134,317,137,316,139,313,141vHH303,60,3,304,64,304,66,301,73,304,59,4,307,63,307,65,304,72,300,78x\\302,58,~}4,305,57,306,57,307,59,307,60,298,116,5,297,120,294,126,295,131,297,126,301,120z``303,123,4,302,129,297,126,303,122,306,12}6,305,132,2,305,137,308,130,238,84,2,232,91,229,97!!*** UPPER TORSO OUTLINE ***G"-@"!,%"3-}@9"?/C G 15mm229,60,16,225,54,218,46,214,44,210,44,200,46,180,55,160,67,134,87,133,89,133,91,14}0,111,151,129,160,14544168,154,172,156,176,155,200,70,2,179,80,158,95ff156,88,11,158,95,160,108,162,117,167,129,172,1}38,174,140,176,141,180,142,186,143,196,147,203,152[[183,145,2,193,149,200,153,180,147,2,190,151,196,155,175,150,3,180,152},187,155,191,158[[180,152,3,184,158,182,159,176,155,180,142,2,197,141,197,141,159,144,2,146,145,146,145gg134,87,3,125},82,118,80,104,80,281,122,3,284,122,287,123,290,125,294,134,3,290,125,290,120,289,108cc171,86,11,170,90,170,92,172,96,174},100,180,107,187,110,192,111,199,109,204,106,207,102,210,97hh194,126,11,193,130,193,132,194,136,197,141,202,143,211,143,2}20,139,228,134,234,128,238,120,242,114141,116,2,141,117,142,118 A!!*** LOWER TORSO OUTLINE *** #A}G"-@"!,%"3-@9"?/C G 9kk105,83,20,96,60,88,40,85,34,82,30,78,2}6,74,24,68,22,65,22,60,24,56,28,49,40,40,60,35,80,31,100,28,120''25,136,24,140,22,146,20,149,0,171ff70,60,13,71,65,71},68,69,80,61,100,50,120,42,138,41,140,40,154,39,160,38,161,29,168,25,172,19,186GG100,130,7,106,129,110,129,116,130,125,13}3,140,142,160,154,174,163__140,165,11,120,163,100,165,62,168,58,167,54,164,47,162,42,162,38,164,32,169,28,172,25,173UU}63,97,10,65,112,67,119,70,126,74,130,74,140,75,143,77,147,82,152,94,162,100,165ii72,116,4,77,118,81,118,86,117,91,114,10}2,100,2,104,96,105,92,32,157,2,34,154,35,150,46,168,2,49,167 54,168 AX*** ERASE BIKINI ***Z-@}A \  A] @#A^G"-@"!,%"3-@9"?/C }G _4`XX184,92,3,185,90,190,88,192,88,195,90,2,196,92,194,96,191,97,3,188,97,186,96,185,94bGG212,142,7,211,140,2}11,138,215,136,218,135,220,135,222,136,222,138dS6-A6-@),%@7,&@E,%@S,&@}fS6-A6-A9),%@7,&@E,%@S,&@-@A  } A @#AW A%-@AP % @5*** BIKINI BRA *** #A}G"-@"!,%"3-@9"?/C G 3YY176,82,4,182,82,190,80,202,76,210,72,188,110},5,190,108,192,104,196,92,200,83,210,72hh185,109,11,190,118,194,126,197,129,203,131,210,132,214,132,220,131,228,127,232,1}24,237,117,234,108'-@@"#,' 22188,90,187,89,188,92,216,138,217,137,218,138$*** BI}KINI PANTY *** #AG"-@"!,%"3-@9"?/C G 5kk106,80,2,107,8}8,107,94,107,94,4,114,109,120,120,128,132,134,137,107,95,6,100,108,88,120,80,125,76,126``74,126,71,125,128,132,6,118,129,}106,128,94,129,85,131,79,133,74,137,76,130,2,82,128,82,128$*** PUSSY *** #AG"-@"!},%"3-@9"?/C G 4hh76,130,2,80,129,84,128,81,127,3,85,124,90,122,95,122,81,129,3,85,130,9}2,128,94,126,89,125,2,86,127 90,127%"-@"!,% 60gg86,121,88,121,90,119,91,121,91,130},92,119,93,117,93,130,94,120,95,117,95,129,96,119,96,125,96,127 ii97,116,97,121,97,123,97,130,98,114,98,118,98,125,98,127,}99,115,99,120,99,124,99,129,100,113,100,116"mm100,118,100,127,101,110,101,121,101,123,101,129,102,112,102,114,102,116,102,}125,102,127,102,130,103,123$mm103,129,104,115,104,118,104,122,104,127,105,125,105,128,105,130,106,118,106,120,106,123,107,}126,107,128&55107,130,108,122,108,124,109,128,109,130,110,129($ D:EGTITLE,105,130,106,118,106,120,106,123,107,X5000 TRAP 40000:G=0:GOSUB 450:? :? "YOU'LL HAVE TO CASH IN SOME OF YOUR"5002 ? "PROPERTY. BUT YOU'LL HAVE TO PERFORM":? "A P}ENALTY FIRST TO GET FULL CREDIT":? "FOR IT, ";NA$;"."5004 GOSUB 240:GOSUB 6050:IF HT<>P AND RS<>P AND DR<>P AND NC<>P AND MT}<>P AND WH<>P AND GS<>P AND MP<>P THEN ENTER "D:ENDGAME"5006 GOSUB 230:? :? "TYPE IN THE CODE LETTERS (   )":GOSUB 250:? "}FOR THE PROPERTY YOU MUST CASH IN.";5008 INPUT A$:AM=0:GOTO 50145010 ? :? "IS THAT ENOUGH?":GOSUB 250:GOSUB 220:? "TYPE IN }THE NEXT PROPERTY. TYPE 'N' IFTHAT'S ALL.";5012 INPUT A$5014 IF A$="HT" THEN AM=AM+200:HT=0:GOTO 50345016 IF A$="RS" THEN }AM=AM+100:RS=0:GOTO 50345018 IF A$="DR" THEN AM=AM+300:DR=0:GOTO 50345020 IF A$="NC" THEN AM=AM+200:NC=0:GOTO 50345022 IF }A$="MT" THEN AM=AM+300:MT=0:GOTO 50345024 IF A$="WH" THEN AM=AM+500:WH=0:GOTO 50345026 IF A$="GS" THEN AM=AM+250:GS=0:GOTO }50345028 IF A$="MP" THEN AM=AM+300:MP=0:GOTO 50345030 IF A$="N" THEN GOTO 50365032 GOSUB 4405034 GOTO 50105036 ? :? "THE} TOTAL VALUE IS $";AM;", ";NA$;".":? "TO GET FULL CREDIT YOU'LL HAVE TO":IF AM<250 THEN GOTO 50445038 IF AM<399 THEN GOTO 50}425040 ? "LET A PLAYER OF YOUR CHOICE FONDLE":? "YOU BELOW THE WAIST HOWEVER THEY":? "CHOOSE.":GOTO 50465042 ? "LET A PLAYE}R OF YOUR CHOICE FONDLE":? "YOU ABOVE THE WAIST.":GOTO 50465044 ? "LIE BACK AND SPREAD YOUR THIGHS FOR":? "SOMEONE."5046 GO}SUB 230:? :? "IF YOU DON'T, THEN YOU'LL ONLY GET":GOSUB 250:? "HALF VALUE FOR YOUR PROPERTIES."5048 ? :? "WILL YOU DO IT (Y/}N)?";5050 GET #4,A:A$=CHR$(A):IF A$="Y" THEN GOSUB 466:GOSUB 600:GOSUB 5056:GOTO 50625052 IF A$="N" THEN GOSUB 460:? :? "TO}O BAD. MODESTY MAY BE YOUR DOWNFALL.":GOSUB 230:AM=AM*0.5:GOTO 50605054 GOSUB 440:GOTO 50485056 GOSUB 416:IF J<6 THEN RETUR}N 5058 GOSUB 460:? :? "THAT WASN'T GOOD ENOUGH! DO IT AGAIN!":GOSUB 230:GOSUB 600:RETURN 5060 ? "YOU GET ONLY $";AM;" INSTE}AD OF $";AM*2;".":GOSUB 2305062 GOSUB 650:GOTO 773 TRAP 5000:INPUT R00:RETURN 5060 ? "YOU GET ONLY $";AM;" INSTEP6500 GOSUB 470:R=5:GOSUB 420:? #6;" TOO BAD":GOSUB 430:GOSUB 420:? #6;"YOUR PROPERTY'S GONE":GOSUB 430:GOSUB 4206502 ?} #6;" YOU'RE NAKED ";NA$:GOSUB 430:GOSUB 420:? #6;" EVERYTHING'S GONE":GOSUB 430:GOSUB 420:? #6;" YOU LOSE ";NA$6504 GOSUB} 430:GOSUB 4306506 GOTO 6506 TRAP 6500:INPUT RHING'S GONE":GOSUB 430:GOSUB 420:? #6;" YOU LOSE ";NA$6504 GOSUB:ml#lAP1P2T1T2NAMPDOAAXPYPXTYTXPYPXTYTNNPTPTOADHRNDMWGAPBPCPD}PEPFPGPAPBPCPDPEPFPGPAPBPCPDPEPFPGPAPBPCPDPEPFPGPBPNPNT'6E}T@ @P A @ @AE@%@v@@}A(Au@@ @%@@@rAE@% @!@r"AU#@%}$@%@&@P'Au(AP)A%*AP+,A@Y-./012@3}45@6@7@8@9@:@;@<@=@>?@@@A@BC@}D@E@F@G@H@I@J@K@L@M@N@O@P QR}ST@s6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@}{6-@6-@6-@6-@6-@6-@6-@'6-@36-@?6-@}K6-@W6-@c6-@o6-@{6-@6-@6-@6-@6-@ h;@,};@,;@,;@,;@,;@,;@,;@,;@,t6-6-6-6}-6-6-6-6- 06- AP(& Af0 A ( AP@}(}( @ )(!HOW MANY FEMALE PLAYERS (1 OR 2)?I@@K:V)@_6.>:,h6-A:,}~ @)!@ @ A( AP1(TYPE IN THE FIRST PUSSYCAT 5A6-A"@ @0L}( AP2(TYPE IN THE SECOND PUSSYCAT 6B6-AL B AP @0)-@@M(HOW MAN}Y MALE PLAYERS (1 OR 2)?Z)@c6.>:,l6-A:, @)!@ @0"?( AP/(TYPE IN THE FIRST} TOMCAT 3?6-A$"@ @@&J( AP0(TYPE IN THE SECOND TOMCAT 4@6-AJ B}(y AP A ((1( THANK YOU: <( F A I(l(ARE YOUR INPUTS CORRECT (Y/N)?y)@) }6.>:,*B 4Y Af(.(THEN LET'S BEGIN!8 A B @P,a 4N A`(B(%THEN LET'S TRY AGAIN U}NTIL WE GET ITM(RIGHT!W A0a @ . A@ @@2x6-@ A 6(@ EVERYTHINGP(}@ GOESZ A6d A n Ax Adu +@'0@@A0@@@}[0@@@u0@fG #A@+-@@(1"7,="C/G }hll0,0,159,0,0,20,159,20,0,60,159,60,0,79,159,79,0,0,0,79,20,0,20,79,140,0,140,79,159,0,159,79,0,40,30,40jll130,40,159},40,40,0,40,30,40,50,40,79,60,0,60,30,60,50,60,79,80,0,80,30,80,50,80,79,100,0,100,30,100,50lgg100,79,120,0,120,30,120,50,}120,79,30,30,130,30,130,30,130,50,130,50,30,50,30,50,30,30,20,20,30,30n--20,60,30,50,140,20,130,30,140,60,130,50p,@}@'/@@9/@@K,@@]/@@o,@@/@@r6}-@h6-@#!,7/%@&@M/%@&@c/%@%@y/%@%@,%@}%@t6-@6-@S!,7/%@&@M/%@&@c/%@%@y/%@}%@,%@%@v= @!-@@'"-,3"9/= xkk53,32,53,38,53,32,57,32,53,3}5,56,35,53,38,57,38,59,32,59,36,63,32,63,36,60,37,60,37,61,38,61,38,62,37zkk62,37,65,32,65,38,65,32,69,32,65,35,68,35,65,3}8,69,38,71,32,71,38,71,32,74,32,71,35,74,35,75,33,75,34|kk74,36,75,38,77,32,77,34,78,35,78,35,79,36,79,38,80,35,80,35,81,3}2,81,34,83,32,87,32,85,32,85,38,89,32~kk89,38,93,32,93,38,89,35,93,35,95,32,95,38,97,32,97,38,101,32,101,38,97,32,101,38,1}03,33,103,37,104,32hh106,32,104,38,106,38,107,33,107,33,107,36,107,37,106,36,106,36,69,43,69,47,70,42,72,42,70,48,72,48}kk73,43,73,43,73,46,73,47,72,46,72,46,76,42,78,42,75,43,75,47,76,48,78,48,79,43,79,47,81,42,85,42,81,42kk81,48,81,48,85},48,81,45,84,45,88,42,90,42,88,45,90,45,88,48,90,48,87,43,87,44,91,46,91,47,91,43,91,43kk87,47,87,47,64,42,65,44,66,42,67},44,94,42,93,44,96,42,95,44,121,25,125,25,122,24,122,26,123,23,123,27mm126,23,126,23,127,22,129,22,130,23,130,24,128,25,1}29,25,130,26,130,27,127,28,129,28,126,27,126,27,30,53kk30,53,31,52,33,52,34,53,34,54,32,55,33,55,34,56,34,57,31,58,33,58,}30,57,30,58,36,55,39,55,37,53,37,5738,54,38,56= @!-@@"'"-,3"9/= cc134,31},136,31,137,32,137,32,133,32,133,36,134,37,136,37,137,36,137,36,27,43,27,48,26,49,24,49__23,48,23,48,32,22,32,28,36,22,36},28,32,25,36,25,108,22,108,28,112,22,112,28,108,22,112,28mm123,52,123,58,123,52,126,58,126,58,129,52,129,52,129,58,48,52,}48,58,48,52,51,52,48,55,51,55,52,53,52,54= @!-@@''"-,3"9/= kk48,22,48,28,48,22},51,22,52,23,52,24,48,25,51,25,51,25,52,28,88,22,88,28,88,22,91,22,88,28,91,28,92,23mm92,27,133,42,133,48,133,42,136,42,1}33,45,136,45,133,48,136,48,137,43,137,44,137,46,137,47,106,52,108,58kk108,58,110,52,110,52,112,58,112,58,114,52,68,53,68,}57,69,52,71,52,72,53,72,53,69,58,71,58,72,56,72,57))71,56,71,56,23,31,27,31,25,31,25,37AR@$E-!}* A@*!* @ ;6-%@ E AE-!A@* AY*!* @`;6-%@ E A}E-!@ * AY*!@`* @y;6-&@ E AE-!* @ *!@ * @y;6-&}@ E A$-@A $-@@P $-@AP $-@}A $-@A $b%2A!@@9-@@= _2}b$, ,/%@-,&@%@C/%@%@Y,&@%@o/%@%}@,%@%@,&@%@.6-A! A $1 ,/%@-,&@%@C}/%@%@Y,&@%@o/%@%@,%@%@,&@%@$6 ,/}%@-,&@%@C/%@%@Y,&@%@o/%@%@,%@%@/&}@%@86-@G A $; ,/%@-,&@%@C/%@%@Y,&@}%@o/%@%@,%@%@/&@%@$@V2@@--@@1 }S2V$^y #AT((3( **** ROLLING ****G-@@M"c2}@g"u-@y `?%2)"7-@; ? b\\81,14,2,2,91,13,2,4,96},12,2,4,108,11,2,8,121,10,2,16,128,9,2,32,144,8,2,64,162,7,2,128d56-P:@$H:,,)"56-@f3( }(&( ROLL IS 0 A 3$hH( (#(IT'S YOUR TURN .H( YOU HAVE $ IN YOUR ACCOUNT.jX-@} AP/-@@3 7 A A0K APU A0X$r;-@1"@)"@}; At!"@)@! Av- A"@#@- Ax#"@@# A}z#"@@# A|#"@@# A~ A $2A!@@3}-@@P7 Y2AD@@m-@@Pq 2$56-P:}@$H:,,)"56-@$56-P:@$H:,,)"56-@$e +@'0}@A0@O-@^(@ b e$-@@10@}@S2A!@@] Aw0@@2AD@@ A 2}$-@@10@@S2AD@@] A}w0@@2A!@@ A 2$C A`(6(}! *** IMPROPER INPUT DUMMY! ***@ A C$? +'0@*(<AR@?$%2}A!@@/ AQ2AD@@[ A}2$-@}@92AD@@C Ae2A!@@o As 2}$ #A" ""*""$ Av Ar12@@1@ }"6-F:@ , " Ax(%2($66108,10,108,20,108,10,96,20,81,20,64,}40,64,40,0,0% A06-%6-= AP(:(%YOUR CLOTHING IS WORTH THE FOLLOWING:=(#"@})"@# AW-(%SHOES, etc.(AA) .................$25W(%STOCKINGS, etc.(BB) ..............$50W-(%GARTERBELT} (CC) .................$100W(%BLOUSE (DD) .....................$150W-(%SKIRT (EE) ......................$200W(%BRA (F}F) ........................$300A-(%PANTY (GG) ......................$5007 A0A AW-(%SHOES, etc.(AA) .....}.............$25W(%SOCKS, etc.(BB) ..................$50W-(%BELT (CC) .......................$100W(%SHIRT (DD) ......}................$150W-(%PANTS (EE) ......................$200W(%UNDERSHIRT (FF) .................$3007-(%UNDERSHORT}S (GG) ................$5007 A - Aa#"@*!- AP"@$ Y( AP9($TYPE} IN THE CODE LETTERS OF THE ITEMU(YOU WISH TO CASH IN Y $ 4AA6-%@%$ A8 $ 4BB6-%@P}$ A8$ 4CC6-%A$ A8$ 4DD6-%AP$ A8$ 4EE6-%A$ A8$ }4FF6-%A$ A8$ 4GG6-%A$ A8 4T A A@ A# A }"# APs( AP;(YOU'RE CASHING IN $ SO FAR .](IS THERE ANOTHER ITEM (Y/N)?j)@}s6.>:,u 4Y AP(B(%TYPE IN THE CODE LETTERS FOR THE NEXTg(ITEM OR 'T' FOR THE PRICE TABLEku A"}  4N( AP" A@ A &_ AP(7(O.K. STRIP OFF THE ITEMS  AND_("PRESS WHE}N YOU'VE FINISHED!(*)@ Ap(' AP*$X4 A0(*(MAKE YOUR CHOICE NOW!4 A@ZJ(/($B}EGIN ON THE FIRST BEEP. STOP ON THE@( SECOND BEEP.J A@\-@@! AP% ((F( **** BEG}IN ****P A@Z A@n-@@x AP| (^8!( **** STOP ****+ Ap5 A 8$b }"@6-6-d"@6-6-f"@6-6-h"@6-6-j$l# A }"# A&n9 6-6-@# A/"@9 A&p# 6-6-@# Ar" } A2t9 6-6-@# A/"@9 A2v# 6-6-@# Ax$"@ }6-"@6-"@6-"@6-$#"@6.6-%#6-#"@ }6.6-%#6-#"@6.6-%#6-#"@6.6-%#6-b(*( YOU GET $ THIS TIME }.U( YOUR READY CASH ACCOUNT IS NOW $._ A@b$"@6-6-"@6-6-"}@6-6-"@6-6-$ -@P@ 6@<2@@@ T-@ }@up2@@t 2$) 6-& 6-%) APe}(.( THANK YOU . YOUR DEBT IS PAID.N(YOUR ACCOUNT IS NOW $.X Afb A0e$W+(YOUR ACCOUNT IS $} . YOU NEED TOM(PAY $ PLUS $100 PENALTY.W A0f(O(4SO YOU NEED TO CASH IN GARMENTS TOTAL-ING AT LEAST $%}A&.Y A0c Af$g-@@! A`% ((S(&YOUR ACCOUNT IS IN THE RED, DAMMIT!!!!] A0}g A16-&&A '6-%1 AV Ao-@@! A`% ((N(!YOUR }ACCOUNT IS STILL IN THE RED,e(DAMMIT, !!!!!o A04( AP4(IS THAT ALL YOU HAVE ON (Y/N)?+)@}6.>:,!4N+ Ap 4Y A A@ AXh(/($THEN LET'S TRY AGAIN!!! YOU NEED AN-V(}OTHER $&. SO THIS TIME DON'Th( BE SO MODEST. A@ A16-&&A '6-%1 AV} A o( (3(%*** OH! HOW TERRIBLY EMBARRASSING ***6(Z( *** YOU'RE NAKED  ***d ApoD:CIP1} Z Af Af(( (F( *** IT'S YOUR PROPERTY  ***P A0Z A *S(&( *** FOR SALE }***?( $I A0S AP,-(-(!DO YOU WISH TO PURCHASE IT (Y/N)?.N)@6.>:,# AP}&(.4N:6-D AN A 0 4Y AP A 2 A@ A4 A $R 6-}&S} 6-%($ A`J(NOT ENOUGH IN YOUR ACCOUNT .d(YOU HAVE ONLY $.n A z6-}}$Tz6-@ A # Af&(Q($ HAS BEEN DEDUCTED FROM YOUR AC-z($COUNT. IT IS NOW YOURS. YOUR ACCOUNT}V#(IS NOW $. A@#$\"6-@^!@6-&@`$f"@6-%h}"@6-%j"@6-%l"@6-%n$$"@*4AA$6-&@$"@*4 }BB$6-&@""@*4CC"6-""@*4DD"6-""@*4EE"6-"!}"@*4FF"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-"}&@""@*4CC"6-""@*4DD"6-""@*4EE"6-""@#}*4FF"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-&@$}""@*4CC"6-""@*4DD"6-""@*4EE"6-""@*4FF%}"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-&@""&}@*4CC"6-""@*4DD"6-""@*4EE"6-""@*4FF"6-'}""@*4GG"6-$]-@@! AP5-@@9 = G AS"(}] A e @6-@%6-@/ A2(5(O( PUSSYCAT  IS UP.Y A _6-e6-"@)} A e @6-@%6-@/ A2(5(O( PUSSYCAT  IS UP.Y A _6-e6-"*} Ac @6-@%6-@/ A2(5(M(TOMCAT  IS UP.W A ]6-c6-"@+} Ac @6-@%6-@/ A2(5(M(TOMCAT  IS UP.W A ]6-c6-L# A0,}"# AN; 6-6-6-@!6.'6-1 A`; ApP 6-6-R A V# A0-}"# A X; 6-6-6-@!6.'6-1 A`; ApZ 6-6-\ A `# A0 @.}# A0b; 6-6-6-@!6.'6-1 A`; Apd 6-6-f A j# A0 @/}# A@l; 6-6-6-@!6.'6-1 A`; Apn 6-6-p A t A` A0}# @ * @ # A!#!A@* @ # A!#!A@*!@`# A!# @ *!@`1}# A!-#!A * A@* @ - A! -#!@ * @@*!@`- A!&-#!@`* @2}* @ - A)-#!@* A*!@`- A)/#!A@*!@@* @`/D:BANK1.# @ 3}*!@ * @@.D:TAX17# @ *!@@* @`- A"7 A .#!A@*!@ * @@4}.D:COP1-#!@ * @@* @ -D:HT1-#!@@* @`* @ -D:RS1-#!@* A5}* @ -D:DR1-#!A* A * @ -D:NC1-#!@`*!A * A@-D:MT1-#!@`6}*!A* A -D:WH1-#!@`*!@`* @-D:GS1-#!@`*!@@* @`-D:MP137}$4p-@@! AP5-@@9 = @(C(f( *** FREE MONEY SPACE ***p A6;6-$8}@  A '"@-6.56-%;6-8#"@6.6-%#6-:#"@6.6-%#6-<#9}"@6.6-%#6->f'( YOU GET $ THIS TIME .R( YOUR READY CASH ACCOUNT IS NOW $.\ A0f A:} @f-@@! AP5-@@9 = @(C(f( *** FREE SPACE  ***B A0 A;} H7 A-"@)"@7 AJ#"@)"@# AL6-&@` A!2N<}7 A-"@)"@7 AP#"@)"@# AR6-%@` A!2T/"@=}@# A)6-/6-V/"@@# A)6-/6-X/"@@# A)6->}/6-Z/"@@# A)6-/6-\ A M A  AP(C($ ** YOU'RE JUST VISITING THE ?}JAIL **M AfE A0 A%6-$@;"@)"@E A" A" C(/(BRIBING THE GUA@}RDS WILL COST $.9 A0C A A@ A $ @6-%A A"!@PA}6-&@P A" "@ A%  "@ A%@ "@ A%` "@ A%B} 0"@)"@"6.AA-6.SHOE0$ 4"@)"@"6.BB16.STOCKING4$ ,"@6.CCC})6. GARTERBELT,$ ("@6.DD%6.BLOUSE($ '"@6.EE$6.SKIRT'$ %"@6.FF"D}6.BRA%$ '"@6.GG$6.PANTY'$  6.HH6.NAKED$ 0"@)"@"6.AA-6.SHOE0$E} 0"@)"@"6.BB-6.SOCK0$ &"@6.CC#6.BELT&$ '"@6.DD$6.SHIRT'$F} '"@6.EE$6.PANTS'$ ,"@6.FF)6. UNDERSHIRT,$ -"@6.GG*6. UNDERSHORTSG}-$  6.HH6.NAKED$ 0"@)"@"6.AA-6.SHOE0$ 4"@)"@"6.BB16.STOCKIH}NG4$ ,"@6.CC)6. GARTERBELT,$ ("@6.DD%6.BLOUSE($ '"@6.EE$6.SKIRTI}'$ %"@6.FF"6.BRA%$ '"@6.GG$6.PANTY'$  6.HH6.NAKED$ 0"@)"J}@"6.AA-6.SHOE0$ 0"@)"@"6.BB-6.SOCK0$ &"@6.CC#6.BELT&$ '"@K}6.DD$6.SHIRT'$ '"@6.EE$6.PANTS'$ ,"@6.FF)6. UNDERSHIRT,$ -"@L}6.GG*6. UNDERSHORTS-$  6.HH6.NAKED$ *** CHANCE *** 6-@ A 6(@ ??M}????????S(@ ? ?p(@ ? CHANCE ?(@ ? ? @ (@ ????????N}??* A06"@@ AP  D:CHANCE1 B6-@# A ?(@ #######[(@O} # #w(@ # THE #(@ # #(@ # COP #;(@ P}# #W(@ #######k-@@0@@ ApB0@@' AQ}p+ 5 A? APB(o( #######9( # #T( # THE #o( R} # #T( # COP #9( # #T( #######Q(+(YOU'VE BEEN S}ARRESTED, , FOR5 AC6-&@Q6-%A@Pm  A@(8(THE UNCONTESTED FINE IS $.B A0T}E(m(#HOW DO YOU PLEA, GUILTY OR INNOCENT((G/I)?5)@6.>:,# AP+4G5 A@" 4I U}A@( A@ A@(.(#THE JUDGE IS CONSIDERING YOUR CASE.8 AL-@@Pn2@GV}@@-@@ %2) 3 A@`?!@B(a( ***W} INNOCENT ***k Afu A0 A  A 6-$@ A@"c($( *** GUILTY ***. ApX}8 A B A L A@0V A0` APc(o( ########9( # #T( Y} # JAIL #o( # #u( ########( A+(T(YOU'RE IN JAIL NOW,  . THE JUDGEZ}u(HAS SET YOUR FINE AT $.f A0(6(!IT IS NOW BEING DEDUCTED FROM THER($ IN YOUR ACCOUNT.\ A0[}f A! A@ A ! A A A` A -"@)"@7A A-"@)"\}@#- AE A "@%6-@16-@R;@E A;"@6-@']}6-@E1@; A;"@6-@'6-@R1@; A;"@6-@'6-@E^}1@; A A$ A@F A@H A@P;,($THROWING FOOD IN RESTAURANT CHARLES.86_}-@P;$ A@P0!(STREAKING THE TAX OFFICE.-6-A0$ A@RD,($EXPOSING YOURSELF AT CHERRY'S N`}IGHT-5(ERY.A6-APD$ A@TY(( MAKING IMPROPER PROPOSALS AT THEJ(MAGIC FINGERS MASSAGE PARLOR.V6-Aa}Y$ A@VS-(%ENGAGING IN UNNATURAL SEX AT THE PUR-D(PLE PASSION MOTEL.P6-APS$ A@X#"@b})"@# A@f!@6-@$!@6-@$! A@ A ! A c}w B6-@# AP?( ??????????[( ? ?w( ? CHANCE ?K(d} ? ?;( ??????????E AH(K(s"6("A PLAYER OF YOUR CHOICE MAY FONDLE_(e}ANY EXPOSED PART OF YOUR BODY .i As AHm"@8($YOU MAY FONDLE ANY EXPOSED PART OF AY(PLAYERf} OF YOUR CHOICE .c Am AH A%4HH AP$ 4GG APd * NOP 4FF APg}h-#"@*"@)"@- AP "@ AP(C4AA)4BB9(SEDUCTIVELY REMOVE A  q}_BDOS SYSB(!DUP SYSBIAUTORUN SYSBJLOADER BSKEGTITLE BCIP1 BENDGAME BEVTHGOS2 BCOP1 BBANK1 B CHPCH1 BHT1 BRS1 BDR1 BNC1 BMT1 B WH1 BGS1 BMP1 BCHANCE1 BTAX1 B CHTCH1 B #CHPCF1 B -CHPCG1 B 8CHTCF1 B BCHTCG1 B$MEGINST .C AP4[4CC)4DD)4EEQ(&SLOWLY AND SEDUCTIVELY STRIP AWAY YOUR .[ AP4c()( ***r} YOU'RE NAKED  ***3 Ap= AP8@(V"@)"@cD:CHPCH1D:CHTCH1U,($A PLAYER OF YOUR CHOs}ICE MUST SEDUCT-U($IVELY FORFIT ANY ITEM YOU CHOOSE EX-(CEPT THEIR UNDERWEAR. APr AHm A0 t}A ! APP$(. APV("PRESS ONCE YOU'VE COMPLIED.c)@m Ap`( (1( FANTASTIC !!!u} YOUR READY CASH L(ACCOUNT NOW IS $.V A0` AH/ A#")"@/6-@%"@v})"@%6-@%"@)"@%6-@%"@)"@%6-@%"@)"@ %6w}-@$# 4AA6-@% 6-%#$# 4BB6-@P 6-%#$# 4CC6-A 6-%#$# x}4DD6-AP 6-%#$# 4EE6-A 6-%#$# 4FF6-A 6-%#$# 4GG6-Ay} 6-%#$&"@)"@&D:CHPCG1&"@)"@&D:CHTCG1&"@)"@&D:CHPCF1z}&"@)"@&D:CHTCF17( AP7(!TYPE IN THE PLAYER OF YOUR CHOICE# 46-@# AP{} 46-@ AP 46-@ AP 46-@ APZ A`(&(WRONG NAM|}E DUMMY!E(I HAVE THE FOLLOWING: P( Z APrr(0(%TYPE IN THE CODE LETTERS FOR THE GAR-E(MENT YOU CHO}}OSE:H(r(%SHOE ........... (AA) .......... SHOEW-(%STOCKING ....... (BB) .......... SOCKW(%GARTERBELT ..... (CC) ....~}...... BELTW-(%BLOUSE ......... (DD) ......... SHIRTW(%SKIRT .......... (EE) ......... PANTSq(.(IF  DOES NO}T HAVE ANY OF THESEq(>ITEMS LEFT, THEN NOTHING NEED BE FOR- FITTED. JUST HIT .C(+(TYPE IN THE PROPER CODE LETT}ERS/9 APC A f(*(O.K. , STRIP IT OFF! PRESSL( ONCE YOU'VE COMPLIED.Y)@c Ap}f$p A`t" A` v/6-@6.6-% Aa/ A@z"@ A` |/6-@}6.6-% Aa/ A@" A`@/6-@6.6-% Aa/ A@"@} A`@/6-@6.6-% Aa/ A@ A $J(( PROPERTY OWNED:""J(# HOTEL RITZ} (HT)............$2001 "1(# RESTAURANT CHARLES (RS)....$1001 "1(# THE DOCTOR (DR)............$3001 }"1(# CHERRY'S NIGHTERY (NC).....$2001 "1(# PURPLE PASSION MOTEL (MT)..$3001 "1(# PALACE WHOREHOU}SE (WH).....$5001 "1(# JOE'S GARAGE (GS)..........$2501 "1(# MASSAGE PARLOR (MP)........$300$] } AP(.( *** TALLY ***1(4(S(READY CASH ACCOUNT = $] A`P((( CLOTHING LEFT:% Ab}($8"@ Ab :"@ Ab@<"@ Ab`>"@ Ab@$L"@}( 2 SHOESN"@( SHOEP#"@#( 2 STOCKINGSR "@ ( STOCKINGT""@}"( GARTERBELTV"@( BLOUSEX"@( SKIRTZ"@( BRA\"@( } PANTY^aK******W6-@a Ae_$`"@}( 2 SHOESb"@( SHOEd"@( 2 SOCKSf"@( SOCKh"@(} BELTj"@( SHIRTl"@( PANTSn""@"( UNDERSHIRTp#"@#( U}NDERSHORTSraK******W6-@a Aes$t"@}( 2 SHOESv"@( SHOEx#"@#( 2 STOCKINGSz "@ ( STOCKING|""@}"( GARTERBELT~"@( BLOUSE"@( SKIRT"@( BRA"@}( PANTYaK******W6-@a Ae$"}@( 2 SHOES"@( SHOE"@( 2 SOCKS"@( SOCK"@}( BELT"@( SHIRT"@( PANTS""@"( UNDERSHIRT#"@#( } UNDERSHORTSaK******W6-@a Ae$d7*(} NOTHING!! YOU'RE NAKED !4 A`7$ D:EVTHGOS2**W6-@a Ae$d7*(B4000 TRAP 40000:R=2:GOSUB 420:? #6;" #######":? #6;" # #":? #6;" # THE #":? #6;" # #"4002 ? !}#6;" # COP #":? #6;" # #":? #6;" #######":FOR Q=1 TO 3:SETCOLOR 0,1,12:GOSUB 6704003 SETCOLOR 0,4,4:GO!}SUB 670:NEXT Q:GOSUB 210:GOSUB 450:? 4004 ? " #######":? " # #":? " # THE #":?!} " # #"4006 ? " # COP #":? " # #":? " #######"4008 ? :? "YO!}U'VE BEEN ARRESTED, ";NA$;", FOR":GOSUB 416:ADD=J-1:ADD=ADD+40504009 GOSUB ADD:GOSUB 240:? :? "THE UNCONTESTED FINE IS $";F;!}".":GOSUB 230:? :? "HOW DO YOU PLEA, GUILTY OR INNOCENT"4010 ? "(G/I)?";4011 GET #4,A:A$=CHR$(A):GOSUB 250:IF A$="G" THEN G!}OTO 40224012 IF A$="I" THEN GOTO 40164014 ? :GOSUB 440:GOTO 40104016 ? :? "THE JUDGE IS CONSIDERING YOUR CASE.":GOSUB 416:!}FOR Q=1 TO 50:SOUND 0,47,10,10:FOR W=1 TO 5:NEXT W4020 SOUND 0,0,0,0:NEXT Q:GOSUB 4060:IF J>5 THEN ? :? " *** INNOC!}ENT ***":GOSUB 466:GOSUB 230:GOSUB 620:GOTO 20994021 F=F*2:GOTO 40224022 ? :? " *** GUILTY ***":GOSUB 470:GOSUB 2!}20:GOSUB 620:GOSUB 4030:GOSUB 230:GOSUB 450:? 4023 ? " ########":? " # #":? " # !}JAIL #":? " # #"4024 ? " ########":GOSUB 210:? :? "YOU'RE IN JAIL NOW, ";NA$;". THE JUDGE":? !}"HAS SET YOUR FINE AT $";F;"."4026 GOSUB 230:? :? "IT IS NOW BEING DEDUCTED FROM THE":? "$";AC;" IN YOUR ACCOUNT.":GOSUB 230!}:GOSUB 7004028 GOSUB 640:GOSUB 620:GOTO 20994030 GOSUB 660:GOSUB 220:IF P=1 OR P=3 THEN COLOR 0:GOSUB 3104032 IF P=2 OR P=!}4 THEN COLOR 0:GOSUB 3004034 GOSUB 220:IF P=1 THEN X=5:Y=52:COLOR 1:GOSUB 3104036 IF P=2 THEN X=5:Y=45:COLOR 2:GOSUB 30040!}38 IF P=3 THEN X=15:Y=52:COLOR 2:GOSUB 3104040 IF P=4 THEN X=15:Y=45:COLOR 1:GOSUB 3004042 GOSUB 610:RETURN 4044 GOTO 4046!}4046 GOTO 40484048 GOTO 40504050 ? "THROWING FOOD IN RESTAURANT CHARLES.":F=50:RETURN 4051 GOTO 40504052 ? "STREAKING TH!}E TAX OFFICE.":F=100:RETURN 4053 GOTO 40524054 ? "EXPOSING YOURSELF AT CHERRY'S NIGHT-":? "ERY.":F=150:RETURN 4055 GOTO 40!}544056 ? "MAKING IMPROPER PROPOSALS AT THE":? "MAGIC FINGERS MASSAGE PARLOR.":F=200:RETURN 4057 GOTO 40564058 ? "ENGAGING !}IN UNNATURAL SEX AT THE PUR-":? "PLE PASSION MOTEL.":F=250:RETURN 4059 GOTO 40584060 IF P=1 OR P=3 THEN GOTO 40664062 IF J!}>2 THEN J=84064 RETURN 4066 IF J>6 THEN J=24068 RETURN TRAP 4000:INPUT RIF P=1 OR P=3 THEN GOTO 40664062 IF J W4000 TRAP 40000:R=3:GOSUB 420:? #6;" $$$$$$$$":? #6;" $ $":? #6;" $ BANK $":? #6;" $ $"4002 ? %}#6;" $$$$$$$$"4003 GOSUB 436:GOSUB 210:GOSUB 450:? :? " $$$$$$$$":? " $ $":? " %} $ BANK $"4004 ? " $ $":? " $$$$$$$$":GOSUB 210:? :? " *** THE BANK IS NOW OPEN ***"40%}06 GOSUB 230:? :? "YOUR READY CASH ACCOUNT IS AT $";AC;"."4008 GOSUB 220:GOSUB 250:? "DO YOU WISH TO DO BUSINESS NOW ";NA$:?%} "(Y/N)?";4009 GET #4,A:A$=CHR$(A):GOSUB 250:IF A$="N" THEN GOSUB 460:? :? "SORRY, MAYBE NEXT TIME.":GOSUB 220:GOSUB 620:GOT%}O 20994010 IF A$="Y" THEN R=0:GOSUB 220:GOSUB 500:GOSUB 620:GOTO 20994011 GOSUB 440:GOTO 4008 TRAP 4000:INPUT RT$|4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40104004 IF J=4 THEN GOTO )}40124006 IF J=5 THEN GOTO 40164008 ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR BOOBIES ";NA$;".":GOSUB 600:GOTO 4800400)}9 ? "CARRESS YOUR NIPPLES UNTIL THEY BE-":? "COME LONG AND HARD ";NA$;".":GOSUB 230:GOTO 40264010 ? "SPREAD YOUR THIGHS WIDE)} APART AND":? "MASSAGE YOUR CLIT UNTIL IT BECOMES"4011 ? "RED AND SWOLLEN ";NA$;".":GOSUB 230:GOTO 40244012 ? "SPREAD YOUR)} THIGHS WIDE APART AND":? "LET A PLAYER OF YOUR CHOICE MASSAGE"4014 ? "YOUR CLIT UNTIL IT BECOMES RED AND":? "SWOLLEN ";NA$;)}".":GOSUB 230:GOTO 40244016 ? "WILL YOU SPREAD YOUR THIGHS WIDE":? "APART AND LET A PLAYER OF YOUR CHOICE"4020 ? "MASSAGE Y)}OUR CLIT UNTIL IT BECOMES":? "RED AND SWOLLEN FOR $300 CREDIT (Y/N)?";:GET #4,A:A$=CHR$(A)4021 IF A$="Y" THEN GOTO 40244022)} IF A$="N" THEN GOSUB 460:? :? "MODESTY MAY BE COSTLY ";NA$;"!":GOSUB 230:GOTO 48004023 GOSUB 440:GOTO 40164024 ? :GOSUB 25)}0:? "CHOOSE THE PLAYER NOW ";NA$;".":GOSUB 2404026 ? :GOSUB 250:? "PRESS WHEN YOU'RE READY TO BE-":? "GIN";:GET #4,A:)}? :? " *** BEGIN ***"4028 FOR Q=1 TO 5:GOSUB 250:NEXT Q:? :? "PRESS ONCE EVERYONE'S SATIS-":? "FIED YOU'VE )}COMPLIED COMPLETELY";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032 GOSUB 220:GOTO 4800 TRAP 4000:INPUT R'VE (y4000 TRAP 40000:IF HT=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" * HOTEL R-}ITZ *"4003 ? #6;" * *"4004 ? #6;" **************":IF HT>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB-} 220:GOSUB 450:? :? " **************":? " * *"4009 GOTO 40104010 ? " * HOTEL RI-}TZ *":? " * *":? " **************":GOSUB 2304011 GOTO 40124012 IF HT>0 THEN GOTO 40204014-} F=200:GOSUB 810:IF J=0 THEN GOTO 48004016 HT=P:GOTO 48004020 ? :? "RATES ARE $50/DAY IN THIS FINE HOTEL.":GOSUB 416:GOSUB -}860:GOSUB 230:GOSUB 4004021 GOTO 40224022 F=J*50:? "YOU HAVE STAYED ";J;" DAYS ";NA$;".":? "YOUR BILL IS $";F;".":GOSUB 230-}:GOSUB 700:GOSUB 230:OW=HT4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT JOUR BILL IS $";F;".":GOSUB 230,_4000 TRAP 40000:GOSUB 220:IF RS=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" 1} * RESTAURANT *"4003 ? #6;" * *":? #6;" * CHARLES *":? #6;" * *"4004 ? #6;" **************1}":IF RS>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " **************":? " *1} *"4009 GOTO 40104010 ? " * RESTAURANT *":? " * *":? " * CHARLES 1}*"4011 ? " * *":? " **************":GOSUB 2204012 IF RS>0 THEN GOTO 40204014 F=100:GOSUB 1}810:IF J=0 THEN GOTO 48004016 RS=P:GOTO 48004020 ? :? "MEALS IN THIS FINE RESTAURANT RANGE":? "FROM $25 TO $125. ":GOSUB 1}416:GOSUB 860:GOSUB 230:GOSUB 4004021 GOTO 40224022 F=J*25:? "THE ONE YOU HAD ";NA$;" IS $";F;".":GOSUB 230:GOSUB 700:GOSUB1} 230:OW=RS4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT R ";NA$;" IS $";F;".":GOSUB 230:GOSUB 700:GOSUB0O4000 TRAP 40000:IF DR=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" * THE DOC5}TOR *"4003 GOTO 40044004 ? #6;" * *":? #6;" **************":IF DR>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4365}4008 GOSUB 220:GOSUB 450:? :? " **************":? " * *"4009 GOTO 40104010 ? " 5}* THE DOCTOR *":? " * *":? " **************":GOSUB 2304011 GOTO 40124012 IF DR>0 THEN GOTO5} 40204014 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 DR=P:GOTO 48004020 ? :? "THE DOCTOR'S RATES VARY DEPENDING ON":? "THE 5}SERVICE RENDERED AND HOW BADLY HE":? "NEEDS THE MONEY."4021 GOSUB 416:GOSUB 860:GOSUB 240:GOSUB 4004022 F=(J*J*10)+10:IF J>5}500 THEN J=J-4754023 ? :? "YOUR BILL IS $";F;", ";NA$;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=DR4024 GOSUB 870:GOTO 4800 5} TRAP 4000:INPUT R :? "YOUR BILL IS $";F;", ";NA$;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=DR4024 GOSUB 870:GOTO 4800 44000 TRAP 40000:IF NC=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ************":? #6;" * *":? #6;" * CHERRY'S9} *":? #6;" * *"4003 ? #6;" * NIGHTERY *":? #6;" * *"4004 ? #6;" ************":IF NC>0 THEN GO9}SUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " ************":? " * *"40099} GOTO 40104010 ? " * CHERRY'S *":? " * *":? " * NIGHTERY *"4011 ? " 9} * *":? " ************":GOSUB 2204012 IF NC>0 THEN GOTO 40204014 F=200:GOSUB 810:IF J=0 THEN GOTO 4809}04016 NC=P:GOTO 48004020 ? :? "FEATURING FIRST CLASS ENTERTAINMENT":? "AT REASONABLE PRICES.":GOSUB 416:GOSUB 860:GOSUB 2309}:GOSUB 4004021 GOTO 40224022 F=J*25:? :? "YOUR BILL FOR TONIGHT ";NA$;", IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=NC409}23 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT R";NA$;", IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=NC408B4000 TRAP 40000:IF MT=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ******************":? #6;" * *":? #6;" * PURPL=}E PASSION *"4003 ? #6;" * *":? #6;" * MOTEL *":? #6;" * *"4004 ? #6;" **************=}****":IF MT>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " ******************":? " =} * *"4009 GOTO 40104010 ? " * PURPLE PASSION *":? " * *":? " * =} MOTEL *"4011 ? " * *":? " ******************":GOSUB 2204012 IF MT>0 THEN GOTO 4020=}4014 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 MT=P:GOTO 48004020 ? :? "RATES ARE $25/HOUR FOR YOU AND ......":? "WELL, LE=}T US JUST SAY YOUR FRIEND."4021 GOTO 40224022 F=J*25:? "YOU HAVE STAYED ";J;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".":GOSU=}B 230:GOSUB 700:GOSUB 230:OW=MT4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT ROUR BILL IS $";F;".":GOSU<d4000 TRAP 40000:IF WH=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;"*******************":? #6;"* *":? #6;"* PLEASUA}RE PALACE *"4003 ? #6;"* *":? #6;"* WHOREHOUSE *"4004 ? #6;"* *":? #6;"***************A}****":IF WH>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? " *******************":? " *A} *"4009 ? " * PLEASURE PALACE *":? " * *"4010 ? " * WHOREHOUSE A} *":? " * *":? " *******************":GOSUB 2304011 GOTO 40124012 IF WH>0 THEN GOTO 402040A}14 F=500:GOSUB 810:IF J=0 THEN GOTO 48004016 WH=P:GOTO 48004020 ? :? "WE SATISFY ANYONE'S FANCY, MALE OR":? "FEMALE. OUR RAA}TES ARE JUST $100/HOUR."4021 GOSUB 416:GOSUB 860:GOSUB 230:GOSUB 4004022 F=J*100:? "YOU HAVE STAYED ";J;" HOURS ";NA$;".":?A} "YOUR BILL IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=WH4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUTA} ROUR BILL IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=WH4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT@4000 TRAP 40000:IF GS=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" ****************":? #6;" * *":? #6;" * JOE'S E}GARAGE *"4003 GOTO 40044004 ? #6;" * *":? #6;" ****************":IF GS>0 THEN GOSUB 430:GOTO 40084006 GOSUBE} 4364008 GOSUB 220:GOSUB 450:? :? " ****************":? " * *"4009 GOTO 40104010 ? " E} * JOE'S GARAGE *":? " * *":? " ****************":GOSUB 2304011 GOTO 40124012 IF GS>0E} THEN GOTO 40204014 F=250:GOSUB 810:IF J=0 THEN GOTO 48004016 GS=P:GOTO 48004020 ? :? "AUTO SERVICE RATES VARY DEPENDING OE}N":? "THE EXTENT OF THE REPAIRS AND WHETHER"4021 ? "OUR PAYROLL IS DUE.":GOSUB 416:GOSUB 860:GOSUB 230:GOSUB 4004022 F=(J*JE}*10)+10:IF J>500 THEN J=J/34023 ? :? "YOUR BILL IS $";F;", ";NA$:GOSUB 230:GOSUB 700:GOSUB 230:OW=GS4024 GOSUB 870:GOTO 480E}0 TRAP 4000:INPUT R23 ? :? "YOUR BILL IS $";F;", ";NA$:GOSUB 230:GOSUB 700:GOSUB 230:OW=GS4024 GOSUB 870:GOTO 480D4000 TRAP 40000:IF MP=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ******************":? #6;" * *":? #6;" * MAGICI} FINGERS *"4003 ? #6;" * *":? #6;" * MASSAGE PARLOR *"4004 ? #6;" * *":? #6;" **************I}****":IF MP>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? " ******************":? " I}* *"4009 ? " * MAGIC FINGERS *":? " * *"4010 ? " * MASSAGE PARLORI} *":? " * *":? " ******************":GOSUB 2304011 GOTO 40124012 IF MP>0 THEN GOTO 402040I}14 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 MP=P:GOTO 48004020 ? :? "SENSUAL MASSAGES FOR ANYONE, MALE OR":? "FEMALE. ONLYI} $25/HOUR."4021 GOSUB 416:GOSUB 230:GOSUB 400:F=J*254022 ? "YOU HAVE STAYED ";J/2;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".I}":GOSUB 230:GOSUB 700:GOSUB 230:OW=MP4023 GOTO 40244024 GOSUB 870:GOTO 4800 TRAP 4000:INPUT ROUR BILL IS $";F;".Hj5000 TRAP 40000:G=1:GOSUB 450:? " ??????????":? " ? ?":? " ? CHANCE ?"5002 ? " M} ? ?":? " ??????????":GOSUB 416:? :? 5004 IF J=0 THEN ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "M}ANY EXPOSED PART OF YOUR BODY ";NA$;".":GOSUB 600:GOTO 48005006 IF J=1 THEN ? "YOU MAY FONDLE ANY EXPOSED PART OF A":? "PLAYM}ER OF YOUR CHOICE ";NA$;".":GOSUB 600:GOTO 48005008 GOSUB 2500:IF A$="HH" THEN GOTO 50245010 IF A$="GG" THEN GOTO 50645012M} REM * NOP5014 IF A$="FF" THEN GOTO 50685016 IF J=2 AND P=1 OR P=3 THEN GOTO 50205018 IF J=2 THEN GOTO 50285020 IF A$="AAN}" OR A$="BB" THEN ? "SEDUCTIVELY REMOVE A ";B$;" ";NA$;".":GOTO 50345022 IF A$="CC" OR A$="DD" OR A$="EE" THEN ? "SLOWLY ANDN} SEDUCTIVELY STRIP AWAY YOUR";B$;" ";NA$;".":GOTO 50345024 ? :? " *** YOU'RE NAKED ";NA$;" ***":GOSUB 670:GOSUB 5038:? :IN}F P=1 OR P=3 THEN ENTER "D:CHPCH1"5026 ENTER "D:CHTCH1"5028 ? "A PLAYER OF YOUR CHOICE MUST SEDUCT-":? "IVELY FORFIT ANY ITN}EM YOU CHOOSE EX-"5030 ? "CEPT THEIR UNDERWEAR."5032 GOSUB 5072:GOTO 48005034 GOSUB 230:GOSUB 900:GOSUB 5050:? :GOSUB 250:N}? "PRESS ONCE YOU'VE COMPLIED.";:GET #4,A:GOSUB 6705036 ? :? :? "FANTASTIC ";NA$;"!!! YOUR READY CASH ":? "ACCOUNT NON}W IS $";AC;".":GOSUB 230:GOTO 48005038 GOSUB 416:IF J=0 OR J=1 THEN J=15040 IF J=2 OR J=3 THEN J=25042 IF J=4 OR J=5 THEN N}J=35044 IF J=6 OR J=7 THEN J=45046 IF J=8 OR J=9 THEN J=55048 RETURN 5050 IF A$="AA" THEN AM=25:AC=AC+AM:RETURN 5052 IF N}A$="BB" THEN AM=50:AC=AC+AM:RETURN 5054 IF A$="CC" THEN AM=100:AC=AC+AM:RETURN 5056 IF A$="DD" THEN AM=150:AC=AC+AM:RETURN N}5058 IF A$="EE" THEN AM=200:AC=AC+AM:RETURN 5060 IF A$="FF" THEN AM=300:AC=AC+AM:RETURN 5062 IF A$="GG" THEN AM=500:AC=AC+N }AM:RETURN 5064 IF P=1 OR P=3 THEN ENTER "D:CHPCG1"5066 IF P=2 OR P=4 THEN ENTER "D:CHTCG1"5068 IF P=1 OR P=3 THEN ENTER "DN }:CHPCF1"5070 IF P=2 OR P=4 THEN ENTER "D:CHTCF1"5072 ? :GOSUB 250:? "TYPE IN THE PLAYER OF YOUR CHOICE";5074 INPUT NA$:IF N }NA$=P1$ THEN P=1:GOTO 50845076 IF NA$=T1$ THEN P=2:GOTO 50845078 IF NA$=P2$ THEN P=3:GOTO 50845080 IF NA$=T2$ THEN P=4:GOTN }O 50845082 GOSUB 460:? :? "WRONG NAME DUMMY!":? "I HAVE THE FOLLOWING: ";P1$,T1$:? ," ";P2$,T2$:GOTO 50725084 ? :? "TYPE INN } THE CODE LETTERS FOR THE GAR-":? "MENT YOU CHOOSE:":? :? "SHOE ........... (AA) .......... SHOE"5086 ? "STOCKING ....... (BN}B) .......... SOCK":? "GARTERBELT ..... (CC) .......... BELT"5088 ? "BLOUSE ......... (DD) ......... SHIRT":? "SKIRT .......N}... (EE) ......... PANTS"5090 ? :? "IF ";NA$;" DOES NOT HAVE ANY OF THESE":? "ITEMS LEFT, THEN NOTHING NEED BE FOR- FITTED. N}JUST HIT ."5092 ? :? "TYPE IN THE PROPER CODE LETTERS";:INPUT A$:GOSUB 250:GOSUB 9005094 ? :? "O.K. ";NA$;", STRIP ITN} OFF! PRESS":? " ONCE YOU'VE COMPLIED.";:GET #4,A:GOSUB 670:RETURN TRAP 5000:INPUT R"O.K. ";NA$;", STRIP ITLf4000 TRAP 40000:R=2:GOSUB 420:? #6;" $$$$$$$":? #6;" $ $":? #6;" $ TAX $":? #6;" $ $"4002 ? R}#6;" $$$$$$$"4003 GOSUB 470:GOSUB 210:GOSUB 450:? :? " $$$$$$$":? " $ $":? " R} $ TAX $"4004 ? " $ $":? " $$$$$$$":GOSUB 210:? :? " *** IT'S TAX TIME ";NA$;" ***"R}4006 GOSUB 220:? :? "HOW NICE OF YOU TO DROP BY!":GOSUB 230:? :? "YOUR READY CASH ACCOUNT IS BEING "4008 ? "ASSESSED FOR}R 50% OF IT'S VALUE.":GOSUB 230:AM=INT(AC*0.5):? :? "IT WAS $";AC;". THE NEW VALUE IS $";AM;"."4009 AC=AM:GOSUB 240:GOSUB 64R}0:GOSUB 620:GOTO 2099 TRAP 4000:INPUT R? "IT WAS $";AC;". THE NEW VALUE IS $";AM;"."4009 AC=AM:GOSUB 240:GOSUB 64P24000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40104004 IF J=4 THEN GOTO V}40124006 IF J=5 THEN GOTO 40164008 ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004009 V}? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004010 ? "A PLAYER OF YOUR CHOICE MAY FONDLEV}":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004011 REM ** NOP ***4012 ? "SPREAD YOUR THIGHS WIDE APART AND":? "LET A PLAYER V}OF YOUR CHOICE MASSAGE"4014 ? "YOUR COCK UNTIL IT BECOMES HARD.":GOSUB 230:GOTO 40244016 ? "WILL YOU SPREAD YOUR THIGHS WIDV}E":? "APART AND LET A PLAYER OF YOUR CHOICE"4020 ? "MASSAGE YOUR COCK UNTIL IT BECOMES":? "HARD FOR $300 CREDIT (Y/N)?";:GETV} #4,A:A$=CHR$(A)4021 IF A$="Y" THEN GOTO 40244022 IF A$="N" THEN GOSUB 460:? :? "MODESTY MAY BE COSTLY ";NA$;"!":GOSUB 230:V}GOTO 48004023 GOSUB 440:GOTO 40164024 ? :GOSUB 250:? "CHOOSE THE PLAYER NOW ";NA$;".":GOSUB 2404026 ? :GOSUB 250:? "PRESS V } WHEN YOU'RE READY TO BE-":? "GIN";:INPUT A$:? :? " *** BEGIN ***"4028 FOR Q=1 TO 5:GOSUB 250:NEXT Q:? :? "PV!}RESS ONCE EVERYONE'S SATISIF-":? "IED YOU'VE COMPLIED COMPLETELY.";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032V"} GOSUB 220:GOTO 4800 TRAP 4000:INPUT RVE COMPLIED COMPLETELY.";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032T14000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO Z$}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR BLOUSE BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 24Z%}0:GOSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR BLOUSE":? "FOR $150 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GZ&}OSUB 460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=150:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "LOWER YOUR BRA AZ'}ND LIFT YOUR BOOBIES":? "FOR A PLAYER OF YOUR CHOICE.":GOSUB 600:GOSUB 220:GOTO 48004014 ? "SEDUCTIVELY STRIP OFF YOUR BRA "Z(};NA$;".":A$="FF":GOTO 40264016 ? "SEDUCTIVELY STRIP OFF YOUR BRA ";NA$;".":A$="FF":GOTO 40264020 IF P=1 THEN DP1=1:RETURN Z)}4021 IF P=3 THEN DP3=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "Z*}ACCOUNT NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETZ+}URN 4026 GOSUB 230:GOSUB 900:AC=AC+300:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASZ,}TIC ";NA$;"!!! YOUR READY CASH ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800 TRAP 4000:INPUT RUB 6704028 ? "FANTASXh4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO ^.}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR BRA BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240:G^/}OSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR BRA FOR":? "$300 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSUB 4^0}60:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=300:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "YOU MUST LET A PLAYER ^1}OF YOUR CHOICE":? "FONDLE YOUR BOOBIES ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004014 ? "DROP YOUR PANTY ";NA$;" AND LET A":? "^2}PLAYER SQUEEZE YOUR DERRIER!":GOSUB 600:GOSUB 220:GOTO 48004016 ? "SLOWLY AND SEDUCTIVELY STRIP OFF YOUR":? "PANTY ";NA$;"."^3}:A$="GG":GOTO 40264020 IF P=1 THEN FP1=1:RETURN 4021 IF P=3 THEN FP3=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOS^4}UB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU^5} DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 4026 GOSUB 230:GOSUB 900:AC=AC+500:? :GOSUB 250:? "PRESS ONCE Y^6}OU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO ^7}4800 TRAP 4000:INPUT R704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO \!4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO b9}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR SHIRT BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240b:}:GOSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR SHIRT":? "FOR $150 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSb;}UB 460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=150:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "LIFT YOUR UNDERSHIb<}RT AND PUFF YOUR":? "CHEST FOR A PLAYER OF YOUR CHOICE.":GOSUB 600:GOSUB 220:GOTO 48004014 ? "STRIP OFF YOUR UNDERSHIRT ";NAb=}$;".":A$="FF":GOTO 40264016 ? "STRIP OFF YOUR UNDERSHIRT ";NA$;".":A$="FF":GOTO 40264020 IF P=2 THEN DP2=1:RETURN 4021 IF b>}P=4 THEN DP4=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT b?}NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 402b@}6 GOSUB 230:GOSUB 900:AC=AC+300:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NAbA}$;"!!! YOUR READY CASH":? "ACCOUNT IS NOW $";AC;",":GOSUB 230:GOTO 4800 TRAP 4000:INPUT R704028 ? "FANTASTIC ";NA`d4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO fC}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR UNDERSHIRT BACK.":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240:GOfD}SUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY YOUR UNDERSHIRT":? "FOR $300 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSUB fE}460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=300:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "YOU MUST LET A PLAYERfF} OF YOUR CHOICE":? "FONDLE YOUR CHEST ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004014 ? "DROP THE UNDERSHORTS AND GIVE A PLAY-":fG}? "ER A FLASH OF YOUR REAR ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004016 ? "STRIP OFF YOUR UNDERSHORTS ";NA$;".":A$="GG":GOTO fH}40264020 IF P=2 THEN FP2=1:RETURN 4021 IF P=4 THEN FP4=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOUfI} MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT IS NOW $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENfJ}OUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 4026 GOSUB 230:GOSUB 900:AC=AC+500:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIEDfK}";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800 fL} TRAP 4000:INPUT R704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800 d  B$4AAA@;@, A ? +'0@jN}9AR@<(?$-@A0 $-@A  $(-@AjO} $2b%2A!@@9-@@= _2b$d\ @4(" jP} EVERYTHING GOES IS A GAME FOR\(#FUN LOVING, UNINHIBITED, CONSENTINGfU,($ADULTS, VAUGELY SIMILAR TO A POPULARU($BOAjQ}RD GAME. AS IN THAT POPULAR GAME,hW-(%PLAYERS MOVE AROUND THE BOARD, BUYINGW(%PROPERTY, WHILE TRYING DESPERATELY TOjU-jR}(%AVOID OTHER PLAYER'S PROPERTY, A MEANU(#COP, TAXATION OR PERFORMING VARIOUSlT*("PENALTIES ASSOCIATED WITH TAKING A6(jS}CHANCE.@ @ J @ T @0n\(+( BUT UNLIKE THAT GAME, WHERE\(+PLAYERS START OUT WITH A SUBSTANTUAL jT}SUM, p44(+IN EVERYTHING GOES YOU WILL GET ONLY WHAT rSS(#IS NEEDED. YOUR CLOTHES MUSTBE CASH$ED IN TO SUPPLEMENT YjU}OUR READY CASH t$(ACCOUNT! @ $ @ vY(0(% UP TO FOUR CAN PLAY, TWO FEMALESY($(PUSSYCATS) AND TWO jV}MALES (TOMCATS).xA-(%YOUR CLOTHING IS WORTH THE FOLLOWING:7 @ A @z( PUSSYCATS:(|S+(# SHOES, etc...jW}.................$25S(# STOCKINGS, etc................$50~S+(# GARTERBELT ..................$100S(# BLOUSE ........jX}..............$150S+(# SKIRT .......................$200S(# BRA .........................$3008+(# PANTY ........jY}...............$5005 @ 8(T,($ THERE ARE ONLY NINE ITEMS LISTED.T(#THAT'S ALL YOU'RE ALLOWED, BUT BOTHW+(#PjZ}USSYCATS AND TOMCATS HAVE THE SAMEW(&NUMBER, AND THE SAME VALUE FOR SIMILAR])(!GARMENTS. AT THIS TIME YOU SHOULD](&Dj[}RESS ACCORDINGLY OR COME TO AN AGREE-MENT X#(WITH THE OTHERS ON HOW WHATX(/YOU'RE WEARING CAN BE ACCOUNTED FOR, Rj\}ELATIVE FF(>TO THIS LISTING. PLEASE WRITEIT DOWN! WHEN YOU'RE DOWN TO YOUR``(WPANTY, IT'S NO TIME PUSSYCATS, TO SAY j]}YOU MADE A MISTAKE WAY BACK WHEN THE GARTERBELT I(WAS CALLED FOR!(.-@@8 @ < F @PI(j^}+(" PRESS ONCE EVERYONE AGREES=AR@]@@K:j)@t @(TOMCATj_}S:(S+(# SHOES, etc....................$25S(# SOCKS, etc....................$50S+(# BELT ......................j`}..$100S(# SHIRT .......................$150S+(# PANTS .......................$200S(# UNDERSHIRT ..................ja}$3008+(# UNDERSHORTS .................$5005 @ 8(W+(# THE SAME GOES FOR THE TOMCATS.W(&IF YOU'RE NOT DREjb}SSED ACCORDING TO THE\-(%LIST, THEN DO SO OR COME TO AGREEMENT\()WITH THE OTHER PLAYERS. AGAIN, WRITE IT c (DOWjc}N!( @ $ @ . @PV(" PRESS ONCE EVERYONE AGREESc)@; @.(A FEW HINTS BEFORE jd}WE START.1(; @@V,($ TRY TO KEEP AT LEAST $500 IN YOURV(%READY CASH ACCOUNT. NO SINGLE PENALTYOO(FIS GREATEje}R THAN THAT. IF YOU'RE FORCEDTO PAY AN AMOUNT FOR ONE REASON V0((OR ANOTHER, AND YOU HAVE INSUFFICIENTV( FUNDS IN Yjf}OUR ACCOUNT, THEN YOU SS(JWILL HAVE AN ADDITIONAL $100 PENALTY ADDED TO THE AMOUNT. THIS MEANS YOU MM(DWILL HAVjg}E TO CASH IN MORE OF YOUR CLOTHING NEEDLESSLY. DON'T LET TT(KIT GET TOO HIGH.A VISIT TO THE TAX OFFICE WILL COST YOU 5jh}0% OF THE VALUE =(IN YOUR ACCOUNT.,-@@6 @ : =(U,($ BUY ALL THE PROPERTY YOU CAN GET.U(ji}$PLAYERS STOPPING ON YOUR SPACES WILLW+(#HAVE TO PAY YOU, THEREBY INCREASINGW(&YOUR ACCOUNT AT THE EXPENSE OF THEIRS,jj}b=(5OR EVEN BETTER YET, AT THE EXPENSE OF THEIR CLOTHING!Q-@@[ @ _ b(U,($ IF YOU ARE FACEDjk} WITH AN OPTIONALU($PENALTY THAT INCREASES YOUR ACCOUNT,R*("TAKE IT! BY THE TIME YOU ENCOUNTERR(#ONE, YOU MAY DAMN WEjl}LL NEED ALL THEP)(!HELP YOU CAN GET. DON'T LET FALSEP("MODESTY GET IN THE WAY. AFTER ALL,r+(#JUST STARTING THIS GAMjm}E HAS ALREADYM(SHOT YOUR REPUTATION TO HELL!a-@@k @ o r(I-(% AND ONE LAST BIT OF ADVICE FORjn} YOU<( PUSSYCATS.F @@I(Z)(! IF FOR SOME ODD REASON, AS THEN( GAME GETS ON AND YOU FEEL YOU'REZ(DOING jo}Y"(REALLY WELL, DON'T GET TOOE(COCKY. REMEMBER, THIS GAME WASY(DESIGNED BY A A(TOMCAT! THE BEST MAY2(BE YETjp} TO COME!!!A% D:EVTHGOS2D:EGINSTREMEMBER, THIS GAME WASY(DESIGNED BY A A(TOMCAT! THE BEST MAY2(BE YETh+