@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u,-)%?%BRROCOMLINETEXTLTTMPZCLOT}  LARGE-LETTER SCREEN TITLESU}BY JERRY VANDEN BOSCH(c)1987, ANTIC PUBLISHING#%%(DO NOT RENUMBER THIS PROGRAM!)(S6-+F:B2y,@,(V}6-B3@S@@K:2 A A0< @FK6-%@6-%@5!W}@)&$@K6-$@&@P @`Z\P6.7@%@ $+%@&@$,<@ $+%@&+@X}$,,,\6-dAR@-nK A%@:7&<&,,!A'A(>:@:7&<&,,&A(,K A0xY}(>:@:7&<&,,%A(,"AdAU")@!!!@1* A%A!!!AY* ASAZ}I"@0-#(7&<&,1!%@?6-&@I A'"@06-%@ ' AI"@1[}-#(7&<&,1 %@ ?6-%@I A'"@16-%@' A["@(-#(\}7&<&,- AC!@$&@Q6-&@[ @/"@(%6-@)&@$/ @["@)]}-#(7&<&,- AC @)&$@Q6-%@[ @/"@)%6-$@&@/ @^}X"A&*!%@!-/(7&<&,=6-&@N67&<&,. X A>"AU-#(7&<&,_}16-%@; A>$d"AT* %@ 86.7&+&@,<@ ,K67&<@,.d67@ <@ ,.`} \"AU* %@ .6.7&<@,K67&+&@,<@ ,.\67&<&,. =!AS* %@ !-a}3(7&<@ ,= A" A,;-"AV*%@&$@ &@;6-&@6"AVAPb}@;#"AW* @)&$@16-%@; APJ!A(6-&A(T9"A%6-% Ac}/ A@9 @^G"@*"@%6-@16-@=6-G APhG"@*"@%6-@d}16-@=6-G APr"@A |"@A 9"@6-A% A/ Ae}P9 @` A#67&<&,.>:,-#(>:,,"%@  A)6-%@,$6-%@f} A**INSERT/DELETE LINE AT CURSOR ROUTINE6-%@&$@"AW06.7@%$@ <A`g},Q67@!%$@ <A,.67@%$@ <@ %$@ ,.7@<@ , AA"@#767h}Aa<A,.7@<@ ,A Am$6.7@!%$@ <A,E67@%$@ <A`,.m67Aai}<A,.7@<@ ,/ A %$A@%6-%@/ @88INCORPORATE INPUT/REVISION INTO APPROPRIATE j}STRING3%@&$@36-%@&$@QN67@%@ $+%@&@$,<@ $+%@&@k}$,,.Q$W1;@ ,;@,;A,;A,96. H67@,.W67@,.) 6. 67A,.l})67@,.&e + A)A;AR@Q6-@$&@e"@A 000INm}PUT/EDIT WINDOW DISPLAY FOR MODES 1 & 17:.6-@6-.(ӠDj-@@%( CAPS=ORANGE7n}-@@F( lower=AQUAX-@@j( ֠=BLUENm-@@%( =RED7-@@I(o} &=CLEAR[-@@m( &=REVIEWXK-@@'( &=MODE 29-@@K( &=MEMORp}Ybc-@@ (GR.1,2-@@D( & GR.17V-@@c(DISPLAYlA-@@ (q}--@@!A(ԠנvTAR@'-@@";(ҠӠM-@@#T(r}_-@ #-@.(| 2 F-@@#R-@[(|_ 1 A$,@9s}1/@9@#! @#-! A-@#X-@;(7@%@ $<@ $+@%,t},? U"AV)"AWX$"@@$00INPUT/EDIT WINDOW DISPLAY FOR MODES 2 & 18?6-@u}6-@?( ӠӠĠ]-@@(CAPS=1-@&@@( 1111111111R-@@v}](ORANGE.-@@.(01234567890123456789v-@@ (lower=2-@@;(AQUAM-@w}@ [( ֠=m-@@v(BLUE=-@@#( =5-@@=(RED0-@x}@0( Q-@ +-@@%3(|G-@6@%M(|Q ey}-@@+-@@%3(|G-@6@%M(|Q e @A0 ) @-&@z}) A *-&@@4_-@%@B(7@%@ $<@ $+@%,,F \"AV)"AW{}_$>F-@@%( Ԡ7-@@F( ҠҮHf-@@0(B|}-@@f(& FOR GRAPHICS DISPLAYRp-@@ 6(&FOR WORK TO MEMORYH-@@!}}p(#& TO REVIEW, & FOR MODE 1\:-@@":( OR&TO START OVERf"@@p~}$z77VIEW WORK IN GRAPHICS MODE 1, 2, 17 OR 18 DISPLAY'!@H* @Q+' A/!@T* @W%+@}%/ A v (}-@@F( FOR GRAPHICS  (WITH TEXT WINDOW),X-@@v(TYPE >:%Av}, NOWv-@@ F( FOR GRAPHICS %@ (NO TEXT WINDOW),X-@@v(TYPE >:A%, }NOWt-@@D(AFTER VIEWING GRAPHICS  OR %@V-@@t(DISPLAY, PRESS٠TOS-}@@5(RETURN TO INPUT/EDIT WINDOWG-@@S(DISPLAY<AdAU")@.!Av<}6-&A(--"@*+"@I)"@U,A --"@*+"@P)"@V,A  A ```+"}@*7A<A@,47@<@@,,)+"@*7A<A,4,A +%@6-%@@ A},(@7@<A,@"@AP""(@7A<A,B"@U*"@8(@}7A<A,B ApB"@V*"@8(@7A<A@,B Ap$wAR@(w( }TO CHANGE TO GRAPHICS %@) (NO TEXT WINDOW), TYPE& >:%A,.<AR@")@.}!Af<6-&A(89"@9*"@I%6-@U/+@9 A B9"@d*"@P%6-@V/+@}9 A L AP @`MVFORCED READ ROUTINEW`2 (} (( GRAPHICS 2!@PA@j}gX+"@*7A<A@,47@<@@,,)+"@*7A<A,4,](g AEt(%@y77(/}:SE.0,2,8:SE.1,12,10:SE.2,9,4:SE.3,4,6:SE.4,0,0~+ A+-@6&$@r"@6&$@(}"(}:(%%@ RETURNF6-P A^6-%Ah APr @` A B:,"A<}-@B:,(7<,4>:@4,<67<,.>:Ab, ^6-%@(}(^(% POSITION , :PRINT #6};>:@4,>:@4,;9( ((CONT$-6AB@9&HAB@(}--@}@9(WORKINGE"H$ H6-@ 6-H6.7@%@ $<@ $+%@,,11@:7<},,@2*@:7<,,A`A`86-&@!.6.7@<,8 A0 ' DA@:7@<@},,@2*@:7@<@,,A`D$*6.7@, 6-%@* A`''INTRO DISPLAY/MODE SELECT ROUTIN}E @ + A#6-@@F:A6,"AA DD112,112,112,70,64,156,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,7,}7,65,0,6%-A6Aa"!% (]AY'A`9Aa@KAY@4]@}@2e-@@3(@THIS IS GRAPHICSE-@@e(@MODES 1 OR 17 TEXT<}-@}@I(@TYPE >:@4,>:@4, NOW[-@}(@TO WORK IN THIS MODEFw-@}@3(@THIS IS GRAPHICSE-@@e(@MODES 2 OR 18 TEXTw-@@P7(@}TYPE >:@4,>:@4, NOWI-@k(@TO WORK IN THIS MODE}AA@d}U AZ9)@6-&@H*"@66-@9$d"@6-@$n ApxREVIE}W ROUTINEd (}-@@=(REVIEW YOUR WORK IN SEQUENCE,O-@@d(AT YOUR OWN PACE?( ( ( (} TO BEGIN#(?( AGAIN TO ADVANCEU()( TO SEE PRECEEDING PAGE,(U($ RETURNS TO INPUT/EDIT} WINDOWP&F:B2y,"@*%A %46-%A8 L-@%P L"F:B2y,"@*!B06}-&A4 H-@%L F:B2y,"@$ A@=@w+@A=}B7tA$D1:BIGTEXT.BASF:B2y,"@$ A@=@w+@A=+pq;*R*SCM2SIIAXBOAHORSKEMHMSSHM1CBBRDDR2FLMADREBYTEIDMFILEDRMMOVECHSEIOCAABB }  } } !"#$%&'()CREATIONBY STEPHEN STOUT }(c)1987, ANTIC PUBLISHING P +AY1@@dCB7t@dFP A 6-?:C:,:A,S @ ZS"Ad*"@!6-%)6-%I67@S<@S,.>:A,S @ dS }"@7*"@!6-%)6-%I67@S<@S,.>:A,S @ nU"Af*!'6-&@1 A0 }96-%A6-%K AU @ xK"A6-%@%6-%-6-%7 AA A0K @ I"A }6-@#6-%+6-%5 A? A0I @ I"A6-@#6-%+6-%5 A? A0 }I @ I"A6-@#6-%+6-%5 A? A0I @ "@Ap++@D*A }7*At@@?6-@06-@'"@D36-@?6-@'"At6-@'6-@ }(}ˠ HIT TRIGGER; (MONSTER'S HIT POINTS: ;(YOUR STRIKE POINTS: 6-P:H:,$,%@=( }  _2@2T:,"@A  }~ 6-&(-AA6@D2@@H j2~ @A0 } (}Š HIT TRIGGER;(YOUR HIT POINTS: ;(MONSTER'S STRIKE POINTS: 6-P:H:,$,%@=( }  _2@2T:,"@A` }a 6-&-AA;2@@? a2!A") ( }})(ՠŠġ HIT TRIGGER,b -AP@P6@<2@@@ b2 }6 T:,"@A@ ApJ?6-@ 6-@'"@D36-@?6-@T'"A }t6-@'6-@^ 6-%6-%h1 6-%6-% A' A01 @ r (}%(ՠΠ HI }T TRIGGER9-@PAPU2@@Y {2 A|i 6.6- }!6--6-@%96-@E6-Q6-]6-i6-67@S<@S,.k A0 } 6-?:C:,:,a2AP@@u-@ }@ y 2$ 225,97 226,98 35,99& 164,1000 37,101: 166,10 }2D 103,103N 104,104X 105,105b 106,106l 44,108v 237,109 174,110 96,96 0,47vAR }@'AY@4O(#} S=SAVE L=LOAD D=DISK DIRECTORYv(" P=PLAY GAME R=RE-START ?=PRINTf+(# OPTION/SELE }CT TO CHANGE CHARACTERST($ MOVE WITH JOYSTICK/TRIGGER TO DRAWfAdAU=%2A@@1  }=6-@U-@@ =2I!@U6-Y!6-@:7%@< }%@,,?6-@:7%@<%@,,Y67@S<@S,.>:, 6-?:C:, ApHV6-R:,V6-+"@)"@)"@,&+" }@)"@ )"@,RGG6-+"@ )"@)"@,&+"@)"@)"@,\T:,":2 }A@@b6-@p$%%@p$@%@p67<,.>:,2f@@ }"*")F:Bp%%@ $,"AuA0pa%2@-6-%56-%W2 }a A z A@ Ac( }ҠŠ#( ........5AR<(?H6- }ZAdAUc6.D:B)@B @e)!@*AU*A&A ("AU!AR@ }(( !!"AU*"Ap/"A&*!'6-&@/(>:,"AUA W#!@d }* @* @A67%@<%@,.>:,O6-%@W(>:, A 67%@,..ADV'6-@ }'6-@?67Ap,.>:,!6.*6-C:,36-B:,?6-@/ Ap@/@ }+"@6.CREATION+(@:"@6.#@:0CREATIONAp A } A`$Q@ B56-?:C:,:, j9967@<@0,.hhhˢ˝pit.@.@@K:~::6 }7@1<@a,.鹐̥iF֩kޞM`?6.>:,*67Ap,.>:,967@,.?6.ff67A }<AP,.Kff67Ag"<Ag,.K }]/-A%@Ag"%@@p<67<, }.Y67%@R<%@R,.] %6-6-% A1 +@@@d1B7t@d }QAA'A @9AVAFKAR@Q(} Ap1 +@@d1 }B7t@dcA @'@@9AR@K-Q(}cA @O A }@;@@D:*.*O(ˠ@@)7@<@,4 6(7@,@ } Ap( (@ B @(( Ӡ٠+@@.(@AdAU)@$ }(8 B(#( ˠҡ.@8 A2j (}/(!ŠҠ PRESS ANY KEYAAdAUN) }@X A`jAY<_6.@=@@P:I6-AT(@_( }@F))(@>:@',A>:@,PW4(@>:@',K>:A,>:@,C6.W(@ }Zg-@@b)6-@:7%<%,,?")"@2]6-$@%AD$AVg A d7"@ }-6-$@%AD$AV7 A n' @6-%@2' Ax'!A"6-&@2' A/ }6-&@2/6-$@%AD$AV>6-?:C:,<6-%@p(@>:@ },/"Ag(@%@/ Ap A`TAY@4 @* B0(}T( }Ҡҡ PRESS ANY KEY,AdAU")@, ApO;@V,O6.8hhhhhhh }`6-AD$AV88F:AD$AV%@e$@,"A4A`!!6-?:C:,<BsD< }<A$, #A` AP1-@"-%$@%1 "6@ A@64,0 },0,0,0,0,0,0,0"((65,234,174,186,171,234,174,186,171,66,1,7,31,127,255,63,15,3667,2,10,42,127,42,10,2,0@&&68,2 }04,153,51,102,204,153,51,102J!!69,72,178,16,76,33,72,41,18T((70,255,231,239,231,239,199,199,255^71,0,24,16,24,16,5 }6,56,0h72,0,80,32,127,32,80,0,0r73,4,6,3,255,113,51,22,4|!!74,32,124,127,28,28,31,12,0 75,0,9,210,252,252,2 }10,9,0!!76,64,198,201,41,41,41,17,2 77,0,42,124,62,124,62,84,0 78,16,32,32,24,24,32,32,16((79,255,255,255,2 }55,255,255,255,255%%97,255,136,255,34,255,68,255,17""98,8,24,28,60,62,126,127,255!!99,0,16,56,16,124,16,254,16 }''100,204,153,51,102,204,153,51,102##101,64,148,74,97,150,16,65,10))102,255,255,249,129,169,255,255,255103,0,0 },6,126,86,0,0,0 104,0,84,56,84,16,16,16,16##105,16,24,28,30,16,211,118,60$$106,0,96,224,124,126,126,36,36!!1 }07,60,60,24,60,90,24,36,66&!!108,96,224,28,2,60,64,65,620!!109,0,42,124,62,124,62,84,0:110,0,0,102,153,24,0,0,0D }))111,255,255,255,255,255,255,255,255N-1XK+@%@'AY9@@dKB7t@db' }A@'A AlY-@1(@C-@@Y(@ }vU-6-F:A`,%F:Aa,$AV%@A%@@U%@@[-@@+(@CREATI }ON=-@@[(@٠Π3-@@ 3(@trigger to beginAY@4 }2@w2T:,"Ap AP$6-A2%$@66%@@%@$+F }:%@,"@,$6-P:'AV,$6-&$AV%@%@$6-P:'AV,$6-&$AV }%@%@ !!6-?:C:hhhLV,<$@,$D1:CREATION.BAS6-P:'AV,$6-&$AV \CREATION}}}}%%%%%%%%}%%%%%%%%%%%%%%%%%%%%%%%%%%%,}%%%%%%%%%%%%%%%####%%%%%%%%%%%%%%%#}#####`%%%%%%%%%%%%%%#########%}%%%%%%%%%%%%##########%%%%%%%%%%%%##########}%%%%%%%%%%%###########%%%%%%%%%%#############}%%%%%%%%%#############%%%%%%%%%%############}%%%%%%%%%%%#########i%%%%%%%%%%%}%########%%%%%%%%%%%%#######}%%%%%%%%%%%#######%%%%%%%%%%%#######}%%%%%%%%%%%%#######,%%%%%%%%%%%###########}%%%%%%%%%%%###########%%%%%%%%%%%%#########}#j%%%%%%%%%%%############%%%%%%}%%%%%############%%%%%%%%%%%%%###########}%%%%%%%%%%%%#############%%%%%%%%%%##############}%%%%%%%%%%%############%%%%%%%%%%%############}%%%%%%%%%%%##############%%%%%%%%%%%%####}#########%%%%%%%%%%%##############% }%%%%%%%%%%##############%%%%%%%%%%%%############# }%%%%%%%%%%%%############%%%%%%%%%%%%############ }%%%%%%%%%%%%#############%%%%%%%%%%%%############# }%%%%%%%%%%%%############%%%%%%%%%%% }#############%%%%%%%%%%%%#############}%%%%%%%%%%%###############%%%%%%%%%%%################}%%%%%%%%%%%%############%%%%%%%%%%%##############}%%%%%%%%%%%%#############%%%%%%%%%%%%%########}####%%%%%%%%%%%%#############%%%%%%}%%%%%%#############%%%%%%%%%%%#############}%%%%%%%%%%%%#############%%%%%%%%%%%%############}%%%%%%%%%%%#############%%%%%%%%%%%%############}%%%%%%%%%%%#########%%%%%%%%%%%#####}g%%%%%%%%%%%%}%%%%%%%%%%%%%%%%%%%%%}%%%%%%%%%%%%%%%%%%%%%%%%%}%%%%%%%%%%%%%%%%%%%%%%%%%%%}%%%%%%%%%%%%%%h⤤%%%%%%%%%%%}%%%%%%⤤%%%%%%%%%%%%%%%%%%%⤤}%%%%%%%%%%%%%⤤%%%%%%%%%%%%⤤}%%%%%%%%%%%%%%⤤%%%%%%%%⤤}%%%%%%%%%%%⤤%%%%%%%⤤}%%%%%%%%%%⤤g%%%%%% }⤤%%%%%%%%%⤤!}%%%%%%%%%⤤%%%%%%%%⤤"}%%%%%%%%⤤%%%%%⤤#}%%%⤤$}⤤g⤤%}⤤g⤤⤤&}⤤⤤'}(})}*}+} WELCOME TO THE ANTIC MONTHLY DISK*** BONUS FILES * BONUS FILES ***ENTREPRENEUR JUNGLEBy William AustinEntrepreneur Ju-}ngle is a fast, full-featured stock market simulation withadded contemporary touches such as thelegal and ethical temptati.}ons ofinsider trading.Full instructions are in the fileENTRE.DOC.*** > MORE BONUS FILES < ***DEMO.ADV is a sample a/}dventure to beused with The Adventure Creator.See the corresponding article forcomplete instructions.O.ADV is a sample aj8~)~UDABKLCEFHITITJASBSCSDSESFSGSMSASBSCSDSESFSGSMSCASOTNXSETNBYEAMONTPATEN1}CRIMPLIMITLIMITSTARCRASBOOATIACOSSSASAJALAFAISPSBSBEEBCTICCOCSCRACDSDEHDESEASELIMITFTIFXT2}IFCOFSFOFLIMITGSGOLGLIMITINOINLIMITSHOSCOSABCBLENGTLMBTBMSSPEUMULSKIDNSGAMBLRISSHARMINIF3}IDELIMITMLIMITAG 4} 5} !"#$%&'()*+6},-./0123456789:;7}<=>?@ABCDEFGHIJK8}LMNOPQRSTUVWXYZ9}[\]^_`abcdefghij:}klmnopqrstuvENTREPRENEURBY;} WILLIAM A. AUSTIN(c)1987, ANTIC PUBLISHING1 +AR@1AA '@A'B<}7tA2<<;@,;@,;@,;@',;@%,4]];@,;@,;@!,;@',;=}@#,;@,;@,;@$,dZ6. THE STOCK %6. THANK YOU.:6.INSIDERS TIP: Z6.You don't have that >}many.xY6. Stock Value: 06.Shares Available: E6.Shares Owned: Y6. Total Value: z>6.Your Cash Reserves: $?}>6.Not that much available.|e%6.How many shares do you wantC6.How many shares to selle6.You don't have enoug@}h cash.c6-AP6-@P'6-A%36-A?6-APK6-APW6-Ac6-A,i%6-P:@$HA}:@,,%@%G6-P:@$H:@,,%@i6-P:@%$H:@,,%@%6%6-P:@%$H:@,,%@GB}6-P:@$H:@,,%@i6-P:A$H:@,,%A6-P:A$H:@,,%A8%%6-P:A$H:@C},,%A%--@@-(Is this a new game?'@"@@K/)@:@@(}*1D}"@6-A'6-A1 A , A 4x (}-@@.(You have $100.1(S(Do you wish tE}o make a depositV(x(in a Swiss bank at this time?5@"@@K/)@:@@(}6F}@A8> (} (((:(How much do you wish to deposit>:E ! (/(You don't have that much cash.G};6-@E A < 6-&6-% AY-@@1(What is your net worth5;6-A6-M!DH}Y6-@@((What year is this!$(<(What month is this@(((Value of patents (6-&l(I}&(Number of Grand Jury files*-(P(Amount of political donationsT`!@l6-@!AP6-@J}e%6-P:@$H:@,,%@-6-$56-$=6-$E6-$M6-$U6-$]6-$e6-$e%6-P:@$H:K}@,,%@-6-$56-$=6-$E6-$M6-$U6-$]6-$e6-$e (}-@@(@(Do you wisL}h to make a depositC(e(in a Swiss bank at this time?@"@@K/)@:@@(}%M}"@6-% A@A> (} (((:(How much do you wish to deposit>E !N} (/(You don't have that much cash.;6-@E A  6-&6-% (}AJAX%"6-@%O} A3 B(}L' (}'( 箠N"@6-P!6-%@QP}"@6-S!6-%@X!6-%@Z"@6-@e' 6-6-Q}6-!6-@'6-~+ B6-6-6-+6-@"@@K/)@:@R}@(}G"@6-=6-P:@$H:@,,%@%G A %"@6-% A "@fS}A"@A? A @ (} (((Y( (((r( (w"A T}|) ! (((6-@) A1 6-$!((('6-@1 A! 6-&6-&6-%!6-U} A  (} (((( (((( (%"6-@% A) ! (((V}6-@) A 6-$ 6-%6-%6-& A  (}BEAR4&&( W}M' 6-6-6-!6-@'6-f+ B6-6-6-+6- @"@@K/)@X}:@@(} G"@6-=6-P:@$H:@,,%@G A0 %"@6-% Y}A0 "@fA& "@A'' A0(  (} (((A ( (((Z ( (_Z} " A0d ) ! (((6-@) A%n 1 6-$!((('6-@1 A%x ! 6-&[}6-&6-%!6- A0  (} ((( ( ((( ( ( %"6-@% A%\} ) ! (((6-@) A% 6-$  6-%6-%6-& A0  (}CRATER ""( ]} ( !6-%@* "@6-@5 ' 6-6-6-!6-@'6-N + B^}6-6-6-+6- @"@@K/)@:@@(} G"@6-_}=6-P:@%$H:@,,%@%G A@ %"@6-% A@ "@fA6 "@A7`} A@ (} ((()( (((B( (G"A@L) ! (((6-@a}) A5V1 6-$!((('6-@1 A5`! 6-&6-&6-%!6-s A@t (} (((b}( (((( (%"6-@% A5) ! (((6-@) A5 6-c}$ 6-%6-%6-& A@ (}DEHRING##( ' 6-6-6-!6-@d}'6-6+ B6-6-6-+6-@"@@K/)@:@@(}Ge}"@6-=6-P:@%$H:@,,%@G AP%"@6-% AP"@fAFf}"@AG AP (} (((( (((*( (/"AP4) !g} (((6-@) AE>1 6-$!((('6-@1 AEH! 6-&6-&6-%!6-[ APq}B%DOS SYSB*)DUP SYSBKSBIGTEXT BASBUCREATIONBASB9DEMO ADVB,DOC B0ENTRE BASB::ENTRE DOCttMAZE BASROMAN BAS*SMOOTHY BAS $SMOOTHY DAT%-SMOOTHY M65\ (} (((u( (((( (%"6-@% AE) ! (((6-@r}) AE 6-$ 6-%6-%6-& AP (}EASY##( 䠦' 6-6s}-6-!6-@'6-+ B6-6-6-+6-|@"@@K/)@:@t}@(}~G"@6-=6-P:@$H:@,,%@G A`%"@6-% A`"u}@fAV"@AW A` (} (((( (((( ("v}A`) ! (((6-@) AU&1 6-$!((('6-@1 AU0! 6-&6-&6-%!w}6-C A`D (} (((]( (((v( ({" A`) ! (((6-@x}) AU 6-$ 6-%6-%6-& A`p (}FOXz!A6-@|"y}Ap$$( !6-%@!6-%@"@6-@z}' 6-6-6-!6-@'6-+ B6-6-6-+6-d@"@@K/)@{}:@@(}fG"@6-=6-P:A$H:@,,%AG Apn%"@6-% |}Apx"@fAf"@Ag Ap (} (((( (((( (}}"Ap) ! (((6-@) AU1 6-$!((('6-@1 Ae! 6-&6~}-&6-%!6-+ Ap, (} (((E( (((^( (c"Aph) ! (}((6-@) Aer 6-$| 6-%6-%6-& ApX (}GOLD]!A6-@b}"B0##( ' 6-6-6-!6-@'6-+ B6-6-6-}+6-L@"@@K/)@:@@(}NG"@6-=6-P:A$H:@},,%AG B0V%"@6-% B0`"@fAvj"@Aw B0 (}} (((( (((( ("B0) ! (((6-@) Au1 6-$}!((('6-@1 Au! 6-&6-&6-%!6- B0 (} (((-( (((}F( (K"B0P) ! (((6-@) AuZ 6-$d 6-%6-%6-&w B}0@ (}RISKJ!A 6-@L"A$$( "A}m 6-+6-P:@$H:@,,%@7@[6-P:'@$H:@,,%@c6-%m AP5%6-P:}@$H:@,,%@-6-$56-%<("(YOUR INVESTMENT WAS $%(<(YOUR RETURN IS $ BP(# (}}SHOW-#!AP6-@/#"B2#--(% <#"A}>#"@A@#"@AB#"@A#@"@@K/)@:@}@(}# B#*('(A PRODUCER IS PLANNING A NEW*(#>%6-P:@$H:@,,%@1"@>(MUSICAL.}##"@#(MUSICAL COMEDY.#"@(COMEDY.#"@(DRAMA.#3%6-P:@#$H:@,,%@}36-$A#3( (3(BASIC PARTICIPATION WILL COST $.#I()(DO YOU WISH TO INVEST IN THIS?,(I(YOUR CASH RE}SERVE IS $#:"@@K/)@:@#@B# A#7   (-(YO}U DON'T HAVE ENOUGH MONEY.7 A#w%6-P:@$H:@,,%@G6-P:@$H:@,,%@i6-P:@$H:}@,,%@w6-'@#+ 6-%!@ #!@ +6-%#! 6-&6-@! B#k%6-P:@$H}:@,,%@1"@4(7(U(THE SHOW IS IN REHEARSAL.a6-@k A#l( (+(THE SHOW CLOSED IN REHE}ARSAL..(V(YOU LOST YOUR INVESTMENT OF $.b6-l AT$S6-%@(3(THE SHOW IS IN WEEK .A6}-'@G!S6-@^$/6-P:$H:@,,%@'6-%/6-%h$'( ('(QUARTERLY BOX OFFICE: $j$%( (}%(BOX OFFICE TO DATE: $l$"( ("(YOUR INVESTMENT: $n$( ((CASH RESERVE: $$ A$0( (0(THE SH}OW CLOSED AFTER  WEEKS.$%( (%(YOUR INVESTMENT WAS $$!( (!(YOUR RETURN WAS $$?6-6-}'6-36-?6-$ A% OPTIONS&%2 (}2($AT WHAT LEVEL DO YOU WISH TO INVEST?0%#( ( (}#( (1) $:%%(%( (2) $$@D%%(%( (3) $$@X%%(%( (4) $}$@b%%(%( (5) $$@ l%-( ( (-(YOUR CASH RESERVE IS $.%@"@@K}/)@:@@(}%"@P6-$@%"@Q6-$@%"@R6-$@%"}@S6-$@ %$' TNW$'--6-%%$%$%$%$%$%$%$%%$s'$t'/"@6-% B`/}UP/DOWNu'%"@6-% Bfv'"@Bw'"@Bax'%"@6-% Bf}y'%"@6-% B`z'%"@6-% B{'%"@6-% B`|'%"@}6-% Bf}'9%6-P:@3$H:@,,%@9"@B`~']%6-P:@ $H:@,,%@1"}@4(S(THE MARKET REMAINS STABLE.] Bp'%%6-P:@ $H:@,,%@';6-@!@'6-@};"@ B'/6-@"@/!AB@'/"@6-@/!AB@'/"}@6-@ /!AB@'5"@!@!6-5!A%B@';"@6-@'6-@};!AB@'/"@6-A/!BB@'/"@6-@P/!A0B@'/}"@6-A/!BPB@'1 !6-$@#"16-$@'A6-P:$H:@,,%@+}"@76-A B';%6-P:@$H:@,,%@1"@; B '("@6-%'+"@}6-&+ @B ("@(ROSE ("@(FELL (,( (((((!(}$(,($ (((Last Price Paid: $((( ((;($) UNUSUAL)1%6-P:@($H:@,,%@16-@})"@B)"@B )"@B0)"@B`)"@Bp)"@}B)"@B )"@B")"@ B$)"@B &)"@B0}()"@B@*)"@BP,)"@B`6)"@Bp8)"@B:)"}@B<)"@B>)"@B@)"@ B B)"@!BPD)"@"B}`F)"@#BpH)%"@$6-@% BJ)%"@%6-@% BL)="@&6-@}'6-@36-@ = BN)U"@'6-@'6-@36-@?6-@K6-@ U BP})#"@(#"@BdR)#"@(#"@BdT)#"@(#"@BdV)1"@(6-@}'6-@ 1 Bh)"@B Pj)L(&(The firm has gone bankrupt!)(16-%=6-I6-@L}$|)>(*(Comptroller indicted for fraud!>"@B)'6-&@6-@' B)I('(Cash lost in} Bank Failure!!!36-?6-@I B )9%6-P:@$H:@,,%@9 @B@)"@B}P)j((2 for 1 stock split!-6-$@;6-$@I6-'@R6-P:,^ @j6-@)6-@} B)j((3 for 1 stock split!-6-$@;6-$@I6-'@R6-P:,^ @j6-@)6-}@ B)D((Successful merger!!*6-@06-:6-%%D B)V(((Unsuccessful merger attempt!!}46-@@6-AL6-@V B@)"B)Q('(IMPROPER STOCK REGISTRATION!/6-%;6-}G6-@Q B )"B)j((FRIENDLY TAKEOVER!!&6-$46-$@J6-P:$H:@,,%R6}-%^6-j6-@)8(-( YOU RECEIVE $ FOR YOUR STOCK.56-%8$)"B)a((HOSTIL}E TAKEOVER!!%6-$A6-P:$H:@,,%@I6-%U6-a6-@)8(-( YOU RECEIVE $ FOR YOUR STOCK.}56-%8$)p(0(%EXPANSION SUCCEEDS, NEW STOCK ISSUED!86-%F6-$@N6-&Z6-@f6-Ap B})B( (EXPANSION PLANS FAIL!,6-@86-@PB B)=((SALES DOUBLE!!'6-$@36-@= B})=((SALES TREBLE!!'6-$@36-@= B)=(%(BANK COMPUTER MALFUNCTION!1 @%=6-@%*}C%6-P:@$H:@,,%@-6-$96-@C B* @Bp *R($(CASH SEIZED IN TAX AUDIT!0}6-<6-@H6-@R B*"B*[(%(STOCK SEIZED IN TAX AUDIT!-6-%96-}E6-@Q6-@[ B*%6-P:@ $H:@,,%@+6-96-$@<(h(COMPUTER ERROR ISSUES YOU } SHARES!p6-%|6-@6-@ B&*h(&($ PROFIT SHARING PAID!06-%$R6-P:@$H:@},,%@^6-@h B0*a%6-P:@ $H:@,,%@36-$@6(W($ PER SHARE BONUS PAID!a6-}%$2*/6-@%6-P:$H:@,,%/ B:* @B<*R(.(#LABOR UNION STRIKES! STOCKS TUMBLE!<6}-&@H6-@R BD**(*(CREDITORS FORCE REORGANIZATION!H*'"@6-@'6-@%I*'"@}6-@'6-@J*'"@6-@%'6-@%K*'"@6-@%'6-@L*'"@6-}@'6-@M*'"@6-A'6-AN*'"@6-A'6-AO*'"@6-A}'6-AS*-6-P:$H:@,,%"-6-%@U*' !6-&6-@' BW*' !6-&6-@}' Bb*+(+( FAVORABLE UNION CONTRACT SIGNED!d*B!6-P:$H:@,,%'@*6-P:,6 @B6-@f*6}-@ Bl*-(-("MERGER RUMOR CAUSES STOCK TO JUMP!n*C%6-P:@$H:@,,%@-6-$96-@C B}v* AB`x*,(,(!TAX AUDIT RUMOR! STOCKS GO DOWN!z*'6-&A6-@' B* DIV*'}"@6-@'6-@*'"@6-@'6-@*'"@6-@'6-@*'"@}6-@'6-@*'"@6-@'6-@*'"@6-@ '6-@*'"@6-}@%'6-@%*'"@6-@P'6-@P*-6-P:$H:@,,%!6-%-6-@*4(*($ PER S}HARE DIVIDEND PAID!46-%$*$*q(0(%A foreign financial cartel intervenes3(](%to prevent bankruptcy! Firm is be}ing`(q( reorganized!*?6-%A36-P:A$H:@,,%A?6-@*$* ILLEGAL+"B }+- (}-(  +"B+%"@6-% B*+@"@@}K/)@:@@(}>+ B \+ SET-UPf+%%6-P:@ $H:@,,%@p+4( (1(#VE}NTURE CAPITAL IS BEING SOUGHT FOR4(z+I"@3(IMPORTING AGRICULTURAL PRODUCTS6(I(FROM COLOMBIA.|+C"@}1(IMPORTING FLORAL ARRANGEMENTS4(C( FROM LAOS.~+M"@5(!IMPORTING PHARMACEUTICAL PRODUCTS8(M(FROM MARSEILL}ES.+C"@1(EXPORTING ELECTRONIC PRODUCTS4(C( TO RUSSIA.+H"@-(EXPORTING FARM IMPLEMENTS0(H(TO} THE MIDDLE EAST.+M"@2(MAKING POLITICAL CONTRIBUTIONS5(M(IN CENTRAL AMERICA.+3"@3(IMPORTING O}LIVE OIL FROM SICILY+I"@0(FINANCING A STABLE OF PONIES3(I(IN ATLANTIC CITY.+@"@ +(FINANCING A }SOCIAL CLUB.(@( IN LAS VEGAS.+%%6-P:@$H:@,,%@+( (( THIS IS A +"@(LOW+}"@(MODERATE+"@(HIGH+"@( VERY HIGH+( RISK VENTURE.$,6-@&6-$A}.,( (( SHARES ARE $8,)( ()(DO YOU WISH TO PARTICIPATE?B,( ((,@"@@K/})@:@@(},@B ,) (} ((()( SHARES COST $,;( (/( HOW MANY DO YOU WIS}H TO PURCHASE3;6-$,9 ! ((/(YOU DON'T HAVE ENOUGH CASH.9 BP,! 6-&6-@! B , RES}ULT,A6-%@36-P:A$H:@,,%@AB-36-P:$H:@,,%@3"@BP -(}(THE VENTURE FAILED. -:"@@K/)@:@- B-!(!(THE VENTURE SUCCEED}ED!(-N6-$@6-$'6-'@/6-%86-P:,N6-P:$H:@,,%2-N( (+(YOUR ORIGINAL INVESTMENT: $}.(1(F(YOUR RETURN: $N6-%7- B2P- INDICTZ-L(.(#YOU HAVE BEEN INDICTED BY THE GRAND1(L(JURY FOR RAC}KETEERING!\-9%6-P:@$H:@,,%@9@BP^-%"@6-% BP_-2( (2($ALL OF }YOUR ASSETS HAVE BEEN SEIZED!d-s6-6-%#6-+6-%76-?6-%K6-S6-%_6-}g6-%s6-f- 6-%6-6-%+6-76-C6-O6-[6-g6-s6}-6-6-%6-i- BP-G( (+(YOU HAVE BEEN FOUND INNOCENT!76-:(=(G BP}. (}PATENT.!B6-@."BP.) (})( ҦĠ."}B!.b((6-P:@$H:@,,%@4"@L(THE PROJECT FAILED.X6-b B!/8$(THE PATENT H}AS BEEN GRANTED.,6-%86-D/"B"N/X6-'@-6-P:$H:@,,%@0(3(P(QUARTERLY }ROYALTIES: $X6-%/+%6-P:@$H:@,,%@((+(/' (A "@'( PHARMACIST/("@((M}ECHANICAL ENGINEER/&"@&(CHEMICAL ENGINEER/&"@&(NUCLEAR PHYSICIST/'"@'(WEAPONS SP}ECIALIST/'"@'(MEDICAL RESEARCHER/76-P:$H:@,,%A+!C76-C/=( IS SEEKING }(=($ FUNDING FOR A NEW PROJECT./'((ARE YOU INTERESTED?!('(/:"@@K/)@}:@/%"@6-% BP/#@#@BP/"@B"u/C   (-(YO}U DON'T HAVE ENOUGH MONEY.96-@C B"P/ 6-6-& BP/I"(3(YOU HAVE NO PATENTS TO SELL}.?6-@I B"P// (} (/(YOUR PATENTS ARE VALUED AT $/6 6-6-'@ 6-P:,66-P:$H:@,,%}/]( ('(YOU HAVE BEEN OFFERED $*(?(FOR YOUR RIGHTS.B(E(](ARE YOU INTERESTED?/:"@@}K/)@:@/@BP0! 6-%6-! BP2 (}MULTI2"A,3'}'( E3' 6-6-6-!6-@'6-^3+ B6-6-6-+6-4@"}@@K/)@:@@(}4%"@6-% A4%"@6-% A}4"@fB64"@B75 A 5 (} (((95( (((R5( (W5}"A\5) ! (((6-@) B5f51 6-$!((('6-@1 B5p5! 6-&6-}&6-%!6-5 A5 (} (((5( (((5( (5"A5) ! ((}(6-@) B55 6-$5 6-%6-%6-&5 A: POLIT:!A6-@:"}A:"A:- (}-( :A( (0("WOULD YOU LIKE TO MAKE A POLIT}ICAL3(A( DONATION?:@"@@K/)@:@@(}:@A:;( ((7}("HOW MUCH DO YOU WISH TO CONTRIBUTE;:: ! (0(YOU DON'T HAVE THAT MUCH MONEY.: BT: 6-&6-%:}"BU:#"#!APBUP:)6-$A  A )6-A :66-P:$H:@,,%@}%!((,(6 BT`;%%6-P:@2$H:@,,%@f; !(( BTh; !(( BTj};,"@"("(, BTl;S"@!(G($YOUR GRAND JURY FILES HAVE VANISHED!S6-}t;"@BV~;!@ @=6-P:@$H:@,,%@_6-P:@$H:@,,%@6-P:}@$H:@,,%@ BW;,"@"@("(, BT;V"@6-@(C( A LETTER }HAS BEEN WRITTEN TO THEF(V( GRAND JURY.;n"@6-$@ (H(#THERE HAS BEEN A BANK ERROR IN YOURK(V(FAV}OR!b An6-A;."@6-'@&6-P:,.6-%;]"@(3($ HAS BEEN DEPOSITED IN}6(S(YOUR SWISS BANK ACCOUNT!] BT;"!@ @0("(;"@0BVP;"@1BV;}"@2BX(<@"@@K/)@:@@(}*< A<5%6-P:A$H:@,,}%@+!5 BU< BQ6-@J6-@r=H"@*(BUY AJAX AND SELL FOX!0! }<6-@H6-@t=V"@,(BUY AJAX, CRATER AND FOX2!>6-@J6-@V6-@= BT= }m(0(%Darkside IS SEEKING A LEGITIMATE FIRM3(Y(!TO 'LAUNDER' FUNDS. WHERE SHOULD\(m( THEY INVEST?=+( (+(THE }REWERY, EHRING OR ASY?=~"@@K/)@:@\6-P:@$H:@,,%@h"@f}p6-$~6-%@P=%"@h6-$%6-%A=%"@i6-$%6-%AP= A> SPECIAL}>9%6-P:@$H:@,,%@9"@Bd>5("@5(A GOVERNMENT CONTRACT GRANTED!>-"@}-(HOLIDAY BEER SALES JUMP!!>2"@2(NEW RESEARCH CONTRACT GRANTED!?2"@2(HIGH RISK INVESTMENT SUCC}EEDS! ?2"@2(PROPERTY VALUES RISE SHARPLY!!?5"@5(!GOVERNMENT FREIGHT LINE GRANTED!! ?0"@0}(NEW MOTHER LODE DISCOVERED!!*?-"@-(FOREIGN CONTRACT SIGNED!!H?)6-$@ @u)6-@uR?6-}P:$H:@,,%\?6-@ B@SPECIAL LOSS@9%6-P:@$H:@,,%@9"@Bf@ }@Bat@4("@4(GOVERNMENT CONTRACT CANCELED!~@3"@3(COLD WEATHER: BEER SALES DROP!@+}"@+(RESEARCH PROJECT FAILS!@/"@/(HIGH RISK INVESTMENTS FAIL!@2"@2(PROPERTY VALUES DROP S}HARPLY!!@-"@-(SAFETY VIOLATIONS CITED!!@0"@0(NEW MINE YIELDS FOOL'S GOLD!@."@.(FORE}IGN CONTRACT CANCELED!@*(6-&@ 6-@* B@-(-("FOREIGN INVESTORS CAUSE EXPANSION!@36-$@} A36-A%$@@ 6-%6-%@6-@ B N REPORT*N76-%@"@)6-}76-%@4NE!@C16-P:@$H:@,,%@E"@BN( (}(( }N5(/( YEAR  MONTH 2(5(N%%6-P:@$H:@,,%@N""(CURRENT SWISS ACCOUNT:} $NK( (% INTEREST PAID: $(6-$66-'A?6-P:,G6-%K(N=( ( B"=(YOUR NET WORTH H}AS NOT CHANGED.N2 !6-&2(YOUR NET WORTH INCREASED $N2 !6-&2(YOUR NET WORTH DECREASED $N 6-}N4( (+(YOUR CURRENT NET WORTH IS $.(4(N:"@@K/)@:@N1"}!D'6-@1 BN"@BN#@#@hAN"@BN"@h }BPLOY (} (,(YOUR CURRENT DEPOSIT IS $/(U( HOW MUCH DO YOU WANT TO WITHDRAWYVO4 ! (*(YOU DON!}'T HAVE THAT MUCH.4 BXO 6-&6-% A~O; (}((7(HOW MUCH DO YOU WANT TO DEPOSIT;O9 !"} (/(YOU DON'T HAVE THAT MUCH CASH.9 BO 6-%6-& AO' (}'( 塡O#( (#}#(YOUR NET WORTH IS $O.(.(THIS IS MONTH  , OF YEAR .O&(&(VALUE OF PATENT RIGHTS: $O"( ("(G$}RAND JURY FILES: O&( (&(POLITICAL DONATIONS: $O="@@K/)@:@=%P( (%}}(( 塡P B6-@!%Pf-@@?(At the age of  you have achievedB&}(f(a personal net worth of $! PH( (2($Congratulations on your skills as an5(H(entrepreneur!!FP="@'}@K/)@:@=%xPz (}-@@1(Congratulations!!4(f(At the age of %@!(} you have become ai(z( Billionaire!P4( (4(&You're an Entrepreneur Extraordinaire!Pm(+( Would you like to e)}tire, take a.(T(!acation, ontinue your career orW(m(tart a new game?P:"@@K/)@*}:@P"@BP"@gBP"@BP"@%P BPa$a FU+}TURESa%%6-P:@$H:@,,%@a3(0(%THERE IS AN INVESTMENT OPPORTUNITY IN3( b<"@$(OLD COMIC BO,}OKS.06-@<6-@%b="@%(THE MEXICAN PESO.16-@%=6-@P b="@%(THE JAPANESE YEN-}.16-A=6-AP*b@"@((THE AMERICAN DOLLAR.46-AP@6-@u4b>"@&(PORKBELLY FUTURE.}S.26-AP>6-AP>b="@%(STRATEGIC METALS.16-A=6-AHb8"@ ( RARE METALS.,6-/}A86-APRb7"@( GEM STONES.+6-A76-A\bI"@ 1(INDUSTRIAL ZONED REAL ESTATE.=60}-API6-AP^bJ"@2(ACQUISITION AND RESALE OF ART.>6-BPJ6-B`bC"@+(BASEBALL T1}RADING CARDS.76-APC6-Adb<"@$(SOYBEAN FUTURES.06-A<6-AfbE"@-(RESORT H2}OTEL DEVELOPMENT.96-BE6-BPpb6-P:$H:@,,%zbK(%(REQUIRED INVESTMENT IS $((+(K(DO YOU WISH3} TO PARTICIPATE?|b ( (b@"@@K/)@:@@(}b"@6-$b4}@6-$b BTbL ! (6(%YOU DON'T HAVE ENOUGH CASH TO INVEST.B6-@L BSb 6-5}&$8cFUT OPTIONSBc2 (}2($AT WHAT LEVEL DO YOU WISH TO INVEST?Lc#( ( (#( (1) $Vc%(%( 6} (2) $$@`c%(%( (3) $$@tc%(%( (4) $$@!~c%(%( (5) $$@7}(c-( ( (-(YOUR CASH RESERVE IS $.c@"@@K/)@:@@(}c"@P8}6-$@c"@Q6-$@c"@R6-$@!c"@S6-$@(c BS 0u*9}@ AR@* B D:ENTRE.BAS@R6-$@!c"@S6-$@(c BS 0u*7ENTREPRENEUR JUNGLEBY WILLIAM AUSTINANTIC SUPER DISK BONUS, MARCH1988Entrepreneur Jungle is a fast,full-featured stoc;}k marketsimulation with addedcontemporary touches such as thelegal and ethical temptations ofinsider trading. Your BASIC<}broker is an 8-bit Atari computerwith at least 48K memory and diskdrive.Only a few keystrokes arenecessary to control t=}he tradingaction as you claw your way togreat wealth. When a given stockis being offered for speculation,the player can >}[B]uy, [S]ell ormove on to a differentopportunity for speculation.Pressing the [SPACEBAR] will takeyou to the next invest?}ment areawithout action being taken.[RETURN] needs to be pressed onlyduring a transaction, when adollar amount or number @}of sharesis entered.When you're asked if you want totake advantage of an investment,entering [Y]es displays theoptions.A}If you obtain control of a firm(better than 50% of theoutstanding stock), fluctuationwill double. If you acquire100%, B}fluctuation will quadruple.This tends to bankrupt a poorlyfinanced company, although thepotential profits are huge.PORTFC}OLIO POSSIBILITIESAJAX MFG. CORP.* Beginning shares: 150* Average per-share amount: $30* Normal quarterly fluctuation: $D}5* Normal per-share split: $700* Other: Ajax relies largely on government contracts for its growth.BEAR BREATH BREWEE}RY CO.* Beginning shares: 50* Average per-share amount: $8* Normal quarterly fluctuation: $5* Normal per-share split: $30F}0* Other: Bear Breath is the smallest company offered on the trading board.CRATER TECH INC.* Beginning shares: 125* G}Average per-share amount: $30-40* Normal quarterly fluctuation: $10-20* Normal per-share split: $1,000* Other: Crater is tH}ied closely to government money for its growth.DEHRING INVESTMENTS* Beginning shares: 100* Average per-share amount: I}$25* Normal quarterly fluctuation: $5* Normal per-share split: $2,500* Other: Dehring is daring -- If the stock value isJ} over $10, fluctuations can match the value of the shares.EASY BOND AND TRUST* Beginning shares: 5,000* Average per-sK}hare amount: $10* Normal quarterly fluctuation: $5* Normal per-share split: $500* Other: Easy Bond is extremely cautiousL} in its investments. More than 95% of the time, the stock will rise, but only a few dollars a quarter.FLYING FOX AIRLM}INES* Beginning shares: 250* Average per-share amount: $150* Normal quarterly fluctuation: $25-35* Normal per-share splitN}: $3,000* Other: Flying Fox is government-dependent.GRANDE GOLD MINES* Beginning shares: 500* Average per-share amountO}: $300* Normal quarterly fluctuation: $50-75* Normal per-share split: $10,000* Other: Your net worth MUST exceed $1,000.P}MULTINATIONAL ARMS CO.* Beginning shares: $1,000* Average per-share amount: $750* Normal quarterly fluctuation: > $100*Q} Normal per-share split: $25,000* Other: This stock is never openly traded, and you must obtain a letter of introductionR} from a government figure before it will be offered to you. This usually takes an accumulated donation to "the party"S} of $5,000.Multinational will NEVER gobankrupt. Foreign powers aredependent upon its products thatthey will step in aT}nd refinanceif necessary. However, this doesnot protect you against loss --stock values can still plummetdisastrously.U}RISQUE FUTURES, INC.Risque acts as "finders" forvaried investments ranging frompork belly futures to speculatingin old cV}omic books. Taking partin these ventures can cost lessthan $100 -- or more than$1,000,000.The opportunity and first levW}elinvestment requirements will bedescribed to you. To take partin the venture, enter [Y]es.Then select one of five levelX}s ofparticipation. The results ofyour investment will be posted inthe next quarter. Risks aregenerally high, but the reY}turnscan be magnificent.BI COASTAL THEATER PRODUCTIONS, LTD.When your wealth reaches $5,000,you can become a Broadway Z}"angel"-- and all the glamour, glitterand glitz of show business can beyours. Investing in Bi Coastalis similar to inves[}ting inRisque. However, many showsclose before the firstperformance. However, if yourproduction goes on stage, you'llg\}et part of the box officereceipts as long as the showruns. The usual investmentstarts at $5,000, butoccasionally you can]} invest forunder $1,000.DARKSIDE VENTURES, INC.These opportunities are neverpublicly offered. A letter ofintroductio^}n -- usually costing$50 to $100 in politicaldonations -- is necessary beforethe proprietors will let you inon the deal. _}Dealings are shady-- sometimes illegal. Both therisks and the possible profitsare extremely high.The higher the risk, t`}he morewilling the group is to accept asmaller investment. You will betold of the cost of a piece ofthe action and, if ya}ou say [Y]es,you'll be asked how many "pieces"you want. For example, if it isa very high risk venture, a"piece" is $100.b} If you chooseto, you can speculate millions ofdollars with these "gentlemen."But keep an eye out for the GrandJury.Ec}XPERITECH R&D INC.When your total assets exceed$10,000, you can take part in thecutting edge of new products andprocessed}s. Experitech is a groupof technicians who are alwaysseeking financial aid forresearch and development. Manyprojects fae}il, but successfulones generate quarterly royaltypayments for the rest of yourcareer.If you find yourself short ofcash,f} you may seek a bid for thecompany by arranging to [S]ellwhen Experitech is on the board.PARTY WAR CHEST FOUNDATIONThig}s is the channel by which youroute "donations" (some wouldcall them bribes) to some of thepoliticians. Nothing bad willhh}appen if you don't donate, butdonations can make a bigdifference in your investments.QUARTERLY REPORTAt the end of evei}ry quarter, yourAtari broker will submit aquarterly report outlining yourcurrent status. At this time youmay [D]eposit oj}r [W]ithdraw moneyfrom your Swiss Bank account.Your net worth only measures yourwealth in tangible assets.Intangibles, sk}uch as investmentsin commodity futures, Darksideventures or financing of researchwill not be considered in thecompilationl}.PLAYING TIPSA complete game -- 44-plus gameyears -- normally takes severalhours. You may leave the programat any qum}arter by taking a[V]acation. You will be informedas to your net worth, the valueof your patents, how thick yourGrand Jurn}y file is and how largeyour political donations are.Note these figures, and inputthem in response to the promptswhen you o}return.Of course, your stocks will becashed in. You don't want to napon the beaches of Bimini withyour investments not p}being tendedto. When you return, the marketwill be different from before --You're not the only Entrepreneurmanipulating q}the economic forces.Command Summary: You may [B]uy,[S]ell, [W]ithdraw or [D]epositmoney in your Swiss Bank account,say r}[Y]es or take a [V]acation.One last tip: If you shouldaccidentally, or purposefully,BREAK out of the program, you mayres}join the action at the nextquarter by typing GOTO 30000 andentering [RETURN].sefully,BREAK out of the program, you mayreP100 ' MAZE MASTER140 ' BY STEPHEN EVERMAN & PAUL PRATT180 ' (c)1987, ANTIC PUBLISHING INC.190 VIDEORAM=PEEK(1102)*"u}65536+ABS(PEEK(1104))195 A$= CHR$(0)+CHR$(0)+CHR$(0)+CHR$(0)197 A=VARPTR(A$):A1=INT(A/65536):A2=A-(A1*65536)'used in co"v}pyform as pointer210 CO=1:OFF=0:OON=1:NUM=1:MZON=OFF220 FULLW 2:CLEARW 2:HANDLE=2:A#=GB:CONTROL=PEEK(A#)240 GINTOUT="w}PEEK(A#+12):GINTIN=PEEK(A#+8)260 RANDOMIZE 0:DIM MZ%(31,31),BK%(700,2),KOL%(16),BK2%(400,2)280 RESTORE 5780:GOSUB KOLOR"x}285 GOTOXY 5,15:? CHR$(189);" 1987 PRATT & EVERMAN";CHR$(7);320 COLOR 2,0,0,0:FOR X=0 TO 30:GOSUB POLYLINE:NEXT 'hide "y}output box340 RESTORE 5700:GOSUB PRSTRING360 COLOR 2:GOTOXY 49,10:?"W E":GOTOXY 52,9:?"N":GOTOXY 52,11:?"S"380 C"z}OLOR 1:GOTOXY 48,13:?"TRACE ON":GOTOXY 52,10400 GOTOXY 38,15:?"MAKE SHOW PATH RSET QUIT"420 COLOR 1,1,1,9:REST"{}ORE 6780440 FOR X=0 TO 3:READ A,B,C,D:LINEF A,B,C,D:NEXT460 COLOR 1,3,3:FOR X=0 TO 27:READ A,B,C,D:LINEF A,B,C,D:NEXT4"|}80 FILL 462,93500 GOSUB DISPLAY.MAN 'poke top man into video ram520 GOTOXY 5,15:?"WELCOME TO MAZE MASTER ";:COLOR"}} 2:? CHR$(3)540 COLOR 1:GOTOXY 6,16:?"PLEASE CLICK ON MAKE"560 MAIN:'***********************************************  "~}580 WHILE FINI=OFF600 GOSUB RAT:TI=TI+1620 IF ABS(PEEK(1212))> 198 THEN POKE 1212,1 :S=S+1:IF S=60 THEN S=0:M=M+16"}40 IF TIM=OON AND TI>20 THEN COLOR 3:GOTOXY 4,16:?" TIME:";S;"SEC ";M;"MIN " :GOSUB SHOW:TI=0660 IF MOU=1 AND NOT(MX"}>436 AND MX<506 AND MY>102 AND MY<132) THEN GOSUB MAIN2680 IF MX>434 AND MX<461 AND MY>111 AND MY<121 AND MOU=1 THEN GOSUB"} MOV.W700 IF MX>461 AND MX<484 AND MY>102 AND MY<111 AND MOU=1 THEN GOSUB MOV.N720 IF MX>483 AND MX<506 AND MY>112 AND "}MY<121 AND MOU=1 THEN GOSUB MOV.E740 IF MX>460 AND MX<489 AND MY>122 AND MY<132 AND MOU=1 THEN GOSUB MOV.S760 'GOTOXY 4"},15:? MX,MY:GOSUB SHOW780 WEND:END '***********************************************  800 MAIN2: '****** used to unclu"}tter main and speed up room movement820 IF MX>497 AND MX<552 AND MY>154 AND MY<169 AND MOU=1 AND MZON=OON THEN GOSUB RE.SE"}T:COL=SCOL:ROW=SROW:GOSUB OUTPUT:NMOVE=0:S=-1:M=0:TI=33840 IF MOU=1 AND F1=1 AND MY>154 AND MY<169 AND MX>331 AND MX<387 T"}HEN GOSUB MAKE.MAZE860 IF MOU=1 AND MY>154 AND MY<169 AND MX>387 AND MX<440 AND MZON=OON AND F1=1 THEN GOSUB ANSW880"} IF MOU=1 AND MY>154 AND MY<169 AND MX>441 AND MX<497 AND MZON=OON AND F1=1 THEN GOSUB PATH900 IF MOU=1 AND F1=1 AND M"}Y>137 AND MY<150 AND MX>410 AND MX<530 THEN COLOR 1: GOSUB TRAC920 IF MOU=1 AND MY>154 AND MY<170 AND MX>553 AND MX<670 T"}HEN COLOR 1:FINI=OON940 RETURN '*******************************960 COPY:'**********980 X1=278:Y1=96:X2=404:Y2=150:O"}FX=130:OFY=-651000 GOSUB VRO.COPYFORM 'copy empty screen over man1020 RETURN1040 MOV.W:'************1060 IF (MZ%(COL,"}ROW-1)AND 2)<>2 OR MZON=OFF THEN RETURN1100 GOSUB COPY:ROW=ROW-1:GOSUB OUTPUT1120 X1=300:Y1=0:X2=332:Y2=18:OFX=208:OFY=5"}01140 GOSUB VRO.COPYFORM 'copy top man down into direction window1160 RETURN1180 MOV.E:'************1200 IF (MZ%(COL,"}ROW+1)AND 8)<>8 OR MZON=OFF THEN RETURN1240 GOSUB COPY:ROW=ROW+1:GOSUB OUTPUT1260 X1=300:Y1=0:X2=332:Y2=18:OFX=112:OFY=5"}0:GOSUB VRO.COPYFORM1300 RETURN1320 MOV.N:'************1340 IF (MZ%(COL-1,ROW)AND 4)<>4 OR MZON=OFF THEN RETURN1380 G"}OSUB COPY:COL=COL-1:GOSUB OUTPUT1400 X1=300:Y1=0:X2=332:Y2=18:OFX=160:OFY=68:GOSUB VRO.COPYFORM1440 RETURN1460 MOV.S:'*"}***********1480 IF (MZ%(COL+1,ROW)AND 1)<>1 OR MZON=OFF THEN RETURN1520 GOSUB COPY:COL=COL+1:GOSUB OUTPUT1540 X1=300:Y1"}=0:X2=332:Y2=18:OFX=160:OFY=32:GOSUB VRO.COPYFORM1580 RETURN1600 MAKE.MAZE: '***************1620 GOSUB COPY:GOSUB CLEAN"}:GOSUB RE.SET:GOSUB GETSIZE:MZON=OON:GOSUB WORK1660 FOR X=0 TO 31:FOR Y=0 TO 31:MZ%(X,Y)=16:NEXT:NEXT'out of bounds detecto"}r1680 ROW=INT(RND*WID)+1:COL=1:SROW=ROW:SCOL=COL ' maze entrance1700 BK%(NUM,1)=COL:BK%(NUM,2)=ROW 'bk% used as map of di"}rect way through maze1720 FOR X=1 TO HEI:FOR Y=1 TO WID:MZ%(X,Y)=0:NEXT:NEXT' clean out array1740 MZ%(COL,ROW)=1'open ent"}rance top wall1760 WHILE COL0 AND MZ%(COL+1,ROW)<>0 AND MZ%(COL,ROW-1)<>0 AND MZ%(CO"}L,ROW+1)<>0 THEN GOSUB RETRACE 'if traped back up & find new path1860 WEND '  end loop one. now single path through maze"} contained in bk%1880 ' ecol & erow = maze exit:opnum= optimum # of moves from start to exit1900 ECOL=COL:EROW=ROW:TNUM=0"}:OPNUM=NUM:QN=NUM-11920 MZ%(COL,ROW)=MZ%(COL,ROW)+4' open botton wall of exit1922 '1925 '  fill in all open space with"} dead end hallways1930 WHILE TNUM1 OR"} ONCE=11960 WHILE MZ%(COL-1,ROW)=0 OR MZ%(COL+1,ROW)=0 OR MZ%(COL,ROW-1)=0 OR MZ%(COL,ROW+1)=0 ' keep filling untel dead en"}d ' 21970 GOSUB DIRECT:BK2%(NUM,1)=COL:BK2%(NUM,2)=ROW1980 WEND 'reached dead end. back up again looking for openings2"}300 WHILE NUM>1 AND (MZ%(COL-1,ROW)<>0 AND MZ%(COL+1,ROW)<>0 AND MZ%(COL,ROW-1)<>0 AND MZ%(COL,ROW+1)<>0)23"}10 NUM=NUM-1:COL=BK2%(NUM,1):ROW=BK2%(NUM,2)2340 WEND:ONCE=02350 WEND2360 WEND2380 '2480 COL=SCOL:ROW=SROW'reset a"}rray to entrance2500 GOSUB OUTPUT:GOSUB CLEAN2520 TIM=OON:S=0:M=0:NMOVE=02540 X1=300:Y1=0:X2=322:Y2=18:OFX=162:OFY=342"}560 GOSUB VRO.COPYFORM:RETURN 'copy man from above into box2580 DIRECT: '********************************************2600"} ON INT(RND*16)+1 GOSUB RIS,FALL,LFT,RHT,LFT,RHT,LFT,RHT,RIS,RIS,RHT,LFT,RIS,RIS,FALL,RIS2620 RETURN2640 LFT:'********2"}660 IF ROW<=0 OR MZ%(COL,ROW-1)<> 0 THEN RETURN2680 MZ%(COL,ROW)=MZ%(COL,ROW)+8:ROW=ROW-1:NUM=NUM+12700 MZ%(COL,ROW)=MZ%"}(COL,ROW)+22720 RETURN2740 RHT:'*********2760 IF ROW>=WID OR MZ%(COL,ROW+1)<> 0 THEN RETURN2780 MZ%(COL,ROW)=MZ%(COL,"}ROW)+2:ROW=ROW+1:NUM=NUM+12800 MZ%(COL,ROW)=MZ%(COL,ROW)+82820 RETURN2840 FALL:'********2860 IF COL>=HEI OR MZ%(COL+1"},ROW)<> 0 THEN RETURN2880 MZ%(COL,ROW)=MZ%(COL,ROW)+4:COL=COL+1:NUM=NUM+12900 MZ%(COL,ROW)=MZ%(COL,ROW)+12920 RETURN29"}40 RIS:'********2960 IF COL<=1 OR MZ%(COL-1,ROW)<> 0 THEN RETURN2980 MZ%(COL,ROW)=MZ%(COL,ROW)+1:COL=COL-1:NUM=NUM+1300"}0 MZ%(COL,ROW)=MZ%(COL,ROW)+43020 RETURN3040 RETRACE:'**********3060 GOTOXY 44,2:? CHR$(7)3080 NUM=NUM+1:'FX=03100 "} WHILE MZ%(COL+1,ROW)<>0' while space below isn't empty3120 NUM=NUM-13140 COL=BK%(NUM,1):ROW=BK%(NUM,2) 'back up one step"}3160 WEND3180 RETURN3200 GETSIZE:'*******************3210 GOSUB CLEAN:COLOR 13220 GOTOXY 0,15:? " WITH POINTER IN B"}OX ";:COLOR 2:? CHR$(1);3230 COLOR 1:?" HOLD BUTTON"3240 GOTOXY 2,16:?"AND PULL TO DESIRED MAZE SIZE";3260 GOSUB RAT3"}280 WHILE MOU<>1 OR F1=0:GOSUB RAT:WEND:GOSUB CLEAN3300 WHILE MOU<>23320 GOSUB RAT3340 IF MOU=1 AND MY>23 THEN GOSUB R"}UBBERBOX:GOSUB CLEAN3360 WID=INT(PEEK(GINTOUT+2)/8):HEI=INT(PEEK(GINTOUT+4)/4)3370 IF WID<3 THEN WID=33380 IF HEI<3 THE"}N HEI=33400 IF WID>30 THEN WID=303420 IF HEI>30 THEN HEI=303460 GOTOXY 2,15:? WID;"X";HEI;" CLICK MOUSE 2 IF OK"3480 "}GOTOXY 4,16:? "OR RESIZE USING MOUSE 1";3500 MOU=0: WHILE MOU=0:GOSUB RAT:WEND3520 WEND3540 CLEAN:'*************3560 "}FOR X=15 TO 163580 GOTOXY 0,X:?" ":NEXT3600 RETURN3604 WORK:'********3606 GOS"}UB CLEAN:COLOR 2:GOTOXY 8,16:?"W O R K I N G";:RETURN3620 PATH: '************3640 GOTOXY 5,15:? CHR$(7):CL=SCOL:RW=SROW:P"}X=RW*8+12:PY=CL*4+63680 FOR X=1 TO OPNUM:CL=BK%(X,1):RW=BK%(X,2):OPX=PX:OPY=PY3740 PX=RW*8+12:PY=CL*4+6:COLOR 1,0,2:LINEF"} OPX,OPY,PX,PY3760 NEXT:RETURN3780 TRAC: '************3800 IF CO=1 THEN CO=0:GOTOXY 54,13:?"OFF";CHR$(7):RETURN3820 I"}F CO=0 THEN CO=1:GOTOXY 54,13:?"ON ";CHR$(7):RETURN3840 OUTPUT:'*************************3880 GOTOXY 5,15:? CHR$(7);:NMOV"}E=NMOVE+1:POINTX=ROW*8+12:POINTY=COL*4+63900 COLOR 1,0,0:LINEF OPOINTX,OPOINTY,OPOINTX,OPOINTY3920 OPOINTX=POINTX:OPOINTY"}=POINTY3940 COLOR 1,0,CO:LINEF POINTX,POINTY,POINTX,POINTY3960 ' north door3980 IF ((MZ%(COL,ROW) AND 1)=1) THEN C=0 "}ELSE C=14000 COLOR 1,0,C,0:LINEF 413,7,528,74020 IF CO=1 THEN LINEF ROW*8+8,COL*4+4,ROW*8+16,COL*4+44040 ' east door"}4060 IF ((MZ%(COL,ROW) AND 2)=2) THEN C=0 ELSE C=14080 COLOR 1,0,C,0:LINEF 538,12,538,624100 IF CO=1 THEN LINEF ROW*8+16"},COL*4+5-C,ROW*8+16,COL*4+7+C4120 ' south door4140 IF ((MZ%(COL,ROW) AND 4)=4) THEN C=0 ELSE C=14160 COLOR 1,0,C,0:LI"}NEF 413,67,528,674180 IF CO=1 THEN LINEF ROW*8+8,COL*4+8,ROW*8+15+C,COL*4+84200 ' west door4220 IF ((MZ%(COL,ROW) AN"}D 8)=8) THEN C=0 ELSE C=14240 COLOR 1,0,C,0:LINEF 403,12,403,624260 IF CO=1 THEN LINEF ROW*8+8,COL*4+5-C,ROW*8+8,COL*4+7+"}C4280 IF COL=ECOL AND ROW=EROW AND FSTOP=OFF THEN GOSUB YOUDIDIT4300 RETURN4320 RE.SET:'**************4340 GOTOXY 2,"}15:? CHR$(7):GOSUB WORK4360 FOR Y=0 TO HEI*4+1 ' erase maze map directly from Video ram4380 FOR X=4644 TO 4704 STEP 4440"}0 POKE VIDEORAM+X+Y*160,0 'screen memory plane one4420 POKE VIDEORAM+2+X+Y*160,0 'screen memory plane two.4440 NEXT:NEXT"}:TIM=OON:RETURN4460 YOUDIDIT:'************4540 GOSUB CLEAN:RESTORE 6780:FOR X=0 TO 15:GOSUB KOLOR:? CHR$(7);4560 FOR D="}0 TO 100:NEXT:NEXT4565 COLOR 1:GOTOXY 1,15:?"OPTIMUM # OF MOVES";OPNUM;"YOU'RE #"NMOVE4570 GOTOXY 3,16:?"YOU'RE TIME WAS""};M;"MIN ";S;"SEC"4580 RESTORE 5780:GOSUB KOLOR:TIM=OFF:RETURN4600 ANSW:'************************4620 GOSUB CLEAN:GOTOXY"} 2,15:?"MOUSE BUTTON 1 FOR SCREEN"4640 GOTOXY 2,16:?"MOUSE BUTTON 2 FOR PRINTER":GOSUB RAT4660 WHILE (MOU<>1 AND MOU<>2) "}OR F1=0:GOSUB RAT:WEND4680 IF MOU=1 THEN GOSUB ANSW2SCR4700 IF MOU=2 THEN GOSUB ANSW2PTR4720 GOSUB CLEAN:RETURN4740 A"}NSW2PTR:'********4760 GOSUB CLEAN:GOTOXY 6,15:?"PLEASE TURN ON PRINTER"4780 GOTOXY 3,16:?"AND CLICK EITHER MOUSE BUTTON""}4800 GOSUB RAT:WHILE MOU=0 OR F1=0:GOSUB RAT:WEND4820 ' Subroutine for Epson-compatible printers4860 ESC=27 'e"}scape key4880 COMPRES=15 'compressed character mode4900 SUB=83 'subscript mode4920 LSPC=51 'set line"} spacing4940 N216=14 '# of line spacings of 12/216" each4960 LPRINT CHR$(COMPRS):LPRINT CHR$(ESC);CHR$(SUB)4980 LP"}RINT CHR$(ESC);CHR$(LSPC);CHR$(N216);:LPRINT5000 FOR COL=1 TO HEI:A$="-":B$="I":FOR ROW=1 TO WID5020 IF ((MZ%(COL,ROW) AN"}D 1)=1) THEN A$=A$+" -" ELSE A$=A$+"--"5040 IF ((MZ%(COL,ROW) AND 2)=2) THEN B$=B$+" " ELSE B$=B$+" I"5060 NEXT:LPRINT A"}$:LPRINT B$:NEXT5080 A$="-":COL=HEI:FOR ROW=1 TO WID5100 IF ((MZ%(COL,ROW) AND 4)=4) THEN A$=A$+" -" ELSE A$=A$+"--"5120"} NEXT: LPRINT A$5140 RETURN5160 ANSW2SCR:'********5180 ACOL=COL:COL=SCOL:AROW=ROW:ROW=SROW5200 COLOR 1,1,1:FOR C=1 T"}O HEI:FOR R=1 TO WID:'GOSUB 3520:NEXT:NEXT5220 IF ((MZ%(C,R) AND 1)<>1) THEN LINEF R*8+8,C*4+4,R*8+16,C*4+45240 IF ((MZ%("}C,R) AND 2)<>2) THEN LINEF R*8+16,C*4+5,R*8+16,C*4+85260 IF ((MZ%(C,R) AND 4)<>4) THEN LINEF R*8+8,C*4+8,R*8+16,C*4+85280 "} IF ((MZ%(C,R) AND 8)<>8) THEN LINEF R*8+8,C*4+5,R*8+8,C*4+85300 NEXT:NEXT5320 COL=ACOL:ROW=AROW:FSTOP=OON:GOSUB OUTPUT:F"}STOP=OFF5340 RETURN5360 ' %%%%%%%%%%%%%%%% VDI & GEM %%%%%%%%%%%%%%%%%%%%%5380 RAT:'***5400 GINTOUT=PEEK(A#+12):G"}EMSYS(79)5420 MX=PEEK(GINTOUT+2):MY=PEEK(GINTOUT+4):MOU=PEEK(GINTOUT+6)5440 IF OLDMOU<>MOU THEN F1=1 ELSE F1=0 'stops fal"}l-through of mouse button5460 OLDMOU=MOU:RETURN5480 POLYLINE:'****** cover basic output window in background color5500 "}POKE CONTRL,6:POKE CONTRL+2,6:POKE CONTRL+4,0:POKE CONTRL+12,HANDLE5520 POKE PTSIN,0+X:POKE PTSIN+2,0+X:POKE PTSIN+4,639-X:"}POKE PTSIN+6,0+X5540 POKE PTSIN+8,639-X:POKE PTSIN+10,199-X:POKE PTSIN+12,0+X5560 POKE PTSIN+14,199-X:POKE PTSIN+16,0+X:P"}OKE PTSIN+18,0+X5580 VDISYS(0):RETURN5600 PRSTRING:' **** print outside output window ************5620 READ ST,XST,YST"}5640 POKE CONTRL,8:POKE CONTRL+2,1:POKE CONTRL+6,ST:POKE CONTRL+12,HANDLE5660 FOR X=0 TO ST*2-1 STEP 2:READ CH:POKE INTIN+"}X,CH:NEXT5680 POKE PTSIN,XST:POKE PTSIN+2,YST:VDISYS(0):RETURN5700 DATA 28,210,13,77,0,65,0,90,0,69,0,0,0,0,0,0,0,0,0,05"}720 DATA 77,0,65,0,83,0,84,0,69,0,825740 KOLOR:'**********************5760 FOR A=0 TO 3:READ B:KOL%(A)=B:NEXT5780 DATA"} 33,1808,85,19075800 DEFDBL K:K = 1114:POKE K,VARPTR(KOL%(0))5820 RETURN5840 SHOW:'**********5860 POKE CONTRL,122:POK"}E CONTRL+2,0:POKE CONTRL+6,15900 POKE CONTRL+12,HANDLE:POKE INTIN,05940 VDISYS(0):RETURN6120 RUBBERBOX: '**************"}*6140 COLOR 1,1,16160 POKE CONTRL,70:POKE CONTRL+2,4:POKE CONTRL+4,3:POKE CONTRL+6,06180 POKE CONTRL+8,0:POKE CONTRL+12"},26200 POKE GINTIN,16:POKE GINTIN+2,29:POKE GINTIN+4,30:POKE GINTIN+6,156220 GEMSYS(70)6240 RETURN6260 DISPLAY.MAN:'*"}****6280 VIDRAM=VIDEORAM+236:RESTORE 63806300 FOR Y=0 TO 15:READ A,B6320 POKE VIDRAM+Y*160,A6340 POKE VIDRAM+2+Y*160,"}B6360 NEXT6380 DATA 1984,0,16376,0,0,4064,12312,1984,15480,896,65278,256,65534,06400 DATA 57334,0,57334,0,32764,0,7920,"}0,7920,0,7920,0,7920,06420 DATA 7920,0,16120,0,06440 RETURN6460 VRO.COPYFORM: '*******6520 POKE CONTRL,109:POKE CONTR"}L+2,4:POKE CONTRL+6,1:POKE CONTRL+12,HANDLE6540 POKE CONTRL+14,A1:POKE CONTRL+16,A2:POKE CONTRL+18,A1:POKE CONTRL+20,A2656"}0 POKE INTIN,36580 POKE PTSIN,X1 ' X TOP SOURSE6600 POKE PTSIN+2,Y1 ' Y TOP SOURSE6620 POKE PTSIN+4,X2 ' X BOT SOURSE"}6640 POKE PTSIN+6,Y2 ' Y BOT SOURSE6660 POKE PTSIN+8,X1+OFX'X TOP DESTINATION6680 POKE PTSIN+10,Y1+OFY 'Y TOP DESTINAT"}ION6700 POKE PTSIN+12,X2+OFX' X BOT DESTINATION6720 POKE PTSIN+14,Y2+OFY ' Y BOT DESTINATION6740 VDISYS(0)6760 RETURN"}6780 DATA 393,7,548,7,393,67,548,67,538,2,538,72,403,2,403,726800 DATA 393,2,548,2,548,2,548,72,393,72,548,72,393,2,393,7"}26820 DATA 4,2,271,2,271,2,271,133,271,133,4,133,4,133,4,26840 DATA 330,132,606,132,606,132,606,148,606,148,330,148,330,1"}48,330,1326860 DATA 386,132,386,148,440,132,440,148,496,132,496,148,552,132,552,1486880 DATA 410,115,530,115,530,115,530,"}128,530,128,410,128,410,128,410,1156900 DATA 435,90,505,90,505,90,505,100,505,100,435,100,435,100,435,906920 DATA 460,80,"}482,80,482,80,482,110,482,110,460,110,460,110,460,8005,90,505,100,505,100,435,100,435,100,435,906920 DATA 460,80, >AB, @ ORIGROMANWORKCHARF9F5F4F1ARABIDONCHAHIVALOVAQ(<=?&}@B@ @ @ A @@@@PROMAN&} NUMERAL CONVERTERBY DAVID STONE (c) 1987, ANTIC PUBLISHING ]];@ ,;@ ,;@ ,;@,;@&},;@,;@,;@,M +A@1A@CA @M A2/67B:&},%@,.!6-&$,6-P:',/$dG 6.6-!6-+#A?-@@G"n0-B:,@&}6@07<,0A`x "B:,6-@76.7@<, B:,.6.7%@,76-B:,6-@&}B:,7<,0)6-%&,'6 A` 6-%  ' A    $# 6-A:,6-6.##A&}=6-&A367B:,%@,.M= A6-%A6-A,6-'@"&6-P:&}',,6-)"@ 6. @P) A5@6.!6-@+ @P5 Ap)"@6.&} @P) A5@6.!6-@+ @P5 Ap!@A0"$\ A(}%&}AR7-@@ R(Numeral to convert: ?\ A/@"AR@%(/ A,,+@:&}, @e,%@AAE (}-@@E(%(-@@&}(( | Roman | ?-@@ ?(%(-@@(( | Arabic | &}?-@@?(%E-@7@(|--@7@3(|EAR@&}R-@@"6((Press any key to continue)HAdAUR A F:Ad,"AUA /&}AdAU A%(}/ AD*-@#A ' *$N3 -@6?P,A &}0 3$X>>M,1000,100,D,500,100,C,100,10,L,50,10,X,10,1,V,5,1,I,1,1b##CM,D,CD,C,XC,L,XL,X,IX,V,IV,I D1:ROMAN.BAS&}0 3$X>>M,1000,100,D,500,100,C,100,10,L,50,10,X,10,1,V,5,1,I,1,1b##CM,D,CD,C,XC,L,XL,X,IX,V,IV,I D1:ROMAN.BAS$_`` BGLDMSCLPRTPCTPRCRYPOSINPSPTANSDMMODSPEECOROWLECOLDDGNVACVAMODAAR*}x~_e  xAA [A A   @4 @@@@*}@@@9@#A@@ Ac((SMOO*}THY DEMOBY KENNETH KAYE(c)1987, ANTIC PUBLISHING " A"AF:A@,;F:A,A`8(No*}t enough RAM to continue.;* B*INITIALIZE SCROLLO ROUTINE(]];@,;A,;@,;@,9@*},9@,9@,9@,-?;@@,?6.(************** Mr.Smoothy **************F(-@@+}"$68,-( P(-@@"$68,-( Z(-@@"$68,-( dii6._GRAPHICS MODE (3-15+})SPEED (0-15)COLUMNROWWINDOW (1-40)COLOR#(1-4)MESSAGE (DEFAULT-PRESS RETURN)n6. ^R6.HMR.SMOOTHY * SMOOTH SCR+}OLLING TEXT WINDOWS IN ALL MAP MODES. BY KEN KAYE^6-@|6-@6-'6-@36-@?6-@+}K6-@9W6-@#cAYr6.=:@,| AJ +A A1A@CAR@+}J6.q (}&-@96@2-I(7@<@@&,m2@@$@@q +}N-@@@3-8,8%@,J(78,<8%@,,N  APS#-8@,&@8@,-+}(E-8@,8@,IS AK#-8@,%@8@,'(G-8@,%@8@,K(1+} AP--8@,&@8@,1(f-@@@;-8,&@8%@,E(Y-8,8+}%@,]f68,-#-8,&@8%@,#(#"@)"@ # AP @S-8+ },&@8%@,)(=-8,8%@,AS@@0AA 6.THIS IS GRAPHICS MODE + }767B:,%@,.=:,A A((6-A:7@<@,,&8@,h!-@C( + } خW-@A[ ^'h AP:$"@ *%@ 8@ ,06-: A`-@+ }@(".-@@.((1-=:%@,),$A6-A A+AY5+@A6-A0+ }" +AY@4"$ A5!@6-&@ d"A*!@'B(!}Illegal mode +}on 400/800 systems.V-@AZ d APA5A5A@APAUA`AeAp+}AAAA5A5AA i' (}( ILLEGAL MODE (G("ź MODES 12 & 13 ARE TEXT MODE+}S[-@A_ i APA6.(0-09)6.(0-16))6-@956-@#>6.11A$&A6.(0-09)6.(0+}-40))6-@y56-@G>6.11A$+A6.(0-19)6.(0-40))6-@y56-@G>6.11A$0A6.(0-19)6+}.(0-88))6-AY56-@>6.11A$5A6.(0-39)6.(0-88))6-AY56-@>6.12A$:A6.(0-39+})6.(0-184)*6-A66-A>6.2A$DF6.(0-39)6.(0-184)*6-@y66-AC6.350017F$NF+}6.(0-39)6.(0-184)*6-@y66-AC6.300608F$XF6.(0-39)6.(0-184)*6-@y66-AC6.+}300617F$bB6.(0-19)6.(0-184)*6-AY66-A?6.11B$lB6.(0-39)6.(0-184)*6-AY66-A+}?6.12B$N6-8@,!6-8@,06-8@,?6-8@ ,N6-8@,6-A:7@<@,,+}A A!A" B%-@A % AP+%@6-@//-'+}@A:7@<@,,- ,/&/&&'/&-/)6-%@"@)6-@ +}$4S+@%@/0@@I0@S@>g-A@1,AY+}=/AO,AYc/A&g HB -A6@2,AY>/A+}B R$c+=0@A:7@<@,,A:7@<@,,W6-A:7@<@,,c6-C-+}&@#,+/&5/&&=/&C/#6-%@"#6-   $%%8,4,8,6,8,8,8,10,8,12,+}8,14,8,16++29,4,21,6,22,8,20,10,22,12,21,14,0,18..1,20,21,32,33,38,39,41,42,54,55,65,66,95y-6-AR#A+}&@-+"y;A ,;@,,y$6-F:AY,$AY6y.@@ D:SMOOTHY.D+}AT@AP@RARdASARvAVADAW@@y*6-?:C:hhhLV,<@,*+ }@Ey$END OF INIT. ROUTINE {[[MS$="MR.SMOOTHY * SMOOTH SCROLLING TEXT WINDOWS IN ALL MAP MODES. BY KEN KAYE":MO+!}DE=7{EESPEED=10:COL=0:ROW=44:WLEN=40:COLR=4:POKE 559,DMA:CRY$=STR$(11) {VVGRAPHICS 7+16:COLOR 2:PLOT 0,0:DRAWTO 159,95:D+"}RAWTO 159,0:DRAWTO 0,95:DRAWTO 0,0*{&&6-?:B{$+#}D1:SMOOTHY.BAS 0,95:DRAWTO 0,0*{&&6-?:B{$(hL\hhhhhhyL\hhhhhh)L\hhL\ЩϱɀL\ i@L{`8 /%}iϥiХϝ!Н!LTXԥYեWL\)mԥimԅ˥/&}iՅ̬mmmmmͩ΢ԑͩԈ4mԥiեmͥiάL,hh՘`8/'}m˥iLLb"#  \˙ԍՍmԙȥiՙ/(}!ԩթ  L: ԅȱԅР ό)mě ʭ)JJJJm/)}ě ͢ Ȍ * ʽ * *ֈLÚLа /*}Ђ  > LJL: L:iԥiL= LͩΥ8/+}̢͑mͥiΥm˥i̠ө  \ԅ` )())))@ADEPQTU "(* /,}03FSK>Q> !ERRORX;"SK,76P@7JPT7^7h PSPEEDr3/}7|7R>yDSK1$>Q> !ERRORX;SK1PLEN77PCOL77PROW77&R>)0DNZ1:$>30}DQ>N !ERRORXX;bNZ1l PWLENv77R>DLP$>Q> !ERRORX;LPPREG%>$>SK231} QCHBASP Q>P Q@7*R>4DSK3>$>HQ>R !ERROR\X;fSK3pR> zESK4,O>@!SK532}SK4R>`ESK5;S> SK5 &HOLD>(>FLP1MULTQ,$O>.P8QBO>LPV0` HM33}ULTjLP1t $HOLD~#ψHSK6#МSK6Qϰ PCADR92Q PCADR923)LENFSK7!SK2 X;X;B34}YTE ADR'S IN CADR NEXTX;CLEAR WINDOW(SK72 QSAVMSC<PFQSAVMSCPPZ QDINDEXd?n QMODEB8xHH$>35}Q> !ERRORX;H PLVALM> PHOLDQROWFLP3$>#ROWSK8Q, OHOLD"P,Q6O>36}@PJ2T(ROW^HSK8hLP3rQ|,OCOLPԚPˤQծO>PP %WLEN 'STORX QHOLD, O37}HOLD OHOLD OHOLD OHOLD OHOLD& PKEEP0 "WLEN: Q>4SCREENDPN Q>5SCREENXPb$>l %WLENvSK10Q@38}7P@7Q>P@71 ISK100 FSK11Q, OHOLDPQO> PQ ,* OSTORX4P>39}QHO>RP\ %WLENf !SK10pX;z ERROR?(>FOUTELP770HELPOUTQ>PCP3:} : SK11 Q>$ PTOGGLE. QLVAL8 ;B SHOLDL PCOLORV Q` ,j OHOLDt P~ Q̈ O> P̜ !SK12 X; BL3;}ANK QTOGGLE HOUT1 %> VLP QDRAW8 P@7 3 )KEEP HVLP #TOGGLE OUT1( !XITVBV2 X;< SK12F Q"3<}P POLDLZ Q#d POLDHn %>4BLANKx $>5BLANK Q> SETVBV %> SK13 Q@7 PDRAW8 3 )KEEP HSK13 3=} Q>4DRAW P PROTADR Q>5DRAW P PROTADR $>" %>, SK146 Q@ ,J OHOLDT P^ PROTADR8h 3r Q3>}| O> PՐ PROTADR8 3 0 HSK14 Q>4CADR P Q>5CADR P Q> PCT2 PALT PFINVAL PCKLEN Q3?}COLOR HSK15& Q>0 PREG: Q>D PALTN SK15X QREGb R>l HSK16v Q> PREG PALT SK16 "REG QREG3@} FR R> HR1 Q> !R X; R1 Q>  R PREG B1 %>* Q@74 P> 3H Q@7R P\ %>f $> p 3A}SK17z Q@7 'STORY PCOL M> , OREG ? QREGV8 PEDRAW9 0 QCOL M> V? V?V?V?,$ORE3B}G.?8 QREGV8B PEDRAW9L %STORYV0`3j)>t HSK17~X;1 SPLIT CHARACTER IN EDRAWPD$> %>'CT'CT3C}1SK18 QROTADR8P3 'STORY QROTADR8P, PDQ QEDRAW9U?( PEDRAW920< QEDRAW9FU?P PEDR3D}AW9Z %WLENdSK19nQ@7xU?P@71 ISK19%CT)>HGB!NLX;GB2#CT!PDQX;NL3E} #STORY%>"'CT, %STORY60@#CT1JQCT1TR>^ HSK18hQ>r PTOGGLE|WAIT QTOGGLE FWAIT QSPEED3F}FNE1 %SPEEDNE2$>NE30HNE31HNE2NE1#CT2QCT2R>&HPD0 #CKLEN:%>D'CT2N3G}$> X QFINVALb HFINISHl QCKLENvRLEN HSK21 !FINISHX;SK21QALT FSK22QREGHRGQ>PRE3H}G !SK22X;RGR> HRG1Q> PREG* !SK224X;>RG1HQ>RPREG\SK22fQp,zO>PԎQ՘3I}O>Pլ!B1X; FINISH QFINVAL RSTORXINE5 #FINVAL #FINVAL!PDX;NE5 Q>4SCREEN$P.3J} Q>5SCREEN8PBQL;V SHOLD`PjQtS>~P̈$>%>NE4Q@7P@73 )STORXHNE4Q3K}, OSTORXPQ O>PQ(,2 OHOLD<PFQPO>ZPd%>n2x(>HNE4Q> $OLD3L}H %OLDL SETVBVQ>PP:X; MODEB === = ===) (=)=)=)====)REGV 3M}======= @=A=D=E=P=Q=T=U" === = ="=(=*, =======6 == ==0=3=3N}<=?@ =======J TOGGLET^CThrLEN|ROWCOLWLENHOLD3O}REGLVAL COLOR ROTADR & CKLEN0: EDRAWD N STORYXb STORXlvC3P}T1CT2 SPEEDALT FINVALKEEPOLDLOLDH CADR *3Q}DRAW4> SCREENH@RALT FINVALKEEPOLDLOLDH CADR *0?