IMD 1.16: 8/06/2007 14:58:32 public domain software for the epson qx-10 disk #3                    BH BASMBOGGLE BASCAMEL BAS# DEVILS BAS: RALLY BASTICTAC BASWORDSRCHBASWUMP BAS4CASTLE1 BASY !"#$%&CHASE BAS'(CHECKERSBAS)*CASTLE DOCw+,-./012ALIENS DOC34ALIENS COMp56789:;CIVILWARBASE<=>?@DEEPSPACBASABWALL-ST BASKELIZA COM10 JJJ = 0 20 WIDTH 255 30 DEFSTR A-H,O-W 40 DEFINT I,J,K,L,X,Y,Z 50 DEFSNG M,N 60 X = 0 70 Y = 0 80 ALT = CHR$(27)+"S"+CHR$(0)+CHR$(85): REM SCREEN TO COLUMN 53, ROW 0 90 REG = CHR$(27)+"S"+CHR$(0)+CHR$(25): REM SCREEN TO COLUMN 7, ROW 0 100 CL1 = CHR$(26)+CHR$(27)+"S"+CHR$(0)+CHR$(32): REM CLEAR SCREEN AND SET TO COLUMN 0, ROW 0 110 CLS = CHR$(26)+CHR$(27)+"S"+CHR$(0)+CHR$(25): REM CLEAR SCREEN AND SET TO COLUMN 7, ROW 0 120 G1 = CHR$(27)+"g": REM TURN GRAPHICS ON 124 PRINT 130 G0 = CHR$(27GAMMONB BASCDEFGHIJKLGOBANG BAS+MNOHANGMAN BAS*PQRLANES BAS;STUVMILLION BASIWXYZ[NASA BAS#\]^POKER BAST_`abcdSWORDS BAS\efghijBLAKJACKBASklCONCEN BAS;mnopMONOP BASqrstuvwxyzEMPRDISKBASo{|}~NUKEWAR BAS:MONOPD DAT2SLOT BASSTARTREKBAS3)+"G": REM TURN GRAPHICS OFF 140 U1 = CHR$(27)+"1": REM TURN UNDERLINING ON 150 U0 = CHR$(27)+"m": REM TURN UNDERLINING OFF 160 H1 = CHR$(27)+")": REM TURN HALF INTENSITY DISPLAY ON 170 H0 = CHR$(27)+"(": REM TURN HALF INTENSITY DISPLAY OFF 180 CURSORMOVE = CHR$(27)+"="+CHR$(Y)+CHR$(X+32): REM MOVES CURSOR TO POSITION X,Y 190 DEF FNCM$(X%,Y%) = CHR$(27) + "S" + CHR$(Y%) + CHR$ (X%+32) ' moves cursor to position X%,Y% 200 CURSORLEFT = CHR$(8): REM CURSOR LEFT w/o ERASE 210 CURSORRIGHT= CHR$(12)   : REM CURSOR RIGHT w/o ERASE 220 DEL1= CHR$(27)+"W": REM DELETE CHARACTER AT CURSOR POSITION 230 CURSORUP = CHR$(11) 240 CURSORDOWN = CHR$(10) 250 RTN = CHR$(13) 260 INSERT$ = CHR$(27)+"Q": REM INSERTS CHARACTER AT CURSOR POSSTION 270 INSERTLINE$ = CHR$(27)+"E": REM INSERT LINE AT CURSOR LINE 280 X(0)=0 290 X(1)=6 300 X(2)=16 310 X(3)=26 320 X(4)=6 330 X(5)=16 340 X(6)=26 350 X(7)=6 360 X(8)=16 370 X(9)=26 380 Y(0)=0 390 Y(1)=17 400 Y(2)=17 410 Y(3)=17 420 Y(4)=10 430 Y(5)=10 44710 HOLE1%= (GALAXY% AND (2^JJ)) = 0 720 HOLE2%= (GALAXY2% AND (2^JJ)) = 0 730 IF (HOLE1% AND SUN2%) OR (HOLE1% AND NS%=0) OR (HOLE1% AND NN% = 0) THEN GOSUB 2920 740 IF (SUN1% AND HOLE2%) OR (SUN1% AND NS% = 0) OR (SUN1% AND NN% = 0) THEN GOSUB 2640 750 NEXT H% 760 NN% =1 770 IF NOT GALAXY% = 0 THEN GOTO 810 780 GOSUB 1690 790 GOSUB 1690 800 GOTO 1210:'call LOSE 810 IF NOT GALAXY% = 990 THEN GOTO 850 820 GOSUB 1690 830 GOSUB 1690 840 GOTO 1410: REM CALL 'WIN' 850 REM IF ACE%<>9999 THEN PHANGE%) AND NOT (GALAXY% AND CHANGE%) 1000 GOTO 660 1010 REM---------------------------------------- 1020 LET CHANGE% = 54 1030 RETURN 1040 LET CHANGE% = 14 1050 RETURN 1060 LET CHANGE% = 108 1070 RETURN 1080 LET CHANGE% = 146 1090 RETURN 1100 LET CHANGE% = 372 1110 RETURN 1120 LET CHANGE% = 584 1130 RETURN 1140 LET CHANGE% = 432 1150 RETURN 1160 LET CHANGE% = 896 1170 RETURN 1180 LET CHANGE% = 864 1190 RETURN 1200 REM---------------------------------------- 1210 REM ROUTINE "LOSE" --------------------------- 1410 REM ROUTINE "WIN" 1420 GOSUB 1690 1430 PRINT CLS$ 1440 PRINT:PRINT:PRINT:PRINT:PRINT: 1450 PRINT "***********************************" 1460 PRINT "***********************************" 1470 PRINT "** **" 1480 PRINT "** CONGRATULATIONS **" 1490 PRINT "** YOU HAVE FOUND THE BLACK HOLE **" 1500 PRINT "** **" 1510 PRINT "***********************************" 1520 PRINT "************** 610 1670 GOTO 1380 1680 REM---------------------------------------- 1690 REM SUBROUTINE FOR FLASH DELAY 1700 FLASH% = 80 1710 FOR I% = 1 TO FLASH% 1720 NEXT I% 1730 RETURN 1740 REM---------------------------------- 1750 REM SUBROUTINE 'INSTRUCTIONS' 1760 PRINT CL1$; 1770 PRINT "THE OBJECT OF THE BLACK HOLE GAME IS TO" 1780 PRINT "START WITH A PATTERN LIKE 'A' AND TURN IT" 1790 PRINT "INTO 'B' WITH THE CORRECT SHOTS, WITHOUTH" 1800 PRINT "GETTING THE 'C' PATTERN" 1810 PRINT 1820 PRINT " 0 Y(6)=10 450 Y(7)=3 460 Y(8)=3 470 Y(9)=3 480 ACE% = 9999 490 PRINT CLS; 500 PRINT:PRINT:PRINT:PRINT:PRINT 510 PRINT " THIS IS THE BLACK HOLE GAME" 580 PRINT "DO YOU WANT INSTRUCTIONS? (Y or N)?"; 590 E$ = INKEY$: IF E$ = "" THEN 590 600 IF E$ = "Y" OR E$ = "y" THEN GOTO 1750 610 REM RESTART VECTOR 620 PRINT CLS; 630 LET GALAXY%=2^5 640 LET GALAXY2%=2^5 650 LET NS% = 0 660 REM 670 FOR H% = 0 TO 8 680 LET JJ = 9-H% 690 SUN1% = GALAXY% AND (2^JJ) 700 SUN2% = GALAXY2% AND (2^JJ) RINT "BEST SCORE: ";ACE%; 860 JJ=0:L=0 870 GOSUB 2870 880 PRINT CRSR; 885 PRINT " SCORE TO BEAT : ";ACE% 890 PRINT " ";NS%;" SHOTS -- WHICH STAR?"; 900 STAR$ = INKEY$ : IF STAR$ = "" THEN 900 920 NS% = NS% + 1 930 STAR% = VAL(STAR$) 940 IF STAR$ = "0" THEN GOTO 1750 950 IF STAR% < 1 OR STAR% > 9 THEN GOTO 900 960 IF (GALAXY% AND 2^STAR%) = 0 THEN GOTO 900 970 GALAXY2% = GALAXY% 980 ON STAR% GOSUB 1020,1040,1060,1080,1100,1120,1140,1160,1180 990 LET GALAXY% = (GALAXY% OR C 1220 JJ=0:L=0 1230 GOSUB 2870 1240 PRINT CRSR; 1245 PRINT 1250 PRINT " * YOU ARE LOST IN SPACE FOREVER * "; 1260 GOSUB 1690 1270 FOR J% = 1 TO 25 1280 PRINT ALT$; 1290 GOSUB 1690 1300 PRINT REG$; 1310 GOSUB 1690 1320 NEXT J% 1330 NS% = 0 1340 PRINT CLS; 1350 PRINT "WANT TO TRY AGAIN? (Y or N)?"; 1360 CC$ = INKEY$: IF CC$ = "" THEN 1360 1370 IF CC$ = "Y" OR CC$ = "y" THEN PRINT CLS;: GOTO 610 1380 PRINT CL1;"BACK TO MBASIC"; 1390 END 1400 REM-------------*********************" 1530 PRINT 1540 PRINT "########## ";NS%;" SHOTS ##########" 1550 FOR J% = 1 TO 25 1560 GOSUB 1690 1570 PRINT ALT$; 1580 GOSUB 1690 1590 PRINT REG$; 1600 NEXT J% 1610 IF NS% < ACE% AND ACE% = 9999 THEN PRINT "YOU ARE THE NEW ACE": ACE%=NS%: GOTO 1640 1620 IF NS% < ACE% THEN PRINT "YOU ARE THE NEW ACE BY ";ACE%-NS%;" SHOTS!":ACE%=NS% 1640 PRINT "WANT TO TRY AGAIN? (Y or N)?"; 1650 CC$ = INKEY$: IF CC$ = "" THEN 1650 1660 IF CC$ = "Y" OR CC$ = "y" THEN PRINT CLS: GOTO A B C " 1830 PRINT 1840 PRINT " o o o * * * o o o " 1850 PRINT 1860 PRINT " o * o * o * o o o " 1870 PRINT 1880 PRINT " o o o * * * o o o " 1890 PRINT 1900 PRINT "PRESS ANY KEY TO CONTINUE OR 'RETURN' FOR GAME" 1910 E$ = INKEY$: IF E$ = "" THEN 1910 1920 IF E$ = CHR$(13) THEN GOTO 2590 1930 PRINT CL1$; 1940 PRINT "IN THE BLACK HOLE GAME, YOU ARE ALLOWED TO SHOOT" 1950 PRINT "AT STARS BUT NOT AT HOLES. THREE    DIFFERENT " 1960 PRINT "TYPES OF SHOTS ARE AVAILABLE: " 1970 PRINT:PRINT 1980 PRINT "1 CENTER SHOT" 1990 PRINT "2 SIDE SHOT" 2000 PRINT "3 CORNER SHOT" 2010 PRINT 2020 PRINT "THE OTHER POSITIONS ARE REVERSED ACCORDING " 2030 PRINT "TO THE PATTERN OF THE TYPE OF SHOT" 2040 PRINT 2050 PRINT 2060 PRINT "PRESS ANY KEY TO CONTINUE OR 'RETURN' FOR GAME:" 2070 E$ = INKEY$: IF E$ = "" THEN 2070 2080 IF E$ = CHR$(13) THEN GOTO 2590 2090 PRINT CL1$; 2100 PRINT " THE CENTER SHOT " 2110 PRINT 21E:" 2250 E$ = INKEY$: IF E$ = "" THEN 2250 2260 IF E$ = CHR$(13) THEN 2590 2270 PRINT CL1$; 2280 PRINT " THE SIDE SHOT " 2290 PRINT 2300 PRINT "SHOOTING THE MIDDLE STAR ON ONE SIDE CAUSES THAT " 2310 PRINT "SIDE ONLY TO CHANGE TYPE. 2320 PRINT 2330 PRINT "EXAMPLE: " 2340 PRINT 2350 PRINT " * * * o * * * o * o o *" 2360 PRINT 2370 PRINT " X * * = o * * X * o = o * o" 2380 PRINT 2390 PRINT " * * * o * * o * * * * *" 2400 PRINT 2410 PRINTTO RETURN TO GAME:" 2580 E$ = INKEY$: IF E$ = "" THEN 2580 2590 PRINT CL1; 2600 NN% = 0 2610 IF NS% = 0 THEN 610 2620 GOTO 660 2630 REM----------------------------------------- 2640 REM SUBROUTINE PRINT STAR 2650 L = 0 2660 PRINT REGU; 2670 PRINT G1; 2680 GOSUB 2870 2690 PRINT CRSR; 2700 PRINT CHR$(14);CHR$(10);CHR$(22);CHR$(8);CHR$(2); 2710 GOSUB 2870 2720 PRINT CRSR; 2730 PRINT CHR$(10);CHR$(22);CHR$(32);CHR$(22);CHR$(8); 2740 GOSUB 2870 2750 PRINT CRSR; 2760 PRINT CHR$(22);CHR$(32);RIG- 2920 REM PRINT HOLE 2930 L = 0 2940 PRINT REG; 2950 PRINT G1; 2960 GOSUB 2870 2970 PRINT CRSR; 2980 PRINT CHR$(17);CHR$(32);CHR$(23);CHR$(32);CHR$(5); 2990 GOSUB 2870 3000 PRINT CRSR; 3010 PRINT CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32); 3020 GOSUB 2870 3030 PRINT CRSR; 3040 PRINT CHR$(1);CHR$(32);RIGHT$(STR$(JJ),1);CHR$(32);CHR$(4); 3050 GOSUB 2870 3060 PRINT CRSR; 3070 PRINT CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32); 3080 GOSUB 2870 3090 PRINT CRSR; 3100 PRINT CHR$(26);CHR$(32);10 REM BOGGLE - by Bruce Ratoff 20 REM 30 DEFINT A-Z 40 RANDOMIZE 100 DIM CUBE$(4,4),DIE$(16) 110 DATA DCMPAE,EFYHEI,ABOJMQ,YEGULK,ESOWDN,OKUTND,FIROBX,TIYABL 120 DATA LRWGTU,IVETNG,NIPEHS,RAMOHS,SECARL,TACOAI,SPTLUE,ENADVZ 130 RESTORE 110 140 FOR I=1 TO 16 150 READ DIE$(I) 160 NEXT I 200 FOR I=1 TO 4:FOR J=1 TO 4 210 CUBE$(I,J)="" 220 NEXT J,I 230 FOR I=1 TO 16 240 X=RND(1)*4+.5:Y=RND(1)*4+.5:Z=RND(1)*6+.5 250 IF CUBE$(X,Y)<>"" THEN 240 260 CUBE$(X,Y)=MID$(DIE$(I),Z,1) 270 NEXT I 275 PRI20 PRINT "SHOOTING THE CENTER STAR CAUSES THE CENTER AND ALL" 2130 PRINT "EDGE POSITIONS TO CHANGE TYPE (i.e. to change from" 2140 PRINT "a hole to a star or vice-versa" 2150 PRINT 2160 PRINT "EXAMPLES: ('X' INDICATES STAR SHOT AT)" 2170 PRINT 2180 PRINT " * * * * o * o o o o * o" 2190 PRINT 2200 PRINT " * X * = o o o o X o = * * *" 2210 PRINT 2220 PRINT " * * * * o * o o o o * o" 2230 PRINT 2240 PRINT "PRESS ANY KEY TO CONTINUE OR 'RETURN' FOR GAM "PRESS ANY KEY TO CONTINUE" 2420 E$ = INKEY$: IF E$ = "" THEN 2420 2430 PRINT CL1$; 2440 PRINT " THE CORNER SHOT" 2450 PRINT 2460 PRINT "SHOOTING AT A CORNER REVERSES ALL " 2470 PRINT "STARS AND HOLES IN IT'S CORNER" 2480 PRINT 2490 PRINT "EXAMPLES: 2500 PRINT 2510 PRINT "* * * * * * o o o o o o " 2520 PRINT 2530 PRINT "* * * = o o * * * o = o o o" 2540 PRINT 2550 PRINT "X * * o o * X * o o o o" 2560 PRINT 2570 PRINT "PRESS ANY KEY HT$(STR$(JJ),1);CHR$(32);CHR$(22); 2770 GOSUB 2870 2780 PRINT CRSR; 2790 PRINT CHR$(21);CHR$(22);CHR$(32);CHR$(22);CHR$(25); 2800 GOSUB 2870 2810 PRINT CRSR; 2820 PRINT CHR$(2);CHR$(21);CHR$(22);CHR$(25);CHR$(14); 2830 PRINT G0; 2840 PRINT REGU; 2850 RETURN 2860 REM----------------------------------------- 2870 REM COMPUTES CURSOR POSITION 2880 CRSR = CHR$(27)+"="+CHR$(Y(JJ)+L)+CHR$(X(JJ)+32+JJJ): REM POSITIONS CURSOR 2890 L = L + 1 2900 RETURN 2910 REM----------------------------------------CHR$(24);CHR$(32);CHR$(3); 3110 PRINT G0; 3120 PRINT REG; 3130 RETURN 2870 3090 PRINT CRSR; 3100 PRINT CHR$(26);CHR$(32);(32);CHR$(23);CHR$(32);CHR$(5); 2990 GOSUB 2870 3000 PRINT CRSR; 3010 PRINT CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32); 3020 GOSUB 2870 3030 PRINT CRSR; 3040 PRINT CHR$(1);CHR$(32);RIGHT$(STR$(JJ),1);CHR$(32);CHR$(4); 3050 GOSUB 2870 3060 PRINT CRSR; 3070 PRINT CHR$(32);CHR$(32);CHR$(32);CHR$(32);CHR$(32); 3080 GOSUB 2870 3090 PRINT CRSR; 3100 PRINT CHR$(26);CHR$(32);NT CHR$(126);CHR$(28) 280 FOR I=1 TO 4:PRINT:PRINT:PRINT:PRINT:PRINT TAB(14);:FOR J=1 TO 4 290 PRINT CUBE$(I,J), 300 NEXT J 320 NEXT I 330 PRINT:PRINT CHR$(7);"GO! " 340 Q#=1 345 Q#=Q#+1#:IF INKEY$=" " THEN 350 ELSE IF Q#<10000# THEN 345 350 PRINT CHR$(7);CHR$(126);CHR$(28) 360 LINE INPUT "TIME'S UP! HIT RETURN FOR NEW GAME";X$ 380 GOTO 200 400 END HEN 345 350 PRINTX=RND(1)*4+.5:Y=RND(1)*4+.5:Z=RND(1)*6+.5 250 IF CUBE$(X,Y)<>"" THEN 240 260 CUBE$(X,Y)=MID$(DIE$(I),Z,1) 270 NEXT I 275 PRI   I ()I );"CAMEL"I );"CREATIVE COMPUTING"I );"MORRISTOWN, NEW JERSEY"J#::+Jn "WOULD YOU LIKE INSTRUCTIONS";4Jx D$MJ (D$,)"N" @J ();" WELCOME TO CAMEL. THE OBJEST IS TO TRAVEL"J "200 MILES ACROSS THE GREAT GOBI DESERT."J "A TRIBE OF KNOCK-KNEED PIGMIES WILL BE CHASING YOU."-K "YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN."3KMK "C O M M A N D S :"eK "---------------"K "#1 - DRINK FROM YOUR CANTEEN"K "#2 - A M^ZZMc Z "---------- W A R N I N G ---------- GET A DRINK"Mh Z ^NrPPN|X2( () ),N Q ,b,,,O&T( ())O0 T O: " DRINKING."Q>SSQH S QR "BETTER WATCH FOR AN OASES !"Q\ZQf RpA(d())Rz A `QR "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU."R "LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR RANSOM-"R "DEMANDS.......BUT........WATCH FOR THE PYGMIES !!!"R "YOU HAVE A NEW CHOICE OF SUB-COMMANDS:"S "#7 - ATTEMPT AN ESCAPE"4S "#8 - WAIT FOR PAYMENT"OS "YOUR SUB-COMMAND ";WS XgS X $}SX1( ())S X1 S "CORAPSCALLION! YOU RAN YOUR POOR CAMEL TO DEATH !!"U V "YOU WIN, A PARTY IS BEING GIVEN IN YOUR HONOR......."IV ".......THE PYGMIES ARE PLANNING TO ATTEND......."SV gVX1(d())xV X1 FV "YOU HAVE BEEN CAUGHT IN A SANDSTORM.....GOOD LUCK!"VX5( ())VX6( ())V  X6 (VCCX5W 2 W(CCX5;W2 "YOUR NEW POSITION IS";C;"MILES SO FAR!"AW<UWFX1(d())dWP X1 pWZC1C1Wd "YOUR CAMEL HURT HIS HUMP."WnHEAD MODERATE SPEED"K "#3 - AHEAD FULL SPEED"K "#4 - STOP FOR THE NIGHT"L "#5 - STATUS CHECK"L "#6 - HOPE FOR HELP"%LlL " YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS."L" "YOU MAVE RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASES."L, "YOU GET A HALF A QUART IF FOUND BY HELP."M6 "IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE."DM@ "GOOD LUCK AND GOOD CAMELING !!"JMEMJ "YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS."MO MT CHELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS."ODSONZOX TObFFOl F Pv pPX1( ())'PCCX1KP "YOUR CAMEL LIKES THIS PACE."UP T_PFFoP F yP pPX1( ())PCCX1P "YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS."PP TQ "YOUR CAMEL THANKS YOU!"QFQ  ^?Q "YOUR CAMEL HAS";F;"GOOD DAYS LEFT."qQ  "YOU HAVE";S;"DRINKS LEFT IN YOUR CANTEEN."Q* "YOU CAN GO";Z;"COMMANDS WITHOUTNGRATULATIONS, YOU SUCCESSFULLY ESCAPED !!!!"SQS TT "YOU WERE MORTALLY WOUNDED BY A PIG STABBER WHILE ESCAPING."$T 8T$X1(d())>T.PT8 X1 LTB "YOUR RANSOM HAS BEEN PAID AND YOU ARE FREE TO GO."TGQTH TTL "THE LOCAL SULTAN IS COLLECTING......JUST WAIT......."TV TT`A( ())Uj A BUt "YOU HAVE ARRIVED AT AN OASES -------- YOUR CAMEL IS"pU~ "FILLING YOUR CANTEEN AND EATING FIGS."xUZUSUU "YOU DIRTY  "LUCKILY THE PYGMIES WERE FOOTWEARY !!!"WxWU( ())W "YOU DIED IN THE DESERT." X U NX "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL!!!"XX hX U X "YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNINBALS !!!"X X U  Y "THE LOCAL SHEIK NOW USES YOUR SKULL FOR A CHANGE PURSE !!!"Y  $Y U nY "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT !!!"xY Y "TURKEYS SHOULD FLY, NOT    RIDE CAMELS !!!!!!!"YY"Y, "WANT A NEW CAMEL AND A NEW GAME ";Y6 D$Z@ (D$,)"Y" @ZT r>Z^ "YOU RAN OUT OF WATER......SORRY CHUM!!!"HZh bZr "-----------------"wZw " CHICKEN"Zy "-----------------"Z| "MENU"ZZZSZCZC1ZQZFZ PZwZw " CHICKEN"Zy "-----------------"Z|  U nY "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAY OUT OF THE DESERT !!!"xY Y "TURKEYS SHOULD FLY, NOT s DEVILS DUNGEON from "STIMULATING SIMULATIONS by C.W.Engelt as modified by A.E.McLaughlin Jr. ----4/4/81`tE$():E1$E$"E":P$E$"p":J$E$"j":X1$E$"x1":Y$E$"Y":Q$E$"q"t(K$E$"k":K1$E$"K":Y1$E$"Y1":Z$E$"z": E1$t2,,"Welcome to the DEVILS DUNGEON"u<,"----When you wish to quit, enter `99' in room #1 on any level."KuF,"-You gain experience by moving (1 x level #), fighting monsters"uP,"and finding gold (1 pt. for each piece of gold)."uZ,"-Enter `0' in an). It has been"w,"known to malfunction once in a while and cost you speed and"8x,"strength. DROPOFFs take you to the next level down if you enter "}x,"`.1' but you can't go back up. Slides are also one way! Some"x,"corridors might be enchanted allowing one way only also!"y,"-The deeper you go, the more gold is available to find but the"Oy,"monsters become stronger and faster also! Your speed and strength"y,"go down each move by an amount equal to the level you're on.":ydid I forget anything----?";: I :|@:,"-Oh yes, the GOLD. You have to take it out of the room to get to"W|J,"keep it and any monster there wont let you take it while it's"|T,"alive so it's either fight or run and leave the gold behind!"|^,"-Also, you may run into Demons and poison gas down here!"'}h,"Demons might curse you (take half your speed) or steal your gold."\}r,"If gassed, you'll lose half your strength.":}|,"-------When you are ready to play, press ENTER."::,;:y room #1 to trade experience for speed or" vd,"strength. If you run out of strength or speed, you die ---so"Mvn,"on each level, try to find room #1 as quick as possible."vx,"-Enter the room number to goto any adjacent room in the list."v,"-Enter `0' in any room but #1 to fight the monster if you are" w,"strong enough. I'll print his speed & strength for comparison."fw,"-If stuck, enter `99' in any room except #1 to use your magic"w,"wand. This will create a DROPOFF (if it works!,"I'll print a command reminder at the bottom when you are ready to"&z,"play so you don't have to memorize these instructions. Please,sz,"press ENTER when ready for more instructions.";:"---READY";ZZ$: E1$z,"-Drawing a map of each level is recommended but not necessary"z,"as you can enter `88' at any time to get a list of rooms you"={","have visited and the numbers of rooms they connect to."{,,"In case of a `tremor', things will change so better check!":{6," Let's see----"READY";ZZ$} P$;J$;X1$;Y$"8 ";: reverse video,save cursor,enable 25,pos. cursorD~" `0'=fight or trade `99'=use wand or quit `88'=review rooms `.1'=decend "~ Q$;K$;Y1$: reset rvs video,restore cursor,turnoff 25~ E1$:,"Hang on while I draw my maps!":~ SET ROOMS~ R(),L(A),F(),X(),B() L: G: E:X:D:YSe:YDe!: C C: S C C:,"OK, let me get the map.":  C C:,"Elevator going down!":  C C:,"AGAIN!   --- Where did I put those maps!":  C C:,"You sure are keeping me busy!"  I A:L(I):* I X:N(()): I NH J N]&R(@())q0 L(R) &:L(R)I: JDR(I)(()):B(I)N I:B(L)ЀXR()`: I :X(I):ހb HAZARDSl () #z "TREMOR": I :L(I)(X()):Pv () #z "TREMOR": I :L(I): X()X( ) ()L "CURSED BY DEMON!":YD(YD)ׁWould you like to start from the beginning? Enter (0)-" ,"or continue from where you are? Enter (1)-";: B B ?AA: A > : YDe:YSe| E1$: Y$"#&";:"CUT--CUT--PULL--TWIST--PUSH--SEW--SEW" I  :::,,"THERE!!!":: :,"The operation was a success! You have been returned","to the land of the living and for my modest fee,"3  G 4 : Go*,"I extracted the small amount of gold you had!": \4GG:,"I took only 250 pieces of gold MS: : MONSTERS,DEMONS,GAS҇ F MSD(X()X()X()L)MDD(X()X()X()L)="MONSTER","SPEED:";MD;,"STRENGTH:";MS] X()X( ) "DEMONS" X()X( ) "POISONOUS GAS" X( ) T: $: TREASUREȈTX( )X( )X( ),"MAXIMUM GOLD:";TLD"$SX()X()X()X(): SLIDES AND DROPOFFS2. SX SB8 S S\B X() SL VpL,"SLIDE TO:";SV X()X( ) ,"DROPOFF"lj`,"MO! Enter room #";: ʋ M L ,"EXPERIENCE:";E;"SPEED:";YD;"STRENGTH:";YS:,"ADD SPEED";: N;  EN ,"NEED MORE EXPERIENCE": dEEN:YDYDN:,"EXPERIENCE LEFT:";E~,"ADD STRENGTH";: N( EN ,,"NEED MORE EXPERIENCE": Č2EEN:YSYSN: \<F: M : FIGHTF M PYH(()YS):MH(()MS)*Z YHMS YHMS>d MHYS MHYS\n ()YD()MD x,"Monster attacks!":YSYSMH:MSMS(YH): Ѝt adjacent! Try a different room! Room #";: L1L:K X: PRINT ROOMS B(K) J,K; "--";"LK: p-, J XH6 F(J) JK J;R@ J:ZJ KiTLL1: \ : TREASUREǎG1(()TLD):  X()X( ) ()L ,"Demon got gold!":G1: 7,"You found";G1;"pieces of gold.":GGG1PEEG1:R(L)R(L)` MOVE F(M) MS LM:F:EED:B(L): l̏:,"No X()X( ) ()L "GASSED!":YS(YS)YDYDD:YSYSD: YD YS \: DECREMENT AND TESTV YD :,"You just ran out of speed and died!":  YS :,"You just exhausted your strength and died!"ׂ:, "It might be possible for me to bring you back to life!","Would you like to try again? 1=YES 2=NO ";: B ( B B: O E1$:,"OK, so long-----QUITTER!" I :: J$;X1$;Y$"8 ";K1$;Y1$;K$: C  :: E1$:Ӄ:,".": \Ӆ> E1$: Y$"(-";: "----POOF----": Y$"--";H"Oh-Oh! It didn't work!":9R,"Oh well, no one is perfect! Two out of three isn't bad!": t\:,"GOLD";G;" ";"EXP.";E;"DEPTH";D: OUTPUT STATUSf,"SPEED:";YD;,"STRENGTH:";YS: p: ˆp I X:F(I):: ADJACENT ROOMSچz I @ LL(I)  L(I) L(I)L F(L(I))B L(I) L(I) F(L(I))J:cNR(L): CONVERT I :Q(N):X(I)(NQ):NQ:‡ X()VE FROM ROOM #";L;"TO ROOM #";: INPUT MOVEՉj I Xt F(I) IL I;~ I  M: MX & Mc M Y M M X()X( ) DD:F:  M M "NO DROPOFF": l Mc ӊ Mc L E1$:,"YOU FOUND";G;"PIECES OF GOLD!":  MAGIC WAND* ()L "BACKFIRE":YS(YS):YD(YD): lO,"WAND WORKS!":R(L): \r MS <: MOVE OR TRADE M L ,"No monster to fight,"You attack!":MSMSYH:YSYS(MH):EEYH MS ,"Monster Killed!":R(L)R(L): l):,"Monster still alive!": l_: ()YD()MD ,"ESCAPED": : RUN,"Monster HIT you!":YSYS(L~MS):  T : TREASUREǎG1(()TLD):  X()X( ) ()L ,"Demon got gold!":G1: 7,"You found";G1;"pieces of gold.":GGG1PEEG1:R(L)R(L)` MOVE F(M) MS LM:F:EED:B(L): l̏:,"No   10 PRINT " THIS IS THE COUNTRY ROAD" 20 PRINT " ROAD RALLY" 30 PRINT 40 PRINT "YOU HAVE YOUR CHOICE OF A 1,VW; 2,283 NOVA" 50 PRINT "3,Z-28; OR A 4,FERRARI" 60 PRINT "INPUT THE CAR YOU WANT BY THE NUMBER IN FRONT OF" 70 PRINT "IT, BUT REMEMBER THE BETTER THE CAR THE MORE GAS" 80 PRINT "IT USES. "; 90 INPUT C1 100 LET C1=INT(C1) 110 IF C1 > 4 THEN 140 120 IF C1 <1 THEN 140 130 GOTO 160 140 PRINT "INVALID CAR NUMBER. NEW CAR "; 150 GOTO 90 160 PRINT 1M,S 320 LET B=B/10 330 NEXT I 340 LET A1=.5 350 LET M1=0 360 LET C1=C1/2 370 LET V=0 380 PRINT 390 LET R1=0 400 LET T=0 410 LET D=0 420 LET Q1=0 430 PRINT "PRESENT VELOCITY = ";V;" NO. OF GALLONS = ";A1 440 PRINT "NO. OF MILES = ";M1;" TIME PASSED = ";T;" SECONDS" 450 IF M1>=5 THEN 1280 460 PRINT "WHAT IS YOUR NEW RATE OF GAS "; 470 INPUT G 480 IF G<-10 THEN 510 490 IF G>10 THEN 510 500 GOTO 530 510 PRINT "NOT VALID. NEW RATE "; 520 GOTO 470 530 IF G<9 THEN 590 540 LET Z=Z+1 STRAIGHT" 770 PRINT 780 GOTO 430 790 LET H=INT(15+35!*RND(X)) 800 LET H=H+5*C1 810 IF V>H THEN 1320 820 PRINT "THROUGH CURVE" 830 PRINT 840 LET Q1=0 850 GOTO 430 860 LET E=E-(V-D)*3! 870 IF E<0 THEN 910 880 PRINT "VEHICLE ";E;" FEET AHEAD" 890 PRINT 900 GOTO 430 910 IF V-D<5 THEN 990 920 PRINT "VEHICLE PASSED BY "; 930 LET D=V-D 940 PRINT D; 950 PRINT " MPH" 960 PRINT 970 LET R1=0 980 GOTO 430 990 PRINT "VEHICLE BEING PASSED " 1000 LET D=INT(25+40*RND(X)) 1010 PRINT "GRAYHOTO 1370 1240 PRINT "BUT SOME HOW YOU MADE IT" 1250 PRINT 1260 LET R1=0 1270 GOTO 430 1280 PRINT 1290 PRINT 1300 PRINT "YOU MADE IT (LUCKY) !!!!!!!" 1310 GOTO 1380 1320 PRINT "ARE TERRIBLE" 1330 LET H=H-5*C1 1340 PRINT H;" WAS THE SPEED THROUGH THE CURVE" 1350 PRINT V;" WAS YOUR SPEED. BY THE WAY" 1360 GOTO 1080 1370 PRINT "YOU LEAD FOOTED *#$%#$#&" 1380 PRINT "YOU WANT TO TRY AGAIN, RIGHT !!!!" 1390 PRINT "1-YES, 2-NO "; 1400 INPUT V 1410 IF V=1 THEN 1440 1420 PRINT "CHICKEN" 110 DEFINT A-Z 20 T=0 30 DIM S(8) 40 FOR I=0 TO 8 50 LET S(I)=0 60 NEXT I 70 PRINT 80 IF T=0 THEN 100 90 INPUT "ANOTHER GAME";L$:IF LEFT$(L$,1)="N" THEN 1780 100 T=1:PRINT CHR$(26) 110 PRINT "TIC-TAC-TOE" 120 PRINT "MATRIX: 1 : 2 : 3" 130 PRINT " -----------" 140 PRINT " 4 : 5 : 6" 150 PRINT " -----------" 160 PRINT " 7 : 8 : 9" 170 GOSUB 750 180 IF A=5 THEN 210 190 S(4)=7 200 GOTO 250 210 IF S(O)<>0 THEN 240 220 LET S(0)=7 230 GOTO 250 240 S(2)=7 250 GO70 PRINT "WHAT COURSE DO YOU WANT FROM 1 TO 5 WITH" 180 PRINT "5 BEING THE MOST DIFFICULT "; 190 INPUT C2 200 LET C2=INT(C2) 210 IF C2 < 1 THEN 240 220 IF C2 >5 THEN 240 230 GOTO 260 240 PRINT "INVALID COURSE NUMBER. NEW CHOICE "; 250 GOTO 190 260 PRINT "YOU WILL TRAVEL 5 MILES WITH .5 GALLONS OF GAS" 270 PRINT "EACH INTERVAL IS 10 SECONDS. THE INPUT IS -10 TO 10" 280 PRINT "-10 IS HARD BRAKING, 10 IS FAST ACCELLERATION" 290 PRINT "AND ANYTHING IN BETWEEN" 300 FOR I=1 TO C1 310 READ B, 550 IF Z>4 THEN 570 560 GOTO 600 570 PRINT "YOUR ENGINE BLEW. YOU GOT HIT BY A PISTON." 580 GOTO 1080 590 LET Z=0 600 LET V=INT(B*G-M*V+V) 610 LET T=T+10 620 PRINT 630 PRINT "ROAD CONDITIONS ;"; 640 IF V>0 THEN 660 650 LET V=0 660 LET M1=M1+V/460 670 IF G<0 THEN 700 680 LET A1=A1-(G*S)/5000 690 IF A1<0THEN 1200 700 IF R1=1 THEN 860 710 IF Q1=1 THEN 790 720 LET Q=INT((C2+1)*RND(X)) 730 LET R=INT((3.75-C2)*RND(X)) 740 IF R>0 THEN 1100 750 IF Q>0 THEN 1160 760 PRINT " CLEAR AND OUND IN OTHER LANE "; 1020 PRINT "DOING "; 1030 PRINT D; 1040 PRINT " MPH "; 1050 LET D=V+D 1060 PRINT "CRASH VELOCITY = "; 1070 PRINT D 1080 PRINT "WHERE IS YOUR FUNERAL BEING HELD ?" 1090 GOTO 1380 1100 PRINT "VEHICLE AHEAD 1000 FEET" 1110 PRINT 1120 LET D=INT(25+35*RND(X)) 1130 LET E=1000 1140 LET R1=1 1150 GOTO 430 1160 PRINT " WARNING: CURVE AHEAD " 1170 LET Q1=1 1180 PRINT 1190 GOTO 430 1200 PRINT "EXCELLENT BUT WAIT!" 1210 PRINT 1220 PRINT "YOU RAN OUT OF GAS" 1230 G430 GOTO 1500 1440 RESTORE 1450 GOTO 30 1460 DATA 45,.53,10 1470 DATA 60,.5,13 1480 DATA 70,.41,15 1490 DATA 80,.39,18 1500 END  1440 RESTORE 1450 GOTO 30 1460 DATA 45,.53,10 1470 DATA 60,.5,13 1480 DATA 70,.41,15 1490 DATA 80,.39,18ROUGH THE CURVE" 1350 PRINT V;" WAS YOUR SPEED. BY THE WAY" 1360 GOTO 1080 1370 PRINT "YOU LEAD FOOTED *#$%#$#&" 1380 PRINT "YOU WANT TO TRY AGAIN, RIGHT !!!!" 1390 PRINT "1-YES, 2-NO "; 1400 INPUT V 1410 IF V=1 THEN 1440 1420 PRINT "CHICKEN" 1SUB 830 260 GOSUB 750 270 GOSUB 1020 280 IF R<>0 THEN 330 290 PRINT 300 PRINT "YOU WIN, YOU CHEAT!" 310 GOSUB 830 320 GOTO 40 330 A=0 340 FOR I=0 TO 8 350 IF S(I)<>0 THEN 370 360 A=1 370 NEXT I 380 IF A=1 THEN 420 390 PRINT 400 PRINT"THE GAME IS A TIE. OH WELL..." 410 GOTO 310 420 IF R<>2 THEN 510 430 S(B)=7 440 GOSUB 1020 450 IF R<>1 THEN 490 460 PRINT 470 PRINT "I WIN! HA! HA!" 480 GOTO 310 490 GOSUB 830 500 GOTO 260 510 IF R<>3 THEN 540 520 S(B)=7 530 GOTO 460 540 IF S(4)<>0    THEN 570 550 S(4)=7 560 GOTO 490 570 IF S(O)<>0 THEN 600 580 LET S(O)=7 590 GOTO 490 600 IF S(2)><0 THEN 630 610 LET S(2)=7 620 GOTO 490 630 IF S(6)<>0 THEN 660 640 S(6)=7 650 GOTO 490 660 IF S(8)<>0 THEN 690 670 S(8)=7 680 GOTO 490 690 I=1 700 IF S(I)<>0 THEN 730 710 S(I)=7 720 GOTO 490 730 I=I+2 740 GOTO 700 750 PRINT 760 INPUT "CHOOSE X";A 770 IF S(A-1)=0 THEN 810 780 PRINT 790 PRINT "HUH? YOU CAN'T MOVE THERE, DUMMY! IT'S MY SQUARE!" 800 GOTO 760 810 S(A-1)=1 820 RETURN 830 EN 1170 1150 R=3 1160 RETURN 1170 V=2 1180 GOSUB 1240 1190 IF R<>V THEN 1220 1200 R=2 1210 RETURN 1220 R=4 1230 RETURN 1240 F=0 1250 E=2 1260 I=1 1270 GOSUB 1710 1280 IF R<>V THEN 1300 1290 RETURN 1300 F=3 1310 E=5 1320 I=1 1330 GOSUB 1710 1340 IF R<>V THEN 1360 1350 RETURN 1360 F=6 1370 E=8 1380 I=1 1390 GOSUB 1710 1400 IF R<>V THEN 1420 1410 RETURN 1420 F=0 1430 E=6 1440 I=3 1450 GOSUB 1710 1460 IF R<>V THEN 1480 1470 RETURN 1480 F=1 1490 E=7 1500 I=3 1510 GOSUB 1710 10 CLEAR 1000:B$="":PRINT CHR$(26)'SCREEN CLEAR 20 INPUT "INPUT X AND Y DIMENSIONS";Y,X:IF X>30 OR Y>30 THEN 20 30 IF X>Y THEN U0=X ELSE U0=Y 40 INPUT "NUMBER OF WORDS";N:DIM A$(X,Y),N$(N),L(N,3) 50 GOSUB 1050:Q8=1 60 ERASE A$:DIM A$(X,Y):PRINT Q8 70 FOR I1=1 TO N 80 GOTO 100 90 L(I1,1)=A:L(I1,2)=B:L(I1,3)=D:GOTO 760 100 C0=0:S$=N$(I1):Z=LEN(S$) 110 GOSUB 750:C0=C0+1 120 IF C0/100=INT(C0/100) THEN PRINT "TRY #";C0;" "; 130 IF C0<1000 THEN 160 140 Q8=Q8+1:IF Q8=100 THEN STOP ELSE 60 150 PRINT QI=1 TO Z 330 A1=A-(I-1):B1=B:GOSUB 1030:GOSUB 1040 340 IF L$=B$ OR L$=N1$ THEN 350 ELSE 110 350 NEXT I 360 FOR I=1 TO Z:GOSUB 1030:A$(A-(I-1),B)=N1$:NEXT I 370 GOTO 90 380 IF A-Z<1 OR B-Z<1 THEN 110 390 FOR I=1 TO Z 400 A1=A-(I-1):B1=B-(I-1):GOSUB 1030:GOSUB 1040 410 IF L$=B$ OR L$=N1$ THEN 420 ELSE 110 420 NEXT I 430 FOR I=1 TO Z:GOSUB 1030:A$(A-(I-1),B-(I-1))=N1$:NEXT I 440 GOTO 90 450 IF B-Z<1 THEN 110 460 FOR I=1 TO Z 470 A1=A:B1=B-(I-1):GOSUB 1030:GOSUB 1040 480 IF L$=B$ OR L$=N1$ THEN PRINT 840 FOR I=0 TO 6 STEP 3 850 FOR J=0 TO 2 860 K=I+J 870 B=S(K) 880 IF B<>0 THEN 910 890 PRINT" "; 900 GOTO 950 910 IF B<>1 THEN 940 920 PRINT" X "; 930 GOTO 950 940 PRINT" O "; 950 IF J=2 THEN 970 960 PRINT":"; 970 NEXT J 980 PRINT 990 IF I=6 THEN 1010 1000 PRINT "-----------" 1010 NEXT I 1020 LET V=3 1030 GOSUB 1240 1040 IF R<>V THEN 1070 1050 R=0 1060 RETURN 1070 V=21 1080 GOSUB 1240 1090 IF R<>V THEN 1120 1100 R=1 1110 RETURN 1120 V=14 1130 GOSUB 1240 1140 IF R<>V TH1520 IF R<>V THEN 1540 1530 RETURN 1540 F=2 1550 E=8 1560 I=3 1570 GOSUB 1710 1580 IF R<>V THEN 1600 1590 RETURN 1600 F=0 1610 E=8 1620 I=4 1630 GOSUB 1710 1640 IF R<>V THEN 1660 1650 RETURN 1660 F=2 1670 E=6 1680 I=2 1690 GOSUB 1710 1700 RETURN 1710 R=0 1720 FOR J=F TO E STEP I 1730 R=R+S(J) 1740 IF S(J)<>0 THEN 1760 1750 B=J 1760 NEXT J 1770 RETURN 1780 RUN "DIR" 1790 END 0 FOR J=F TO E STEP I 1730 R=R+S(J) 1740 IF S(J)<>0 THEN 1760 1750 B=J 1760 NEXT J 1770 RETURN 1780 8:GOTO 60 160 ON D GOTO 170,240,310,380,450,520,610,680 170 IF B+Z>Y THEN 110 180 FOR I=1 TO Z 190 A1=A:B1=B+I-1:GOSUB 1030:GOSUB 1040 200 IF L$=B$ OR L$=N1$ THEN 210 ELSE 110 210 NEXT I 220 FOR I=1 TO Z:GOSUB 1030:A$(A,B+I-1)=N1$:NEXT I 230 GOTO 90 240 IF B+Z>Y OR A-Z<1 THEN 110 250 FOR I=1 TO Z 260 A1=A-(I-1):B1=B+I-1:GOSUB 1030:GOSUB 1040 270 IF L$=B$ OR L$=N1$ THEN 280 ELSE 110 280 NEXT I 290 FOR I=1 TO Z:GOSUB 1030:A$(A-(I-1),B+I-1)=N1$:NEXT I 300 GOTO 90 310 IF A-Z<1 THEN 110 320 FOR 490 ELSE 110 490 NEXT I 500 FOR I=1 TO Z:GOSUB 1030:A$(A,B-(I-1))=N1$:NEXT I 510 GOTO 90 520 IF A+Z>X OR B-Z<1 THEN 110 530 FOR I=1 TO Z 540 A1=A+I-1:B1=B-(I-1) 550 GOSUB 1030 560 GOSUB 1040 570 IF L$=N1$ OR L$=B$ THEN 580 ELSE 110 580 NEXT I 590 FOR I=1 TO Z:GOSUB 1030:A$(A+I-1,B-(I-1))=N1$:NEXT I 600 GOTO 90 610 IF A+Z>X THEN 110 620 FOR I=1 TO Z 630 A1=A+I-1:B1=B:GOSUB 1030:GOSUB 1040 640 IF L$=N1$ OR L$=B$ THEN 650 ELSE 110 650 NEXT I 660 FOR I=1 TO Z:GOSUB 1030:A$(A+I-1,B)=N1$:NEXT I     670 GOTO 90 680 IF A+Z>X OR B+Z>Y THEN 110 690 FOR I=1 TO Z 700 A1=A+I-1:B1=B+I-1:GOSUB 1030:GOSUB 1040 710 IF L$=B$ OR L$=N1$ THEN 720 ELSE 110 720 NEXT I 730 FOR I=1 TO Z:GOSUB 1030:A$(A+I-1,B+I-1)=N1$:NEXT I 740 GOTO 90 750 A=INT(X*RND(8)+1):B=INT(Y*RND(8)+1):D=INT(8*RND(5)+1):RETURN 760 NEXT I1 770 FOR I=1 TO 5:PRINT:NEXT I 780 FOR I=1 TO X 790 FOR J=1 TO Y 800 IF A$(I,J)="" THEN 860 810 PRINT A$(I,J);" "; 820 NEXT J 830 PRINT:PRINT 840 NEXT I 850 PRINT:GOSUB 890:PRINT:GOTO 1130 860ID$(S$,I,1):RETURN 1040 L$=A$(A1,B1):RETURN 1050 FOR I=1 TO N 1060 PRINT "WORD #";I;:INPUT N$(I) 1070 IF LEN(N$(I))>U0 THEN PRINT "TOO LONG.":GOTO 1060 1080 FOR T=1 TO LEN(N$(I)) 1090 IF ASC(MID$(N$(I),T,1))<65 OR ASC(MID$(N$(I),T,1))>90 THEN PRINT "ILLEGAL SYMBOLS.":GOTO 1060 1100 NEXT T 1110 NEXT I 1120 RETURN 1130 INPUT "DO YOU WANT TO RUN THIS PROGRAM AGAIN";A$ 1140 IF LEFT$(A$,1)="Y" THEN RUN 1150 RUN "DIR" 1160 END 120 RETURN 1130 INPUT "DO YOU WANT TO RUN THIS PROGRAM AGAIN";A$1 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 5 REM *** HUNT THE WUMPUS *** 10 DIM P(5) 15 PRINT "DO YOU WANT INSTRUCTIONS" 20 INPUT "(Type 0 for NO)";I 22 PRINT:PRINT:PRINT 25 IF I=0 THEN 35 30 GOSUB 375 35 GOTO 80 80 REM *** SET UP CAVE (DODECAHEDRAL NODE LIST) *** 85 DIM S(20,3) 90 FOR J=1 TO 20 95 FOR K=1 TO 3 100 READ S(J,K) 105 NEXT K 110 NEXT J 115 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 120 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 125 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 130 DATA 1ROWS *** 230 A=5 235 L=L(1) 240 REM *** RUN THE GAME *** 245 PRINT:PRINT:PRINT "HUNT THE WUMPUS" 250 REM *** HAZARD WARNING AND LOCATION *** 255 GOSUB 585 260 REM *** MOVE OR SHOOT *** 265 GOSUB 670 270 ON O GOTO 280,300 275 REM *** SHOOT *** 280 GOSUB 715 285 IF F=0 THEN 255 290 GOTO 310 295 REM *** MOVE *** 300 GOSUB 975 305 IF F=0 THEN 255 310 IF F>0 THEN 335 315 REM *** LOSE *** 320 PRINT:PRINT "HA HA HA - YOU LOSE!" 325 GOTO 340 330 REM *** MOVE *** 335 PRINT:PRINT "HEE HEE HEE - ODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW" 400 PRINT "WHAT A DODECAHEDRON IS, ASK SOMEONE)" 405 PRINT 410 PRINT " HAZARDS:" 415 PRINT " BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM 420 PRINT " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)" 425 PRINT " SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU" 430 PRINT " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER" 435 PRINT " ROOM AT RANDOM. (WHICH MAY BE TROUBLESOME)" 440 INPUT "TYPE TO CONTI A$(I,J)=CHR$(INT(26*RND(1)+65)) 870 GOTO 810 880 PRINT 890 INPUT "DO YOU WANT THE ANSWERS";ANS$ 900 ANS$=LEFT$(ANS$,1) 910 PRINT "THE HIDDEN WORDS ARE:" 920 FOR D1=1 TO N-1 930 FOR D2=D1+1 TO N 940 IF N$(D2)<=N$(D1) THEN SWAP N$(D1),N$(D2): SWAP L(D1,1),L(D2,1):SWAP L(D1,2),L(D2,2): SWAP L(D1,3),L(D2,3) 950 NEXT D2 960 NEXT D1 970 FOR K=1 TO N 980 PRINT N$(K); 990 IF ANS$="N" THEN PRINT:GOTO 1010 1000 PRINT TAB(30);L(K,1);",";L(K,2);",";L(K,3) 1010 NEXT K 1020 RETURN 1030 N1$=M5,17,20,7,16,18,9,17,19,11,18,20,13,16,19 135 DEF FNA(X)=INT(20*RND(1))+1 140 DEF FNB(X)=INT(3*RND(1))+1 145 DEF FNC(X)=INT(4*RND(1))+1 150 REM *** LOCATE L ARRAY ITEMS *** 155 REM *** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS *** 160 DIM L(6) 165 DIM M(6) 170 FOR J=1 TO 6 175 L(J)=FNA(0) 180 M(J)=L(J) 185 NEXT J 190 REM *** CHECK FOR CROSSOVERS (IE L(1)=L(2), ETC) *** 195 FOR J=1 TO 6 200 FOR K=1 TO 6 205 IF J=K THEN 215 210 IF L(J)=L(K) THEN 170 215 NEXT K 220 NEXT J 225 REM *** SET NO. OF ARTHE WUMPUS'LL GET YOU NEXT TIME!!" 340 FOR J=1 TO 6 345 L(J)=M(J) 350 NEXT J 355 PRINT:PRINT:PRINT "DO YOU WANT TO PLAY AGAIN" 357 INPUT "(Type 1 for YES)";F 359 IF F<>1 THEN 1150 360 PRINT:PRINT "DO YOU WANT THE SAME SETUP" 362 INPUT "(Type 1 for YES)";I 365 IF I<>1 THEN 170 370 GOTO 230 375 REM *** INSTRUCTIONS *** 380 PRINT "WELCOME TO 'HUNT THE WUMPUS'" 385 PRINT " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" 390 PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A" 395 PRINT "DNUE ";W9 445 PRINT " WUMPUS:" 450 PRINT " THE WUMPUS IS NOT BOTHERED BY HAZARDS (HE HAS SUCKER" 455 PRINT " FEET AND IS TOO BIG FOR A BAT TOO LIFT). USUALLY" 460 PRINT " HE IS ASLEEP. TWO THINGS WAKE HIM UP:YOU SHOOTING AN" 465 PRINT " ARROW OR YOU ENTERING HIS ROOM." 470 PRINT " IF THE WUMPUS WAKES HE MOVES (P=.75) ONE ROOM" 475 PRINT " OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU" 480 PRINT " ARE, HE EATS YOU UP AND YOU LOSE!" 485 PRINT 490 PRINT " YOU:" 495 PRINT " EAC   H TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW" 500 PRINT " MOVING: YOU CAN MOVE ONE ROOM (THRU ONE TUNNEL)" 505 PRINT " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT 510 PRINT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLIN 515 PRINT " THE COMPUTER THE ROOM#S YOU WANT THE ARROW TO GO TO." 520 PRINT " IF THE ARROW CAN'T GO THAT WAY (IF NO TUNNEL) IT MOVES" 525 PRINT " AT RANDOM TO THE NEXT ROOM." 530 PRINT " IF THE ARROW HITS THE WUMPUS, YOU WIN." 535 PRINT " IF ,635 615 PRINT "I SMELL A WUMPUS!" 620 GOTO 640 625 PRINT "I FEEL A DRAFT" 630 GOTO 640 635 PRINT "BATS NEARBY!" 640 NEXT K 645 NEXT J 650 PRINT "YOU ARE IN ROOM "L(1) 655 PRINT "TUNNELS LEAD TO "S(L,1);S(L,2);S(L,3) 660 PRINT 665 RETURN 670 REM *** CHOOSE OPTION *** 675 PRINT:PRINT "SHOOT OR MOVE " 680 INPUT "(Type 0 for SHOOT or 1 for MOVE)";I 685 IF I<>0 THEN 700 690 O=1 695 RETURN 700 IF I<>1 THEN 675 705 O=2 710 RETURN 715 REM *** ARROW ROUTINE *** 720 F=0 725 REM *** PATH OF ARRD" 850 L=L(1) 855 REM *** MOVE WUMPUS *** 860 GOSUB 935 865 REM *** AMMO CHECK *** 870 A=A-1 875 IF A>0 THEN 885 880 F=-1 885 RETURN 890 REM *** SEE IF ARROW IS AT L(1) OR AT L(2) 895 L=P(K) 900 IF L<>L(2) THEN 920 905 PRINT:PRINT "AHA! YOU GOT THE WUMPUS!" 910 F=1 915 RETURN 920 IF L<>L(1) THEN 840 925 PRINT:PRINT "OUCH! ARROW GOT YOU!" 930 GOTO 880 935 REM *** MOVE WUMPUS ROUTINE *** 940 K=FNC(0) 945 IF K=4 THEN 955 950 L(2)=S(L(2),K) 955 IF L(2)<>L THEN 970 960 PRINT:PRINT "TSK TSK** 1070 GOSUB 940 1075 IF F=0 THEN 1090 1080 RETURN 1085 REM *** PIT *** 1090 IF L=L(3) THEN 1100 1095 IF L<>L(4) THEN 1120 1100 PRINT:PRINT "YYYYIIIIEEEE . . . FELL IN PIT" 1105 F=-1 1110 RETURN 1115 REM *** BATS *** 1120 IF L=L(5) THEN 1130 1125 IF L<>L(6) THEN 1145 1130 PRINT:PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!" 1135 L=FNA(1) 1140 GOTO 1045 1145 RETURN 1150 END 1145 1130 PRINT:PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!" 1135 L=FNA(1) 1140 GOTO 1045 1145THE ARROW HITS YOU, YOU LOSE." 540 INPUT "TYPE TO CONTINUE ";W9 545 PRINT " WARNINGS:" 550 PRINT " WHEN YOU ARE ONE ROOM AWAY FROM A WUMPUS OR HAZARD," 555 PRINT " THE COMPUTER SAYS:" 560 PRINT " WUMPUS: 'I SMELL A WUMPUS'" 565 PRINT " BAT : 'BATS NEARBY'" 570 PRINT " PIT : 'I FEEL A DRAFT'" 575 PRINT 580 RETURN 585 REM *** PRINT LOCATION & HAZARD WARNINGS *** 590 PRINT 595 FOR J=2 TO 6 600 FOR K=1 TO 3 605 IF S(L(1),K)<>L(J) THEN 640 610 ON J-1 GOTO 615,625,625,635OW *** 735 PRINT "NO. OF ROOMS (1-5)"; 740 INPUT J9 745 IF J9<1 THEN 735 750 IF J9>5 THEN 735 755 FOR K=1 TO J9 760 PRINT "ROOM #"; 765 INPUT P(K) 770 IF K<=2 THEN 790 775 IF P(K)<>P(K-2) THEN 790 780 PRINT "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM" 785 GOTO 760 790 NEXT K 795 REM *** SHOOT ARROW *** 800 L=L(1) 805 FOR K=1 TO J9 810 FOR K1=1 TO 3 815 IF S(L,K1)=P(K) THEN 895 820 NEXT K1 825 REM *** NO TUNNEL FOR ARROW *** 830 L=S(L,FNB(1)) 835 GOTO 900 840 NEXT K 845 PRINT "MISSE TSK - WUMPUS GOT YOU!" 965 F=-1 970 RETURN 975 REM *** MOVE ROUTINE *** 980 F=0 985 PRINT "WHERE TO"; 990 INPUT L 995 IF L<1 THEN 985 1000 IF L>20 THEN 985 1005 FOR K=1 TO 3 1010 REM *** CHECK IF LEGAL MOVE *** 1015 IF S(L(1),K)=L THEN 1045 1020 NEXT K 1025 IF L=L(1) THEN 1045 1030 PRINT "NOT POSSIBLE -"; 1035 GOTO 985 1040 REM *** CHECK FOR HAZARDS *** 1045 L(1)=L 1050 REM *** WUMPUS *** 1055 IF L<>L(2) THEN 1090 1060 PRINT:PRINT "... OOPS! BUMPED A WUMPUS!" 1065 REM *** MOVE WUMPUS *   1000 REM ***************************************************** 1005 REM * * 1010 REM * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * 1015 REM * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * 1020 REM * WRITTEN FOR EXIDY SORCERER BY JOSEPH R. POWER * 1025 REM * MODIFIED FOR HEATH MICROSOFT BASIC BY J.F.STETSON * 1030 REM * * 1035 REM *****************************************************  Q=RND(1) 1115 RESTORE 1120 FOR Q=1 TO 34 1125 READ C$(Q),I$(Q) 1130 NEXT Q 1131 IF F=1 THEN 1150 1135 FOR Q=1 TO 512 1140 L(Q)=101 1145 NEXT Q 1150 FOR Q=1 TO 8 1155 READ W$(Q),E$(Q) 1160 NEXT Q 1165 FOR Q=1 TO 4 1170 READ R$(Q) 1175 NEXT Q 1176 IF F=1 THEN 5605 1180 IF NG > 1 GOTO 1250 1185 PRINT CHR$(27);"E" 1190 GOSUB 5375 1195 PRINT TAB(16);"* * * THE WIZARD'S CASTLE * * *" 1200 PRINT 1205 GOSUB 5375 1210 PRINT "MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC" 1215 PRINT "WI280 L(FND(Z+1))=103 1285 NEXT Q1 1290 NEXT Z 1295 FOR Z=1 TO 8 1300 FOR Q=113 TO 124 1305 GOSUB 5285 1310 NEXT Q 1315 FOR Q1=1 TO 3 1320 FOR Q=105 TO 112 1325 GOSUB 5285 1330 NEXT Q 1335 Q=125 1340 GOSUB 5285 1345 NEXT Q1 1350 NEXT Z 1355 FOR Q=126 TO 133 1360 Z=FNA(8) 1365 GOSUB 5285 1370 NEXT Q 1375 Q=101 1380 FOR A=1 TO 3 1385 Z=FNA(8) 1390 GOSUB 5285 1395 C(A,1)=X 1400 C(A,2)=Y 1405 C(A,3)=Z 1410 C(A,4)=0 1415 NEXT A 1420 RC=0 1425 ST=2 1430 DX=14 1435 R$(3)="MAN" 1440 Q=Q : DX=DX-2*Q 1555 NEXT Q 1560 PRINT 1565 OT=OT+4*(RC=1) 1570 IF RC > 0 THEN R$(3)="HUMAN" : GOTO 1585 1575 PRINT "** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H." 1580 GOTO 1535 1585 PRINT "WHICH SEX TO YOU PREFER"; 1590 GOSUB 5415 1595 IF O$="M" THEN SX=1 : GOTO 1615 1600 IF O$="F" GOTO 1615 1605 PRINT "** CUTE ";R$(RC);", REAL CUTE. TRY M OR F." 1610 GOTO 1585 1615 PRINT 1620 PRINT "OK, ";R$(RC);", YOU HAVE THE FOLLOWING ATTRIBUTES :" 1625 PRINT "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEX" GOTO 1755 1730 AV=-3*(O$="P")-2*(O$="C")-(O$="L") 1735 IF AV > 0 GOTO 1755 1740 PRINT 1745 PRINT "** ARE YOU A ";R$(RC);" OR ";C$(FNA(12)+12);"?" 1750 GOTO 1700 1755 AH=AV*7 : GP=GP-AV*10 1760 PRINT 1765 PRINT "OK, BOLD ";R$(RC);", YOU HAVE";GP;"GP'S LEFT." 1770 Z$="WEAPONS" 1775 GOSUB 5555 1780 PRINT "SWORD<30> MACE<20> DAGGER<10> NOTHING<0>" 1785 GOSUB 5405 1790 IF O$="N" GOTO 1820 1795 WV=-3*(O$="S")-2*(O$="M")-(O$="D") 1800 IF WV > 0 GOTO 1820 1805 PRINT 1810 PRINT "** IS YOUR IQ REA1037 ON ERROR GOTO 5580 1040 DEFINT A-Z 1045 DIM C$(34),I$(34),R$(4),W$(8),E$(8) 1050 DIM L(512),C(3,4),T(8),O(3),R(3) 1055 DEF FNA(Q)=1+INT(RND(1)*Q) 1060 DEF FNB(Q)=Q+8*((Q=9)-(Q=0)) 1065 DEF FNC(Q)=-Q*(Q<19)-18*(Q>18) 1070 DEF FND(Q)=64*(Q-1)+8*(X-1)+Y 1075 DEF FNE(Q)=Q+100*(Q>99) 1076 F=0 1080 Y$="** PLEASE ANSWER YES OR NO" 1085 NG=0 1086 INPUT "DO YOU WANT TO CONTINUE A SAVED GAME?";SG$ 1087 IF LEFT$(SG$,1)="Y" THEN F=1 1090 REM 1095 REM INITIALIZE ARRAYS 1100 REM 1105 NG=NG+1 1110ZARD ZOT FORGED HIS GREAT *ORB OF POWER*. HE SOON" 1220 PRINT "VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE" 1225 PRINT "FILLED WITH ESURIENT MONSTERS, FABULOUS TREASURES, AND" 1230 PRINT "THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY" 1235 PRINT "A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS" 1240 PRINT "OF NOW, *NONE* HAS EVER EMERGED VICTORIOUSLY! BEWARE!!" 1245 PRINT 1250 X=1 : Y=4 1255 L(FND(1))=2 1260 FOR Z=1 TO 7 1265 FOR Q1=1 TO 2 1270 Q=104 1275 GOSUB 5285 1112+FNA(12) 1445 Z=FNA(8) 1450 GOSUB 5285 1455 R(1)=X 1460 R(2)=Y 1465 R(3)=Z 1470 Q=109 1475 Z=FNA(8) 1480 GOSUB 5285 1485 O(1)=X 1490 O(2)=Y 1495 O(3)=Z 1500 BF=0 : OT=8 : AV=0 : HT=0 : T=1 : VF=0 : LF=0 1505 TC=0 : GP=60 : RF=0 : OF=0 : BL=0 : IQ=8 : SX=0 1510 FOR Q=1 TO 8 1515 T(Q)=0 1520 NEXT Q 1525 PRINT CHR$(7); 1530 PRINT "ALL RIGHT, BOLD ONE." 1535 PRINT "YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT." 1540 GOSUB 5405 1545 FOR Q=1 TO 4 1550 IF LEFT$(R$(Q),1)=O$ THEN RC=Q : ST=ST+2*TERITY =";DX 1630 PRINT "AND";OT;"OTHER POINTS TO ALLOCATE AS YOU WISH." 1635 PRINT 1640 Z$="STRENGTH" 1645 GOSUB 5430 1650 ST=ST+Q 1655 IF OT=0 GOTO 1695 1660 Z$="INTELLIGENCE" 1665 GOSUB 5430 1670 IQ=IQ+Q 1675 IF OT=0 GOTO 1695 1680 Z$="DEXTERITY" 1685 GOSUB 5430 1690 DX=DX+Q 1695 PRINT "OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP'S)." 1700 Z$="ARMOR" 1705 GOSUB 5555 1710 AV=0 : WV=0 : FL=0 : WC=0 1715 PRINT "PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>" 1720 GOSUB 5405 1725 IF O$="NLLY";IQ;"?" 1815 GOTO 1770 1820 GP=GP-WV*10 1825 IF GP < 20 GOTO 1855 1830 PRINT 1835 PRINT "DO YOU WANT TO BUY A LAMP FOR 20 GP'S"; 1840 GOSUB 5415 1845 IF O$="Y" THEN LF=1 : GP=GP-20 : GOTO 1855 1850 IF O$ <> "N" THEN PRINT : PRINT Y$ : PRINT : GOTO 1835 1855 PRINT 1860 IF GP < 1 THEN Q=0 : GOTO 1915 1865 PRINT "OK, ";R$(RC);", YOU HAVE";GP;"GOLD PIECES LEFT." 1870 PRINT 1875 INPUT "FLARES COST 1 GP EACH. HOW MANY DO YOU WANT";O$ 1880 Q=VAL(O$) 1885 PRINT 1890 IF Q > 0 OR ASC(O$)=48 GOTO 1   910 1895 PRINT "** IF YOU DON'T WANT ANY, JUST TYPE 0 (ZERO)." 1900 PRINT 1905 GOTO 1875 1910 IF Q > GP THEN PRINT "** YOU CAN ONLY AFFORD";GP;"." : PRINT : GOTO 1875 1915 FL=FL+Q : GP=GP-Q 1920 X=1 : Y=4 : Z=1 1925 PRINT "OK, ";R$(RC);", YOU ARE NOW ENTERING THE CASTLE!" 1930 GOTO 3450 1935 REM 1940 REM MAIN PROCESSING LOOP 1945 REM 1950 T=T+1 1955 IF RF+OF > 0 GOTO 2020 1960 IF C(1,4) > T(1) THEN T=T+1 1965 IF C(2,4) > T(3) THEN GP=GP-FNA(5) 1970 IF GP < 0 THEN GP=0 1975 IF C(3,4) <= T(2095,2105 2075 PRINT "A SCREAM!" 2080 RETURN 2085 PRINT "FOOTSTEPS!" 2090 RETURN 2095 PRINT "A WUMPUS!" 2100 RETURN 2105 PRINT "THUNDER!" 2110 RETURN 2115 PRINT "SNEEZED!" 2120 RETURN 2125 PRINT "SEE A BAT FLY BY!" 2130 RETURN 2135 PRINT "SMELL ";C$(12+FNA(13));" FRYING!" 2140 RETURN 2145 PRINT "FEEL LIKE YOU'RE BEING WATCHED!" 2150 RETURN 2155 PRINT "HEAR FAINT RUSTLING NOISES!" 2160 RETURN 2165 IF BL+T(4) <> 2 GOTO 2185 2170 PRINT 2175 PRINT C$(29);" CURES YOUR BLINDNESS!" 2180 BL=0 965 2265 IF O$="G" THEN ON BL+1 GOTO 3185,2505 2270 IF O$="T" THEN PRINT : ON RF+1 GOTO 3315,3335 2275 IF O$="Q" GOTO 3390 2280 IF O$<>"H" GOTO 2420 2285 PRINT CHR$(27);"E" 2290 PRINT "*** WIZARD'S CASTLE COMMAND AND INFORMATION SUMMARY ***" 2295 PRINT 2300 PRINT "THE FOLLOWING COMMANDS ARE AVAILABLE :" 2305 PRINT 2310 PRINT "H/ELP N/ORTH S/OUTH E/AST W/EST U/P" 2315 PRINT "D/OWN DR/INK M/AP F/LARE L/AMP O/PEN" 2320 PRINT "G/AZE T/ELEPORT Q/UIT SA/VE AVOID LETHARGY PALE PEARL - AVOID LEECH" 2385 PRINT "GREEN GEM - AVOID FORGETTING OPAL EYE - CURES BLINDNESS" 2390 PRINT "BLUE FLAME - DISSOLVES BOOKS NORN STONE - NO BENEFIT" 2395 PRINT "PALANTIR - NO BENEFIT SILMARIL - NO BENEFIT" 2400 PRINT 2405 PRINT "PRESS RETURN WHEN READY TO RESUME, ";R$(RC);"."; 2410 LINE INPUT "";O$ 2415 GOTO 1950 2420 PRINT 2425 PRINT "** SILLY ";R$(RC);", THAT WASN'T A VALID COMMAND!" 2430 GOTO 1950 2435 IF L(FND(Z))=2 GOTO 4970 2440 X=X+(O$="N")-(O$="S 2550 FOR X=1 TO 8 2555 FOR Y=1 TO 8 2560 Q=L(FND(Z)) 2565 IF Q > 99 THEN Q=34 ' LET Q=34 TO HIDE ROOMS 2570 IF X=A AND Y=B THEN PRINT "<";I$(Q);"> "; : GOTO 2580 2575 PRINT " ";I$(Q);" "; 2580 NEXT Y 2585 PRINT 2590 PRINT 2595 NEXT X 2600 X=A : Y=B 2605 GOTO 2725 2610 PRINT ") LEVEL";Z 2615 GOTO 1950 2620 IF FL <> 0 GOTO 2650 2625 PRINT "** HEY, BRIGHT ONE, YOU'RE OUT OF FLARES!" 2630 GOTO 1950 2635 REM 2640 REM DISPLAY ADJACENT ROOM CONTENTS WITH FLARE 2645 REM 2650 PRINT 2655 F5) GOTO 2020 1980 A=X : B=Y : C=Z 1985 X=FNA(8) : Y=FNA(8) : Z=FNA(8) 1990 L(FND(Z))=FNE(L(FND(Z)))+100 1995 X=A : Y=B : Z=C 2000 IF L(FND(Z)) <> 1 GOTO 2020 2005 FOR Q=1 TO 3 2010 C(Q,4)=-(C(Q,1)=X)*(C(Q,2)=Y)*(C(Q,3)=Z) 2015 NEXT Q 2020 IF FNA(5) > 1 GOTO 2165 2025 PRINT 2030 PRINT "YOU "; 2035 Q=FNA(7)+BL 2040 IF Q > 7 THEN Q=4 2045 ON Q GOSUB 2125,2065,2115,2055,2135,2145,2155 2050 GOTO 2165 2055 PRINT "STEPPED ON A FROG!" 2060 RETURN 2065 PRINT "HEAR "; 2070 ON FNA(4) GOTO 2075,2085, 2185 IF BF+T(6) <> 2 GOTO 2205 2190 PRINT 2195 PRINT C$(31);" DISSOLVES THE BOOK!" 2200 BF=0 2205 PRINT 2210 LINE INPUT "ENTER YOUR COMMAND : ";O$ 2211 IF LEFT$(O$,2)="SA" GOTO 5655 2215 IF LEFT$(O$,2)="DR" GOTO 2870 2220 O$=LEFT$(O$,1) 2225 IF O$="N" GOTO 2435 2230 IF (O$="S") OR (O$="W") OR (O$="E") GOTO 2440 2235 IF O$="U" GOTO 2465 2240 IF O$="D" GOTO 2480 2245 IF O$="M" GOTO 2505 2250 IF O$="F" THEN ON BL+1 GOTO 2620,2505 2255 IF O$="L" THEN ON BL+1 GOTO 2750,2505 2260 IF O$="O" GOTO 2" 2325 PRINT 2330 PRINT "THE CONTENTS OF ROOMS ARE AS FOLLOWS :" 2335 PRINT 2340 PRINT ". = EMPTY ROOM B = BOOK C = CHEST" 2345 PRINT "D = STAIRS DOWN E = ENTRANCE/EXIT F = FLARES" 2350 PRINT "G = GOLD PIECES M = MONSTER O = CRYSTAL ORB" 2355 PRINT "P = MAGIC POOL S = SINKHOLE T = TREASURE" 2360 PRINT "U = STAIRS UP V = VENDOR W = WARP/ORB" 2365 PRINT 2370 PRINT "THE BENEFITS OF HAVING TREASURES ARE :" 2375 PRINT 2380 PRINT "RUBY RED -") 2445 Y=Y+(O$="W")-(O$="E") 2450 X=FNB(X) 2455 Y=FNB(Y) 2460 GOTO 3450 2465 IF L(FND(Z))=3 THEN Z=Z-1 : GOTO 3450 2470 Z$="UP" 2475 GOTO 2490 2480 Z$="DOWN" 2485 IF L(FND(Z))=4 THEN Z=Z+1 : GOTO 3450 2490 PRINT 2495 PRINT "** THERE ARE NO STAIRS GOING ";Z$;" FROM HERE!" 2500 GOTO 1950 2505 IF BL <> 1 GOTO 2540 2510 PRINT 2515 PRINT "** YOU CAN'T SEE ANYTHING, YOU DUMB ";R$(RC);"!" 2520 GOTO 1950 2525 REM 2530 REM DISPLAY MAP OF CURRENT CASTLE LEVEL 2535 REM 2540 PRINT 2545 A=X : B=YL=FL-1 2660 A=X : B=Y 2665 FOR Q1=A-1 TO A+1 2670 X=FNB(Q1) 2675 FOR Q2=B-1 TO B+1 2680 Y=FNB(Q2) 2685 Q=FNE(L(FND(Z))) 2690 L(FND(Z))=Q 2695 PRINT " ";I$(Q);" "; 2700 NEXT Q2 2705 PRINT 2710 PRINT 2715 NEXT Q1 2720 X=A : Y=B 2725 GOSUB 5570 2730 GOTO 1950 2735 REM 2740 REM DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP 2745 REM 2750 IF LF <> 0 GOTO 2770 2755 PRINT 2760 PRINT "** YOU DON'T HAVE A LAMP, ";R$(RC);"!" 2765 GOTO 1950 2770 PRINT 2775 PRINT "WHERE DO YOU WANT TO SHINE THE    LAMP (N,S,E,W)"; 2780 GOSUB 5415 2785 A=X : B=Y 2790 X=FNB(X+(O$="N")-(O$="S")) 2795 Y=FNB(Y+(O$="W")-(O$="E")) 2800 IF A-X+B-Y <> 0 GOTO 2820 2805 PRINT 2810 PRINT "** THAT'S NOT A DIRECTION, ";R$(RC);"!" 2815 GOTO 1950 2820 PRINT 2825 PRINT "THE LAMP SHINES INTO (";X;",";Y;") LEVEL";Z;"." 2830 PRINT 2835 L(FND(Z))=FNE(L(FND(Z))) 2840 PRINT "THERE YOU WILL FIND ";C$(L(FND(Z)));"." 2845 X=A : Y=B 2850 GOTO 1950 2855 REM 2860 REM TAKE A DRINK FROM A POOL 2865 REM 2870 IF L(FND(Z))=5 GOT: PRINT "NIMBLER." : GOTO 1950 2940 DX=DX-FNA(3) : PRINT "CLUMSIER." : ON (1-(DX<1)) GOTO 1950,4910 2945 Q=FNA(4) : IF Q=RC GOTO 2945 2950 RC=Q : PRINT "BECOME A ";R$(RC);"." : GOTO 1950 2955 SX=1-SX : PRINT "TURN INTO A "; : IF SX=0 THEN PRINT "FE"; 2960 PRINT "MALE ";R$(RC);"!" : GOTO 1950 2965 IF L(FND(Z)) <> 6 GOTO 2985 2970 PRINT 2975 PRINT "YOU OPEN THE CHEST AND" 2980 GOTO 3115 2985 IF L(FND(Z)) <> 12 GOTO 3005 2990 PRINT 2995 PRINT "YOU OPEN THE BOOK AND" 3000 GOTO 3020 3005 PRINT 301OOK STICKS TO YOUR HANDS -" 3095 PRINT "NOW YOU ARE UNABLE TO DRAW YOUR WEAPON!" 3100 BF=1 3105 L(FND(Z))=1 3110 GOTO 1950 3115 ON FNA(4) GOTO 3120,3140,3160,3140 3120 PRINT "KABOOM! IT EXPLODES!!" 3125 Q=FNA(6) 3130 GOSUB 4860 3135 ON (1-(ST<1)) GOTO 3105,4910 3140 Q=FNA(1000) 3145 PRINT "FIND";Q;"GOLD PIECES!" 3150 GP=GP+Q 3155 GOTO 3105 3160 PRINT "GAS!! YOU STAGGER FROM THE ROOM!" 3165 L(FND(Z))=1 3170 T=T+20 3175 O$=MID$("NSEW",FNA(4),1) 3180 GOTO 2440 3185 IF L(FND(Z))=11 GOTO 3205 )=Q 3270 PRINT C$(Q);" AT (";X;",";Y;") LEVEL";Z;"." 3275 X=A : Y=B : Z=C 3280 GOTO 1950 3285 A=FNA(8) : B=FNA(8) : C=FNA(8) 3290 IF FNA(8) < 4 THEN A=O(1) : B=O(2) : C=O(3) 3295 PRINT "***THE ORB OF ZOT*** AT (";A;",";B;") LEVEL";C;"!" 3300 GOTO 1950 3305 PRINT "A SOAP OPERA RERUN!" 3310 GOTO 1950 3315 IF RF <> 0 GOTO 3335 3320 PRINT 3325 PRINT "** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!" 3330 GOTO 1950 3335 Z$="X-COORDINATE" 3340 GOSUB 5485 3345 X=Q 3350 Z$="Y-COORDINATE" 3355 GOSUB 54FL;" GOLD PIECES =";GP 3470 PRINT "WEAPON = ";W$(WV+1);" ARMOR = ";W$(AV+5); 3475 IF LF=1 THEN PRINT " AND A LAMP"; 3480 PRINT 3485 WC=0 3490 Q=FNE(L(FND(Z))) 3495 L(FND(Z))=Q 3500 Z$="YOU NOW HAVE" 3505 PRINT 3510 PRINT "HERE YOU FIND ";C$(Q);"." 3515 IF (Q<7) OR (Q=11) OR (Q=12) GOTO 1950 3520 IF Q=7 THEN GP=GP+FNA(10) : PRINT Z$;GP;"." : GOTO 3105 3525 IF Q=8 THEN FL=FL+FNA(5) : PRINT Z$;FL;"." : GOTO 3105 3530 IF Q > 9 GOTO 3545 3535 IF (O(1)=X) AND (O(2)=Y) AND (O(3)=Z) THEN ON (1-(O$="O 2890 2875 PRINT 2880 PRINT "** IF YOU WANT A DRINK, FIND A POOL!" 2885 GOTO 1950 2890 Q=FNA(8) 2895 PRINT 2900 PRINT "YOU TAKE A DRINK AND "; 2905 IF Q < 7 THEN PRINT "FEEL "; 2910 ON Q GOTO 2915,2920,2925,2930,2935,2940,2945,2955 2915 ST=FNC(ST+FNA(3)) : PRINT "STRONGER." : GOTO 1950 2920 ST=ST-FNA(3) : PRINT "WEAKER." : ON (1-(ST<1)) GOTO 1950,4910 2925 IQ=FNC(IQ+FNA(3)) : PRINT "SMARTER." : GOTO 1950 2930 IQ=IQ-FNA(3) : PRINT "DUMBER." : ON (1-(IQ<1)) GOTO 1950,4910 2935 DX=FNC(DX+FNA(3)) 0 PRINT "** THE ONLY THING OPENED WAS YOUR BIG MOUTH!" 3015 GOTO 1950 3020 ON FNA(6) GOTO 3025,3040,3050,3060,3075,3090 3025 PRINT "FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC);"!" 3030 BL=1 3035 GOTO 3105 3040 PRINT "IT'S ANOTHER VOLUME OF ZOT'S POETRY! - YECH!!" 3045 GOTO 3105 3050 PRINT "IT'S AN OLD COPY OF PLAY";R$(FNA(4));"!" 3055 GOTO 3105 3060 PRINT "IT'S A MANUAL OF DEXTERITY!" 3065 DX=18 3070 GOTO 3105 3075 PRINT "IT'S A MANUAL OF STRENGTH!" 3080 ST=18 3085 GOTO 3105 3090 PRINT "THE B 3190 PRINT 3195 PRINT "** IT'S HARD TO GAZE WITHOUT AN ORB!" 3200 GOTO 1950 3205 PRINT 3210 PRINT "YOU SEE "; 3215 ON FNA(6) GOTO 3220,3230,3240,3250,3285,3305 3220 PRINT "YOURSELF IN A BLOODY HEAP!" 3225 ST=ST-FNA(2) : ON (1-(ST<1)) GOTO 1950,4910 3230 PRINT "YOURSELF DRINKING FROM A POOL AND BECOMING ";C$(12+FNA(13));"!" 3235 GOTO 1950 3240 PRINT C$(12+FNA(13));" GAZING BACK AT YOU!" 3245 GOTO 1950 3250 A=X : B=Y : C=Z 3255 X=FNA(8) : Y=FNA(8) : Z=FNA(8) 3260 Q=FNE(L(FND(Z))) 3265 L(FND(Z)85 3360 Y=Q 3365 Z$="Z-COORDINATE" 3370 GOSUB 5485 3375 Z=Q 3380 O$="T" 3385 GOTO 3450 3390 PRINT 3395 PRINT "DO YOU REALLY WANT TO QUIT NOW"; 3400 GOSUB 5415 3405 PRINT 3410 IF O$="Y" GOTO 3425 3415 PRINT "** THEN DON'T SAY THAT YOU DO!" 3420 GOTO 1950 3425 PRINT 3430 GOTO 5030 3435 REM 3440 REM DISPLAY STATUS INFORMATION 3445 REM 3450 PRINT 3455 IF BL=0 THEN GOSUB 5570 : PRINT 3460 PRINT "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX 3465 PRINT "TREASURES =";TC;" FLARES =";T")) GOTO 2440,5175 3540 X=FNA(8) : Y=FNA(8) : Z=FNA(8) : GOTO 3450 3545 IF Q=10 THEN Z=FNB(Z+1) : GOTO 3450 3550 IF Q <= 25 OR Q >= 34 GOTO 3580 3555 PRINT 3560 PRINT "IT'S NOW YOURS!" 3565 T(Q-25)=1 3570 TC=TC+1 3575 GOTO 3105 3580 A=L(FND(Z))-12 3585 WC=0 3590 IF (A<13) OR (VF=1) GOTO 4185 3595 PRINT 3600 PRINT "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR." 3605 GOSUB 5405 3610 IF O$="I" GOTO 1950 3615 IF O$ <> "A" GOTO 3640 3620 VF=1 3625 PRINT 3630 PRINT "YOU'LL BE SORRY THAT YO   U DID THAT!" 3635 GOTO 4185 3640 IF O$="T" GOTO 3660 3645 PRINT 3650 PRINT "** NICE SHOT, ";R$(RC);"!" 3655 GOTO 3595 3660 FOR Q=1 TO 8 3665 A=FNA(Q*1500) 3670 IF T(Q)=0 GOTO 3700 3675 PRINT 3680 PRINT "DO YOU WANT TO SELL ";C$(Q+25);" FOR";A;"GP'S"; 3685 GOSUB 5415 3690 IF O$="Y" THEN TC=TC-1 : T(Q)=0 : GP=GP+A : GOTO 3700 3695 IF O$ <> "N" THEN PRINT Y$ : GOTO 3675 3700 NEXT Q 3705 IF GP >= 1000 GOTO 3725 3710 PRINT 3715 PRINT "YOU'RE TOO POOR TO TRADE, ";R$(RC);"." 3720 GOTO 1950 3725 !" 3805 GOTO 3740 3810 IF O$="C" THEN GP=GP-1500 : AV=2 : AH=14 : GOTO 3850 3815 IF O$ <> "P" OR GP >= 2000 GOTO 3830 3820 PRINT "** YOU CAN'T AFFORD PLATE ARMOR!" 3825 GOTO 3740 3830 IF O$="P" THEN GP=GP-2000 : AV=3 : AH=21 : GOTO 3850 3835 PRINT 3840 PRINT "** DON'T BE SILLY. CHOOSE A SELECTION." 3845 GOTO 3770 3850 IF GP < 1250 GOTO 3975 3855 PRINT 3860 PRINT "YOU HAVE";GP;"GP'S LEFT WITH ";W$(WV+1);" IN HAND." 3865 PRINT 3870 Z$="WEAPON" 3875 GOSUB 5555 3880 PRINT "NOTHING<0> DAGGER<1250 3955 GOTO 3865 3960 IF O$="S" THEN GP=GP-2000 : WV=3 : GOTO 3975 3965 PRINT "** TRY CHOOSING A SELECTION!" 3970 GOTO 3895 3975 IF GP < 1000 GOTO 1950 3980 Z$="STRENGTH" 3985 GOSUB 5525 3990 IF O$ <> "Y" GOTO 4020 3995 GP=GP-1000 4000 ST=FNC(ST+FNA(6)) 4005 Q=ST 4010 GOSUB 5540 4015 GOTO 3975 4020 IF O$ <> "N" THEN PRINT Y$ : GOTO 3980 4025 IF GP < 1000 GOTO 1950 4030 Z$="INTELLIGENCE" 4035 GOSUB 5525 4040 IF O$ <> "Y" GOTO 4070 4045 GP=GP-1000 4050 IQ=FNC(IQ+FNA(6)) 4055 Q=IQ 4060 GOSEED TO OUTLIVE YOU!" 4170 GOTO 1950 4175 IF O$ <> "N" THEN PRINT Y$ : GOTO 4130 4180 GOTO 1950 4185 Q1=1+INT(A/2) : Q2=A+2 : Q3=1 4190 IF (C(1,4)>T(1)) OR (BL=1) OR (DX 14 THEN PRINT "YOU CAN ALSO CAST A SPELL." 4225 PRINT 4230 PRINT "YOUR STRENGTH IS";ST;"AND YOUR DEXTERITY IS";DX;"." 4235 GOSUB 540330 IF (A <> 9 AND A <> 12) GOTO 4355 4335 IF FNA(8) <> 1 GOTO 4355 4340 PRINT 4345 PRINT "OH NO! YOUR ";W$(WV+1);" BROKE!" 4350 WV=0 4355 IF Q2 > 0 GOTO 4700 4360 PRINT 4365 MC=MC-1 4370 PRINT C$(A+12);" LIES DEAD AT YOUR FEET!" 4375 IF H > T-60 GOTO 4395 4380 PRINT 4385 PRINT "YOU SPEND AN HOUR EATING ";C$(A+12);E$(FNA(8));"." 4390 H=T 4395 IF X <> R(1) OR Y <> R(2) OR Z <> R(3) THEN ON (1-(A=13)) GOTO 4420,5305 4400 PRINT 4405 PRINT "GREAT ZOT! YOU'VE FOUND THE RUNESTAFF!";CHR$(7) 4410 R(IF GP < 1250 GOTO 3975 3730 PRINT 3735 PRINT "OK, ";R$(RC);", YOU HAVE";GP;"GP'S AND ";W$(AV+5);" ARMOR." 3740 PRINT 3745 Z$="ARMOR" 3750 GOSUB 5555 3755 PRINT "NOTHING<0> LEATHER<1250> "; 3760 IF GP > 1499 THEN PRINT "CHAINMAIL<1500> "; 3765 IF GP > 1999 THEN PRINT "PLATE<2000>"; 3770 PRINT 3775 GOSUB 5405 3780 PRINT 3785 IF O$="N" GOTO 3850 3790 IF O$="L" THEN GP=GP-1250 : AV=1 : AH=7 : GOTO 3850 3795 IF O$ <> "C" OR GP >= 1500 GOTO 3810 3800 PRINT "** YOU HAVEN'T GOT THAT MUCH CASH ON HAND> "; 3885 IF GP > 1499 THEN PRINT "MACE<1500> "; 3890 IF GP > 1999 THEN PRINT "SWORD<2000>"; 3895 PRINT 3900 GOSUB 5405 3905 PRINT 3910 IF O$="N" GOTO 3975 3915 IF O$="D" THEN GP=GP-1250 : WV=1 : GOTO 3975 3920 IF O$ <> "M" OR GP >= 1500 GOTO 3935 3925 PRINT "** SORRY SIR, I'M AFRAID I DON'T GIVE CREDIT!" 3930 GOTO 3865 3935 IF O$="M" THEN GP=GP-1500 : WV=2 : GOTO 3975 3940 IF O$ <> "S" OR GP >= 2000 GOTO 3960 3945 PRINT "** YOUR DUNGEON EXPRESS CARD - "; 3950 PRINT "YOU LEFT HOME WITHOUT IT!"UB 5540 4065 GOTO 4025 4070 IF O$ <> "N" THEN PRINT Y$ : GOTO 4030 4075 IF GP < 1000 GOTO 1950 4080 Z$="DEXTERITY" 4085 GOSUB 5525 4090 IF O$ <> "Y" GOTO 4120 4095 GP=GP-1000 4100 DX=FNC(DX+FNA(6)) 4105 Q=DX 4110 GOSUB 5540 4115 GOTO 4075 4120 IF O$ <> "N" THEN PRINT Y$ : GOTO 4080 4125 IF (GP<1000) OR (LF=1) GOTO 1950 4130 PRINT 4135 PRINT "DO YOU WANT TO BUY A LAMP FOR 1000 GP'S"; 4140 GOSUB 5415 4145 IF O$ <> "Y" GOTO 4175 4150 GP=GP-1000 4155 LF=1 4160 PRINT 4165 PRINT "IT'S GUARANT5 4240 IF O$ <> "A" GOTO 4445 4245 IF WV <> 0 GOTO 4265 4250 PRINT 4255 PRINT "** POUNDING ON ";C$(A+12);" WON'T HURT IT!" 4260 GOTO 4700 4265 IF BF <> 1 GOTO 4285 4270 PRINT 4275 PRINT "** YOU CAN'T BEAT IT TO DEATH WITH A BOOK!" 4280 GOTO 4700 4285 IF DX >= FNA(20)+(3*BL) GOTO 4305 4290 PRINT 4295 PRINT "YOU MISSED, TOO BAD!" 4300 GOTO 4700 4305 Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2) 4310 IF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2) 4315 PRINT 4320 PRINT "YOU HIT THE EVIL ";Z$;"!" 4325 Q2=Q2-WV 41)=0 4415 RF=1 4420 Q=FNA(1000) 4425 PRINT 4430 PRINT "YOU NOW GET HIS HOARD OF";Q;"GP'S!" 4435 GP=GP+Q 4440 GOTO 3105 4445 IF O$="R" GOTO 4700 4450 IF O$ <> "C" GOTO 4595 4455 IF IQ >= 15 OR Q3 <= 1 GOTO 4475 4460 PRINT 4465 PRINT "** YOU CAN'T CAST A SPELL NOW!" 4470 GOTO 4195 4475 PRINT 4480 PRINT "WHICH SPELL (WEB, FIREBALL, DEATHSPELL)"; 4485 GOSUB 5415 4490 PRINT 4495 IF O$ <> "W" GOTO 4515 4500 ST=ST-1 4505 WC=FNA(8)+1 4510 ON (1-(ST<1)) GOTO 4700,4910 4515 IF O$ <> "F" GOTO 4560    4520 Q=FNA(7)+FNA(7) 4525 ST=ST-1 4530 IQ=IQ-1 4535 IF (IQ < 1) OR (ST < 1) GOTO 4910 4540 PRINT "IT DOES";Q;"POINTS WORTH OF DAMAGE." 4545 PRINT 4550 Q2=Q2-Q 4555 GOTO 4355 4560 IF O$="D" GOTO 4580 4565 PRINT 4570 PRINT "** TRY ONE OF THE OPTIONS GIVEN." 4575 GOTO 4195 4580 PRINT "DEATH . . . "; 4585 IF IQ < FNA(4)+15 THEN PRINT "YOURS!" : IQ=0 : GOTO 4910 4590 PRINT "HIS!" : Q2=0 : GOTO 4360 4595 IF O$="B" AND Q3 <= 1 GOTO 4615 4600 PRINT 4605 PRINT "** CHOOSE ONE OF THE OPTIONS LISTED.PRINT : PRINT "THE WEB JUST BROKE!" 4720 Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2) 4725 IF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2) 4730 IF WC <= 0 GOTO 4750 4735 PRINT 4740 PRINT "THE ";Z$;" IS STUCK AND CAN'T ATTACK NOW!" 4745 GOTO 4805 4750 PRINT 4755 PRINT "THE ";Z$;" ATTACKS!" 4760 IF DX < FNA(7)+FNA(7)+FNA(7)+3*BL GOTO 4780 4765 PRINT 4770 PRINT "WHAT LUCK, HE MISSED YOU!" 4775 GOTO 4805 4780 PRINT 4785 PRINT "OUCH! HE HIT YOU!" 4790 Q=Q1 4795 GOSUB 4860 4800 IF ST < 1 GOTO 4910 4805 IF O$ <> "R 4905 RETURN 4910 PRINT CHR$(7) 4915 GOSUB 5375 4920 PRINT "A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC);"!" 4925 PRINT 4930 PRINT "YOU DIED DUE TO LACK OF "; 4935 IF ST < 1 THEN PRINT "STRENGTH." 4940 IF IQ < 1 THEN PRINT "INTELLIGENCE." 4945 IF DX < 1 THEN PRINT "DEXTERITY." 4950 PRINT 4955 Q3=1 4960 PRINT "AT THE TIME YOU DIED, YOU HAD :" 4965 GOTO 5055 4970 Q3=0 4975 PRINT 4980 PRINT "YOU LEFT THE CASTLE WITH"; 4985 IF OF=0 THEN PRINT "OUT"; 4990 PRINT " THE ORB OF ZOT." 4995 PRINT 500 ALSO HAD";FL;"FLARES AND";GP;"GOLD PIECES" 5090 IF RF=1 THEN PRINT "AND THE RUNESTAFF" 5095 PRINT 5100 PRINT "AND IT TOOK YOU";T;"TURNS!" 5105 PRINT 5110 PRINT "ARE YOU FOOLISH ENOUGH TO WANT TO PLAY AGAIN"; 5115 GOSUB 5415 5120 PRINT 5125 IF O$ <> "Y" GOTO 5155 5130 PRINT "SOME ";R$(RC);"S NEVER LEARN!" 5135 PRINT 5140 PRINT "PLEASE BE PATIENT WHILE THE CASTLE IS RESTOCKED." 5145 PRINT 5146 IF F>0 THEN F=0 5150 GOTO 1086 5155 IF O$ <> "N" THEN PRINT Y$ : GOTO 5110 5160 PRINT "MAYBE DUMB ";,M,A GOBLIN,M,AN OGRE,M 5245 DATA A TROLL,M,A BEAR,M,A MINOTAUR,M,A GARGOYLE,M,A CHIMERA,M 5250 DATA A BALROG,M,A DRAGON,M,A VENDOR,V,THE RUBY RED,T 5255 DATA THE NORN STONE,T,THE PALE PEARL,T,THE OPAL EYE,T 5260 DATA THE GREEN GEM,T,THE BLUE FLAME,T,THE PALANTIR,T,THE SILMARIL,T 5265 DATA X,"?",NO WEAPON," SANDWICH" 5270 DATA DAGGER," STEW",MACE," SOUP",SWORD," BURGER",NO ARMOR," ROAST" 5275 DATA LEATHER," FILET",CHAINMAIL," TACO",PLATE," PIE" 5280 DATA HOBBIT,ELF,MAN,DWARF 5285 X=FNA(8) : Y=FNA(8" 4610 GOTO 4195 4615 IF TC <> 0 GOTO 4635 4620 PRINT 4625 PRINT "ALL I WANT IS YOUR LIFE!" 4630 GOTO 4700 4635 Q=FNA(8) 4640 IF T(Q)=0 GOTO 4635 4645 PRINT 4650 PRINT "I WANT ";C$(Q+25);". WILL YOU GIVE IT TO ME"; 4655 GOSUB 5415 4660 IF O$="N" GOTO 4700 4665 IF O$ <> "Y" THEN PRINT Y$ : GOTO 4645 4670 T(Q)=0 4675 TC=TC-1 4680 PRINT 4685 PRINT "OK, JUST DON'T TELL ANYONE ELSE." 4690 VF=VF+(L(FND(Z))=25) 4695 GOTO 1950 4700 Q3=2 4705 IF WC <= 0 GOTO 4720 4710 WC=WC-1 4715 IF WC=0 THEN " GOTO 4195 4810 PRINT 4815 PRINT "YOU HAVE ESCAPED!" 4820 PRINT 4825 PRINT "DO YOU WANT TO GO NORTH, SOUTH, EAST, OR WEST"; 4830 GOSUB 5415 4835 IF O$="N" OR O$="S" OR O$="E" OR O$="W" GOTO 2440 4840 PRINT 4845 PRINT "** DON'T PRESS YOUR LUCK, ";R$(RC);"!" 4850 PRINT 4855 GOTO 4825 4860 IF AV=0 GOTO 4900 4865 Q=Q-AV 4870 AH=AH-AV 4875 IF Q < 0 THEN AH=AH-Q : Q=0 4880 IF AH >= 0 GOTO 4900 4885 AH=0 : AV=0 4890 PRINT 4895 PRINT "YOUR ARMOR HAS BEEN DESTROYED . . . GOOD LUCK!" 4900 ST=ST-Q 0 IF OF=0 GOTO 5030 5005 PRINT 5010 PRINT "AN INCREDIBLY GLORIOUS VICTORY!!" 5015 PRINT 5020 PRINT "IN ADDITION, YOU GOT OUT WITH THE FOLLOWING :" 5025 GOTO 5050 5030 PRINT 5035 PRINT "A LESS THAN AWE-INSPIRING DEFEAT." 5040 PRINT 5045 PRINT "WHEN YOU LEFT THE CASTLE, YOU HAD :" 5050 IF Q3=0 THEN PRINT "YOUR MISERABLE LIFE!" 5055 FOR Q=1 TO 8 5060 IF T(Q)=1 THEN PRINT C$(Q+25) 5065 NEXT Q 5070 PRINT W$(WV+1);" AND ";W$(AV+5); 5075 IF LF=1 THEN PRINT " AND A LAMP"; 5080 PRINT 5085 PRINT "YOUR$(RC);" IS NOT SO DUMB AFTER ALL!" 5165 PRINT 5170 GOTO 5700 5175 PRINT 5180 PRINT "GREAT UNMITIGATED ZOT!" 5185 PRINT 5190 PRINT "YOU JUST FOUND ***THE ORB OF ZOT***!" 5195 PRINT 5200 PRINT "THE RUNESTAFF HAS DISAPPEARED!" 5205 RF=0 5210 OF=1 5215 O(1)=0 5220 GOTO 3105 5225 DATA AN EMPTY ROOM,.,THE ENTRANCE,E,STAIRS GOING UP,U 5230 DATA STAIRS GOING DOWN,D,A POOL,P,A CHEST,C,GOLD PIECES,G 5235 DATA FLARES,F,A WARP,W,A SINKHOLE,S,A CRYSTAL ORB,O 5240 DATA A BOOK,B,A KOBOLD,M,AN ORC,M,A WOLF) 5290 IF L(FND(Z)) <> 101 GOTO 5285 5295 L(FND(Z))=Q 5300 RETURN 5305 PRINT 5310 PRINT "YOU GET ALL HIS WARES :" 5315 PRINT "PLATE ARMOR" 5320 AV=3 : AH=21 5325 PRINT "A SWORD" 5330 WV=3 5335 PRINT "A STRENGTH POTION" 5340 ST=FNC(ST+FNA(6)) 5345 PRINT "AN INTELLIGENCE POTION" 5350 IQ=FNC(IQ+FNA(6)) 5355 PRINT "A DEXTERITY POTION" 5360 DX=FNC(DX+FNA(6)) 5365 IF LF=0 THEN PRINT "A LAMP" : LF=1 5370 GOTO 4420 5375 FOR Q=1 TO 64 5380 PRINT "*"; 5385 NEXT Q 5390 PRINT 5395 PRINT 5400 RETU    RN 5405 PRINT 5410 PRINT "YOUR CHOICE"; 5415 INPUT O$ 5420 O$=LEFT$(O$,1) 5425 RETURN 5430 PRINT "HOW MANY POINTS DO YOU WISH TO ADD TO YOUR ";Z$; 5435 INPUT O$ 5440 PRINT 5445 Q=VAL(O$) 5450 IF Q=0 AND ASC(O$) <> 48 THEN Q=-1 5455 IF Q<0 OR Q>OT OR Q<>INT(Q) THEN PRINT "** "; : GOTO 5430 5460 OT=OT-Q 5465 RETURN 5470 INPUT O$ 5475 Q=INT(VAL(O$)) 5480 RETURN 5485 PRINT 5490 PRINT Z$; 5495 INPUT O$ 5500 Q=INT(VAL(O$)) 5505 IF Q > 0 AND Q < 9 THEN RETURN 5510 PRINT 5515 PRINT "** TRY A INT "FILE NOT FOUND":PRINT:RESUME 5605 5600 PRINT:PRINT "DISK FULL":PRINT:RESUME 5655 5601 PRINT:PRINT "BAD FILE NAME":RESUME 5605 5602 PRINT:PRINT "BAD FILE NAME":RESUME 5655 5605 LINE INPUT " OF SAVED GAME ";FI$ 5610 OPEN "I",1,FI$ 5615 FOR I=1 TO 512:INPUT #1,L(I):NEXT I 5620 FOR I=1 TO 3:FOR Q=1 TO 4:INPUT #1,C(I,Q):NEXT Q:NEXT I 5625 FOR I=1 TO 8:INPUT #1,T(I):NEXT I 5630 FOR I=1 TO 3:INPUT #1,O(I):NEXT I 5635 INPUT #1,LF,BL,GP,BF,X,Y,Z,WV,AV,FL,RF,T,RC,OF,ST,IQ,DX,VF,TC 5640 FOR I00 END GAME TO? ";FO$ 5660 OPEN "O",1,FO$ 5665 FOR I=1 TO 512:PRINT #1,L(I);:NEXT I 5670 FOR I=1 TO 3:FOR Q=1 TO 4:PRINT #1,C(I,Q);:NEXT Q:NEXT I 5675 FOR I=1 TO 8:PRINT #1,T(I);:NEXT I 5680 FOR I=1 TO 3:PRINT #1,O(I);:NEXT I 5685 PRINT #1,LF;BL;GP;BF;X;Y;Z;WV;AV;FL;RF;T;RC;OF;ST;IQ;DX;VF;TC; 5690 FOR I=1 TO 3:PRINT #1,R(I);:NEXT I 5695 FOR I=1 TO 8:PRINT #1,T(I);:NEXT I:CLOSE 570 REM C H A S E V 1.0 1/16/77 GCC III 1 REM BY HERMAN DEMONSTOY FEB 77 ISSUE KILOBAUD MAG 5 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 20 Z2=0 50 PRINT"THIS IS THE GAME OF CHASE" 100 PRINT"YOU ARE IN A HIGH VOLTAGE MAZE WITH FIVE" 110 PRINT"SECURITY MACHINES (+) TRYING TO DESTROY YOU (X)." 120 PRINT"YOU MUST MANEUVER THE SECURITY MACHINES INTO" 130 PRINT"THE HIGH VOLTAGE FENCE POSTS (O), OR INTO EACH OTHER" 140 PRINT"IN ORDER TO SURVIVE. GOOD LUCK. 145 PRINT 160 PRINT"MOVES ARE: )*18)+2:REM ....................... 340 IF A(B,C)<>0 GOTO 320 350 A(B,C)=1 360 IF D<6 THEN A(B,C)=2 370 IF D=6 THEN A(B,C)=3 380 E(D)=B 390 F(D)=C 400 NEXT D 410 PRINT:PRINT 499 REM ..........PRINT PATTERN 500 FOR B=1 TO 10 510 FOR C=1 TO 20 520 IF A(B,C)=0 THEN PRINT" "; 530 IF A(B,C)=1 THEN PRINT"O"; 540 IF A(B,C)=2 THEN PRINT"+"; 550 IF A(B,C)=3 THEN PRINT"X"; 560 NEXT C 565 IF B=3 THEN PRINT" ";G;"SECURITY MACHINE";:IF G>1 THEN PRINT"S"; 566 IF B=3 THEN PRINT" LEFT"; 567 IF B=7 NUMBER FROM 1 TO 8." 5520 GOTO 5485 5525 PRINT 5530 PRINT "DO YOU WANT TO BUY A POTION OF ";Z$;" FOR 1000 GP'S"; 5535 GOTO 5415 5540 PRINT 5545 PRINT "YOUR ";Z$;" IS NOW";Q;"." 5550 RETURN 5555 PRINT 5560 PRINT "THESE ARE THE TYPES OF ";Z$;" YOU CAN BUY :" 5565 RETURN 5570 PRINT "YOU ARE AT (";X;",";Y;") LEVEL";Z;"." 5575 RETURN 5580 IF ERR=53 THEN 5595 5585 IF ERR=57 THEN 5600 5586 IF ERR=65 THEN 5591 5590 ON ERROR GOTO 0 5591 IF ERL=5610 THEN 5601 ELSE IF ERL=5660 THEN 5602 5595 PRINT:PR=1 TO 3:INPUT #1,R(I):NEXT I 5645 FOR I=1 TO 8:INPUT #1,T(I):NEXT I:CLOSE 5650 GOTO 3445 5655 LINE INPUT " TO SAVE GAME TO? ";FO$ 5660 OPEN "O",1,FO$ 5665 FOR I=1 TO 512:PRINT #1,L(I);:NEXT I 5670 FOR I=1 TO 3:FOR Q=1 TO 4:PRINT #1,C(I,Q);:NEXT Q:NEXT I 5675 FOR I=1 TO 8:PRINT #1,T(I);:NEXT I 5680 FOR I=1 TO 3:PRINT #1,O(I);:NEXT I 5685 PRINT #1,LF;BL;GP;BF;X;Y;Z;WV;AV;FL;RF;T;RC;OF;ST;IQ;DX;VF;TC; 5690 FOR I=1 TO 3:PRINT #1,R(I);:NEXT I 5695 FOR I=1 TO 8:PRINT #1,T(I);:NEXT I:CLOSE 57 1 2 3" 165 PRINT" 8 * 4 0 IS NO MOVE" 170 PRINT" 7 6 5 9 GIVE UP" 175 PRINT 199 REM .............SET UP THE GAME 200 DIM A(10,20),E(21),F(21) 210 G=5:M=0 220 FOR B=1 TO 10 230 FOR C=1 TO 20 240 LET A(B,C)=0 250 IF B=1 THEN A(B,C)=1 260 IF B=10 THEN A(B,C)=1 270 IF C=1 THEN A(B,C)=1 280 IF C=20 THEN A(B,C)=1 290 NEXT C 295 PRINT" . ";:REM ..........KEEPS SCREEN GOING WHILE TABLE SET UP 300 NEXT B 310 FOR D=1 TO 21 320 B=INT(RND(1)*8)+2 330 C=INT(RND(1THEN PRINT" 1 2 3"; 569 IF B=8 THEN PRINT" 8 * 4 0 IS NO MOVE"; 571 IF B=9 THEN PRINT" 7 6 5 9 GIVE UP"; 573 PRINT 580 NEXT B 599 REM .........MAKE MOVE 600 B=E(6) 610 C=F(6) 620 A(B,C)=0 630 INPUT"MOVE";Y 635 M=M+1 640 IF Y=0 GOTO 800 650 ON Y GOTO 660,660,660,690,680,680,680,690,1400 660 B=B-1 670 GOTO 690 680 B=B+1 690 ON Y GOTO 700,800,720,720,720,800,700,700 700 C=C-1 710 GOTO 800 720 C=C+1 799 REM ..........CALCULATE THE RESULTS 800 IF A(   B,C)=1 GOTO 1500 810 IF A(B,C)=2 GOTO 1600 820 A(B,C)=3 830 E(6)=B 840 F(6)=C 850 FOR D=1 TO 5 860 IF A(E(D),F(D))<>2 GOTO 960 870 A(E(D),F(D))=0 880 IF E(D)B THEN E(D)=E(D)-1 900 IF F(D)C THEN F(D)=F(D)-1 920 IF A(E(D),F(D))=3 GOTO 1600 930 IF A(E(D),F(D))<>0 THEN G=G-1 940 IF A(E(D),F(D))=0 THEN A(E(D),F(D))=2 950 IF G=0 GOTO 1700 960 NEXT D 970 GOTO 500 1000 PRINT"TYPE Y OR N PLEASE...":GOTO 980 1400 PRINT:PRINT"S)!!!" 1715 PRINT:PRINT:PRINT"WANT TO PLAY AGAIN(Y OR N) 1720 INPUT Y$ 1725 PRINT:PRINT 1730 IF LEFT$(Y$,1)="Y" GOTO 210 1740 PRINT:PRINT"HOPE YOU DONT FEEL FENCED IN." 1750 PRINT"TRY AGAIN SOMETIME " 1760 PRINT"THIS TIME YOU WON ";Z2;" GAME(S)" 1765 Z2=Z2+1 1770 PRINT"NEXT TIME YOU MAY WIN ";Z2;", OR MORE!!!!!" 2000 END  1760 PRINT"THIS TIME YOU WON ";Z2;" GAME(S)" 17* YOU DESTROYED ALL THE ENEMY * *" 1705 PRINT"IN ONLY ";M;" MOVES." 1707 Z2=Z2+1 1710 PRINT"SO FAR YOU HAVE WON ";Z2;" GAME(5 DEF FNC$(Y,X)=CHR$(27)+CHR$(61)+CHR$(32+Y)+CHR$(32+X) 10 PRINT CHR$(26);TAB(32);"CHECKERS" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT:PRINT:PRINT 40 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X," 50 PRINT "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST." 60 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." 70 PRINT "(0,0) IS THE LOWER LEFT CORNER" 80 PRINT "(0,7) IS THE UPPER LEFT CORNER" 90 PRINT "(7,0) IS THE LOWER RIGHT CORNER" 100 PRINT "(7,7) IS IF S(X,Y)=-2 THEN FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 280: NEXT B,A 270 NEXT Y,X:GOTO 440 280 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 330 290 IF S(U,V)=0 THEN GOSUB 340:GOTO 330 300 IF S(U,V)<0 THEN 330 310 U=U+A:V=V+B:IF U<0 OR V<0 OR U>7 OR V>7 THEN 330 320 IF S(U,V)=0 THEN GOSUB 340 330 RETURN 340 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2 350 IF ABS(Y-V)=2 THEN Q=Q+5 360 IF Y=7 THEN Q=Q-2 370 IF U=0 OR U=7 THEN Q=Q+1 380 FOR C=-1 TO 1 STEP 2:IF U+C<0 OR U+C>7 OR V+G<0 THEN 420 390 I10 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN B=-2:FOR A=-2 TO 2 STEP 4 520 GOSUB 560:NEXT A 530 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 560:NEXT B:NEXT A 540 IF R(0)<>-99 THEN PRINT "TO";R(3);R(4);:R(0)=-99:GOTO 470 550 GOTO 590 560 U=X+A:V=Y+B:IF U<0 OR U>7 OR V<0 OR V>7 THEN 580 570 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOSUB 340 580 RETURN 590 REM *** PRINT BOARD *** 600 PRINT FNC$(0,0);"":FOR Y=7 TO 0 STEP -1:PRINT Y; 610 FOR X=0 TO 7:PRINT TAB(8+5*X); 620 IF S(X,Y)=0 THEN PSORRY TO SEE YOU QUIT" 1405 PRINT"AFTER ONLY ";M;"MOVE";:IF M>1 THEN PRINT"S";:PRINT"." 1410 PRINT:GOTO 1710 1500 PRINT:PRINT"YOU TOUCHED THE FENCE !!!!!!!!" 1505 PRINT" AFTER ONLY ";M;"MOVES." 1510 GOTO 1710 1600 PRINT:PRINT"** YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER**" 1605 PRINT"AFTER ONLY ";M;" MOVES. TOO BAD." 1610 GOTO 1710 1700 PRINT:PRINT"YOU ARE LUCKY * * YOU DESTROYED ALL THE ENEMY * *" 1705 PRINT"IN ONLY ";M;" MOVES." 1707 Z2=Z2+1 1710 PRINT"SO FAR YOU HAVE WON ";Z2;" GAME(THE UPPER RIGHT CORNER" 110 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN YOU HAVE ANOTHER" 120 PRINT "JUMP. TYPE '9' AND '9' IF YOU CANNOT JUMP." 130 PRINT:PRINT:PRINT:FOR I=1 TO 1000:NEXT 180 DIM R(4),S(7,7):G=-1:R(0)=-99 190 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 200 FOR X=0 TO 7:FOR Y=0 TO 7:READ J:IF J=15 THEN 220 210 S(X,Y)=J:GOTO 230 220 RESTORE:READ S(X,Y) 230 NEXT Y,X 240 FOR X=0 TO 7:FOR Y=0 TO 7:IF S(X,Y)>-1 THEN 270 250 IF S(X,Y)=-1 THEN FOR A=-1 TO 1 STEP 2:B=G:GOSUB 280:NEXT A 260 F S(U+C,V+G)<0 THEN Q=Q+1:GOTO 420 400 IF U-C<0 OR U-C>7 OR V-G>7 THEN 420 410 IF S(U+C,V+G)>0 AND (S(U-C,V-G)=0 OR (U-C=X AND V-G=Y)) THEN Q=Q-2 420 NEXT C:IF Q>R(0) THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V 430 Q=0:RETURN 440 IF R(0)=-99 THEN 990 450 PRINT CHR$(26):PRINT FNC$(12,0);"COMPUTER: FROM";R(1);R(2);" TO";R(3);R(4) 460 R(0)=-99 470 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 490 480 S(R(3),R(4))=S(R(1),R(2)) 490 S(R(1),R(2))=0:IF ABS(R(1)-R(3))<>2 THEN 590 500 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0 5RINT "."; 630 IF S(X,Y)=1 THEN PRINT "O"; 640 IF S(X,Y)=-1 THEN PRINT "X"; 650 IF S(X,Y)=-2 THEN PRINT "X*"; 660 IF S(X,Y)=2 THEN PRINT "O*"; 670 NEXT X:PRINT:NEXT Y 680 PRINT 690 FOR ZR=0 TO 7:PRINT TAB(7+5*ZR);ZR;:NEXT ZR:PRINT 700 FOR L=0 TO 7 710 FOR M=0 TO 7 720 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1 730 IF S(L,M)=-1 OR S(L,M)=-2 THEN T=1 740 NEXT M 750 NEXT L 760 IF Z<>1 THEN 980 770 IF T<>1 THEN 990 780 T=0:Z=0 790 PRINT FNC$(13,0);"YOU: FROM ";:GOTO 810 800 A$=INKEY$:IF A$="" THEN 800 EL    SE RETURN 810 GOSUB 800:PRINT A$;" ";:E=VAL(A$):GOSUB 800:H=VAL(A$) 820 IF E>7 OR E<0 OR H>7 OR H<0 THEN 790 830 PRINT A$;" ";:IF S(E,H)<=0 THEN 790 840 PRINT "TO ";:GOSUB 800:A=VAL(A$):PRINT A$;" ";:GOSUB 800 850 B=VAL(A$):PRINT A$;" ";:X=A:Y=B 860 IF X>7 OR X<0 OR Y>7 OR Y<0 THEN 790 870 IF S(X,Y)=0 AND ABS(A-E)<=2 AND ABS(A-E)=ABS(B-H) THEN 890 880 GOTO 790 890 I=46 900 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 960 910 S((E+A)/2,(B+H)/2)=0 920 PRINT "+TO ";:GOSUB 800:A1=VAL(A$):PRINT A$;"  Ctrl-S pauses, Ctrl-C Aborts, Ctrl-X skips to next file CASTLE.DQC -> CASTLE.DOC * * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * * ORIGINAL EXIDY SORCERER VERSION BY JOSEPH R. POWER * MODIFIED HEATH MICROSOFT BASIC VERSION BY J.F.STETSON * WIZARD'S CASTLE IS A FANTASY GAME ABOUT EQUAL IN COMPLEXITY TO THE SEVERAL VERSIONS OF "ADVENTURE" WHICH ARE NOW AVAILABLE FOR MICROCOMPUTERS AND IS A VERY LARGE "BASIC" PROGRAM IN ITS OW, FABULOUS TREASURES, AND THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS YET, *NONE* HAS EVER EMERGED VICTORIOUS. * * INTRODUCTION * WIZARD'S CASTLE IS A COMPUTERIZED SIMULATION OF ONE OF THE MOST COMMON AND POPULAR FANTASY MOTIFS - THE LONE ADVENTURER'S QUEST WITHIN AN IMMENSE UNDER- GROUND LABYRINTH. EACH GAME IS SEPARATE FROM ALL OTHERS, SO THE GAME IS A CHALLENGE EVEN AFTER YOU HAVE WON SEVERAL TIMES. EACH GAME WILL RESULT INTARTS WITH A TOTAL OF 32 POINTS (EXCEPT HOBBITS, WHO ONLY GET 28), BUT THEY ARE DISTRIBUTED DIFFERENTLY FOR EACH RACE. * SEX YOU MAY BE MALE OR FEMALE. BOTH ARE EQUAL IN ABILITY AND IN THE NUMBER OF POINTS. BE CREATIVE WITH YOUR RESPONSE. * POINTS EACH CHARACTER STARTS WITH A NUMBER OF POINTS FOR THE ATTRIBUTES OF STRENGTH (ST), INTELLIGENCE (IQ), AND DEXTERITY (DX). IN ADDITION, THERE ARE SOME OTHER POINTS WHICH YOU MAY DISTRIBUTE BETWEEN THESE  OF ARMOR AT A TIME. THE MORE EXPENSIVE THE ARMOR, THE MORE DAMAGE IT WILL ABSORB. * WEAPON YOU MAY BUY A SWORD FOR 30 GP'S, A MACE FOR 20 GP'S, OR A DAGGER FOR 10 GP'S. YOU CAN ONLY CARRY A SINGLE WEAPON AT A TIME. THE MORE EXPENSIVE THE WEAPON, THE MORE DAMAGE IT DOES TO THE VARIOUS MONSTERS. * LAMP IF, AFTER SELECTING ARMOR AND A WEAPON, YOU HAVE 20 GP'S OR MORE LEFT, YOU MAY BUY A LAMP FOR 20 GP'S. HAVING THE LAMP WILL ALLOW YOU TO LOOK INTO AN ADJACE ";:GOSUB 800 930 B1=VAL(A$):PRINT A$;" ";:IF A1=9 THEN 960 940 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN 920 950 E=A:H=B:A=A1:B=B1:I=I+15:GOTO 900 960 IF B=7 THEN S(A,B)=2 970 GOTO 240 980 PRINT FNC$(20,0);"I WIN":CHAIN "BASICGAM" 990 PRINT FNC$(20,0);"YOU WIN":CHAIN "BASICGAM" 7 THEN S(A,B)=2 970 GOTO 240 980 PRINT FNC$(20,0);"I WIN":CHAIN "BASICGAM" 990 PRI900 S(A,B)=S(E,H):S(E,H)=0:IF ABS(E-A)<>2 THEN 960 910 S((E+A)/2,(B+H)/2)=0 920 PRINT "+TO ";:GOSUB 800:A1=VAL(A$):PRINT A$;" N RIGHT. UNLIKE ADVENTURE, THE CASTLE IS RANDOMLY STOCKED FOR EACH GAME, WHICH MEANS THAT WINNING ONE DOES NOT DETRACT FROM PLAYING FUTURE GAMES. AT PRESENT, THERE ARE VERISONS OF WIZARD'S CASTLE FOR THE EXIDY SORCERER, TRS-80, HP-2000 AND HEATH H-8/H-89 COMPUTERS. * * BACKGROUND HISTORY * MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC WIZARD ZOT FORGED HIS GREAT *ORB OF POWER*. SOON AFTER DOING THIS, HE VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE FILLED WITH ESURIENT MONSTERS A WIN OR A LOSS, DEPENDING ON A PLAYER'S SKILL AND LUCK. THE INSTRUCTIONS WHICH FOLLOW EXPLAIN THE RULES AND OPTIONS OF THE GAME. IF AT ANY TIME, HOWEVER, YOU ARE NOT SURE OF WHAT TO DO - EXPERIMENT. THE PROGRAM IS DESIGNED TO PREVENT INVALID INPUTS. * * CHARACTER CREATION * AT THE START OF EACH GAME, YOU WILL BE ASKED A NUMBER OF QUESTIONS ABOUT WHAT TYPE OF CHARACTER YOU WILL HAVE. YOU MUST MAKE CHOICES ABOUT THE FOLLOWING : * RACE YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT. EACH RACE S THREE ATTRIBUTES AS YOU WISH. * YOUR ST, IQ, AND DX MAY BE ANY NUMBER FROM 1 TO 18. IF ANY OF THE THREE DROPS BELOW 1, YOU HAVE DIED. FOR ALL THREE ATTRIBUTES, THE LARGER THE NUMERICAL VALUE, THE BETTER. EACH CHARACTER ALSO STARTS THE GAME WITH 60 GOLD PIECES (GP'S) WITH WHICH TO PURCHASE SOME, NONE, OR ALL OF THE FOLLOWING ITEMS : * ARMOR YOU MAY BUY PLATE ARMOR FOR 30 GP'S, CHAINMAIL FOR 20 GP'S, OR LEATHER FOR 10 GP'S. YOU CAN WEAR ONLY ONE SUITNT ROOM WITHOUT HAVING TO ENTER IT. * FLARES IF, AFTER ALL OTHER PURCHASES, YOU HAVE ANY MONEY LEFT, YOU MAY BUY FLARES FOR 1 GP EACH. LIGHTING A FLARE REVEALS THE CONTENTS OF ALL THE ROOMS SURROUNDING YOUR CURRENT LOCATION. * ONCE YOU HAVE CREATED AND EQUIPPED A CHARACTER, YOU ARE READY TO ENTER THE CASTLE AND BEGIN YOUR ADVENTURES. * * THE CASTLE * THE CASTLE IS ARRANGED AS AN 8 X 8 X 8 THREE DIMENSIONAL MATRIX. THIS MEANS THAT THERE ARE 8 LEVELS WITH 64    ROOMS ON EACH LEVEL. THE CASTLE LEVELS ARE NUMBERED FROM 1 (THE TOP LEVEL) TO 8 (THE BOTTOM LEVEL). EACH CASTLE LEVEL IS CONSTRUCTED LIKE A DOUGHNUT IN THAT THE NORTH EDGE IS CONNECTED TO THE SOUTH EDGE AND THE EAST EDGE IS CONNECTED TO THE WEST EDGE. IN A SIMILAR FASHION, THE SINKHOLES (EXPLAINED LATER) ON LEVEL 8 WILL "DROP" YOU DOWN TO LEVEL 1. THE ONLY ROOM WHICH DOES NOT FUNCTION LIKE THIS IS THE ENTRANCE / EXIT ROOM OF THE CASTLE WHICH IS ALWAYS LOCATED AT LOCATION (1,4) LEVEL 1. GOING NORTH FRDOM LOCATION M A MONSTER (ONE OF 12 DIFFERENT TYPES) V A VENDOR WHICH YOU MAY ATTACK, IGNORE OR TRADE WITH O A CRYSTAL ORB (THIS IS NOT THE *ORB OF ZOT*) S A SINKHOLE (A ROOM WITH NO FLOOR) T A TREASURE (ONE OF THE 8 IN THE CASTLE) * THE SINGLE LETTERS ARE THE ABBREVIATIONS FOR THE ROOM CONTENTS WHICH ARE DISPLAYED WHENEVER YOU LOOK AT YOUR MAP OR LIGHT A FLARE. WHEN YOU LOOK AT YOUR MAP, THE ROOM YOU ARE CURRENTLY LOCATED IN IS BRACKETNATES. IN ALL OTHER CASES, THE NORTH EDGE WRAPS AROUND TO THE SOUTH. * SOUTH MOVES YOU TO THE ROOM SOUTH OF YOUR PRESENT POSITION. IN ALL CASES, THE SOUTH EDGE WRAPS AROUND TO THE NORTH EDGE. * EAST MOVES YOU TO THE ROOM EAST OF YOUR PRESENT POSITION. IN ALL CASES, THE EAST EDGE WRAPS AROUND TO THE WEST EDGE. * WEST MOVES YOU TO THE ROOM WEST OF YOUR PRESENT POSITION. IN ALL CASES, THE WEST EDGE WRAPS AROUND TO THE EAST EDGE. * UP CAUSES YOU TO ASCENDE DISPLAYED AS THEIR ONE CHARACTER ABBREVIATIONS. YOU MAY LOOK AT YOUR MAP AT ANY TIME UNLESS YOU ARE EITHER BLIND OR ARE RETREATING FROM A MONSTER. * FLARE CAUSES ONE OF YOUR FLARES TO BE LIT, REVEALING THE CONTENTS OF ALL ROOMS SURROUNDING YOUR CURRENT POSITION. BECAUSE EACH EDGE IS JOINED TO THE OPPOSITE EDGE, YOU WILL ALWAYS SEE NINE ROOMS WITH YOUR LOCATION IN THE CENTER. EACH FLARE BURNS AWAY TO NOTHING. YOU MAY LIGHT FLARES AS LONG ASS YOU DON'T HAVE A LAMP, ARE BLIND, OR ARE RETREATING FROM A MONSTER. * OPEN CAUSES YOU TO OPEN A BOOK OR A CHEST WHICH IS IN THE ROOM WITH YOU. * GAZE CAUSES YOU TO GAZE INTO A CRYSTAL ORB. WHEN YOU SEE YOURSELF IN A BLOODY HEAP, YOU LOSE 1 OR 2 POINTS OF STRENGTH. WHEN YOU SEE THE LOCATION OF THE *ORB OF ZOT*, THERE IS ONLY A 50% CHANCE THAT IT IS CORRECT. YOU CANNOT GAZE WHEN YOU ARE BLIND OR WHEN YOU ARE NOT IN A ROOM CONTAINING A CRYSTAL ORB. * TOM THIS ROOM TAKES YOU OUT OF THE CASTLE AND ENDS THE GAME. * EACH ROOM OF THE CASTLE WILL HAVE AS CONTENTS ONE OF THE FOLLOWING : * E THE ENTRANCE / EXIT ROOM . AN EMPTY ROOM CONTAINING NOTHING U STAIRS GOING UP TO THE LEVEL ABOVE D STAIRS GOING DOWN TO THE LEVEL BELOW P A MAGIC POOL FROM WHICH YOU MAY DRINK C A CHEST WHICH YOU MAY OPEN B A BOOK WHICH YOU MAY OPEN G FROM 1 TO 10 GOLD PIECES F FROM 1 TO 3 FLARES W A WARP TO ANOTHER RANED BY < >. * * PLAYER COMMANDS * WHENEVER THE PROGRAM ASKS FOR A COMMAND, YOU MUST DECIDE WHAT ACTION YOU WISH TO PERFORM. IF YOUR CHOICE IS NOT VALID IN YOUR CURRENT SITUATION, THE PROGRAM WILL INFORM YOU AND ALLOW YOU TO TRY AGAIN. THE FOLLOWING IS A LIST OF THE COMMANDS WHICH THE PROGRAM UNDERSTANDS, WITH A DESCRIPTION OF THEIR EFFECTS AND RESTRICTIONS : * NORTH MOVES YOU TO THE ROOM NORTH OF YOUR PRESENT POSITION. WHEN YOU GO NORTH FROM THE ENTRANCE / EXIT ROOM, THE GAME TERMI STAIRS GOING UP. YOU MUST BE IN A ROOM CONTAINING STAIRS GOING UP. * DOWN CAUSES YOU TO DESCEND STAIRS GOING DOWN. YOU MUST BE IN A ROOM CONTAINING STAIRS GOING DOWN. * DRINK CAUSES YOU TO TAKE A DRINK FROM A MAGIC POOL. YOU MAY REPEAT THIS COMMAND AS OFTEN AS YOU WISH, BUT YOU MUST BE IN A ROOM CONTAINING A MAGIC POOL. * MAP CAUSES A MAP OF THE LEVEL YOU ARE CURRENTLY ON TO BE PRINTED. ALL UNEXPLORED ROOMS ARE DISPLAYED AS "?". ALL OTHER ROOMS AR YOU HAVE SOME AND YOU ARE NOT BLIND OR RETREATING FROM A MONSTER. FOR THOSE WHO ARE FAMILIAR WITH ANY OF THE COMMON "STAR TREK" GAMES, A FLARE WORKS MUCH LIKE A LONG RANGE SENSOR SCAN WITH THE ADDITION OF WRAPAROUND. * LAMP ALLOWS YOU TO SHINE YOUR LAMP INTO ANY ONE OF THE ROOMS NORTH, SOUTH, EAST, OR WEST OF YOUR CURRENT POSITION, REVEALING THE ROOM'S CONTENTS. UNLIKE FLARES, THE LAMP MAY BE USED REPEATEDLY. YOU MAY USE YOUR LAMP AT ANY TIME UNLESELE- ALLOWS YOU TO TELEPORT DIRECTLY INTO A SPECIFIC ROOM ANYWHERE IN PORT THE CASTLE. THIS IS THE ONLY WAY TO ENTER THE ROOM CONTAINING THE *ORB OF ZOT*. YOU MUST HAVE THE RUNESTAFF IN ORDER TO TELEPORT. * QUIT ALLOWS YOU TO END THE GAME WHILE YOU ARE STILL IN THE CASTLE. YOU WILL BE ASKED IF YOU REALLY WANT TO QUIT, IN CASE YOU MADE A MISTAKE OR WANT TO CHANGE YOUR MIND. IF YOU QUIT, YOU WILL LOSE THE GAME. * HELP CAUSES A SUMMARY OF THE AVAILABLE COMMANDS, ABBRE    VIATIONS USED IN DESCRIBING THE CONTENTS OF ROOMS, AND THE BENEFITS OF POSSESSING EACH OF THE TREASURES TO BE DISPLAYED AT ANY TIME DURING THE GAME. * SAVE CAUSES THE LOCATIONS AND OTHER CURRENT INFORMATION TO BE SAVED TO DISK. YOU WILL BE ASKED WHAT FILE TO SAVE TO i.e. B: THIS ALLOWS A GAME TO BE SAVED AND CONTINUED AT ANOTHER TIME. * ALL OF THE COMMANDS, EXCEPT DRINK AND SAVE CAN BE ABBREVIATED TO THEIR FIRST LETTER (M FOR MAP, Q M 2 TO 9 TURNS AND COSTS YOU ONE STRENGTH (ST) POINT. * FIRE- HITS THE MONSTER WITH A BALL OF FLAME THAT CAUSES BETWEEN 2 AND 14 BALL POINTS WORTH OF DAMAGE INSTANTLY. IT COSTS ONE STRENGTH POINT AND ONE INTELLIGENCE POINT. * DEATH- IS A CONTEST OF WILLS BETWEEN THE MONSTER AND YOURSELF. WHOEVER SPELL HAS THE LOWER INTELLIGENCE DIES AT ONCE. IT COSTS NOTHING TO USE, BUT IT IS VERY RISKY. EVEN WITH AN IQ OF 18 (THE HIGHEST POSSIBLE), YOU STILL HAVE A 25% CHANE CURSES : * LETHARGY - THIS GIVES THE MONSTERS THE FIRST ATTACK WHICH PREVENTS YOU FROM BRIBING THEM OR CASTING SPELLS ON THEM. * LEECH - THIS TAKES FROM 1 TO 5 GP'S FROM YOU EACH TURN UNTIL YOU HAVE NO GOLD PIECES LEFT. * FORGETFULLNESS - THIS CAUSES YOU TO FORGET WHAT YOU KNOW ABOUT THE CASTLE. YOUR MAP WILL SLOWLY RETURN TO ALL QUESTION MARKS. HOWEVER, THE CONTENTS OF THE ROOMS IN THE CASTLE ARE THE SAME. * IN ADDITION TO NULLIFYING THE EFFECTS OF THE CURSES, E ARE VENDORS WHO ARE MORE THAN WILLING TO SELL YOU VARIOUS ITEMS AT GROSSLY INFLATED PRICES. NORMALLY, THE VENDORS WILL MAKE YOU AN OFFER FOR EVERY TREASURE YOU HAVE, AND THEN, DEPENDING ON THE AMOUNT OF GOLD YOU HAVE, WILL SELL YOU NEW ARMOR, A NEW WEAPON, POTIONS OF STRENGTH, INTELLIGENCE AND DEXTERITY (NO MATTER HOW MANY POTIONS YOU BUY, THE MAXIMUM AMOUNT OF THESE ATTRIBUTES YOU CAN HAVE IS 18), AND A LAMP, IF YOU DON'T ALREADY HAVE ONE. IF YOU CHOOSE TO ATTACK A VENDOR, YOU WILL THEN ANTAGONIZETERS IN THE CASTLE : * KOBOLD, ORC, WOLF, GOBLIN, OGRE, TROLL BEAR, MINOTAUR, GARGOYLE, CHIMERA, BALROG, DRAGON * PLEASE NOTE THAT EACH TIME YOU STRIKE A GARGOYLE OR A DRAGON, THERE IS A POSSIBILITY THAT YOUR WEAPON WILL BE SHATTERED. * EACH MONSTER POSSESSES A HOARD OF FROM 1 TO 1000 GP'S WHICH YOU OBTAIN WHEN YOU KILL THE MONSTER. IN ADDITION, ONE OF THE MONSTERS IS CARRYING THE RUNESTAFF (YOU WON'T KNOW WHICH ONE UNTIL YOU KILL IT). YOU MUST HAVE THE RUNESTAFF TO TELEPORT, AND WHEN YOU TELEPORFOR QUIT, ETC.). THE ABBREVIATION FOR DRINK IS "DR" (TO DISTINGUISH IT FROM "D" FOR THE DOWN COMMAND). THE ABBREVIATION FOR SAVE IS "SA". * * MAGIC SPELLS * WHENEVER YOUR INTELLIGENCE (IQ) BECOMES 15 OR HIGHER, YOU GAIN THE OPTION TO CAST A MAGIC SPELL ON A MONSTER IF YOU HAVE THE VERY FIRST COMBAT OPTION. THE THREE SPELLS AND THEIR EFFECTS ARE AS FOLLOWS : * WEB TRAPS THE MONSTER IN A STICKY WEB SO THAT IT CAN'T FIGHT BACK AS YOU ATTACK IT. THIS SPELL LASTS FROCE OF BEING KILLED. * * TREASURES, CURSES, BLINDNESS, AND SUCH * IN THE CASTLE ARE EIGHT RANDOMLY PLACED TREASURES : * THE RUBY RED - WARDS OFF THE CURSE OF LETHARGY. THE PALE PEARL - WARDS OFF THE CURSE OF THE LEECH. THE OPAL EYE - CURES BLINDNESS. THE GREEN GEM - WARDS OFF THE CURSE OF FORGETFULLNESS. THE BLUE FLAME - DISSOLVES BOOKS STUCK TO YOUR HANDS. * THE NORN STONE - HAS NO SPECIAL POWER. THE PALANTIR - HAS NO SPECIAL POWER. THE SILMARIL - HAS NO SPECIAL POWER. * THERE ARE THRETHE TREASURES ALSO PROVIDE PROTECTION FROM TWO UNDESIRABLE THINGS WHICH CAN HAPPEN WHEN YOU OPEN A BOOK. THESE ARE GOING BLIND, WHICH PREVENTS YOU FROM SEEING YOUR MAPS, LIGHTING FLARES, USING YOUR LAMP, GAZING INTO ORBS, AND BEING INFORMED OF YOUR PRESENT LOCATION, AND SECONDLY, HAVING THE BOOK STICK TO YOUR HANDS, WHICH PREVENTS YOU FROM USING YOUR WEAPON TO FIGHT MONSTERS (YOU CAN STILL CAST SPELLS AT THEM IF YOU ARE SMART ENOUGH, HOWEVER). * * VENDORS * ON EVERY LEVEL IN THE CASTLE, THER EVERY VENDOR IN THE CASTLE, AND THEY WILL ALL REACT LIKE MONSTERS. YOU WILL ALSO LOSE THE ABILITY TO TRADE WITH THEM. KILLING A VENDOR, HOWEVER, WILL GIVE YOU NEW PLATE ARMOR, A SWORD, ONE OF EACH KIND OF POTION, AND A LAMP (IF YOU DON'T HAVE ONE), IN ADDITION TO HIS HOARD OF BETWEEN 1 AND 1000 GOLD PIECES. TO END HOSTILITIES AND REESTABLISH TRADING PRIVILEGES, YOU MUST BRIBE ANY VENDOR IN THE CASTLE WITH THE TREASURE OF HIS CHOICE. * * MONSTERS AND THE RUNESTAFF * THERE ARE 12 TYPES OF MONST INTO THE CASTLE ROOM WHICH CONTAINS THE *ORB OF ZOT*, THE RUNESTAFF DISAPPEARS (YOU MUST FIND YOUR WAY TO THE CASTLE EXIT WITHOUT IT). * * WARPS AND THE *ORB OF ZOT* * ALL BUT ONE OF THE ROOMS DENOTED AS "W" REALLY ARE WARPS, AND WALKING, FALLING, OR TELEPORTING INTO THEM WILL CAUSE YOU TO MOVE TO ANY ROOM IN THE CASTLE AT RANDOM. THE ONE EXCEPTION IS THE *ORB OF ZOT*, WHICH IS DISGUISED AS A WARP. WALKING INTO THIS ROOM ALWAYS CAUSES YOU TO MOVE ONE ROOM FURTHER IN THE SAME DIRECTION. TO    ACTUALLY ENTER THIS ROOM, YOU MUST USE THE RUNESTAFF TO TELEPORT IN. AT THIS POINT, YOU WILL ACQUIRE THE GREAT *ORB OF ZOT*, AND THE RUNESTAFF WILL VANISH. TO WIN THE GAME, YOU MUST LEAVE THE CASTLE WITH THE *ORB OF ZOT*. REMEMBER THAT CRYSTAL ORBS ARE NOT THE *ORB OF ZOT* AND CANNOT BE PICKED UP. * * ERROR MESSAGES * ANY TIME YOU RECEIVE A MESSAGE STARTING WITH "**", IT MEANS THAT THE LAST THING YOU TYPED WAS UNACCEPTABLE TO THE PROGRAM AT THAT TIME. FOR INSTANCE, IF YOU GET THE MESSAGE "** DOCUMENTATION FILE FOR ALIENS VERSION 1.1 ALIENS11.COM is a patchable version of the original ALIENS game written in BDS C which can be used on most systems with a 24 X 80 terminal. This version does its console I/O thru calls to BIOS instead of thru direct port I/O and therefore can be used with most ported and memory mapped consoles. There are four strings and two other locations that must be patched for a particular configuration. Up to ten bytes are reserved  1B ;Escape character 59 ;'y' FF ;Position for row FE ;Position for column 00 ;string terminator For many terminals the row and column values require a bias to be added to them in the cursor positioning string. These values are located at 3845H and 3846H respectively. EXAMPLE: Location Value 3845H 20 ;Add 32 to row value 3846H 20 ;Add 32 to column value83BH CLEAR SCREEN Use DDT to load the ALIENS11.COM and patch the new strings. A>DDT ALIENS.COM Use the S command to change the required locations. -^C A>SAVE 56 ALIENS.COM This should complete the customization of ALIENS. Enjoy. Don Wilkes, K4ZYP to nulls. Starting Location String 3827H CURSOR ON 3831H CURSOR OFF 3 IT'S HARD TO GAZE WITHOUT AN ORB.", THIS MEANS THAT YOU TRIED TO GAZE FROM A ROOM WHICH DID NOT CONTAIN A CRYSTAL ORB. YOU ARE ALWAYS REQUIRED TO REDO YOUR LAST RESPONSE WHEN YOU RECEIVE AN "**" TYPE MESSAGE. * * GOOD LUCK, AND BEWARE! * EOF C3> REQUIRED TO REDO YOUR LAST RESPONSE WHEN YOU RECEIVE AN "**" TYPE MESSAGE. * * GOOD LUCK, AND BEWARE! * EOF IT MEANS THAT THE LAST THING YOU TYPED WAS UNACCEPTABLE TO THE PROGRAM AT THAT TIME. FOR INSTANCE, IF YOU GET THE MESSAGE "**for each string. CURSOR POSITIONING STRING This string starts at location 381DH, must be null terminated, and allows for up to ten bytes including the null. At the position in this string that the row position is to be located, put an FF hex. At the position in the string that the column is to be located, put an FE hex. This allows for the row and column to be located anywhere in the cursor positioning string and in any order. EXAMPLE: (For a Heath/Zenith Z-19)  CURSOR ON, CURSOR OFF AND CLEAR SCREEN STRINGS If your terminal allows turning the cursor on and off and allows the clear screen function, these strings should be patched as with the cursor addressing string. Don't forget to terminate the string with a null(zero). If your terminal does not support one or more of these functions, these strings should be set to nulls. Starting Location String 3827H CURSOR ON 3831H CURSOR OFF 3    *K͞+88?'+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o!a{   `OE!y6$ -7rBo&))T])))!yV5:=b#:=#:$=2#v+:<"(">6͋5:&=͋5#*&=|"M1Ϳ5#>6͋5:&=͋5>#͋5>6͋5:'=͋5#*&="<(#>͋5:&=͋5>s͋5>@2=#R1Ϳ5#(,#:==2=)(@#>s͋5#͘(Y#X1:>͋5:&=͋5c1Ϳ5#f1Ϳ52=#(—#>͋5:&=͋5>{͋5c1Ϳ5#(#:$=µ#>}͋5c1Ú#:$=;-͘(#>&͋5͋5f2Ú#:$=$v+è": \1++| \E|, \G|, / = õ'!9DM`iw#w! ~#fo͐n}ʃ ! ~#fo͐n&: `i^#Vr+sK !9á v00'7 c(Ê*-w#w*Gw#w*Mw#w! *Q͏ ! *͏ !3 *͏ ! *7͏ !s *b͒ !z *q͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ! *͒ ͕ *͘ *1w#w͛ \1| ͞ ý *-w#w*/6#6*96#60,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0rookieearthlingspace cadetyeomanlieutenantcommandercaptainadmiralmaster assassin ++17 =,à7 !! \O!Q* * \-!\* * \1>H>ʇ>T>ʒ>`>ʝ>l>ʨ>x>ʳ>„>ʾ!i ! ! ! !! !O !F! \1\/!|* *#z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77=$,v+2#:$=>$$>͋5v+>͋5>@2$=2#*="<1Ϳ5:=2="<|s$}d$[2Ϳ5z$g$[3Ϳ5>G>)͋5$#͞*D)͏,Ͷ,v++4ʱ$êG0ñ!9DM*Ow#w͐ ! ~#fo##~#fon&͡|ͤ! ~#fo##~#fon&*Os#rͧ7 47!:!R!!Usage: aliens is the level of difficulty from 0 to 9 level 0 is the easiest and is the default 77Ì ÊÑ5Ø "Æ&!ʹͷͺͽ\1++++|,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0 *E67#6\O *7s#r\7\9F\9*7s#r\O*Is#r\I s*I6 #6\O*Ks#r*5w#w\5ڕ!\7\5? *3w#w\3 ڄ\3\5|g}o\5? ! \5 ?\3))*W\7\5?s#r\5 ?\3))*W##\3?s#r*3^#Vr+s*5^#Vr+sÕ*A66#6*;w#w*=w#w*?w#w*36#6*56H#6 '*56#6*7w#w*   9w#w\1.M5M3 ! *3w#w\3\In\3))*=w#w*3^#Vr+s9*Cw#w*Gw#w*3w#w\3B!\3 *5w#w\5P1\3k*\5)\3k*Q\5)~#fos#rz! ! *5^#Vr+sù*3^#Vr+sÏ*iw#wLevel:%2d Score: %-5d B L O O D B A T H W E C O M E I N P E A C E ! T H E A L I E N S S T R I K E B A C K !I N V I S I B76#6\1+|*7w#wM9|>*96#6͓\1|S*16#6\1|n*16#6\1|ʉ*16#6\1|ʤ*16#6\1|ʿ*16#6\1|*16#6+7 /=,!9DMM9>>.>>.>+>väM;!!bM;!!cM;!!dYM5###*;s#rM;!!eM;M9!gM;M9#!i*3w#w\37\3))*W9#!q*9w#w*G^#Vr+s\3))*=w#wY*3^#Vr+sÊM9$M9$M9k*M;)~#fo|$M;M9\1++|!M9k*M;)w#w!sM9M;M9#!u*9w#wYMi|M9+|M;MgMi*3s#rM;\3\3!!w\3!!*iw#w*-~#foMes#rM;!!*9w#wY*9^#V\C))*=w#w\C))*=##~#foM5N\C))*=##~#foM5N\1҅M5M38!>*/^#Vr+s!F!8\/!~ *A*;*-~#fos#rD\/|G!JM5!8! ;*56H#6M2**56#6\1NM5!8!>i \C))*=~#foڴ\C))*=~#foҴ\C))*=~#fok*\C))*=##~#fo)~#fo|ʴ\C))*=##~#fo\C))*=~#f*i6#6͐*gs#r*e6Z#6!Mg!͞ \1j!Me!"*͡ *ͤ *e^#Vr+s*g~#foMis#rMg*3s#r͐!\3!MgMi!͞ ! "ͤ *iw#w!9 <=%d=> $"/+0+=,\A#*As#r!7ڗ"\E|J"*=w#w\;|ʌ"\?*?s#r*=6#6*;w#w*Aw#w\A))*W~#fo*3s#r!""%"\3"*-~#fos#r""\?|#\A))* L E A L I E N W E A S E L S ! K L I N K E R T H E B L A C K H O L E ! Bases: %d ÖÓ---\1+|M5\OH*76#6M5*76#6͍|͐*aska&|g}o>z>>,>>c*>>/6>>xB> >.N> > Z>(>f>A>r>A>q~>A>Š>A>1–>G>2¢>b>3®>}>4º>ʘ>5>ʳ>6>\1+|*76#6\1+|*~#foM9n\3))*W##~#fo#M;n\3))*W##~#fo###M;n\3\O\3 ?`is#r\1+|ʧ͐\M`is#r͐ڻ`i6#6*-~#fo͐s#rM;M9#!k\1!m\3))*W##~#fo\3))*W~#fo!*9w#w\3))*Ww#w*E^#Vr+sY*3^#Vr+s*3w#w\3\IRM9\3))*=~#foAM;\3))*=##~#foAM;M9!oM;Mr+szVM;!!M;!!*-~#fo\O#s#rY!9||   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *56H#6*7w#w\13M5M3͔!͗P+7 =,1/+07à7*Cw#w\C\Iz \G|w\C))*=~#fo|“i \C))*=^#Vr+s\C))*=~#foQ\C))*=##~#fo\C))*=~#fo+8!| ;o+8! ;\C))*=##~#fo\C))*=~#fo8! ;\C))*=~#fok*\C))*=##~#fo)w#w\C))*=w#w*G^#Vr+si \C))*=##~#fo\C))*=~#fo+8! ;\C))*=~#fo0 *G^#Vr+s\C))*=w#wa \C))*=##~#fo\C))*=~#fo8! ;*C^#Vr+s\ Bases: %d *ç à7+17 !9DM`i6P#6Mi|/!͛ *3s#r!`,!\30!*i6#6*g6#6 !W##^#Vr+s,#\A))*W##^#Vr+s\A))*W##~#fo*5s#rzʁ#\5\MK\O?ڍ#*;6#6\5\3"\=|#!!"\A))*W^#Vr+s*3s#r\5\3"\5\3|g}o\A?!"\A))*W~#fo$\A))*W~#fo$\A))*W##~#fo*5s#r*36#6\3$\5\3|$\A))*W~#fok*\A))*W##~#fo\3)w#w*3^#Vr+s{$\1+| %    \1++| %\A*3s#r\3|]%\3))*W~#fo|E%*3~#fos#r!%\A))*W##~#foM5\Kڄ&\A))*W##~#foM5###\K҄&\A))*W~#foڄ&*3w#w\3\I҄&\3))*=~#fo|s&\3))*=\A))*W~#fos#r\3))*=##\A))*W##~#fo##s#r*G^#Vr+sÄ&*3^#Vr+s%Ø&++17 7͉&! ! ͌&\O&*&\Ok*b!['*͏&*͒&*O^#Vr+ion: Alien invasion in progress! Type: <,> to move the laser base left as above, for lefties <.> to halt the laser base for lefties to move the laser base right for lefties to fire a laser beam <1> to play "Bloodbath" <2> to play "We come in peace" <3> to play "The Aliens str!k-@,]-!q-@,]-!w-@,]-!}-@,]-!-@,]-!-@,]-\1R-]-!-@,]- OXO XOX \o/ /o\ "M" wMw xx|xx #Ù-7!͖-|ʾ-!͖-*,s!!w,&-+=,7 747!9DM\1ں.\1`is#r*16#6*3w#w\3ڪ.!\3-*5w#w\5Pҙ.\3k*\5)~#fo+|€.!-È.!/-*5^#Vr+sB.*3^#Vr+s.͐*1s#r\1ھ/\1`is#r*16#6*3w#w\37Ҧ/\3))*!91Ñ1!9DM! ͐ 1-15!9DM͐~#fon}I1!È1͐~#fo*1`is#r͐~#fon}ʁ1͐^#Vr+sn},ʁ1\1͐È1!9à15G0j66!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{4`in}%4! ! s#r! 6#6! s! s! s͐n}-02! ^#Vr+s! 4͐n}0@2! 4͐n&͗1}]2! ͚1`2!! s#r! ^#Vr+sn`is{.¨2! ͚1! s#r! 4! ^#Vr+sn`is`in&͝1}D2U3X3O"3Ch3Sʙ34͐~#fo|3! ^#Vr+s6-͐͐~#fo5G0!9DM`iw#w! 6#6͐ n! s{ 95! n} G5! ^#Vr+s5! n}-f5! 6#6! ^#Vr+s! ^#Vr+sn! s5|ʧ5͐ ?! nѯg`is#rf5͐͐?÷5!955!9DM͐͐ 6͐^#Vr+s͐ 6͐0 6͐7s!&a6͐ ͐͐ ͉͐5`is͐ ͐͐ )͐5`in&#&a6!9p6G0!9DM`iw#w͐~#fon&m6}ʽ6͐ ?͐^#Vr+snѯg`is#r~6͐6!967!9DM! n&6|6! n&6! n&s!o'*͏&*͒&! ! ͌&\O!'*͏&*͒&!2͕&Congratulations %s - you have won at level %dNow let's see how good you are at level %dû'7!9DM͐!͸'*3w#w\3 a(\3*\3*ns\3*n}-(\3**s\3*n}P(\3*+s*3^#Vr+s'o(++7 f(!!i(!(l(!$)l(!Z)l(!)l(!)l(!)l(!*l(!>*l(!n*l(!*l(!*l(! +l(!H+l(!t+l(!+l(Attentike back" <4> to play "Invisible Alien Weasels" <5> to play "Klinker" <6> to play "The Black Hole" to quit +7 *++7 !9DMw*&*͐w(ѯgsw+&*͐w)ѯgs*+C,7 !9DM\1w,͐|w,͐w,! 6#6͐>‡,>,>“,>,>Ÿ,>->«,> ->·,>->,>!->,>,->,>7->,>B-]-!_-@,]-!e-@,]-W~#fo|ʕ/\3))*W##~#fo\3))*W~#fo-\3))*W##~#fo\3))*W~#fo|g}o\3?-*3^#Vr+s.͐*1s#r!2-!!-* --!9 /+17 !!/\-!&0*/*/%d 40+ñ!!.010!9DM! n&0ͯr0! n&9ͯ|0'1!9DM! y0`is#r!ʷ0! ^#Vr+s͐s#rÄ0!9!9DM͐`is#r! ^#Vr+s! ^#Vr+sns{00͐0s#r! ^#Vr+s! 6 (3! 6(3! 6! ~#fo! n&! ^#Vr+s~#fo! ͔1ѯgs#r4! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s4! n}¬3! 6#6! ^#Vr+s~#fo! s#r͐n}4͐|4! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s3͐6! ! s#r! n}h4! ^#Vr+s!h4! ^#Vr+s! n}_4!0b4! s-4͐! ^#Vr+sns{ʑ4! ^#Vr+sh4! n}4! ^#Vr+s!4! ^#Vr+s6 Û44! ^#Vr+s`ins4! ^#Vr+s`ins1͐6!9!9DM! n&aͯ07! n&zͯ  |F7""|7 ! ###R7""  Wait a few seconds, and type a CR: $*>Hʮ777*|g}o"zg{o"|g #+|7'z7 777*+++:G_*DM!8o&=y5x5   Ú+=,M7|§*5~#foM7s#rM5*56#6*7w#w M5H *   10 REM THIS IS A MODIFIED VERSION OF "CIVIL WAR" FROM 20 REM "THE BEST OF CREATIVE COMPUTING", PAGE 254 OF 30 REM VOLUME 1. ORIGINAL PROGRAM BY L. CRAM, L. GOODIE, 40 REM AND D. HIBBARD. 50 L=0:W=0:R=0:P1=0:Q1=0:M3=0:M4=0 60 PRINT CHR$(26):REM Screen clear 70 INPUT "DO YOU WANT DESCRIPTIONS (YES or NO)";Z$ 80 PRINT CHR$(26);:IF LEFT$(Z$,1)<>"Y" THEN 300 90 PRINT "THIS IS A CIVIL WAR SIMULATION." 100 PRINT "TO PLAY, TYPE A RESPONSE WHEN THE PROGRAM ASKS FOR ONE." 110 PRINT "REMEMBER THAT ALL FACTOR 3) FORTIFICATION AGAINST FLANKING MANEUVERS" 210 PRINT " 4) FALLING BACK" 220 GOSUB 1750 230 PRINT "YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 240 PRINT " 1) ARTILLERY ATTACK" 250 PRINT " 2) FRONTAL ATTACK" 260 PRINT " 3) FLANKING MANEUVERS" 270 PRINT " 4) ENCIRCLEMENT" 280 PRINT "YOU MAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY.":PRINT 290 PRINT "YOU ARE THE CONFEDERACY. GOOD LUCK!":PRINT:GOSUB 1750 300 READ M1,M2,C1,C2,M,A,U:I1=10+(L-W)*2:I2=10+(W-L)*2 MUNITION." 440 PRINT 450 INPUT "HOW MUCH DO YOU WANT TO SPEND FOR FOOD";F:IF F<0 THEN 1000 460 INPUT "HOW MUCH DO YOU WISH TO SPEND FOR SALARIES";S: IF S<0 THEN 1000 470 INPUT "HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION";B: IF B<0 THEN 1000 480 PRINT 490 IF F+S+B>D1 THEN PRINT "THINK AGAIN! YOU ONLY HAVE $";D1:GOTO 450 500 O=((2*F^2+S^2)/F1^2+1) 510 IF O>=10 THEN PRINT "MORALE IS HIGH.":GOTO 540 520 IF O>=5 THEN PRINT "MORALE IS FAIR.":GOTO 540 530 PRINT "MORALE IS POOR." 540 IF M=3 TUR STRATEGY";Y:IF Y=5 THEN 1780 650 IF ABS(Y-3)>=3 THEN PRINT "PLEASE USE THE OTHER SET OF STRATEGIES!": GOTO 570 660 PRINT 670 PRINT " ", "CONFEDERACY", "UNION" 680 C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND(1)+1)-Y)+1))) 690 C5=INT(C5*(1+1/O)*(1.28+F1/(B+1))+.5) 700 IF C5+100/O=0 THEN 770 14 THEN 1800 ELSE 300 860 DATA 18000,18500,1967,2708,1,1,0 870 DATA 40000,44894,10699,13047,3,2,0 880 DATA 95000,115000,20614,15849,3,3,0 890 DATA 54000,63000,10000,14000,2,4,0 900 DATA 40000,50000,10000,12000,3,5,0 910 DATA 75000,120000,5377,12653,1,6,0 920 DATA 38000,45000,11000,12000,1,7,0 930 DATA 32000,90000,13000,17197,2,8,0 940 DATA 50000,70000,12000,19000,1,9,0 950 DATA 72500,85000,20000,23000,3,10,0 960 DATA 66000,60000,18000,16000,2,11,0 970 DATA 37000,60000,6700,5800,2,12,0 980 DATA S ARE INTERRELATED AND THAT YOUR" 120 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED" 130 PRINT "ARE BASED ON ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT" 140 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!" 150 PRINT 160 PRINT "THE OBJECT OF THIS GAME IS TO WIN AS MANY BATTLES AS POSSIBLE." 170 PRINT:PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 180 PRINT " 1) ARTILLERY ATTACK" 190 PRINT " 2) FORTIFICATION AGAINST FRONTAL ATTACK" 200 PRINT " 310 D1=100*INT((M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5) 320 D2=100*INT(M2*(100-I2)/2000+.5):F1=5*M1/6:A1=Z 330 FOR U=1 TO 4:PRINT:NEXT U 340 PRINT CHR$(26):PRINT:PRINT:PRINT "THIS IS THE BATTLE OF"; 350 GOSUB 1050 360 PRINT " ","CONFEDERACY"," UNION" 370 PRINT "MEN"," ";INT(M1*(1+(P1-T1)/(M3+1)))," "; 380 PRINT INT(M2*(1+(P2-T2)/(M4+1))) 390 PRINT "MONEY","$";D1,"$";D2 400 PRINT "INFLATION"," ";I1+15;"%", 410 PRINT " "; I2;"%" 420 PRINT 430 PRINT "APPORTION YOUR MONEY AMONG FOOD, SALARIES & AMHEN PRINT "YOU ARE ON THE OFFENSIVE.":GOTO 570 550 IF M=1 THEN PRINT "YOU ARE ON THE DEFENSIVE.":GOTO 570 560 PRINT "BOTH SIDES ARE ON THE OFFENSIVE." 570 PRINT 580 PRINT " DEFENSIVE OFFENSIVE" 590 PRINT " --------- ---------" 600 PRINT "1) ARTILLERY ATTACK 1) ARTILLERY ATTACK" 610 PRINT "2) FORTIF VS FRONTAL 2) FRONTAL ATTACK" 620 PRINT "3) FORTIF VS FLANKING 3) FLANKING MANEUVERS" 630 PRINT "4) FALLING BACK 4) ENCIRCLEMENT":PRINT 640 INPUT "YO 750 PRINT "YOUR CASUALTIES WERE";INT(100*(C1-C5)/C1+.5);"% LESS THAN " 760 GOTO 780 770 PRINT "YOUR CASUALTIES WERE";INT(100*(C5-C1)/C1+.5);"% MORE THAN " 780 PRINT "THE ACTUAL CASUALTIES AT";:A1=1:GOSUB 1050:IF U=1 THEN 800 790 IF C5 + E<17*C2*C1/(C5*20)+5*O THEN 810 800 PRINT " YOU LOSE ";:L=L+1:GOTO 820 810 PRINT "YOU WIN ";:W=W+1 820 GOSUB 1050:IF W=8 THEN 1790 830 T1=T1+C5+E:T2=T2+17*C2*C1/(C5*20)+5*O:P1=P1+C1:P2=P2+C2 840 Q1=Q1+(F+S+B):R1=R1+M1*(100-T1)/20:M3=M3+M1:M4=M4+M2 850 IF A=62000,110000,17723,18000,2,13,0 990 DATA 65000,100000,8500,3700,1,14,0 1000 PRINT "GO TO JAIL." 1010 PRINT "GO DIRECTLY TO JAIL." 1020 PRINT "DO NOT PASS GO." 1030 PRINT "DO NOT COLLECT $200." 1040 GOTO 330 1050 IF A<>1 THEN 1110 1060 PRINT " BULL RUN.":IF A1=1 THEN 1750 1070 PRINT "JULY 21,1861 GEN. BEAUREGARD COMMANDING THE SOUTH MET THE" 1080 PRINT "UNION FORCES WITH GEN. MC DOWELL IN A PREMATURE BATTLE AT BULL" 1090 PRINT "RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 1100 PRINT:P   RINT:PRINT:PRINT:GOTO 1750 1110 IF A<>2 THEN 1160 1120 PRINT " SHILOH.":IF A1=1 THEN 1750 1130 PRINT "APRIL 6-7, 1862 THE CONFEDERATE SURPRISE ATTACK AT SHILOH" 1140 PRINT "FAILS DUE TO POOR ORGANIZATION." 1150 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1160 IF A<>3 THEN 1220 1170 PRINT " SEVEN DAYS.":IF A1=1 THEN 1750 1180 PRINT "JUNE 25-JULY 1, 1862 GENERAL LEE (CSA) UPHELD THE OFFENSIVE" 1190 PRINT "THROUGHOUT THE BATTLE AND FORCED GEN. MC CLELLAN AND THE UNION" 1200 PRINT "FORCES AWAY FROM RICHMONDTO 1750 1320 IF A<>6 THEN 1370 1330 PRINT " FREDERICKSBURG.":IF A1=1 THEN 1750 1340 PRINT "DEC 13, 1862 THE CONFEDERACY UNDER LEE SUCCESSFULLY REPULSED" 1350 PRINT "AN ATTACK BY THE UNION UNDER GEN. BURNSIDE." 1360 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1370 IF A<>7 THEN 1410 1380 PRINT " MURFREESBORO.":IF A1=1 THEN 1750 1390 PRINT "DEC 31, 1862 THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE." 1400 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1410 IF A<>8 THEN 1460 1420 PRINT " CHANCELLORSVILLE.":IF A1=1 THEN "JUNE 30, 1863 A SOUTHERN MISTAKE BY GEN. LEE AT GETTYSBURG" 1540 PRINT "COST THEM ONE OF THE MOST CRITICAL BATTLES OF THE WAR." 1550 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1560 IF A<>11 THEN 1610 1570 PRINT " CHICKAMAUGA.":IF A1=1 THEN 1750 1580 PRINT "NOV 25, 1863 AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'" 1590 PRINT "ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE." 1600 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1610 IF A<>12 THEN 1660 1620 PRINT " CHATTANOOGA.":IF A1=1 THEN 1750 1630 PRINT "SEPT 10 PRINT "ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 1740 PRINT:PRINT:PRINT:PRINT 1750 PRINT:LINE INPUT "PRESS RETURN TO CONTINUE >";C$ 1760 PRINT:RETURN 1770 RETURN 1780 PRINT "THE CONFEDERACY HAS SURRENDERED.":GOTO 1800 1790 PRINT "THE UNION HAS SURRENDERED." 1800 PRINT 1810 PRINT "YOU HAVE WON"; W;"BATTLES AND LOST";L;"BATTLES." 1820 IF Y=5 OR W<=L THEN 1840 1830 PRINT "THE CONFEDERACY HAS WON THE WAR.":GOTO 1850 1840 PRINT "THE UNION HAS WON THE WAR." 1850 FOR I=1 TO 500:NEXT I:FIL." 1210 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1220 IF A<>4 THEN 1270 1230 PRINT " THE SECOND BULL RUN.":IF A1=1 THEN 1750 1240 PRINT "AUG 29-30, 1862 THE COMBINED CONFEDERATE FORCES UNDER LEE AND" 1250 PRINT "JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 1260 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1270 IF A<>5 THEN 1320 1280 PRINT " ANTIETAM.":IF A1=1 THEN 1750 1290 PRINT "SEPT 17, 1862 THE SOUTH FAILED TO INCORPORATE MARYLAND INTO" 1300 PRINT "THE CONFEDERACY." 1310 PRINT:PRINT:PRINT:PRINT:GO 1750 1430 PRINT "MAY 1-6, 1863 THE SOUTH HAD A COSTLY VICTORY AND LOST ONE" 1440 PRINT "OF THEIR GREATEST GENERALS, 'STONEWALL' JACKSON." 1450 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1460 IF A<>9 THEN 1510 1470 PRINT " VICKSBURG.":IF A1=1 THEN 1750 1480 PRINT "JULY 4, 1863 VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH" 1490 PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 1500 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1510 IF A<>10 THEN 1560 1520 PRINT " GETTYSBURG.":IF A1=1 THEN 1750 1530 PRINT5, 1863 CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 1640 PRINT "TO A COSTLY SOUTHERN VICTORY." 1650 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1660 IF A<>13 THEN 1710 1670 PRINT " SPOTSYLVANIA.":IF A1=1 THEN 1750 1680 PRINT "MAY 5, 1864 GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO FAIL" 1690 PRINT "HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 1700 PRINT:PRINT:PRINT:PRINT:GOTO 1750 1710 PRINT " ATLANTA.":IF A1=1 THEN 1750 1720 PRINT "AUGUST, 1864 SHERMAN AND THREE VETERAN ARMIES CONVERGED ON" 173ES 1860 END  CONFEDERACY HAS WON THE WAR.":GOTO 1850 1840 PRINT "THE UNION HAS WON THE WAR." 1850 FOR I=1 TO 500:NEXT I:FILN TO CONTINUE >";C$ 1760 PRINT:RETURN 1770 RETURN 1780 PRINT "THE CONFEDERACY HAS SURRENDERED.":GOTO 1800 1790 PRINT "THE UNION HAS SURRENDERED." 1800 PRINT 1810 PRINT "YOU HAVE WON"; W;"BATTLES AND LOST";L;"BATTLES." 1820 IF Y=5 OR W<=L THEN 1840 1830 PRINT "THE CONFEDERACY HAS WON THE WAR.":GOTO 1850 1840 PRINT "THE UNION HAS WON THE WAR." 1850 FOR I=1 TO 500:NEXT I:FIL   10 PRINT "DEEP SPACE" 20 INPUT"DO YOU WISH A MANEUVER CHART";M$ 30 IF LEFT$(M$,1)="N" THEN 140 40 PRINT:PRINT" MANEUVER CHART-" 50 PRINT:PRINT TAB(16)"1. FIRE PHASERS" 60 PRINT TAB(16) "2. FIRE ANTI MATTER MISSLE" 70 PRINT TAB(16) "3. FIRE HYPERSPACE LANCE" 80 PRINT TAB(16) "4. FIRE PHOTON TORPEDO" 90 PRINT TAB(16) "5. ACTIVATE HYPERON NEUTRALIZATION FIELD" 100 PRINT TAB(16) "6. SELF-DESTRUCT" 110 PRINT TAB(16) "7. CHANGE VELOCITY" 120 PRINT TAB(16) "8. DISENGAGE" 130 PRINT TAB(16) "9. PROCEED""C"UNITS OF SPACE TO FILL WITH WEAPONRY." 290 INPUT"CHOOSE WEAPON AND AMOUNT YOU WISH:";W,N 300 IF W=1 THEN C1=.12:N=100:GOTO 360 310 IF W=2 THEN C1=4:GOTO 360 320 IF W=3 THEN C1=4:GOTO 360 330 IF W=4 THEN C1=2:GOTO 360 340 IF W=5THEN C1=.2:N=100:GOTO 360 350 GOTO 280 360 IF N*C1>INT(C+.5) THEN 940 370 C=C-N*C1 380 IF W=1 THEN N1=N1+N:GOTO 430 390 IF W=2 THEN N2=N2+N:GOTO 430 400 IF W=3 THEN N3=N3+N:GOTO 430 410 IF W=4 THEN N4=N4+N:GOTO 430 420 GOTO 900 430 IF C>1 THEN 280 440 S1=S0*RND(6)  610 IF D>99 THEN 1040 620 GOTO 640 630 D0=0 640 K=E1+E2*RND(8):E=E3*RND(7)+5/P0*RND(4):F3=E*(K/R)^1.85 650 D2=(3*F3+3*F3*RND(3))/5.5:D1=D1+D2 660 IF (Z*D0)/(R*500)>2.2 THEN 680 670 D3=D0*2/(R*R*P0):D1=D1+D3 680 PRINT"DAMAGE CONTROL REPORTS YOUR VESSLE DAMAGE AT:";D1 690 IF D1>99 THEN 1050 700 IF D>99 THEN 1060 710 GOTO 500 720 PRINT"SELF DESTRUCT FAILSAFE ACTIVATED!!" 730 INPUT"TYPE 'RELEASE' TO RELEASE FAILSAFE";M$ 740 IF M$<>"RELEASE" THEN 490 750 PRINT"SELF DESTRUCT ACCOMPLISHED":IF R>60 TE2=350:E3=4:E4=3:GOTO 210 930 E1=150:E2=400:E3=5:E4=2:GOTO 210 940 PRINT"NOT ENOUGH SPACE. RESELECT":GOTO 280 950 PRINT"CHANGE BEYOND MAXIMUM POSSIBLE" 960 PRINT"INCREASING TO MAXIMUM":S1=S0:GOTO 500 970 PRINT"OUT OF SENSOR RANGE. AUTOMATIC DISENGAGE.":GOTO 1060 980 PRINT"PHASER BANKS DRAINED" 990 PRINT"SELECT ANOTHER COURSE OF ACTION":GOTO 470 1000 PRINT"ALL ANTI-MATTER MISSLES EXPENDED": GOTO 990 1010 PRINT"ALL HYPERSPACE LANCES EXPENDED":GOTO 990 1020 PRINT"ALL PHOTON TORPEDO TUBES EMPTY":GOTO 10 REM **** GAMMON **** 20 REM **** A SIMULATION OF THE GAME OF BACKGAMMON **** 30 REM 40 REM 50 REM WRITTEN BY: PAUL VON AUTENRIED 60 REM MODIFIED FOR MBASIC BY: KEVIN REDDEN 65 REM FURTHER MODS BY: BRUCE RATOFF 70 REM 80 REM FOR MORE INFORMATION, SEE CREATIVE COMPUTING, JUNE 1978 90 REM 100 DIM A(25),B(25),S(10) 110 REM FILES DEBT 120 L7=0:L6=0:X5=0:L=0:S1=0:S2=0:T1=0:T2=0:H1=0:G=0:P2=0:D5=0 130 D9=1 140 B$="-" 150 FOR I=1 TO 25:A(I)=0:B(I)=0: 140 PRINT:PRINT"YOU HAVE A CHOICE OF THREE SYSTEMS TO PATROL" 150 PRINT:PRINT TAB(16) "1. ORION" 160 PRINT TAB(16)"2. DENEB":PRINT TAB(16)"3. ARCTURUS":PRINT 170 INPUT"SELECT A SYSTEM(1-3)";S9 180 IF S9=1 THEN 910 190 IF S9=2 THEN 920 200 GOTO930 210 D0=0:D1=0:N1=0:N2=0:N3=0:N4=0 220 D=0:INPUT"WHICH SPACECRAFT WOULD YOU LIKE";S 230 IF S=1 THEN S0=10:C0=16:P0=1:GOTO 270 240 IF S=2 THEN S0=4 :C0=24:P0=2:GOTO 270 250 IF S=3 THEN S0=2 :C0=30:P0=5:GOTO 270 260 GOTO 220 270 C=C0 280 PRINT"YOU HAVE450 R=(3*RND(6)+5)*100:PRINT 460 PRINT"RANGE TO TARGET:"R:PRINT"RELATIVE VELOCITY:"S1 470 INPUT"ACTION?";M 480 ON M GOTO 800,820,840,860,880,720,560,1060,490 490 IF R<500 THEN 630 500 IF S1>0 THEN 520 510 R=R+(S1*8.3)^1.25:GOTO 530 520 R=R-(S1*8.3)^1.25 530 IF R>1500 THEN 970 540 IF R<0 THEN R=-R 550 PRINT:GOTO 460 560 INPUT"CHANGE TO BE EFFECTED";S2 570 IF S1+S2>S0 THEN 950 580 S1=S1+S2:GOTO 460 590 F0=P1*(Z/R)^1.5:D0=(2*F0+3*F0*RND(5))/5:D=D+D0 600 PRINT"SCANNERS REPORT ENEMY DAMAGE NOW";D HEN 770 760 PRINT"ENEMY VESSEL ALSO DESTROYED":GOTO 1060 770 D4=3200/R:D=D+D4:IF D>99 THEN 760 780 PRINT"ENEMY VESSEL SURVIVES WITH"D"DAMAGE" 790 GOTO 1060 800 P1=4:IFN1=0 THEN 980 810 N1=N1-1:Z=200:GOTO 590 820 P1=20:IF N2=0 THEN 1000 830 N2=N2-1:Z=500:GOTO 590 840 P1=16:IF N3=0 THEN 1010 850 N3=N3-1:Z=550:GOTO 590 860 P1=10:IF N4=0THEN 1020 870 N4=N4-1:Z=400:GOTO 590 880 P1=6:IF N5=0 THEN 1030 890 N5=N5-1:Z=250:GOTO 590 900 N5=N5+N:GOTO 430 910 E1=150:E2=500:E3=3:E4=4:GOTO 210 920 E1=200:990 1030 PRINT"HYPERON NEUTRALIZATION FIELD DRAINED":GOTO 990 1040 PRINT"ENEMY VESSEL DESTROYED":GOTO 640 1050 PRINT"YOUR VESSEL HAS BEEN DESTROYED" 1060 PRINT:PRINT:INPUT "ANOTHER BATTLE";M$ 1070 IF LEFT$(M$,1)="Y" THEN 170 1080 PRINT"TRY AGAIN LATTER!" 1090 END ROYED" 1060 PRINT:PRINT:INPUT "ANOTHER BATTLE";M$ 1070 IF LEFT$(M$,1)="Y" THEN 170 1080 PRINT"TRY AGAIN LATTSSLES EXPENDED": GOTO 990 1010 PRINT"ALL HYPERSPACE LANCES EXPENDED":GOTO 990 1020 PRINT"ALL PHOTON TORPEDO TUBES EMPTY":GOTO NEXT I 160 FOR I=1 TO 10:S(I)=0:NEXT I 180 PRINT "DO YOU WANT ANY INSTRUCTIONS "; 190 INPUT A$ 200 IF LEFT$(A$,1)="N" THEN 400 210 PRINT 220 PRINT "BACKGAMMON : MY CHIPS ARE REPRESENTED BY - SIGNS, YOUR" 230 PRINT " CHIPS BY A + SIGN. INPUT YOUR MOVES IN THE FORMAT FROM" 240 PRINT " POINT #, TO POINT #, FROM POINT #, TO POINT #, FOR EACH" 250 PRINT " MOVE. EXAMPLE: 5,7,12,17 WOULD BE THE MOVE FOR DICE ROLLS" 260 PRINT " OF 2 AND 5; MOVING ONE CHIP FROM POINT 5 TO POINT 7, AND" 270 PRI   NT " ANOTHER FROM POINT 12 TO POINT 17." 280 PRINT " THE BAR IS REPRESENTED BY 0, YOUR HOME IS 25, MY" 290 PRINT " HOME IS 0." 300 PRINT " IF AT ANY TIME, YOU CARE TO DOUBLE, YOU WILL" 310 PRINT " BE ALLOWED 5 SECONDS IMMEDIATELY AFTER THE BOARD" 320 PRINT " PRINTOUT TO INPUT A 1, INDICATING YOU WISH TO CHECK" 330 PRINT " WHAT VALUE THE CUBE HAS, OR A 2, SUGGESTING DOUBLING THE" 340 PRINT " STAKES." 350 PRINT 360 LINE INPUT "HIT RETURN KEY TO CONTINUE:";QQ$ 370 REM 380 REM 390 REMOVE DEEPER INTO DEBT." 580 GOTO 600 590 PRINT "I OWE YOU ";-D4;"CENTS. NICE OF YOU TO RETURN." 600 X=INT((RND(1)*6)+1) 610 Y=INT((RND(1)*6)+1) 620 PRINT "YOUR ROLL IS A ";X;"AND MY ROLL IS A ";Y;"." 630 IF X<>Y THEN 670 640 D9=D9*2 650 PRINT "THE DOUBLING CUBE IS NOW AT ";D9 660 GOTO 600 670 IF Y>X THEN 1260 680 PRINT "YOU START." 690 D1=X 700 D2=Y 710 GOTO 740 720 D1=INT((RND(1)*6)+1) 730 D2=INT((RND(1)*6)+1) 740 IF H1>0 AND B(D1)>1 AND B(D2)>1 THEN 1220 750 PRINT "YOUR ROLL IS ";D1;"AND IF M1<>0 AND N1<>0 AND H1>0 THEN 830 940 IF M1=0 AND M2=0 THEN 1010 950 IF M1<1 THEN 980 960 IF A(M1)<1 THEN 830 970 A(M1)=A(M1)-1 980 A(M2)=A(M2)+1 990 IF M1>0 THEN 1010 1000 H1=H1-1 1010 IF N1=0 AND N2=0 THEN 1080 1020 IF N1<1 THEN 1050 1030 IF A(N1)<1 THEN 830 1040 A(N1)=A(N1)-1 1050 A(N2)=A(N2)+1 1060 IF N1>0 THEN 1080 1070 H1=H1-1 1080 IF M1=0 AND M2=0 THEN 1140 1090 IF B(M2)<1 THEN 1140 1100 B(M2)=B(M2)-1 1110 G=G+1 1120 PRINT "YOU HIT ME!!!!" 1130 IF M2=N2 THEN 1190 1140 IF N2=0MY ROLL IS ";C1;"AND ";C2 1350 IF G>0 THEN 5630 1360 IF L6=1 THEN 6760 1370 IF C1=C2 THEN 4200 1380 IF C11 THEN 1480 1460 IF B(I-C1)>1 THEN 1480 1470 IF A(I-C1)<2 THEN 1530 1480 NEXT I 1490 I1=I1-1 1500 IF I1=2 THEN 1650 1510 IF I1=0 THEN 5170 1520 GOTO 1440 1530 IF B(I+(C2-C1))<1 THEN 1480 1540 IF A(I-C1)=0 THEN 1580 1550 PRINT "I GOT YOU." 1560 A(I-C1)=A(I-C1)- OR C2=0 THEN 1810 1800 L5=C2+1 1810 IF I1=2 THEN 3030 1820 IF I1=1 AND C1<>0 AND C2<>0 THEN 1440 1830 GOTO 5170 1840 B(I-C1)=B(I-C1)+1 1850 B(I)=B(I)-1 1860 A(I-C1)=A(I-C1)-1 1870 H1=H1+1 1880 PRINT "I TOOK YOUR CHIP AT ";I-C1 1890 L5=C2+1 1900 S1=I 1910 S2=I-C1 1920 C1=0 1930 GOSUB 6100 1940 IF L6=1 THEN 6760 1950 IF C2=0 THEN 2450 1960 GOTO 1670 1970 B(I-C2)=B(I-C2)+1 1980 B(I)=B(I)-1 1990 A(I-C2)=A(I-C2)-1 2000 H1=H1+1 2010 PRINT "I TOOK YOUR CHIP AT ";I-C2 2020 L5=C1+1 2030 T1=IM 400 A(19)=5: B(6)=5: A(12)=5: B(13)=5 410 A(1)=2: B(24)=2 420 A(17)=3: B(8)=3 430 GOSUB 2570:GOTO 600: REM **** PRINT "HAVE YOU PLAYED WITH ME BEFORE"; 440 INPUT A$ 450 IF LEFT$(P$,1)="Y" THEN 520 460 REM **** READ #1,1 470 REM **** READ #1,D8 480 D8=D8+1 490 PRINT "YOUR USER NUMBER IS ";D8+1 500 PRINT #1,1;D8 510 D7=D8 520 GOSUB 2570 530 PRINT "WHAT IS YOUR USER NUMBER "; 540 INPUT D7 550 READ #1,D7;D4 560 IF D4<0 THEN 590 570 PRINT "YOU OWE ME ";-D4;"CENTS. OBVIOUSLY YOU LIKE TO ";D2;". WHAT IS YOUR MOVE"; 760 GOSUB 6440 770 IF D1=D2 THEN 3610 780 INPUT M1,M2,N1,N2 790 IF L7=1 THEN 960 800 IF M1=0 AND M2=0 THEN 850 810 IF M2-M1=D1 THEN 850 820 IF M2-M1=D2 THEN 880 830 PRINT "NICE TRY. NEXT TIME I WILL LOAD THE DICE! REINPUT!!!!"; 840 GOTO 780 850 IF N1=0 AND N2=0 THEN 930 860 IF N2-N1<>D2 THEN 830 870 GOTO 900 880 IF N1=0 AND N2=0 THEN 930 890 IF N2-N1<>D1 THEN 830 900 IF B(M2)>1 OR B(N2)>1 THEN 830 910 IF M1=0 AND M2=0 THEN 940 920 IF N1=0 AND N2=0 THEN 940 930 AND N1=0 THEN 1190 1150 IF B(N2)<1 THEN 1190 1160 B(N2)=B(N2)-1 1170 G=G+1 1180 PRINT "YOU HIT ME!!!!" 1190 PRINT "YOUR MOVE IS COMPLETED." 1200 GOSUB 7460 1210 GOTO 1230 1220 PRINT "YOUR ROLL IS ";D1;"AND ";D2;" BUT YOU CAN NOT MOVE!!" 1230 GOSUB 6440 1240 GOTO 1290 1250 REM COMPUTER MOVE DETERMINATION ****** 1260 C1=X 1270 C2=Y 1280 GOTO 1330 1290 S1=0: S2=S1: T1=S2: T2=T1 1300 FOR I=1 TO 10:S(I)=0:NEXT I 1310 C1=INT((RND(1)*6)+1) 1320 C2=INT((RND(1)*6)+1) 1330 GOSUB 6100 1340 PRINT "1 1570 H1=H1+1 1580 B(I)=B(I)-1 1590 B(I-C1)=B(I-C1)+2 1600 B(I+(C2-C1))=B(I+(C2-C1))-1 1610 S1=I 1620 S2=I-C1: T2=S2 1630 T1=I+(C2-C1) 1640 GOTO 2450 1650 L5=13 1660 FOR I=24 TO L5 STEP -1 1670 IF B(I)<1 THEN 1780 1680 IF C1=0 THEN 1700 1690 IF A(I-C1)=1 THEN 1840 1700 IF C2=0 THEN 1780 1710 IF A(I-C2)=1 THEN 1970 1720 IF I-C1-C2<1 THEN 1740 1730 IF A(I-C1-C2)<>1 THEN 1780 1740 IF A(I-C1)>1 THEN 1760 1750 GOTO 2130 1760 IF A(I-C2)>1 THEN 1780 1770 GOTO 2100 1780 NEXT I 1790 IF L5<>13 2040 T2=I-C2 2050 C2=0 2060 GOSUB 6100 2070 IF L6=1 THEN 6760 2080 IF C1=0 THEN 2450 2090 GOTO 1670 2100 Z=C2 2110 C2=C1 2120 C1=Z 2130 IF I-C1-C2<1 THEN 1780 2140 B(I-C1-C2)=B(I-C1-C2)+1 2150 B(I)=B(I)-1 2160 A(I-C1-C2)=A(I-C1-C2)-1 2170 H1=H1+1 2180 S1=I 2190 S2=I-C1: T1=S2 2200 T2=I-C1-C2 2210 PRINT "I TOOK YOUR CHIP AT ";I-C1-C2 2220 C1=0: C2=C1 2230 IF C1=0 AND C2=0 THEN 2450 2240 IF C1<>0 AND C2<>0 THEN 3030 2250 IF C2=0 THEN 2290 2260 Z=C2 2270 C2=C1 2280 C1=Z 2290 FOR I=C1   +1 TO 24 2300 IF B(I)<1 THEN 2320 2310 IF B(I-C1)>0 THEN 2370 2320 NEXT I 2330 Z=C2 2340 C2=C1 2350 C1=Z 2360 GOTO 3030 2370 B(I)=B(I)-1 2380 B(I-C1)=B(I-C1)+1 2390 IF S1=0 THEN 2430 2400 T1=I 2410 T2=I-C1 2420 GOTO 2450 2430 S1=I 2440 S2=I-C1 2450 REM COMPUTER MOVE PRINTOUT ***** 2460 IF S1<>T2 THEN 2530 2470 Z1=S1 2480 Z2=S2 2490 S1=T1 2500 S2=T2 2510 T1=Z1 2520 T2=Z2 2530 PRINT "MY MOVE IS ";S1;",";S2;"AND";T1;",";T2 2540 PRINT "STATUS :" 2550 GOSUB 2570 2560 GOTO 720 2570 REM780 GOTO 2800 2790 PRINT TAB(20); 2800 NEXT H2: PRINT 2810 IF H2=13 THEN 2890 2820 PRINT 2830 PRINT TAB(16);B$;: PRINT USING "# +#";G,H1: PRINT 2840 REM **** IMAGE X,A,DX,SD 2850 V=1 2860 P=12 2870 F2=1 2880 GOTO 2650 2890 PRINT " ....................................." 2900 PRINT " 1 2 3 4 5 6 7 8 9 10 11 12": PRINT 2910 GOTO 3010:REM **** PRINT LIN(-2) 2920 ENTER 5,R1,D5 2930 GOTO D5+1 OF 3010,2940,7460 2940 PRINT "THE DOUBLING CUBE IS AT "; 2950 IF D9<0 THEN 2990 2960 PRIN 3180 3150 IF I-C1-C2<1 THEN 3190 3160 IF B(I-C1-C2)<1 THEN 3190 3170 GOTO 3250 3180 IF A(I-C2)<1 AND B(I-C1-C2)>1 THEN 3450 3190 NEXT I 3200 I1=I1-1 3210 GOTO 1660 3220 IF C2=0 THEN 3310 3230 IF I-C1-C2<1 THEN 3190 3240 IF B(I-C1-C2)<1 THEN 3310 3250 B(I-C1-C2)=B(I-C1-C2)+1 3260 B(I)=B(I)-1 3270 S1=I 3280 S2=I-C1: T2=S2 3290 T1=I-C1-C2 3300 GOTO 2450 3310 B(I)=B(I)-1 3320 B(I-C1)=B(I-C1)+1 3330 S1=I 3340 S2=I-C1 3350 C1=0 3360 GOSUB 6100 3370 IF L6=1 THEN 6760 3380 L5=C2+1 3390 IFHEN 3750 3640 IF M1=0 AND M2=0 THEN 3680 3650 IF M2-M1=D1 THEN 3680 3660 PRINT "NICE TRY. NEXT TIME, I WILL LOAD THE DICE. REINPUT!!!!"; 3670 GOTO 3620 3680 IF M3=0 AND M4=0 THEN 3700 3690 IF M4-M3<>D1 THEN 3660 3700 IF M5=0 AND M6=0 THEN 3720 3710 IF M6-M5<>D1 THEN 3660 3720 IF M7=0 AND M8=0 THEN 3740 3730 IF M8-M7<>D1 THEN 3660 3740 IF B(M2)>1 OR B(M4)>1 OR B(M6)>1 OR B(M8)>1 THEN 3660 3750 IF M1=0 AND M2=0 THEN 3820 3760 IF M1<1 THEN 3790 3770 IF A(M1)<1 THEN 3660 3780 A(M1)=A(M1)-1 3790>0 THEN 4030 4020 H1=H1-1 4030 IF B(M2)<>1 THEN 4070 4040 B(M2)=B(M2)-1 4050 G=G+1 4060 PRINT "YOU HIT ME !!!!" 4070 IF B(M4)<>1 THEN 4110 4080 B(M4)=B(M4)-1 4090 G=G+1 4100 PRINT "YOU HIT ME !!!!" 4110 IF B(M6)<>1 THEN 4150 4120 B(M6)=B(M6)-1 4130 G=G+1 4140 PRINT "YOU HIT ME !!!!" 4150 IF B(M8)<>1 THEN 4190 4160 B(M8)=B(M8)-1 4170 G=G+1 4180 PRINT "YOU HIT ME !!!!" 4190 GOTO 1190 4200 REM COMPUTER DOUBLES ****** 4210 X3=0: L=X3 4220 FOR I=1 TO 10:S(I)=0:NEXT I 4230 C3=C1: C4=C3 4240 PRINTOUT ****** 2580 F2=24 2590 P=13 2600 V=-1 2610 PRINT 2620 REM 2630 PRINT " 24 23 22 21 20 19 18 17 16 15 14 13" 2640 PRINT " ....................................." 2650 PRINT TAB(0); 2660 FOR H2=F2 TO P STEP V 2670 IF A(H2)<1 THEN 2710 2680 PRINT USING "###";A(H2); 2690 REM **** IMAGE #,SDX 2700 GOTO 2760 2710 IF B(H2)<1 THEN 2740 2720 PRINT USING "###";-B(H2); 2730 GOTO 2760 2740 PRINT USING "###";0; 2750 REM **** IMAGE #,XDX 2760 IF H2=19 THEN 2790 2770 IF H2=6 THEN 2790 2NT D9;". YOU MAY DOUBLE IF YOU WISH." 2970 D5=0 2980 GOTO 2920 2990 PRINT -D9;"IT IS MY TURN TO DOUBLE." 3000 D5=0 3010 GOSUB 6100 3020 RETURN 3030 REM SAFE MOVE ****** 3040 FOR I=24 TO L5 STEP -1 3050 IF B(I)<1 THEN 3190 3060 IF C1=0 OR C2=0 THEN 3100 3070 IF I-C1-C2<1 THEN 3100 3080 IF B(I-C1-C2)>0 AND A(I-C1)<1 THEN 3250 3090 IF B(I-C1-C2)>0 AND A(I-C2)<1 THEN 3450 3100 IF C1=0 THEN 3130 3110 IF B(I-C1)>0 THEN 3220 3120 IF C2=0 THEN 3190 3130 IF B(I-C2)>0 THEN 3420 3140 IF A(I-C1)>0 THE C2=0 THEN 2450 3400 IF B(I)>0 THEN 3130 3410 GOTO 3190 3420 IF C1=0 THEN 3510 3430 IF I-C1-C2<1 THEN 3510 3440 IF B(I-C1-C2)<1 THEN 3510 3450 B(I-C1-C2)=B(I-C1-C2)+1 3460 B(I)=B(I)-1 3470 S1=I 3480 S2=I-C2: T1=S2 3490 T2=I-C1-C2 3500 GOTO 2450 3510 B(I)=B(I)-1 3520 B(I-C2)=B(I-C2)+1 3530 T1=I 3540 T2=I-C2 3550 C2=0 3560 GOSUB 6100 3570 IF L6=1 THEN 6760 3580 L5=C1+1 3590 IF C1=0 THEN 2450 3600 GOTO 3190 3610 REM PLAYER DOUBLES ****** 3620 INPUT M1,M2,M3,M4,M5,M6,M7,M8 3630 IF L7=1 T A(M2)=A(M2)+1 3800 IF M1>0 THEN 3820 3810 H1=H1-1 3820 IF M3=0 AND M4=0 THEN 3890 3830 IF M3<1 THEN 3860 3840 IF A(M3)<1 THEN 3660 3850 A(M3)=A(M3)-1 3860 A(M4)=A(M4)+1 3870 IF M3>0 THEN 3890 3880 H1=H1-1 3890 IF M5=0 AND M6=0 THEN 3960 3900 IF M5<1 THEN 3930 3910 IF A(M5)<1 THEN 3660 3920 A(M5)=A(M5)-1 3930 A(M6)=A(M6)+1 3940 IF M5>0 THEN 3960 3950 H1=H1-1 3960 IF M7=0 AND M8=0 THEN 4030 3970 IF M7<1 THEN 4000 3980 IF A(M7)<1 THEN 3660 3990 A(M7)=A(M7)-1 4000 A(M8)=A(M8)+1 4010 IF M7 L5=C1+1 4250 FOR I=L5 TO 24 4260 IF B(I)<2 THEN 4750 4270 IF A(I-C1)>1 THEN 4750 4280 IF I-(2*C1)<1 THEN 4340 4290 IF A(I-(2*C1))<>1 THEN 4340 4300 C1=2*C1 4310 H=I 4320 X3=1 4330 GOTO 4420 4340 IF B(I-C1)>1 THEN 4770 4350 IF B(I)-2=1 THEN 4770 4360 X4=I+1 4370 FOR H=24 TO X4 STEP -1 4380 X5=0 4390 IF B(H)<2 THEN 4700 4400 IF A(H-C1)>1 THEN 4700 4410 IF A(H-C1)=0 THEN 4450 4420 PRINT "I HIT YOUR CHIP AT POINT ";H-C1 4430 H1=H1+1 4440 A(H-C1)=0 4450 IF X3<>1 THEN 4470 4460 C1=C1/2 447   0 S(2)=H-C1: S(4)=S(2) 4480 S(1)=H: S(3)=S(1) 4490 B(H)=B(H)-2 4500 IF X3<>1 THEN 4520 4510 C1=C2*2 4520 B(H-C1)=B(H-C1)+2 4530 IF X3<>1 THEN 4570 4540 C1=C1/2 4550 I=H-C1 4560 GOTO 4640 4570 X5=-1 4580 B(I)=B(I)-2 4590 B(I-C1)=B(I-C1)+2 4600 IF A(I-C1)=0 THEN 4640 4610 PRINT "I HIT YOUR CHIP AT POINT ";I-C1 4620 H1=H1+1 4630 A(I-C1)=0 4640 S(5)=I: S(7)=S(5) 4650 S(6)=I-C1: S(8)=S(6) 4660 IF X5<>-1 THEN 4680 4670 C3=0: C4=C3 4680 C1=0: C2=C1 4690 GOTO 4800 4700 NEXT H 4710 IF X4<>I+1920 H1=H1+1 4930 A(I-C4)=0 4940 B(I-C4)=B(I-C4)+1 4950 B(I)=B(I)-1 4960 S((2*F)-1)=I 4970 S(2*F)=I-C4 4980 F=F-1 4990 IF F<>0 AND B(I)<>0 THEN 4940 5000 IF F<>0 AND B(I)=0 THEN 5020 5010 GOTO 5030 5020 NEXT I 5030 FOR I=1 TO 5 STEP 2 5040 IF S(I+1)>=S(I+3) THEN 5120 5050 Z3=S(I+2) 5060 Z4=S(I+3) 5070 S(I+2)=S(I) 5080 S(I+3)=S(I+1) 5090 S(I)=Z3 5100 S(I+1)=Z4 5110 GOTO 5030 5120 NEXT I 5130 PRINT "MY MOVE IS";S(1);",";S(2);"AND";S(3);",";S(4); 5140 PRINT "AND";S(5);",";S(6);"AND";S(7);"X1=16 5410 X1=X1-1 5420 IF X1>0 THEN 5260 5430 IF C1=0 OR C9=1 THEN 5470 5440 C9=1 5450 C2=0 5460 GOTO 5220 5470 IF C1<>0 THEN 5500 5480 S1=0: S2=S1 5490 GOTO 2450 5500 IF C2<>0 THEN 6080 5510 T1=0: T2=T1 5520 GOTO 2450 5530 IF C1=0 OR A(I-C1)>1 THEN 5380 5540 IF B(I)<1 THEN 5380 5550 B(I)=B(I)-1 5560 B(I-C1)=B(I-C1)+1 5570 S1=I 5580 S2=I-C1 5590 C1=0 5600 L5=C2+1 5610 IF C2=0 THEN 2450 5620 GOTO 5270 5630 REM BLOT ****** 5640 I1=1 5650 G1=G 5660 C3=C1 5670 C4=C2 5680 IF A(25-C1C1)=B(25-C1)+1 5900 S1=0 5910 S2=25-C1 5920 L5=C2+1 5930 C1=0 5940 IF C3<>C4 THEN 5800 5950 S(9-(2*(G MAX 2)))=S1 5960 S(10-(2*(G MAX 2)))=S2 5970 GOTO 5800 5980 F1=4-G1: F=F1 5990 GOTO 4870 6000 PRINT "I HIT YOU." 6010 A(25-C1)=0 6020 H1=H1+1 6030 GOTO 5890 6040 PRINT "I HIT YOU." 6050 A(25-C2)=0 6060 H1=H1+1 6070 GOTO 5720 6080 PRINT "I CAN NOT MOVE." 6090 GOTO 2540 6100 REM COMPUTER HOME ****** 6110 G8=0 6120 FOR J=7 TO 24 6130 G8=G8+B(J) 6140 NEXT J 6150 IF G8<>0 THEN 6240 61370 PRINT "YOU WERE ";M$ 6380 PRINT "YOU HAVE LOST ";ABS(D9);"POINTS. I'LL REMEMBER THAT." 6390 PRINT #1,D7;D4+ABS(D9) 6400 PRINT "CARE FOR A REMATCH "; 6410 INPUT A$ 6420 IF LEFT$(A$,1)="Y" THEN 100 6430 STOP 6440 REM PLAYER WIN SUBROUTINE ****** 6450 G7=H1 6460 FOR J=1 TO 18 6470 G7=G7+A(J) 6480 NEXT J 6490 IF G7<>0 THEN 6570 6500 G7=0 6510 FOR J=24 TO 19 STEP -1 6520 G7=G7+A(J) 6530 NEXT J 6540 IF G7=0 THEN 6590 6550 L7=1 6560 GOTO 6580 6570 L7=0 6580 RETURN 6590 PRINT "YOU WON."  THEN 4580 4720 X4=C4+1 4730 GOTO 4700 4740 GOTO 4580 4750 NEXT I 4760 GOTO 4800 4770 IF L>0 THEN 4360 4780 L=L+1 4790 GOTO 4750 4800 REM COMPUTER DOUBLES SAFE MOVE ****** 4810 IF C1=0 AND C2=0 AND C3=0 AND C4=0 THEN 5030 4820 IF C1<>0 AND C2<>0 AND C3<>0 AND C4<>0 THEN 4850 4830 F1=2: F=F1 4840 GOTO 4870 4850 F1=4: F=F1 4860 L5=C4+1 4870 FOR I=24 TO L5 STEP -1 4880 IF B(I)<1 THEN 5020 4890 IF A(I-C4)>1 THEN 5020 4900 IF A(I-C4)=0 THEN 4940 4910 PRINT "I HIT YOUR CHIP AT POINT ";I-C4 4,";S(8) 5150 GOSUB 6100 5160 GOTO 2540 5170 REM COMPUTER FARTHEST MOVE ****** 5180 C9=0 5190 IF C2=0 THEN 5220 5200 L5=C2+1 5210 GOTO 5230 5220 L5=C1+1 5230 X1=1 5240 GOSUB 6100 5250 IF L6=1 THEN 6760 5260 FOR I=24 TO L5 STEP -1 5270 IF B(I)<>X1 THEN 5380 5280 IF C2=0 THEN 5370 5290 IF A(I-C2)>1 THEN 5530 5300 B(I)=B(I)-1 5310 B(I-C2)=B(I-C2)+1 5320 T1=I 5330 T2=I-C2 5340 C2=0 5350 L5=C1+1 5360 IF C1=0 THEN 2450 5370 IF A(I-C1)<1 THEN 5540 5380 NEXT I 5390 IF X1<>1 THEN 5410 5400 )=1 THEN 6000 5690 IF A(25-C2)=1 THEN 6040 5700 IF A(25-C1)<1 AND B(25-C1)>0 THEN 5890 5710 IF A(25-C2)>1 THEN 5870 5720 B(25-C2)=B(25-C2)+1 5730 T1=0 5740 T2=25-C2 5750 L5=C1+1 5760 C2=0 5770 IF C3<>C4 THEN 5800 5780 S(9-(2*(G MAX 2)))=T1 5790 S(10-(2*(G MAX 2)))=T2 5800 G=G-1 5810 IF G=0 AND C3=C4 THEN 5980 5820 IF G=0 AND G1=2 THEN 2460 5830 IF G=0 THEN 1660 5840 IF S(7)=0 OR S(5)=0 THEN 5870 5850 C1=C3 5860 C2=C4 5870 IF C1=0 OR C2=0 THEN 5390 5880 IF A(25-C1)>1 THEN 6080 5890 B(25-60 G8=0 6170 FOR J=1 TO 6 6180 G8=G8+B(J) 6190 NEXT J 6200 IF G8=0 THEN 6260 6210 L5=-1 6220 L6=1 6230 GOTO 6250 6240 L6=0 6250 RETURN 6260 PRINT "I WON." 6270 IF G7<>0 AND G8<>0 THEN 6380 6280 J1=A(1)+A(2)+A(3)+A(4)+A(5)+A(6) 6290 IF A(7)+A(8)+A(9)+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16)+A(17)+A(18)=0 THEN 6310 6300 M$="GAMMONED." 6310 IF J1=0 THEN 6330 6320 M$="BACKGAMMONED." 6330 IF LEFT$(M$,1)<>"G" THEN 6350 6340 D9=D9*2: GOTO 6370 6350 IF LEFT$(M$,1)<>"B" THEN 6380 6360 D9=D9*3 66600 IF G7<>0 AND G8<>0 THEN 6710 6610 J2=B(24)+B(23)+B(22)+B(21)+B(20)+B(19) 6620 IF B(18)+B(17)+B(16)+B(15)+B(14)+B(13)+B(12)+B(11)+B(10)+B(9)+B(8)+B(7)=0 THEN 6640 6630 M$="GAMMONED." 6640 IF J2=0 THEN 6660 6650 M$="BACKGAMMONED." 6660 IF LEFT$(M$,1)<>"G" THEN 6680 6670 D9=D9*2: GOTO 6710 6680 IF LEFT$(M$,1)<>"B" THEN 6710 6690 D9=D9*3 6700 PRINT "I WAS ";M$ 6710 PRINT "I HAVE LOST ";ABS(D9);"POINTS. " 6720 PRINT #1,D7;D4-ABS(D9) 6730 PRINT "GOOD BYE." 6740 REM **** PRINT LIN(-5) 6750 ST   OP 6760 REM COMPUTER FINISH ****** 6770 I2=9 6780 H3=1: F3=H3 6790 C3=0: C4=C3 6800 IF C1<>C2 THEN 6830 6810 C3=C1 6820 C4=C2 6830 C7=C1 6840 C8=C2 6850 FOR I=6 TO 1 STEP -1 6860 IF I=C1 AND B(I)>= I2 THEN 7230 6870 IF I=C2 AND B(I)>= I2 THEN 7050 6880 IF I=C3 AND B(I)>= I2 THEN 7360 6890 IF I=C4 AND B(I)>= I2 THEN 7380 6900 NEXT I 6910 I2=I2-1 6920 IF I2<>0 THEN 6850 6930 IF C1=0 THEN 6950 6940 C1=C1+H3 6950 IF C2=0 THEN 6970 6960 C2=C2+H3 6970 IF C3=0 THEN 6990 6980 C3=C3+H3 6990 200 IF C1=0 AND C2=0 AND C3=0 AND C4=0 THEN 2460 7210 F3=F3+2 7220 GOTO 6870 7230 S1=I: S(F3)=S1 7240 IF I-C7<1 THEN 7330 7250 IF A(I-C7)>1 THEN 6900 7260 IF A(I-C7)<1 THEN 7300 7270 PRINT "I TOOK YOUR CHIP AT ";I-C7 7280 H1=H1+1 7290 A(I-C7)=A(I-C7)-1 7300 B(I-C7)=B(I-C7)+1 7310 S2=I-C7: S(F3+1)=S2 7320 GOTO 7340 7330 S2=-1: S(F3+1)=S2 7340 C1=0 7350 GOTO 7170 7360 A=1 7370 GOTO 7390 7380 A=2 7390 Z5=C3 7400 C3=C1 7410 C1=Z5 7420 Z6=C4 7430 C4=C2 7440 C2=Z6 7450 GOTO A OF 7230,705090 7660 PRINT "CARE TO DOUBLE THE STAKES "; 7670 INPUT R$ 7680 IF R$(1,1)<>"Y" THEN 6260 7690 D9=D9*2 7700 PRINT "FINE." 7710 D5=0 7720 RETURN 7730 END  STAKES "; 7670 INPUT R$ 7680 IF R$(1,1)<>"Y" THEN 6260 7690 D9=D9*2 7700 PRINT "FINE." 78) 7580 NEXT R2 7590 DATA 1,6,.5,7,12,1,13,15,1.5,16,19,2,20,24,2.5 7600 RESTORE 7610 IF U1<=U2 AND D9>0 AND D5=2 THEN 7690 7620 IF U1<=U2 AND D5<>2 AND D9<0 THEN 7660 7630 IF D5<>2 THEN 7720 7640 PRINT "I REFUSE TO DOUBLE THE STAKES." 7650 GOTO 6510 REM GOBANG 20 REM M IS ARRAY HOLDING BEST MOVE 30 REM T IS BOARD, S IS PRIORITY OF THAT POSITION 35 DEF FNC$(Y,X)=CHR$(27)+CHR$(61)+CHR$(32+Y)+CHR$(32+X) 40 PRINT CHR$(26);TAB(30);"G O B A N G"; 50 PRINT FNC$(9,9);"DO YOU WANT INSTRUCTIONS? (Y/N) ";:INPUT I$ 60 IF I$="Y" THEN GOSUB 1820 70 GOTO 90 80 ERASE M,T,S 90 DIM M(19,19),T(27,27),S(81) 100 REM SET UP PRIORITIES-SEE TABLE 1 110 FOR I=1 TO 81 120 S(I)=0 130 NEXT I 140 S(20)=1 150 S(10)=40 160 S(12)=30 170 S(13)=47 180 S(27)=15 190IF C4=0 THEN 7010 7000 C4=C4+H3 7010 IF C1<>7 AND C2<>7 AND C3<>7 AND C4<>7 THEN 7030 7020 H3=-1 7030 I2=9 7040 GOTO 6850 7050 S(F3)=I: T1=S(F3) 7060 IF I-C8<1 THEN 7150 7070 IF A(I-C8)>1 THEN 6900 7080 IF A(I-C8)<1 THEN 7120 7090 PRINT "I TOOK YOUR CHIP AT ";I-C8 7100 H1=H1+1 7110 A(I-C8)=A(I-C8)-1 7120 B(I-C8)=B(I-C8)+1 7130 T2=I-C8: S(F3+1)=T2 7140 GOTO 7160 7150 T2=-1: S(F3+1)=T2 7160 C2=0 7170 B(I)=B(I)-1 7180 GOSUB 6100 7190 IF C1=0 AND C2=0 AND C3=0 AND C4=0 AND C7=C8 THEN 5030 7 7460 REM DOUBLES EVALUATION ****** 7470 IF ABS(D9)>=64 THEN 7720 7480 U1=0: U2=0 7490 FOR R2=1 TO 5 7500 R7=0: R8=0 7510 READ R3,R5,R6 7520 FOR R4=R3 TO R5 7530 R7=B(R4)+R7 7540 R8=A(R4)+R8 7550 NEXT R4 7560 U1=U1+(R6*R7) 7570 U2=U2+((3-R6)*R8) 7580 NEXT R2 7590 DATA 1,6,.5,7,12,1,13,15,1.5,16,19,2,20,24,2.5 7600 RESTORE 7610 IF U1<=U2 AND D9>0 AND D5=2 THEN 7690 7620 IF U1<=U2 AND D5<>2 AND D9<0 THEN 7660 7630 IF D5<>2 THEN 7720 7640 PRINT "I REFUSE TO DOUBLE THE STAKES." 7650 GOTO 65 S(28)=20 200 S(29)=10 210 S(30)=40 220 S(31)=50 230 S(32)=30 240 S(24)=1 250 S(36)=39 260 S(37)=65 270 S(38)=40 280 S(39)=70 290 S(40)=100 300 S(41)=60 310 S(42)=30 320 S(43)=30 330 S(44)=30 340 S(62)=41 350 S(72)=31 360 S(73)=11 370 S(74)=41 380 S(78)=51 390 S(80)=90 400 S(26)=21 410 S(79)=40 420 S(60)=21 430 S(61)=11 440 REM CLEAR BOARD AND BEST MOVE ARRAYS 450 FOR I=1 TO 27 460 FOR J=1 TO 27 470 IF I<19 AND J<19 THEN M(I,J)=0 480 REM MAKE FIRST MOVE 490 NEXT J 500 NE   XT I 510 INPUT I$ 520 C=-1 530 W=14 540 N=14 550 O=14 560 X=14 570 GOTO 920 580 GOSUB 1010 590 REM REQUEST MOVE AND CHECK FOR VALIDITY 600 INPUT Z,Y 610 Y=Y+4 620 Z=Z+4 630 IF Y>23 THEN GOTO 600 640 IF Z>23 THEN GOTO 600 650 IF Y<5 THEN GOTO 600 660 IF Z<5 THEN GOTO 600 670 IF T(Y,Z)>0 THEN GOTO 600 680 T(Y,Z)=2 690 I=Y 700 J=Z 710 REM STUDY LAST TWO MOVES 720 GOSUB 1170 730 IF C<>-1 THEN GOTO 950 740 REM IF C=0 COMPUTER HAS LOST 750 I=W 760 J=X 770 GOSUB 1170 780 REM SCAN BOARD UTINE TO DISPLAY BOARD 1010 PRINT " 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19" 1020 FOR I=5 TO 23 1030 IF I-4<10 THEN PRINT I-4;" "; 1040 IF I-4>9 THEN PRINT I-4; 1050 FOR J=5 TO 23 1060 IF T(I,J)=0 THEN PRINT " :"; 1070 IF T(I,J)=1 THEN PRINT " X"; 1080 IF T(I,J)=2 THEN PRINT " O"; 1090 NEXT J 1100 PRINT " " 1110 NEXT I 1120 RETURN 1130 REM SUBROUTINE TO CALCULATE BEST MOVE 1140 REM SCAN THRU MOVE AT I,J 1150 REM FOR FIVE SQUARES EITHER SIDE OF MOVE 1160 REM 1380 REM CALCULATE PRIORITY OF POSITION 1390 R=T(U-K,V-L)*27+T(U-2*K,V-2*L)*9 1400 R=R+T(U-3*K,V-3*L)*3+T(U-4*K,V-4*L) 1410 B=Q*27+T(U+2*K,V+2*L)*9+T(U+3*K,V+3*L)*3 1420 IF R=80 AND T(U,V)=2 THEN C=0 1430 IF T(U,V)<>0 THEN GOTO 1680 1440 REM S(R) IS PRIORITY; THE FOLLOWING ARE EXCEPTIONS 1450 REM SEE TABLE 2 1460 IF R<14 AND R>11 AND Q=1 THEN P=37 1470 IF R>71 AND B>53 AND B<63 THEN P=80 1480 IF R>71 AND B>71 THEN P=80 1490 IF R>53 AND R<63 AND Q=2 THEN P=72 1500 IF P=72 AND R=60 THEN P=31 151R)<41 THEN R=74 1650 IF S(R)-INT(S(R)/10)*10=9 AND A-INT(A/10)*10=9 AND S(R)<65 THEN R=37 1660 REM UPDATE BEST MOVE ARRAY 1670 IF S(R)>M(E,G) THEN M(E,G)=S(R) 1680 IF D>4 THEN GOTO 1730 1690 U=U+K 1700 V=V+L 1710 GOTO 1270 1720 REM CHANGE DIRECTION 1730 IF K=0 AND L=-1 THEN RETURN 1740 IF K=-1 AND L=-1 THEN K=0 1750 IF K=-1 AND L=0 THEN L=-1 1760 IF K=-1 AND L=1 THEN L=0 1770 IF K=0 AND L=1 THEN K=-1 1780 IF K=1 AND L=1 THEN K=0 1790 IF K=1 AND L=0 THEN L=1 1800 IF K=1 AND L=-1 THEN L=0 181not" 1890 PRINT "worry if there is not an immediate response." 1900 PRINT:PRINT "To make a move, enter the horizontal number first, then a" 1910 PRINT "comma, and the vertical number of the location you want to fill" 1920 PRINT :PRINT "Good luck!! Press to start game." 1930 RETURN ertical number of the location you want to fill" 1920 PRINT :PRINT "Good luck!! Preputer always goes first, and is 'X'. It takes about 40" 1880 PRINT "seconds for the computer to think of its best move, so do FOR BEST MOVE 790 REM NOTE LIMITS TO SPEED UP PROGRAM 800 Q=-1 810 FOR I=N-1 TO O+1 820 FOR J=5 TO 23 830 IF T(I,J)>0 THEN GOTO 890 840 A=M(I-4,J-4) 850 IF A"N" THEN RUN 990 GOTO 80 1000 REM SUBRO IN EIGHT DIRECTIONS, AND UPDATE BEST MOVE ARRAY. 1170 K=1 1180 L=-1 1190 IF I5 THEN N=I 1200 IF I>O AND I<23 THEN O=I 1210 REM UPDATE SCAN LIMITS 1220 U=I 1230 V=J 1240 REM I,J IS MOVE TO CHECK, D IS LOOP COUNT 1250 REM K,L ARE X AND Y DIRECTIONS THRU MOVE 1260 D=0 1270 D=D+1 1280 P=81 1290 REM CHECK STILL ON BOARD 1300 IF U>23 THEN GOTO 1730 1310 IF V>23 THEN GOTO 1730 1320 IF U<5 THEN GOTO 1730 1330 IF V<5 THEN GOTO 1730 1340 E=U-4 1350 G=V-4 1360 A=M(E,G) 1370 Q=T(U+K,V+L) 0 IF Q<>2 THEN GOTO 1550 1520 IF R=78 THEN P=80 1530 IF R=79 THEN P=80 1540 IF R=41 THEN R=81 1550 IF R<42 AND R>35 AND Q=1 THEN P=41 1560 IF R<33 AND R>29 AND Q=1 THEN P=41 1570 IF R>53 AND R<62 AND B>71 THEN P=80 1580 IF R>38 AND R<42 AND Q=1 THEN R=40 1590 IF R>35 AND R<45 AND B>35 AND B<45 THEN R=40 1600 IF R>27 AND R<54 AND B>38 AND B<42 THEN R=40 1610 IF R=79 AND A=51 THEN M(E,G)=41 1620 IF R=0 THEN R=81 1630 IF S(P)>S(R) THEN R=P 1640 IF S(R)-INT(S(R)/10)*10=1 AND A-INT(A/10)*10=1 AND S(0 GOTO 1220 1820 PRINT CHR$(26):PRINT "GOBANG is, as far as I can tell, a traditional game" 1830 PRINT "of the Orient. It is a large game of tic-tac-toe (noughts and" 1840 PRINT "crosses), played on a 19 by 19 inch board. The object of the" 1850 PRINT "game is to get 5 adjacent markers in a row horizontally," 1860 PRINT "vertically, or diagonally.":PRINT 1870 PRINT "The computer always goes first, and is 'X'. It takes about 40" 1880 PRINT "seconds for the computer to think of its best move, so do    10 REM HANGMAN.BAS CP/M MBASIC 5.2 Z-89 GRAPHICS 02/81 20 CLEAR 1000:WIDTH 255:DIM A$(20),A1$(20) 30 E$=CHR$(27):E1$=E$+"E":F$=E$+"F":G$=E$+"G":P$=E$+"p":Q$=E$+"q":Y$=E$+"Y" 40 J$=E$+"J":K$=E$+"K":X1$=E$+"x1":X5$=E$+"x5":Y5$=E$+"y5":Q1$=CHR$(34) 50 Q1$=CHR$(34):T$=CHR$(64):U$=CHR$(95) 60 PRINT E$;"E":PRINT:PRINT 70 PRINT TAB(30);E$;"p";" HANGMAN ";E$;"q" 80 PRINT:PRINT 90 PRINT " This is the familiar game of `HANGMAN' that you used to play" 100 PRINT " when you were in Grade School. Your opponN$=INPUT$(1) 200 PRINT:PRINT 210 PRINT " What skill level do you want? (1,2, or 3) "Y5$; 220 S$=INPUT$(1):IF VAL(S$)<1 OR VAL(S$)>3 THEN 210 230 PRINT X1$E1$X5$;:GOSUB 530:C=2:T=0:W=0:D=0:L$="" 240 RESTORE:FOR X=1 TO INT(50*RND(1))+1:READ O1$,O2$,O3$:IF O1$="000" THEN 240 250 NEXT X:IF S$="1" THEN B$=O1$ 260 IF S$="2" THEN B$=O2$ 270 IF S$="3" THEN B$=O3$ 280 S=LEN(B$):FOR X=1 TO S:A1$(X)="i":A$(X)=MID$(B$,X,1):NEXT X 290 PRINT E$"k"F$;:FOR X=1 TO S:PRINT A1$(X)" ";:NEXT X:PRINT 300 IF C=T X:GOSUB 290 410 PRINT F$Y$"%Fww r"Y$"%VTHE GOVERNOR HAS NOT"Y$"&VSENT YOUR PARDON!" 420 FOR X=1 TO 19:PRINT Y$"2"CHR$(60+X)" ";:NEXT X:PRINT " " 430 PRINT G$Y5$Y$"8"Q1$ 440 PRINT "To play again choose a skill level (1,2 or 3) ";:N$=INPUT$(1) 450 PRINT X5$E$"y1"E$"y3"Y$" "E1$; 460 IF N$="1" OR N$="2" OR N$="3" THEN S$=N$:GOTO 230 470 SYSTEM 480 PRINT F$Y$Q1$"Fx "Y$"#Gx":IF W=0 THEN 510 490 PRINT Y$"&Fed";:IF W<5 THEN 510 500 PRINT Y$"1<}"STRING$(20,"p")"|" 510 PRINT Y$"%NYOUR LAWYER USE:RETURN 610 PRINT Y$"54WORD h "E$"j"G$;:RETURN 620 PRINT F$Y$"$Eiiii"Y$"%D"U$" ^^ r"Y$"&Eyaax"Y$"'F``"G$:GOTO 290 630 PRINT F$Y$"(Dzizziz"Y$")D|i i}"Y$"*D|i i}"Y$"+Dyi{{ix"G$:GOTO 290 640 PRINT F$Y$"(Cx"Y$")Bxx"Y$"*Axx"Y$"+A"U$"*"G$:GOTO 290 650 PRINT F$Y$"(Jy"Y$")Jyy"Y$"*Kyy"Y$"+K*r"G$:GOTO 290 660 PRINT F$Y$",D|"Y$"-Cx x"Y$".C| }"Y$"/C| }"Y$"0Cuuu"G$:GOTO 290 670 PRINT F$Y$",I}"Y$"-Gy y"Y$".H| }"Y$"/H| }"Y$"0Huuu"G$:GOTO 400 680 DATA PAPER,CALENDAR,SPONGE 690 DATA DOCTOR,MAGAZINE,SYMPATHETIC AYS,PORTABLE,PROXY 860 DATA OVER,MODIFY,QUADRANT 870 DATA UNDER,VILLAGE,PYRAMID 880 DATA BACK,CARPET,PHYCHOPATH 890 DATA LETTER,PICTURE,PRONOUNCIATION 900 DATA MAIL,EXPOSURE,ANIMOSITY 910 DATA SHIRT,SURFBOARD,VERSATILITY 920 DATA WATER,TELEPHONE,VITALIZE 930 DATA DRINK,MOUTH,KLEPTOMANIAC 940 DATA NUMBER,MULTIPLY,NYMPHOMANIA 950 DATA TRAY,DRAWER,SYNCRONIZATION 960 DATA STOP,CATIPILLAR,GYNECOLOGIST 970 DATA TALL,BOOKLET,PHILANTHROPIST 980 DATA LONG,KEYBOARD,AMBIDEXTERITY 990 DATA SHORT,MANSION,Sent will choose a word" 110 PRINT " and draw spaces representing the letters that make up the word." 120 PRINT 130 PRINT " You must guess the letters. Each incorrect guess will add a" 140 PRINT " new part of body to the HANGMAN's scaffold. So you have to be" 150 PRINT " sharp; otherwise . . . . . it's been good to know you!" 160 PRINT 170 PRINT " There are three skill levels of play, with `1' being easiest." 180 PRINT 190 PRINT " You may change the level after each game. ";:0 THEN PRINT Y$"0"CHR$(96+W)L$; 310 PRINT G$;:C=0:IF T=S THEN 480 320 IF D=1 THEN RETURN 330 PRINT Y$"84"P$" Guess a letter - "Q$" "Y5$;:L$=INPUT$(1):PRINT X5$L$ 340 IF (ASC(L$)<65 OR ASC(L$)>90) AND (ASC(L$)<97 OR ASC(L$)>122) THEN 330 350 IF ASC(L$)>90 THEN L$=CHR$(ASC(L$)-32) 360 PRINT E$"l";:FOR X=1 TO S:IF L$=A1$(X) THEN PRINT " ":GOTO 330 370 IF L$=A$(X) THEN A1$(X)=A$(X):C=1:T=T+1 380 NEXT X:IF C=1 THEN 290 390 W=W+1:ON W GOTO 620,630,640,650,660,670 400 D=1:FOR X=1 TO S:A1$(X)=A$(X):NEXD THE RIGHT"Y$"&OLETTERS AND GOT YOU OFF!" 520 GOTO 430 530 X$=Y$+"9%}i|":V$="x x":W$="y y" 540 PRINT E$"x3"Y$" "F$STRING$(36,"{"):PRINT X$" "V$Y$"!F"U$"r" 550 PRINT X$" "V$:PRINT X$" "V$:PRINT X$V$:PRINT X$" x":PRINT X$"x" 560 FOR X=1 TO 6:PRINT X$:NEXT X 570 PRINT X$"y":PRINT X$" y":PRINT X$W$:PRINT X$" "W$:PRINT X$" "W$ 580 PRINT " "STRING$(27,"p")STRING$(20,"z")STRING$(11,"p") 590 PRINT Y$Q1$"G|"Y$"#G|"Y$"$Exzzy"Y$"%E| }"Y$"&Ey{{x" 600 PRINT Y$"0RLETTERS USED -"Y$"54WORD h "E$"j"G$; 700 DATA BOOK,TELEVISION,UNDERSTAND 710 DATA DOOR,RADIO,INCONVENIENT 720 DATA NURSE,CONDITION,PHOTOGRAPHIC 730 DATA CLOSE,PRINT,SYZYGY 740 DATA ERASE,LIBRARY,QUARTZ 750 DATA TALK,SCHOOL,ANTHROPOLOGY 760 DATA WALK,COLLEGE,MELANCHOLY 770 DATA LOOK,PRINCIPLE,MOSAIC 780 DATA TREE,RECORDER,QUAVER 790 DATA HOUSE,PAUSE,MYSTERY 800 DATA AUTO,LUNCH,ORGANIC 810 DATA TRUCK,HOUSE,QUALIFY 820 DATA SKATE,MIDDLE,MYTHOLOGICAL 830 DATA BALL,FIREPLACE,ORCHESTRATE 840 DATA MOST,ALIGNMENT,PREJUDICE 850 DATA ALWUPERCILIOUS 1000 DATA SMALL,CHRISTMAS,TRANQUILLITY 1010 DATA SAVE,TRESPASS,TYRANNY 1020 DATA KEYS,COMMITTEE,PSEUDONYM 1030 DATA ENTER,PACIFY,EXTINGUISHER 1040 DATA CROSS,PROGRAM,HETEROGENEOUS 1050 DATA ACROSS,EDUCATION,SURREPTITIOUS 1060 DATA MOUSE,STOVE,EXTRAVAGANT 1070 DATA DUCK,MONTH,DISPROPORTIONATELY 1080 DATA MONEY,SATURDAY,ENTHUSIASTIC 1090 DATA COIN,DRUNKARD,ENCYCLOPEDIA 1100 DATA FLOOR,NORMAL,EUPHEMISM 1110 DATA BROWN,ULTIMATE,IONIZATION 1120 DATA HOLD,TEMPERATURE,JEOPARDIZE 1130 DATA    STAIRS,COMMISSIONER,JODHPURS 1140 DATA BIKE,FATIGUE,LARYNX 1150 DATA TABLE,JEOPARDY,KNUCKLE 1160 DATA GRADE,LITERATURE,EFFERVERSCENT 1170 DATA TEACHER,ADMIRE,FRAUDULENT 1180 DATA GREY,TERMINAL,PARTISANSHIP 1190 DATA 000,000,000 DE,LITERATURE,EFFERSTOVE,EXTRAVAGANT 1070 DATA DUCK,MONTH,DISPROPORTIONATELY 1080 DATA MONEY,SATURDAY,ENTHUSIASTIC 1090 DATA COIN,DRUNKARD,ENCYCLOPEDIA 1100 DATA FLOOR,NORMAL,EUPHEMISM 1110 DATA BROWN,ULTIMATE,IONIZATION 1120 DATA HOLD,TEMPERATURE,JEOPARDIZE 1130 DATA10 REM THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAME 20 REM FOR 2-4 PLAYERS 30 INPUT "HOW MANY PLAYERS (2-4)";P1 40 PRINT CHR$(26) : PRINT : PRINT : PRINT TAB(10);"* S * T * A * R **"; 50 PRINT " L * A * N * E * S *" 60 DIM M(10,13),S(5,4),N$(5),D1(5),S1(5),Q(5) 65 DIM MX$(5),B(10),P$(10),RX(10),CX(10),B1(10) 70 MX$(5)="ERIDANI EXPEDITERS" : FOR I=1 TO 5 : FOR J=1 TO 4 : S(I,J)=0 : NEXT J 75 D1(I)=0 : S1(I)=100 : Q(I)=0 : B(I)=6000 : NEXT I 80 MX$(3)="CAPELLA FREIGHT CO." : MX$(4)="DENEBOLAYER TO MOVE." 185 K=0 190 P=I : GOTO 220 200 K=K+1 :IF K=48 THEN 9500 210 P=P+1 :IF P=P1+1 THEN P=1 220 FOR I=1 TO 5 230 RX(I)=INT(9*RND(1)+1) : CX(I)=INT(12*RND(1)+1) 240 FOR I1=I-1 TO 0 STEP-1 :IF RX(I)=RX(I1) AND CX(I)=CX(I1) THEN 230 250 NEXT I1 :IF M(RX(I),CX(I))>1 THEN 230 260 FOR I1=1 TO 5 :IF Q(I1)=0 THEN 340 270 NEXT I1 :IF M(RX(I),CX(I)+1)>3 OR M(RX(I),CX(I)-1)>3 THEN 340 280 IF M(RX(I)+1,CX(I))>3 OR M(RX(I)-1,CX(I))>3 THEN 340 290 A1=M(RX(I),CX(I)+1) : A2=M(RX(I),CX(I)-1) 300 A3=M(R MOVES FOR THIS TURN:" 360 FOR I=1 TO 5 : PRINT RX(I);MID$(M$,CX(I),1);" /"; : NEXT I : PRINT 370 INPUT "WHAT IS YOUR MOVE";R$ :IF LEFT$(R$,1)="M" THEN GOSUB 1000 : GOTO 345 372 IF LEFT$(R$,1)="S" THEN GOSUB 1440 : GOTO 345 375 R=VAL(LEFT$(R$,1)) 380 C=ASC(RIGHT$(R$,1))-64 : FOR I=1 TO 5 :IF R=RX(I) AND C=CX(I) THEN 400 390 NEXT I : PRINT "THAT SPACE WAS NOT INCLUDED IN THE LIST..." : GOTO 370 400 A1=M(R-1,C) : A2=M(R+1,C) : A3=M(R,C+1) : A4=M(R,C-1) 410 IF A1<=1 AND A2<=1 AND A3<=1 AND A4<=1 THEN )=S1(I)+100 : M(R,C)=I+3 : GOTO 700 660 FOR I=1 TO 5 :IF Q(I)=0 THEN 680 670 NEXT I:IF M(R,C)<3 THEN M(R,C)=2 : GOTO 800 680 GOSUB 7900 : PRINT "A NEW SHIPPING COMPANY HAS BEEN FORMED!" 690 PRINT "IT'S NAME IS ";MX$(I) : S(I,P)=S(I,P)+5 : Q(I)=1 695 PRINT : PRINT : PRINT : PRINT : PRINT 700 IF A1=3 THEN S1(I)=S1(I)+500 710 IF A2=3 THEN S1(I)=S1(I)+500 720 IF A3=3 THEN S1(I)=S1(I)+500 730 IF A4=3 THEN S1(I)=S1(I)+500 740 IF A1=2 THEN S1(I)=S1(I)+100 : Q(I)=Q(I)+1 : M(R-1,C)=I+3 750 IF A2=2 THEN SA SHIPPERS" 90 MX$(1)="ALTAIR STARWAYS" : MX$(2)="BETELGEUSE, LTD." 100 L$=".+*ABCDE" : M$="ABCDEFGHIJKL" : FOR I=1 TO 9 : FOR J=1 TO 12 110 IF INT(RND(1)*20)+1<>10 THEN M(I,J)=1 : GOTO 130 120 M(I,J)=3 130 NEXT J,I 140 INPUT "DOES ANYBODY NEED INSTRUCTIONS";R$ 150 IF LEFT$(R$,1)="Y" THEN GOSUB 8000 160 FOR I=1 TO P1 : PRINT "PLAYER ";I; : INPUT "WHAT IS YOUR NAME";P$(I) 170 NEXT I : PRINT : PRINT "NOW I WILL DECIDE WHO GOES FIRST..." : PRINT 180 I=INT(P1*RND(1)+1) : PRINT P$(I);" IS THE FIRST PLX(I)+1,CX(I)) : A4=M(RX(I)-1,CX(I)) 310 IF A1=2 AND A2<4 AND A3<4 AND A4<4 THEN 230 315 IF A2=2 AND A1<4 AND A3<4 AND A4<4 THEN 230 320 IF A3=2 AND A1<4 AND A2<4 AND A4<4 THEN 230 325 IF A4=2 AND A1<4 AND A2<4 AND A3<4 THEN 230 330 IF A1=3 AND A2<4 AND A3<4 AND A4<4 THEN 230 332 IF A2=3 AND A1<4 AND A3<4 AND A4<4 THEN 230 335 IF A3=3 AND A1<4 AND A3<4 AND A4<4 THEN 230 337 IF A4=3 AND A1<4 AND A2<4 AND A3<4 THEN 230 340 NEXT I : GOSUB 1000 : PRINT 345 PRINT P$(P); 350 PRINT ", HERE ARE YOUR LEGALM(R,C)=2 : GOTO 800 420 IF A1>3 AND A2>3 AND A2<>A1 THEN GOSUB 1060 430 IF A1>3 AND A3>3 AND A3<>A1 THEN GOSUB 1060 440 IF A1>3 AND A4>3 AND A4<>A1 THEN GOSUB 1060 450 IF A2>3 AND A3>3 AND A3<>A2 THEN GOSUB 1060 460 IF A2>3 AND A4>3 AND A4<>A2 THEN GOSUB 1060 470 IF A3>3 AND A4>3 AND A3<>A4 THEN GOSUB 1060 480 IF A1<4 AND A2<4 AND A3<4 AND A4<4 THEN 660 490 IF M(R,C)>3 THEN 800 500 IF A1>3 THEN I=A1-3 510 IF A2>3 THEN I=A2-3 520 IF A3>3 THEN I=A3-3 530 IF A4>3 THEN I=A4-3 540 Q(I)=Q(I)+1 : S1(I1(I)=S1(I)+100 : Q(I)=Q(I)+1 : M(R+1,C)=I+3 760 IF A3=2 THEN S1(I)=S1(I)+100 : Q(I)=Q(I)+1 : M(R,C+1)=I+3 770 IF A4=2 THEN S1(I)=S1(I)+100 : Q(I)=Q(I)+1 : M(R,C-1)=I+3 780 IF S1(I)>=3000 THEN T1=I : GOSUB 1400 790 M(R,C)=I+3 800 FOR I=1 TO 5 : B(P)=B(P)+INT(.05*S(I,P)*S1(I)) : NEXT I 810 FOR I=1 TO 5 :IF Q(I)=0 THEN 900 820 PRINT "YOUR CURRENT CASH= $";B(P) 830 PRINT "BUY HOW MANY SHARES OF ";MX$(I);" AT $";S1(I) : PRINT TAB(5); 840 PRINT "YOU NOW OWN ";S(I,P); 850 INPUT R3$ :IF LEFT$(R3$,1)="M" T   HEN R3$="" : GOSUB 1000 : GOTO 830 855 IF LEFT$(R3$,1)="S" THEN R3$="" : GOSUB 1440 : GOTO 830 856 R3=VAL(R3$) : R3$="" 860 IF R3*S1(I)<=B(P) THEN 880 870 PRINT "YOU ONLY HAVE $";B(P);"- TRY AGAIN" : GOTO 830 880 IF R3=0 THEN 900 890 S(I,P)=S(I,P)+R3 : B(P)=B(P)-(R3*S1(I)) 900 NEXT I : GOTO 200 1000 PRINT CHR$(26) : PRINT TAB(22);"MAP OF THE GALAXY" 1010 PRINT TAB(21);"*******************" 1020 PRINT TAB(13);"A B C D E F G H I J K L" 1030 FOR R2=1 TO 9 : PRINT TAB(9);R2; : FOR C2=1 T140 X=F3 : GOSUB 1180 1150 IF F4=T1 OR A4<4 THEN 1170 1160 X=F4 : GOSUB 1180 1170 RETURN 1180 GOSUB 7900 : PRINT MX$(X);" HAS JUST BEEN MERGED INTO "; 1190 PRINT MX$(T1);"!" : PRINT "PLEASE NOTE THE FOLLOWING TRANSACTIONS : " 1200 PRINT : PRINT TAB(4);"OLD STOCK = ";MX$(X);" NEW STOCK = "; 1210 PRINT MX$(T1) : PRINT 1220 PRINT "PLAYER";TAB(10);"OLD STOCK";TAB(22);"NEW STOCK";TAB(34); 1230 PRINT " TOTAL HOLDINGS";TAB(53);"BONUS PAID" 1240 FOR I=1 TO P1 : PRINT P$(I);TAB(10);S(X,I);TAB(22);INT(( 1320 Q(T1)=Q(T1)+Q(X) : S1(T1)=S1(T1)+S1(X) :IF S1(T1)>3000 THEN GOSUB 1400 1321 F3=A3-3 :IF F3<0 THEN F3=0 1322 F4=A4-3 :IF F4<0 THEN F4=0 1340 S1(X)=100 : Q(X)=0 : FOR I=1 TO P1 : S(X,I)=0 : NEXT I 1355 PRINT : PRINT : PRINT : PRINT : PRINT 1360 M(R,C)=T1+3 1370 RETURN 1400 GOSUB 7900 : PRINT "THE STOCK OF "; 1410 PRINT MX$(T1);" HAS SPLIT 2 FOR 1!" : S1(T1)=INT(S1(T1)/2) 1415 PRINT : PRINT : PRINT : PRINT : PRINT 1420 FOR I1=1 TO P1 : S(T1,I1)=2*S(T1,I1) : NEXT I1 1430 RETURN 1440 PRINT CT TAB(50);"NET WORTH" : PRINT 9530 FOR I=1 TO P1 : FOR J=1 TO 5 : D1(I)=D1(I)+(S1(J)*S(J,I)) : NEXT J,I 9540 FOR I=1 TO P1 : PRINT P$(I);TAB(10);"$";D1(I);TAB(33);"$";B(I); 9550 PRINT TAB(50);"$";D1(I)+B1(I) : D1(I)=0 : B1(I)=0 : NEXT I 9560 INPUT "ANOTHER GAME";R$ :IF LEFT$(R$,1)="Y" THEN 70 9999 END RINT TAB(50);"$";D1(I)+B1(I) : D1(I)=0 : B1(I)=0 : NEXT I 9560 INPUT "ANE ARE THE FINAL STANDINGS: " 9505 PRINT 9510 PRINT "PLAYER";TAB(10);"CASH VALUE OF STOCK";TAB(33);"CASH ON HAND "; 9520 PRIN1 PRINT CHR$(26);TAB(23);"MILLIONAIRE" 2 PRINT TAB(20);"CREATIVE COMPUTING" 3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 4 PRINT:PRINT:PRINT 5 F$="$###,###" 10 REM MILLIONAIRE BY CRAIG GUNNETT 20 PRINT "THIS IS THE GAME OF 'MILLIONAIRE'. ALL YOU MUST DO IS" 30 PRINT "TYPE IN YOUR NAME AND ANSWER SOME QUESTIONS. THE" 40 PRINT "DECISIONS YOU MAKE WILL DETERMINE HOW MUCH MONEY YOU" 50 PRINT "MAKE. AT THE TIME OF YOUR DEATH, YOUR LIFE WILL BE" 60 PRINT "RATED BY THE AMOUNT OF MONEY YOU MADE THROUGHOO 12 : PRINT " "; 1040 PRINT MID$(L$,M(R2,C2),1);" "; : NEXT C2 : PRINT : NEXT R2 1050 RETURN 1060 F1=A1-3 :IF F1<0 THEN F1=0 1061 F2=A2-3 :IF F2<0 THEN F2=0 1062 F3=A3-3 :IF F3<0 THEN F3=0 1064 F4=A4-3 :IF F4<0 THEN F4=0 1065 T=Q(F1) : T1=F1 :IF Q(F2)>Q(F1) THEN T=Q(F2) : T1=F2 1070 IF Q(F3)>T THEN T=Q(F3) : T1=F3 1080 IF Q(F4)>T THEN T=Q(F4) : T1=F4 1090 IF F1=T1 OR A1<4 THEN 1110 1100 X=F1 : GOSUB 1180 1110 IF F2=T1 OR A2<4 THEN 1130 1120 X=F2 : GOSUB 1180 1130 IF F3=T1 OR A3<4 THEN 1150 1.5*S(X,I))+.5); 1250 PRINT TAB(34);S(T1,I)+INT((.5*S(X,I))+.5); 1260 X1=0 : FOR I1=1 TO P1 : X1=X1+S(X,I1) : NEXT I1 1265 PRINT TAB(53); 1270 PRINT " $";INT(10*((S(X,I)/X1)*S1(X))) : NEXT I 1290 FOR I=1 TO P1 : S(T1,I)=S(T1,I)+INT((.5*S(X,I))+.5) 1300 B(I)=B(I)+INT(10*((S(X,I)/X1)*S1(X))) : NEXT I 1310 FOR I=1 TO 9 : FOR J=1 TO 12 :IF M(I,J)=X+3 THEN M(I,J)=T1+3 1315 NEXT J,I 1317 A1=M(R-1,C) : A2=M(R+1,C) : A3=M(R,C+1) : A4=M(R,C-1) 1318 F1=A1-3 :IF F1<0 THEN F1=0 1319 F2=A2-3 :IF F2<0 THEN F2=0HR$(26) : PRINT 1450 PRINT "STOCK";TAB(30);"PRICE PER SHARE";TAB(50);"YOUR HOLDINGS" 1460 FOR I3=1 TO 5 :IF S1(I3)=100 THEN 1480 1470 PRINT MX$(I3);TAB(30);S1(I3);TAB(50);S(I3,P) 1480 NEXT I3 : RETURN 7900 REM 7910 PRINT TAB(22);"SPECIAL ANNOUNCEMENT!!" : PRINT 7920 RETURN 8000 PRINT "SORRY, NO DIRECTIONS YET." 8760 RETURN 9500 GOSUB 7900 : PRINT "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS: " 9505 PRINT 9510 PRINT "PLAYER";TAB(10);"CASH VALUE OF STOCK";TAB(33);"CASH ON HAND "; 9520 PRINUT" 70 PRINT "YOUR LIFE. IF YOU HAVE MADE $1,000,000 , YOU WILL BE" 80 PRINT "A MILLIONAIRE AND WIN THE GAME. NAME PLEASE"; 100 LET O=-1 110 DIM A$(20),Z$(1),M$(36),S(9),Q(16) 120 FOR I=1 TO 4 130 LET S(I)=150 140 NEXT I 150 INPUT A$ 160 PRINT 170 PRINT "O.K., ";A$;", THIS IS YOUR NEW LIFE!" 180 LET M$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 190 IF RND(1)>.5 GOTO 220 200 PRINT "ON A BIG FARM"; 210 GOTO 230 220 PRINT "IN A SMALL TOWN"; 230 LET T=INT(RND(1)*12)+1 240 PRINT ", ON ";MID$(M   $,3*T-2,3);INT(RND(1)*28)+1;CHR$(8);", 1980,"; 250 PRINT " ";A$;" IS BORN." 260 PRINT "YOUR PARENTS ARE VERY "; 270 IF RND(1)>.5 GOTO 310 280 PRINT "RICH. "; 290 LET M=INT(RND(1)*5000)+10000 300 GOTO 330 310 PRINT "POOR. "; 320 LET M=INT((RND(1)+RND(1))/2*1000) 330 LET T=INT(RND(1)*12)+1 340 LET Y=1996+INT(RND(1)*10) 350 PRINT "ON ";MID$(M$,T*3-2,3);T*2;CHR$(8);",";Y;CHR$(8);", YOU" 360 PRINT "LEAVE HOME WITH ";:PRINT USING F$;M;:PRINT "." 370 LET Y=Y+INT(RND(1)*3)+1 380 GOSUB 680 390 FOR JVE ";:PRINT USING F$;M;:PRINT "." 540 LET Q=INT(13*RND(1))+1 550 IF Q(Q)=1 GOTO 540 560 LET Q(Q)=1 570 ON Q GOTO 890, 1010, 1100, 1220, 1280, 1430, 1530 580 ON (Q-7) GOTO 1850, 1930, 2060, 2120, 2240, 2280 590 PRINT "YOU NOW HAVE ";:PRINT USING F$;M;:PRINT "." 600 IF O=-2 GOTO 1530 610 IF J=1 GOTO 640 620 LET M=M+(E-C)*Y9 630 PRINT "YOUR EARNINGS AND EXPENSES LEAVE YOU WITH ";: PRINT USING F$;M;:PRINT "." 640 LET Y9=INT(RND(1)*6)+5 650 LET Y=Y+Y9 660 NEXT J 67D(1)+RND(1))*5000) 860 PRINT ". YOU EARN ";:PRINT USING F$;E;:PRINT " A YEAR." 870 PRINT "YOU ADJUST YOUR EXPENSES TO ";:PRINT USING F$;C;:PRINT" A YEAR." 880 RETURN 890 PRINT "YOU GO TO LAS VEGAS TO GAMBLE. HOW MUCH DO YOU BET"; 900 INPUT S 910 PRINT 920 IF S<=0 GOTO 1000 930 IF RND(1)>.7 GOTO 970 940 LET S2=-INT(RND(1)*S) 950 PRINT "HA! HA! YOU LOST ";:PRINT USING F$;-S2;:PRINT "." 960 GOTO 990 970 LET S2=INT((RND(1)+RND(1))*S) 980 PRINT "YOU WON ";:PRINT USING F$;S2;:PRINT "." 990 LET MY HYPNOTIC FLU! (OH!)." 1140 GOTO 1180 1150 PRINT "COMPUTERITIS." 1160 GOTO 1180 1170 PRINT "INFECTIOUS FATALY REOCCURING CHRONIC BAD BREATH." 1180 LET U=INT(RND(1)*1000)+500 1190 LET M=M-U 1200 PRINT "HEALTH EXPENSES COST YOU ";:PRINT USING F$;U;:PRINT "." 1210 GOTO 590 1220 LET F=INT(RND(1)*100000!) 1230 LET C8=INT(F/2)-INT(RND(1)*(F/2)) 1240 PRINT "YOUR GRANDFATHER GROVERS JUST DIED. (OH!) HE LEFT" 1250 PRINT "YOU ";:PRINT USING F$;F;:PRINT ", BUT FUNERAL EXPENSES ARE ";: PRINT USING FG F$;R6;: PRINT ". YOU NOW EARN ";:PRINT USING F$;E;:PRINT "." 1420 GOTO 590 1430 PRINT "THE DOCTOR SAYS YOU NEED A VACATION. DO YOU GO"; 1440 INPUT Z$ 1445 Z$=LEFT$(Z$,1) 1450 PRINT 1460 LET V=INT(RND(1)*2000)+1000 1470 IF Z$="N" GOTO 1500 1480 PRINT "GOOD, THE VACATION COSTS ";:PRINT USING F$;V;:PRINT "." 1490 GOTO 1510 1500 PRINT "YOU JUST HAD A NERVOUS BREAKDOWN. MEDICAL COSTS ";: PRINT USING F$;-V;:PRINT "." 1510 LET M=M-V 1520 GOTO 590 1530 FOR I=1 TO 4 1540 LET S(I)=INT(=1 TO 13 400 IF (J/3)-INT(J/3)+E=0 THEN GOSUB 680 410 LET D=INT(28*RND(1))+1 420 LET M1=(INT(12*RND(1))+1)*3 430 PRINT 440 PRINT MID$(M$,M1-2,3);D;CHR$(8);",";Y 450 IF Y-1980<70 GOTO 500 460 IF RND(1)>.5 GOTO 500 470 PRINT "YOU ARE DEAD (COULD'NT TELL, COULD YOU?) AT THE" 480 PRINT "AGE OF";Y-1980;CHR$(8);"." 490 GOTO 2370 500 IF M>=0 GOTO 540 510 LET I=INT(.07*Y9*(-M)) 520 LET M=M-I 530 PRINT "THE INTEREST ON YOUR LOAN IS ";:PRINT USING F$;I;: PRINT ". YOU HA0 GOTO 470 680 REM JOB SUB 690 PRINT "YOU GOT A NEW JOB AS A "; 700 ON INT(RND(1)*5)+1 GOTO 740, 770, 800, 830 710 PRINT "TEACHER"; 720 LET E=INT(RND(1)*4000)+17000 730 GOTO 850 740 PRINT "LAWYER"; 750 LET E=INT(RND(1)*40000!)+80000! 760 GOTO 850 770 PRINT "COMPUTER PROGRAMMER"; 780 LET E=INT(RND(1)*5000)+20000 790 GOTO 850 800 PRINT "BUS DRIVER"; 810 LET E=INT(RND(1)*2000)+16000 820 GOTO 850 830 PRINT "FOOTBALL PLAYER"; 840 LET E=INT(RND(1)*100000!)+100000! 850 LET C=E-10000+INT((RN=M+S2 1000 GOTO 590 1010 PRINT "YOU ARE OFFERED A COIN SUPPOSEDLY WORTH $100,000." 1020 PRINT "DO YOU BUY IT"; 1030 INPUT Z$ 1035 Z$=LEFT$(Z$,1) 1040 PRINT 1050 LET V7=INT(RND(1)*200000!)+1 1060 IF Z$<>"Y" GOTO 1080 1070 LET M=M-100000!+V7 1080 PRINT "THE VALUE OF THE COIN IS ";:PRINT USING F$;V7;:PRINT "." 1090 GOTO 590 1100 PRINT "YOU ARE SERIOUSLY SICK. (COULDN'T TELL, COULD YOU?)" 1110 PRINT "YOU HAVE "; 1120 ON (INT(RND(1)*3)+1) GOTO 1150, 1170 1130 PRINT "THE ASIO-DISPEPSIA REGIONAL$;C8;:PRINT "." 1260 LET M=M-C8+F 1270 GOTO 590 1280 IF E=0 GOTO 890 1290 PRINT "NEWS FROM YOUR BOSS:" 1300 ON (INT(RND(1)*3)+1) GOTO 1350, 1390 1310 LET L=INT(RND(1)*3000)+1 1320 LET E=E-L 1330 PRINT "YOU GOT A ";:PRINT USING F$;L;: PRINT " DECREASE IN PAY. YOU NOW EARN ";:PRINT USING F$;E;:PRINT "." 1340 GOTO 590 1350 PRINT "YOU'RE FIRED! (HA!)" 1360 LET E=0 1370 LET C=INT(C/4) 1380 GOTO 590 1390 LET R6=INT(RND(1)*5000)+1 1400 LET E=E+R6 1410 PRINT "YOU GOT A RAISE OF ";:PRINT USIN(INT(RND(1)*100)+100+2*S(I))/3) 1550 NEXT I 1560 PRINT "# STOCK NAME PRICE SHARES OWNED" 1562 PRINT "-- ---------- ----- ------------" 1570 PRINT "1 IBM (INCREDIBLY BAD MACHINES) ";S(1);" ";S(5) 1580 PRINT "2 USS (USELESS & STINKY STEEL) ";S(2);" ";S(6) 1590 PRINT "3 NCR (NO CASH RETURN) ";S(3);" ";S(7) 1600 PRINT "4 TWA (TOTAL WRECK AIRLINES) ";S(4);" ";S(8) 1602 PRINT 1610 IF S(9)=1 GOTO 2410 1620 PRINT "DO YOU BUY, SELL    ($100 FEE), OR NOT (B,S, OR N)"; 1630 INPUT Z$ 1635 Z$=LEFT$(Z$,1) 1640 PRINT 1650 IF Z$="S" GOTO 1740 1660 IF Z$="N" GOTO 1810 1670 PRINT "STOCK # AND QUANTITY"; 1680 INPUT S3,S(0) 1690 PRINT 1700 LET S(4+S3)=S(4+S3)+S(0) 1710 LET O=-2 1720 LET M=M-S(S3)*S(0)-100 1730 GOTO 1620 1740 PRINT "STOCK # AND QUANTITY"; 1750 INPUT S2,S5 1760 IF RND(1)<.5 GOTO 1880 1770 IF S5>S(4+S2) GOTO 1740 1780 LET S(4+S2)=S(4+S2)-S5 1790 LET M=M+S(S2)*S5-100 1800 GOTO 1620 1810 LET S1=S(5)+S(6)+S(7)+S(8A HEART ATTACK"; 1990 GOTO 2010 2000 PRINT "LEUKEMIA"; 2010 LET M2=INT(RND(1)*5000)+1000 2020 LET M=M-M2 2030 PRINT ". MEDICAL BILLS ARE ";:PRINT USING F$;M2;:PRINT "." 2040 IF RND(1)<.5 GOTO 470 2050 GOTO 590 2060 PRINT "YOU JUST HAD A CAR ACCIDENT! MEDICAL COSTS" 2070 LET M3=INT(RND(1)*3000)+1000 2080 LET Q7=INT(RND(1)*5000)+100 2090 PRINT "ARE ";:PRINT USING F$;M3;:PRINT ". REPAIRS COST ";: PRINT USING F$;Q7;:PRINT "." 2100 LET M=M-M3-Q7 2110 GOTO 590 2120 IF E=0 GOTO 1010 2130 L 2280 IF O=-1 GOTO 1430 2290 IF RND(1)>.7 GOTO 1430 2300 LET B4=INT(RND(1)*4) 2310 PRINT "STOCK MARKET CRASH!!! EACH OF YOUR";S1;"SHARES OF" 2320 PRINT "STOCK IS WORTH ";:PRINT USING F$;B4;: PRINT ". YOU MUST SELL ALL OF THEM" 2330 PRINT "FOR A TOTAL OF ";:PRINT USING F$;S1*B4;:PRINT "." 2340 LET M=M+S1*B4 2350 LET O=-1 2360 GOTO 590 2370 PRINT "YOU HAD ";:PRINT USING F$;M;:PRINT "." 2380 IF O=-1 GOTO 2430 2390 LET S(9)=1 2400 GOTO 1530 2410 LET M=M+S(1)*S(5)+S(2)*S(6)+S(3)*S(7)+S(4)*S(8IRE', ";A$;"!!!!" 2545 PRINT:PRINT 2550 END "CLOSE, ";A$;". MAYBE NEXT LIFE." 2540 PRINT "THANKS FOR PLAYING 'MILLIONA50 IF M<1E+06 GOTO 2530 2460 PRINT A$;" WON!! YOU ARE A MILLIONAIRE!!" 2470 GOTO 2540 2480 PRINT "YOU LOUSY #$%&'*!!! NOW YOUR POOR FAMILY HAS TO PAY" 2490 PRINT "OFF YOUR DEBTS.......................... " 2500 GOTO 2540 2510 PRINT "NOT BAD, ";A$;"." 2520 GOTO 2540 2530 PRINT "CLOSE, ";A$;". MAYBE NEXT LIFE." 2540 PRINT "THANKS FOR PLAYING 'MILLIONA100 ' this originaly appeared on the CP/M User's Group disc #21 of unknown authorship as 'APOLLO'. L.P.Biese is responsible for this version (June 1979) 110 PRINT CHR$(26):REM Screen clear 120 PRINT " *** THIS IS AN APOLLO SPACECRAFT MISSION ***" 130 PRINT 140 PRINT" A GIANT STEP FORWARD FOR MANKIND POSSIBLE ONLY" 150 PRINT" BY THE EFFORTS OF A THOUSAND UNSUNG HEROS WHO..." 160 PRINT 170 PRINT" 'BUT STAND AND WAIT'....(LINDBERG) ) 1820 IF S1>0 GOTO 610 1830 LET O=-1 1840 GOTO 610 1850 PRINT "NEWS FLASH!!! "; 1860 PRINT "A TORNADO HAS JUST HIT THE HOME OF ";A$;"." 1870 GOTO 1890 1880 PRINT "AN AIRPLANE HAS JUST CRASHED INTO THE HOME OF ";A$;"." 1890 LET D8=INT(RND(1)*50000!)+1 1900 LET M=M-D8 1910 PRINT "DAMAGES HAVE BEEN ESTIMATED AT ";:PRINT USING F$;D8;:PRINT "." 1920 GOTO 590 1930 PRINT "OH! YOU JUST GOT "; 1940 IF Y-1980<55 GOTO 2000 1950 IF RND(1)>.4 GOTO 1980 1960 PRINT "CANCER"; 1970 GOTO 2010 1980 PRINT "ET E2=10000+INT(RND(1)*5000) 2140 PRINT "YOU ARE OFFERED ANOTHER JOB FOR ";: PRINT USING F$;E2;:PRINT " A YEAR." 2150 PRINT "WOULD YOU LIKE TO MOONLIGHT"; 2160 INPUT Z$ 2170 PRINT 2180 IF LEFT$(Z$,1)="N" THEN 590 2190 ON INT(RND(1)*3) GOTO 1350, 2220 2200 LET E=E+E2 2210 GOTO 590 2220 PRINT "FROM OVERWORK YOU GET "; 2230 GOTO 1980 2240 LET R2=INT(RND(1)*10000)+5000 2250 LET M=M-R2 2260 PRINT "YOUR HOME HAS BEEN ROBBED OF GOODS WORTH ";: PRINT USING F$;R2;:PRINT "." 2270 GOTO 590 ) 2420 PRINT "WITH STOCK VALUE YOU HAVE ";:PRINT USING F$;M;:PRINT "." 2430 IF M<0 GOTO 2480 2440 IF M<500000! GOTO 2510 2450 IF M<1E+06 GOTO 2530 2460 PRINT A$;" WON!! YOU ARE A MILLIONAIRE!!" 2470 GOTO 2540 2480 PRINT "YOU LOUSY #$%&'*!!! NOW YOUR POOR FAMILY HAS TO PAY" 2490 PRINT "OFF YOUR DEBTS.......................... " 2500 GOTO 2540 2510 PRINT "NOT BAD, ";A$;"." 2520 GOTO 2540 2530 PRINT "CLOSE, ";A$;". MAYBE NEXT LIFE." 2540 PRINT "THANKS FOR PLAYING 'MILLIONA 180 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 190 PRINT:PRINT"STAND BY FOR BLAST OFF":PRINT 200 FOR I=1 TO 10:PRINT CHR$(7);:FOR J=2 TO 500:NEXT J,I 210 FOR A=1 TO 100 220 NEXT A 230 LET B=11 240 LET B=B-1 250 FOR C=1 TO 750:NEXT C 260 PRINT TAB(8) B; 270 IF B=0 THEN 300 280 GOTO 240 290 END 300 PRINT 310 GOTO 340 320 FOR D=1 TO 750:NEXT D 330 IF D=749 THEN 430 340 PRINT CHR$(26) 350 PRINT "***********************************************************" 360 PRINT "*********************************   **************************" 370 PRINT "**** BLAST OFF!!!!!!!! ****" 380 PRINT "***********************************************************" 390 PRINT "***********************************************************" 400 FOR E=1 TO 200 :NEXT E 410 PRINT:PRINT:PRINT:PRINT 420 OUT 2,26 430 PRINT " '" 440 PRINT " I" 450 PRINT " / ^ \" 460 PRINT " /^^^^^^^\" 470 PRINT " 590 PRINT " **************" 600 PRINT " ********************" 610 PRINT " *************" 620 PRINT " ********" 630 FOR H=1 TO 1000 640 NEXT H 650 FOR H=1 TO 30 660 PRINT" *" 670 PRINT" ***" 680 PRINT" ** **" 690 PRINT" ** **" 700 PRINT" *** * ***" 710 PRINT" ** ****** **" 720 PRINT" T" ** 922 PRINT" ** 923 PRINT" *** 924 PRINT" *** 925 PRINT " *** 926 PRINT" ** 927 PRINT" ** 928 PRINT" ** 929 PRINT" ** 930 PRINT" ** 931 PRINT 932 PRINT" \ / 933 PRINT" \\ // 934 PRINT" \\\\ //// 935 PRINT" \\\\\\\\\\\\\ //////////////// 936 PRINT 1000 PRIN0 PRINT CHR$(7); 1080 FOR I=1 TO 750 1090 NEXT I 1100 OUT 2,26 1110 PRINT:PRINT 1120 PRINT:PRINT:PRINT 1130 PRINT:PRINT:PRINT 1140 PRINT"NOTHING CAN POSSIBLY GO WRONG........"; 1150 FOR I=1 TO 750 1160 NEXT I 1170 PRINT"GO WRONG........"; 1180 FOR I=1 TO 50: NEXT I:GOTO 1170 1190 END NG........"; 1150 FOR I=1 TO 750 1160 NEXT I 1170 PRINT"GO WRONG........"; 1180 F************************************************" 1060 PRINT "***********************************************************" 107 I--USA--I" 480 PRINT " I-------I" 490 PRINT " I A I" 500 PRINT " I P I" 510 PRINT " I O I" 520 PRINT " I L I" 530 PRINT " I L I" 540 PRINT " / O \" 550 PRINT " / \" 560 PRINT " / \" 570 PRINT " ---------------" 580 PRINT " /\ /\ /\"  *****" 730 PRINT" ** **" 740 NEXT H 750 PRINT" ******** 760 PRINT" ******** 770 PRINT" ******** 780 PRINT" **** * 790 PRINT" ** * 800 PRINT" *** 810 PRINT" ** 820 PRINT" ** 830 PRINT" ** 840 PRINT" ** 850 PRINT" ** 860 PRINT" ** 870 PRINT" ** 880 PRINT" ** 890 PRINT" ** 900 PRINT" ** 910 PRINT" ** 920 PRINT" ** 921 PRINT "***********************************************************" 1010 PRINT "***********************************************************" 1020 PRINT "**** ****" 1030 PRINT "**** BOOM!!!!!!!!!!! ****" 1040 PRINT "**** ****" 1050 PRINT "***********************************************************" 1060 PRINT "***********************************************************" 107   1 'OSPOKER.BAS MBASIC 5.2 CP/M ver. POKER for OSBORNE-1. 2 'DOWNLOADED 07/82 FROM RCPM OF BRIAN KANTOR IN SAN DIEGO CA. 3 'OSBORNIZED BY TOM MCCORMICK 07/82 TO 52 CHAR SCREEN, RND 4 'PROMPT, OS-1 CLEAR SCREEN, AND LESS VERTICAL SPACING. 5 'WARNING: COMPUTER CONTINUES TO PLAY LIGHT!! 6 GOTO 10 7 SAVE "OSPOKER.BAS",A:STOP 10 DIM A(20),B(10) 20 DEF FNA(X) = INT(10*RND(1)) 30 DEF FNB(X) = X-100*INT(X/100) 34 '*** The following stmt is the only hdwe depen one. *** 35 WIDTH 52: CLS$=CHR." 62 PRINT:PRINT:PRINT 64 PRINT "To randomize the game, please enter the minutes" 65 PRINT "and seconds past the hour as a 4-digit number...." 67 PRINT: RANDOMIZE: PRINT 80 PRINT 90 O = 1 100 C = 500 'BANKROLL FOR COMPUTER 110 S = 500 'BANKROLL FOR HUMAN (PREVIOUSLY "SUCKER".) 120 P = 0 140 PRINT 150 IF C < = 5 THEN 3530 160 PRINT "THE ANTE IS $5. I WILL DEAL NOW ....." 170 PRINT 180 IF S > 5 THEN 200 190 GOSUB 3830 200 P = P+10 210 S = S-5 220 C = C-5 230 FOR Z = 1 TO 10 240 GOS 510 K = 0 520 PRINT "I CHECK" 530 GOTO 620 540 IF U < = 16 THEN 570 550 Z = 2 560 IF FNA(0) > = 1 THEN 580 570 Z = 35 580 V = Z+FNA(0) 590 GOSUB 3480 600 PRINT "I'LL OPEN WITH $";V;" "; 610 K = V 620 GOSUB 3050 630 GOSUB 650 640 GOTO 830 650 IF I < > 3 THEN 760 660 PRINT 670 PRINT "I WIN" 680 C = C+P 690 PRINT "NOW I HAVE $";C;"AND YOU HAVE $";S 700 PRINT "DO YOU WISH TO CONTINUE (Y-N)"; 710 INPUT H$ 720 IF H$ = "Y" THEN 120 725 IF H$ = "y" THEN 120 730 IF H$ = "N" THEN T U 'Number of the card you want to replace. 930 GOSUB 1730 940 NEXT Q 942 PRINT:PRINT 943 INPUT " --> PRESS RETURN WHEN YOU ARE FINISHED READING.";Z$ 947 PRINT CLS$ 950 PRINT "YOUR NEW HAND:" 960 N = 1 970 GOSUB 1850 980 Z = 10+T 990 FOR U = 6 TO 10 1000 IF INT(X/10^(U-6)) < > 10*INT(X/10^(U-5)) THEN 1020 1010 GOSUB 1730 1020 NEXT U 1030 PRINT 1040 PRINT "I AM TAKING";Z-10-T;"CARD. "; 1050 IF Z = 11+T THEN 1090 1060 PRINT "'S" 1070 PRINT 1080 GOTO 1100 1090 PRINT 1100 N = 6 1100 1380 PRINT "I'LL CHECK" 1390 GOTO 1460 1400 V = Z+FNA(0) 1410 GOSUB 3480 1420 PRINT "I'LL BET $";V 1430 K = V 1440 GOSUB 3060 1450 GOSUB 650 1455 'INPUT " --> PRESS RETURN WHEN YOU ARE FINISHED READING.";Z$ 1460 'PRINT CLS$ 1470 PRINT "NOW WE COMPARE HANDS" 1480 J$ = H$ 1490 K$ = I$ 1500 PRINT "MY HAND:" 1510 N = 6 1520 GOSUB 1850 1530 N = 1 1540 GOSUB 2170 1550 PRINT 1560 PRINT "YOU HAVE "; 1570 K = D 1580 GOSUB 3690 1590 H$ = J$ 1600 I$ = K$ 1610 K = M 1620 PRINT "AND I HAVE$(26): PRINT CLS$ 'CLR OS-1 SCREEN 38 PRINT "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" 40 PRINT "=-=-= WELCOME TO THE DRAW POKER CASINO. =-=-=" 42 PRINT "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" 43 PRINT 45 PRINT " WE EACH HAVE $500. THE ANTE IS $5." 50 PRINT " I WILL OPEN THE BETTING BEFORE THE DRAW." 55 PRINT " YOU BET AFTER THE DRAW." 56 PRINT " THERE IS NO BETTING LIMIT." 57 PRINT " WE MAY DRAW UP TO THREE CARDS." 60 PRINT " BET 0 TO FOLD. BET .5 TO CHECKUB 1740 250 NEXT Z 251 FOR I=1 TO 1000: NEXT I: PRINT CLS$ 260 PRINT "YOUR HAND:" 270 N = 1 280 GOSUB 1850 290 N = 6 300 I = 2 310 GOSUB 2170 320 'PRINT 330 IF I < > 6 THEN 470 340 IF FNA(0) < = 7 THEN 370 350 X = 11100 360 GOTO 420 370 IF FNA(0) > = 7 THEN 400 380 X = 11110 390 GOTO 420 400 IF FNA(0) > = 1 THEN 450 410 X = 11111 420 I = 7 430 Z = 23 440 GOTO 580 450 Z = 1 460 GOTO 510 470 IF U > = 13 THEN 540 480 IF FNA(0) > = 2 THEN 500 490 GOTO 420 500 Z = 0 4090 735 IF H$ = "n" THEN 4090 740 PRINT "I BEG YOUR PARDON." 742 PRINT "THE QUESTION REQUIRES A Y OR N ANSWER." 750 GOTO 700 760 IF I < > 4 THEN 810 770 PRINT 780 PRINT "YOU WIN" 790 S = S+P 800 GOTO 690 810 RETURN 830 PRINT "NOW WE DRAW -- HOW MANY CARDS DO YOU WANT"; 840 INPUT T 850 IF T = 0 THEN 980 860 Z = 10 870 IF T < 4 THEN 900 880 PRINT "THERE IS A 3 CARD DRAW LIMIT." 890 GOTO 840 900 PRINT "WHAT ARE THEIR NUMBERS? ENTER THEM SEPARATELY." 910 FOR Q = 1 TO T 920 INPU10 V = I 1120 I = 1 1130 GOSUB 2170 1140 B = U 1150 M = D 1160 IF V < > 7 THEN 1190 1170 Z = 28 1180 GOTO 1330 1190 IF I < > 6 THEN 1220 1200 Z = 1 1210 GOTO 1330 1220 IF U > 13 THEN 1270 1230 Z = 2 1240 IF FNA(0) < > 6 THEN 1260 1250 Z = 19 1260 GOTO 1330 1270 IF U > = 16 THEN 1320 1280 Z = 19 1290 IF FNA(0) < > 8 THEN 1310 1300 Z = 11 1310 GOTO 1330 1320 Z = 2 1330 K = 0 1340 GOSUB 3050 1350 IF T < > .5 THEN 1450 1360 IF V = 7 THEN 1400 1370 IF I < > 6 THEN 14 "; 1630 GOSUB 3690 1640 IF B > U THEN 670 1650 IF U > B THEN 780 1660 IF H$ = "A FLUSH" THEN 1700 1670 PRINT "THE HAND IS A DRAW" 1680 PRINT "ALL $";P;" REMAIN IN THE POT" 1690 GOTO 140 1700 IF FNB(M) > FNB(D) THEN 670 1710 IF FNB(D) > FNB(M) THEN 780 1720 GOTO 1670 1730 Z = Z+1 1740 A(Z) = 100*INT(RND(1)*3.999)+INT(12.999*RND(1)) 1770 FOR K = 1 TO Z-1 1771 IF K = Z THEN 1790 1780 IF A(Z) = A(K) THEN 1740 1790 NEXT K 1800 IF Z < = 10 THEN 1840 1810 N = A(U) 1820 A(U) = A(Z   ) 1830 A(Z) = N 1840 RETURN 1850 FOR Z = N TO N+4 'LIST HANDS RTN 1860 PRINT Z"-- "; 1870 GOSUB 1950 1880 PRINT " OF"; 1890 GOSUB 2070 1900 IF Z/2 < > INT(Z/2) THEN 1920 1920 NEXT Z 1930 PRINT 'This is blank line following hand display 1940 RETURN 1950 K = FNB(A(Z)) 1960 IF K < > 9 THEN 1980 1970 PRINT "JACK"; 1980 IF K < > 10 THEN 2000 1990 PRINT "QUEEN"; 2000 IF K < > 11 THEN 2020 2010 PRINT "KING"; 2020 IF K < > 12 THEN 2040 2030 PRINT "ACE"; 2040 IF K > = 9 THEN 20310 2250 X = 11111 2260 D = A(N) 2270 H$ = "A FLUS" 2280 I$ = "H IN" 2290 U = 15 2300 RETURN 2310 FOR Z = N TO N+3 2320 FOR K = Z+1 TO N+4 2330 IF B(Z) < = B(K) THEN 2390 2340 X = A(Z) 2350 A(Z) = A(K) 2360 B(Z) = B(K) 2370 A(K) = X 2380 B(K) = A(K)-100*INT(A(K)/100) 2390 NEXT K 2400 NEXT Z 2410 X = 0 2420 FOR Z = N TO N+3 2430 IF B(Z) < > B(Z+1) THEN 2470 2440 X = X+11*10^(Z-N) 2450 D = A(Z) 2460 GOSUB 2760 2470 NEXT Z 2480 IF X < > 0 THEN 2620 2490 IF B(N)+3 < > B(N 2750 RETURN 2760 IF U > = 11 THEN 2810 2770 U = 11 2780 H$ = "A PAIR" 2790 I$ = " OF " 2800 RETURN 2810 IF U < > 11 THEN 2910 2820 IF B(Z) < > B(Z-1) THEN 2870 2830 H$ = "THREE" 2840 I$ = " " 2850 U = 13 2860 RETURN 2870 H$ = "TWO P" 2880 I$ = "AIR, " 2890 U = 12 2900 RETURN 2910 IF U < > 12 THEN 2960 2920 U = 16 2930 H$ = "FULL H" 2940 I$ = "OUSE, " 2950 RETURN 2960 IF B(Z) < > B(Z-1) THEN 3010 2970 U = 17 2980 H$ = "FOUR" 2990 I$ = " " 3000 RETURN 3010 U = 16 3020 H$ 240 IF G = K THEN 3380 3250 IF Z < > 1 THEN 3420 3260 IF G > 5 THEN 3300 3270 IF Z > = 2 THEN 3350 3280 V = 5 3290 GOTO 3420 3300 IF Z = 1 THEN 3320 3310 IF T < = 25 THEN 3350 3320 I = 4 3330 PRINT "I FOLD" 3340 RETURN 3350 IF Z = 2 THEN 3430 3360 PRINT "I'LL SEE YOU" 3370 K = G 3380 S = S-G 3390 C = C-K 3400 P = P+G+K 3410 RETURN 3420 IF G > 3*Z THEN 3350 3430 V = G-K+FNA(1) 3440 GOSUB 3480 3450 PRINT "I'LL SEE YOU,.. AND RAISE YOU $";V 3460 K = G+V 3470 GOTO 3060 3480 UT J$ 3630 IF J$ = "NO" THEN 3670 3640 C = C+50 3650 O = O/3 3660 RETURN 3669 '///// Next stmt needs activation \\\\\ 3670 PRINT "I'M BUSTED. CONGRATULATIONS" 3680 PRINT 3690 PRINT H$;I$; 3700 IF H$ < > "A FLUS" THEN 3750 3710 K = INT(K/100) 3720 GOSUB 2080 3730 'PRINT "*** 3730 *****************" 3740 RETURN 3750 K = FNB(K) 3760 GOSUB 1960 3770 IF H$ = "SCHMAL" THEN 3790 3780 IF H$ < > "STRAIG" THEN 3810 3790 PRINT " HIGH" 3800 RETURN 3810 PRINT "'S" 3820 RETURN 3830 PRINT "***60 2050 PRINT K+2; 2060 RETURN 2070 K = INT(A(Z)/100) 2080 IF K < > 0 THEN 2100 2090 PRINT " CLUBS"', TRYING TO GET I-UP LISTING <-- 2100 IF K < > 1 THEN 2120 2110 PRINT " DIAMONDS"', 2120 IF K < > 2 THEN 2140 2130 PRINT " HEARTS"', 2140 IF K < > 3 THEN 2160 2150 PRINT " SPADES"', 2160 RETURN 2170 U = 0 2180 FOR Z = N TO N+4 2190 B(Z) = FNB(A(Z)) 2200 IF Z = N+4 THEN 2230 2210 IF INT(A(Z)/100) < > INT(A(Z+1)/100) THEN 2230 2220 U = U+1 2230 NEXT Z 2240 IF U < > 4 THEN 2+3) THEN 2520 2500 X = 1111 2510 U = 10 2520 IF B(N+1)+3 < > B(N+4) THEN 2620 2530 IF U < > 10 THEN 2600 2540 U = 14 2550 H$ = "STRAIG" 2560 I$ = "HT, " 2570 X = 11111 2580 D = A(N+4) 2590 RETURN 2600 U = 10 2610 X = 11110 2620 IF U > = 10 THEN 2690 2630 D = A(N+4) 2640 H$ = "SCHMAL" 2650 I$ = "TZ, " 2660 U = 9 2670 X = 11000 2680 GOTO 2740 2690 IF U < > 10 THEN 2720 2700 IF I = 1 THEN 2740 2710 GOTO 2750 2720 IF U > 12 THEN 2750 2730 IF FNB(D) > 6 THEN 2750 2740 I = 6 = "FULL H" 3030 I$ = "OUSE, " 3040 RETURN 3050 G = 0 3060 PRINT " WHAT IS YOUR BET"; 3070 INPUT T 3080 IF T-INT(T) = 0 THEN 3140 3090 IF K < > 0 THEN 3120 3100 IF G < > 0 THEN 3120 3110 IF T = .5 THEN 3410 3120 PRINT "NO SMALL CHANGE, PLEASE" 3130 GOTO 3060 3140 IF S-G-T > O THEN 3170 3150 GOSUB 3830 3160 GOTO 3060 3170 IF T < > 0 THEN 3200 3180 I = 3 3190 GOTO 3380 3200 IF G+T > = K THEN 3230 3210 PRINT " IF YOU CAN'T SEE MY BET, THEN FOLD" 3220 GOTO 3060 3230 G = G+T 3 IF C-G-V > = 0 THEN 3660 3490 IF G < > 0 THEN 3520 3500 V = C 3510 RETURN 3520 IF C-G > = 0 THEN 3360 3530 IF O/2 < > INT(O/2) THEN 3600 3540 PRINT "WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50"; 3550 INPUT J$ 3560 IF J$ = "NO" THEN 3600 3570 C = C+50 3580 O = O/2 3590 RETURN 3599 '/////// Next stmt is not sufficient test for busted computer! \\\\ 3600 IF O/3 < > INT(O/3) THEN 3670 'IS COMPUTER BUSTED??????? 3610 PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50"; 3620 INP 3830 *******************" 3840 PRINT "YOU CAN'T BET WHAT YOU HAVEN'T GOT" 3850 IF O/2 = INT(O/2) THEN 3970 3860 PRINT "WOULD YOU LIKE TO SELL YOUR WATCH (Y-N)"; 3870 INPUT J$ 3880 IF J$ = "N" THEN 3970 3881 IF J$ = "n" THEN 3970 3890 IF FNA(1) > = 7 THEN 3930 3900 PRINT "I'LL GIVE YOU $75 FOR IT" 3910 S = S+75 3920 GOTO 3950 3930 PRINT "THAT'S A PRETTY CRUMMY WATCH, I'LL GIVE YOU $25. " 3940 S = S+25 3950 O = O*2 3960 RETURN 3970 IF O/3 = INT(O/3) THEN 4090 3980 PRINT "WILL YOU PAR   T WITH THAT DIAMOND TIE TACK (Y-N)"; 3990 INPUT J$ 4000 IF J$ = "N" THEN 4080 4001 IF J$ = "n" THEN 4080 4010 IF FNA(1) > = 6 THEN 4050 4020 PRINT "YOU ARE NOW $100 RICHER. " 4030 S = S+100 4040 GOTO 4070 4050 PRINT "IT'S PASTE, $25. " 4060 S = S+25 4070 LET O = O*3 4080 RETURN 4090 PRINT "I CERTAINLY ENJOYED THE GAME. COME AGAIN." 4100 FOR I=1 TO 1000: NEXT I 4140 END 070 LET O = O*3 4080 RETURN 4090 PRINT "I CERTAINLY ENJOYED THE GAME. COME AGAIN." 4100 FOR I=1 TO 1000: NEXT I 10 INPUT "ENTER A NUMBER";I3 20 PRINT "SWORDS AND SORCERY" 30 REM FROM AUG 1978 KILOBAUD MAGAZINE 40 PRINT 50 PRINT "You are a gallant but broke hero attempting to " 60 PRINT "rescue an elfin princess from the Necromancer's" 70 PRINT "dungeon located within a dark forest. In order to" 80 PRINT "accomplish the rescue you must pass safely thru" 90 PRINT "the forest to the dungeon, release the princess" 100 PRINT "and escort her to safety. You must also pick up" 110 PRINT "enough gold  Y1=C1 310 INPUT "DO YOU WISH TO CONSULT AN ORACLE";A$ 320 IF LEFT$(A$,1)="N" THEN 460 330 INPUT "HOW MANY MAIDENS SHOULD BE SACRIFICED";V1 340 V1=INT(V1) 350 IF V1>2*RND(1) THEN 380 360 PRINT "THE ORACLE IS OFFENDED" 370 C2=C2-1 380 IF V1*F1<10*RND(1) THEN 400 390 GOSUB 1550 400 IF C2<0 THEN 450 410 IF RND(1)<.4-(V1/10) THEN 450 420 PRINT "THE ORACLE SAYS PATH";Y1 430 P1=1 440 GOTO 460 450 PRINT "THE SIGNS ARE UNCLEAR." 460 INPUT "CHOOSE PATH 1,2 OR 3";X1 470 X1=INT(X1) 4W1-F1 690 S1=8-Z1-G1/(1+Z1) 700 IF S1>4 THEN 720 710 S1=4 720 IF 3.5*RND(1).5+C2/50 THEN 820 800 PRINT "She says";C1 810 GOTO 910 820 PRINT "She doesn't know." 830 INPUT "Will you cast lots to decide";A$ 840 IF LEFT$(A$,1)="N" THEN 910 850 PRINT "The lot says"; 860 IF RND(1)>.5+C2/10 THEN 890 870 Xalong the way to pay your creditors." 120 PRINT 130 PRINT "GOOD LUCK, You'll need it!" 140 GOSUB 2680 150 GOSUB 1610 160 IF RND(I3)>.7 THEN 240 170 INPUT "A DRYAD WISHES TO GUIDE YOU. WILL YOU LET HER";A$ 180 IF LEFT$(A$,1)="Y" THEN 230 190 F1=0 200 IF RND(1)<.2 THEN 240 210 GOSUB 1550 220 GOTO 240 230 F1=1 240 W1=F1 250 PRINT "There are three paths into the Forest." 260 PRINT "ONE IS CORRECT." 270 C1=INT(3*RND(1)+1) 280 Y1=INT(3*RND(1)+1) 290 IF RND(1)<.4 THEN 310 300 80 IF X1>3 THEN 460 490 IF X1<1 THEN 460 500 L1=100*(RND(1)+1) 510 IF X1=C1 THEN 540 520 C2=C2-2 530 L1=L1+50 540 C2=C2+1 550 T1=0 560 C2=C2+.5*RND(1)+F1+P1+.2*V1*SGN(5.1-V1) 570 IF C2>1 THEN 610 580 IF C2>-1 THEN 620 590 PRINT "A Black Cat has crossed your path." 600 GOTO 620 610 PRINT "You have chosen well, but" 620 PRINT "Beware.... Many dangers lie ahead." 630 PRINT 640 R1=0 650 C3=0 660 PRINT "You have come to a fork in the path." 670 C1=INT(2*RND(1)+1) 680 Z1=1=C1 880 GOTO 900 890 X1=3-C1 900 PRINT X1 910 INPUT "DO YOU CHOOSE 1 OR 2";X1 920 X1=INT(X1+.0001) 930 IF X1>2 OR X1<1 THEN PRINT "1 OR 2, PLEASE":GOTO 910 940 D0=0 950 IF X1<>C1 THEN 990 960 C2=C2+RND(1)*SGN(.5-RND(1)) 970 C3=0 980 GOTO 1010 990 C2=C2-.2 1000 C3=-1 1010 IF T1=0 THEN 1020 1020 L2=L2-S1 1030 S2=S2+S1 1040 I2=I2+1 1050 IF E1<>0 THEN 1100 1060 IF RND(1)>.15+.2*F1 THEN 1100 1070 PRINT "You find an enchanted sword." 1080 C2=C2+.2 1090 E1=1 1100 IF R   ND(1)-.5*(F1+C3)<.95 THEN 1130 1110 PRINT "SNAKE!!!" 1120 GOSUB 1650 1130 T1=T1+1 1140 IF RND(1)<.8+(C2+C3/30) THEN 1170 1150 GOSUB 2380 1160 PRINT "You travel on .... " 1170 IF RND(1)<.95 THEN 1190 1180 GOSUB 3450 1190 IF RND(1)>.03 THEN 1210 1200 GOSUB 2990 1210 P3=0 1220 IF RND(1)<.99+(C2-I2/10)/100 THEN 1240 1230 GOSUB 3290 1240 IF W1=0 THEN 1270 1250 IF RND(1)<.95+(C2+C3)/50 THEN 1270 1260 GOSUB 2710 1270 IF RND(1)<.95 THEN 1310 1280 INPUT "GOLD 1470 L1=L1+L0 1480 C3=0 1490 PRINT "You must retrace your path." 1500 GOTO 1010 1510 PRINT 1520 INPUT "Try again";A$ 1530 IF LEFT$(A$,1)="Y" THEN 120 1540 GOTO 4210 1550 PRINT "THE NYMPH IS VERY OFFENDED." 1560 PRINT "SHE CURSES YOU AND GOES." 1570 F1=0 1580 W1=0 1590 C2=C2-1 1600 RETURN 1610 READ D1,S2,D2,D3,X1,V1,F1,C1,C2,D4,F5,E1,F8,G1,I2,P1,P3 1620 RESTORE 1630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 1640 RETURN 1650 PRINT "YOU ARE HURT." 1660 PRINT "You must reTARVE TO DEATH." 1870 GOTO 1510 1880 IF P3=1 THEN 1850 1890 PRINT "YOU ARE CAPTURED BY GOBLINS." 1900 IF E1 <> 1 THEN 1990 1910 PRINT "THEY WANT YOUR SWORD." 1920 INPUT "Will you trade it for freedom";A$ 1930 IF LEFT$(A$,1)="N" THEN 1990 1940 PRINT "AGREED..." 1950 E1=-.8 1960 IF P3<>1 THEN 1830 1970 PRINT " THEY THROW YOU BACK IN THE PIT." 1980 GOTO 1830 1990 D9=INT(3*RND(1)+1) 2000 IF G1.7 THEN 2990 2610 PRINT "You got away that time." 2620 IF G1<2 THEN 2670 2630 IF RND(1)>.3-C2/10 THEN 2670 2640 PRINT "But you dropped a sack of gold." 2650 PRINT 2660 G1=G1-1 2670 RETURN 2680 PRINT " " 2690 X1=RND(1) 2700 RETURN 2710 PRINT "OH NO! SATYRS." 2720 IF E1<>1 THEN 2760 2730 IF RND(1)<.5 THEN 2760 2740 PRINT "They run from your sword." 2750 RETURN 2760 PRINT "They wi! How many sacks will you take";X1 1290 IF X1>20 THEN PRINT "Oh, come now!";X1;"sacks??":GOTO 1280 1300 G1=G1+INT(X1) 1310 IF T1<10-2*F1 THEN 1330 1320 GOSUB 1660 1330 IF RND(1)>.05 THEN 1370 1340 PRINT "You meet an escaped slave girl." 1350 W1=W1+1 1360 GOTO 1160 1370 IF L2>0 THEN 1010 1380 L1=L1-L0*.85 1390 IF L1>20 THEN 1410 1400 GOSUB 2110 1410 IF C3<>-1 THEN 660 1420 IF RND(1)<.9 THEN 660 1430 IF RND(1)<.5 THEN 1450 1440 GOSUB 2990 1450 PRINT "DEAD END" 1460 L2=L2+L0 st." 1670 IF P3=1 THEN 1690 1680 PRINT "You have gone";S2;"km." 1690 T1=0 1700 GOSUB 2680 1710 D3=D3+1+W1-F1 1720 IF D3<4-W1+F1 THEN 1820 1730 IF D4<>0 THEN 1780 1740 PRINT "You are out of food." 1750 D4=1 1760 C2=C2-RND(1) 1770 GOTO 1820 1780 F5=F5+1 1790 IF F5<2 THEN 1810 1800 PRINT "You have gone";F5;"days without food." 1810 C2=C2-RND(1)+.2*F1 1820 IF RND(1)>1-(I2+F8)/100 THEN 1880 1830 IF F5>7 THEN 1860 1840 PRINT "Time to move on." 1850 RETURN 1860 PRINT "YOU S." 2030 G1=G1-D9 2040 RETURN 2050 IF W1>0 THEN 2080 2060 PRINT "YOU ARE ENSLAVED." 2070 GOTO 1510 2080 PRINT "YOU ARE SOLD TO THE SATYRS." 2090 GOSUB 2760 2100 GOTO 1960 2110 IF R1=0 THEN 2130 2120 GOTO 2190 2130 PRINT "You are at the entrance to the Dungeon. There is a guard." 2140 GOSUB 3480 2150 R1=1 2160 W1=W1+1 2170 PRINT "You have released the Princess!" 2180 GOSUB 1660 2190 IF L1>0 THEN 2290 2200 IF R1=1 THEN 2240 2210 IF R1=-2 THEN 2330 2220 PRINT "You have F0 2380 PRINT "TROLL!" 2390 INPUT "Will you Fight";A$ 2400 IF LEFT$(A$,1)="Y" THEN 2430 2410 GOSUB 2570 2420 RETURN 2430 IF E1=0 THEN 2470 2440 IF RND(1)>.2 THEN 2470 2450 PRINT "The Troll runs." 2460 RETURN 2470 IF RND(1)+.3*E1>.5 THEN 2530 2480 IF RND(1)>.3 THEN 2510 2490 GOSUB 1650 2500 RETURN 2510 PRINT "YOU ARE KILLED." 2520 GOTO 1510 2530 PRINT "THE TROLL IS DEAD." 2540 IF RND(1)+.05*E1>.4 THEN 2560 2550 GOSUB 1650 2560 RETURN 2570 PRINT "RUN!!" 2580 L1=L1+ll let you go if you fight their champion." 2770 INPUT "Will you";A$ 2780 IF LEFT$(A$,1)="N" THEN 2820 2790 GOSUB 3480 2800 IF RND(1)<.2 THEN 2820 2810 RETURN 2820 PRINT "The Satyrs want the females." 2830 W1=0 2840 F1=0 2850 IF R1<>1 THEN 2870 2860 R1=-2 2870 INPUT "Will you allow this";A$ 2880 IF LEFT$(A$,1)="Y" THEN 2910 2890 PRINT "They kill you and take the women." 2900 GOTO 1510 2910 PRINT "The women are taken." 2920 IF RND(1)<.05 THEN 2950 2930 PRINT "They curse you   ." 2940 C2=-5 2950 IF RND(1)<.3 THEN 2970 2960 RETURN 2970 PRINT "The Satyrs kill you anyway." 2980 GOTO 1510 2990 PRINT "YOU HAVE FALLEN INTO A PIT!" 3000 P3=1 3010 IF RND(1)>.5 THEN 1650 3020 PRINT "You must escape. Will you try to climb out (1) or" 3030 INPUT "yell for help (2) ";X1 3040 P7=0 3050 IF X1=2 THEN 3170 3060 IF RND(1)<.5-P7/10 THEN 3150 3070 PRINT "You fall while trying to climb." 3080 PRINT 3090 IF RND(1)>.2 THEN 3110 3100 GOSUB 1650 3110 P7=P7+1 3120 HEN 2570 3310 IF F1<>1 THEN 3350 3320 PRINT "The Nymph goes mad." 3330 F1=0 3340 W1=W1-1 3350 IF E1=1 THEN 3410 3360 IF W1=0 THEN 3380 3370 PRINT "The women are sent to his undead as playthings." 3380 PRINT "You are transformed into a gelded water buffalo" 3390 PRINT "and driven into a pit. Boy, did you lose!" 3400 GOTO 1510 3410 PRINT "He takes your sword." 3420 E1=-1.5 3430 PRINT "You are cast into a pit." 3440 GOTO 3020 3450 PRINT "UGH! RATS, MILLIONS OF THEM." 3460 GOSUB body." 3670 GOTO 3690 3680 PRINT "He tries a head cut." 3690 IF RND(1)>.5+.3*H2/W2 THEN 4060 3700 X1=1+INT(2.5*RND(1)) 3710 IF X1=2 THEN 3750 3720 IF X1=3 THEN 3770 3730 PRINT "You stop his blow on your sword`and back away." 3740 GOTO 3550 3750 PRINT "You duck under his sword to attack." 3760 GOTO 3780 3770 PRINT "You parry, then attack." 3780 FOR I1=1 TO H3 3790 IF I1=1 THEN 3810 3800 PRINT "You try again..." 3810 IF RND(1)>.3 THEN 3840 3820 PRINT "You missed him!" 3830 G 4060 PRINT "You're hit!" 4070 H1=H1-.2 4080 H2=H2-.2 4090 IF H1<.05 THEN 4120 4100 PRINT "You stagger away." 4110 GOTO 3550 4120 PRINT "You're down." 4130 PRINT "He closes for the kill." 4140 IF RND(1)>.1+E1/10 THEN 4190 4150 PRINT "You make a lucky thrust!!" 4160 PRINT "He's dead!!!!" 4170 PRINT 4180 RETURN 4190 PRINT "You are killed." 4200 GOTO 1510 4210 FILES 4220 END 160 PRINT "He's dead!!!!" 4170 PRINT 4180 RETURN 4190 PRINT "You are killed." 4200 GOTO 1@b 810:ANS,VNZ:db "1 OR 2 PLAYERS";P:PV1SPT2 20c "1 OR 2 DECKS";D:DV1SDT2 308c(GUDO52:2"ENTER";P;"PLAYERS INITIALS":PU2: B$Jc2 A$:: A(111)pcnXU0=DN1:YU1=52:A(XO52MY)UY:Y,Xcx:200:: 1000NcH2@0,"SHUFFLING":LU1=104:XU^(G):YU^(G):HUA(X):A(X)UA(Y):A(Y)UH::JU1:nc,SU(A(J)N1)P13:RUA(J)NSO13:d2000:2030:/dh2A$:XU1=P: "PLACE BET";T(XM1):XU1RPU22B$Ad:1045: 1200Yd:NU1=2:MU1=3L3NPdMVT3SNVT1J1100::KUJ:300:A(0)UA(J):JUJM1:RT9RU10 d.RU1RU10018d82000:A(GM7)UR:M,NUdL400:A(GMIF P7<5 THEN 3060 3130 PRINT "It's too deep. Yell for help." 3140 GOTO 3170 3150 PRINT "You're out!" 3160 RETURN 3170 FOR I=1 TO 5 3180 PRINT "HELP! " 3190 NEXT I 3200 IF RND(1)<.3 THEN 3170 3210 PRINT "A rope has been lowered." 3220 P3=0 3230 Y1=INT(3*RND(1)+.9999) 3240 IF Y1=1 THEN 2380 3250 IF Y1=2 THEN 1880 3260 PRINT "You are rescued by a woman." 3270 W1=W1+1 3280 RETURN 3290 PRINT "It's the NECROMANCER....." 3300 IF RND(1)>.6 T 2570 3470 RETURN 3480 W3=2 3490 H1=1 3500 H2=1 3510 W2=1+.3*RND(1) 3520 H3=2+SGN(E1) 3530 PRINT "It's a large troll!" 3540 PRINT "THE BATTLE BEGINS." 3550 PRINT "You circle for position." 3560 PRINT " " 3570 W3=W3-.05 3580 H1=H1-.05 3590 H2=H2-.05 3600 PRINT "He Attacks!" 3610 X1=1+INT(2.9999*RND(1)) 3620 IF X1=2 THEN 3660 3630 IF X1=3 THEN 3680 3640 PRINT "He takes a wild cut." 3650 GOTO 3690 3660 PRINT "He thrusts at yourOTO 3980 3840 X1=1+INT(2.999*RND(1)) 3850 IF X1=2 THEN 3910 3860 IF X1=3 THEN 3950 3870 PRINT "You got his leg." 3880 W2=W2-H2/5 3890 W3=W3-H2/5 3900 GOTO 3980 3910 PRINT "You've slashed his arm." 3920 W3=W3-H2/5 3930 W2=W2-H2/3 3940 GOTO 3980 3950 PRINT "You score to his body." 3960 W2=W2-.1 3970 W3=W3-.25 3980 NEXT I1 3990 IF W2>.1 THEN 4010 4000 W2=.1 4010 IF W3>.05 THEN 3550 4020 PRINT "He's down!!" 4030 PRINT "You've finished him off." 4040 PRINT 4050 RETURNMM4)UA(GMMM4)MR`dVM,N:yd0XU0:YU0:RU1001 1210e5A(GM7)U1011 1240e7 1300_e:2@0,A$;<20);"INSURANCE 1=YES/2=NO";: X:PU22@0,B$;" ";:2@41,;: YveNA(GM7)VT1011 1280$eXHUJ:JU0:NU1:MU3:2030:2@AM19,"BLACKJACK";7ebJUH:XU1T(2)U0FelYU1T(3)U0Pev 2610me2@0,"NO BLACKJACK":9001f XU1T(0)UT(0)NT(2)O.5!fYU1T(1)UT(1)NT(3)O.54fMU1=2L3NP:NU3Rf(2@367,A$;:2@879,"DEALER";|f22@0,A$;:LU2:MU2LU3:2@623,B$;:2@0,B$;>f72"'S TURN";w(30):2"1=HIT,2=STAND,3=DOUBLE,4=REVIEW CARDS";: XafFQUMMGM4:!X 1400,1500,1600,1800   kfP 1330gx400:A(Q)UA(Q)MRgA(Q)V1000RA(Q)T21 1490Bg A(Q)N(X(A(Q)P1000)O1000)T21 1490[gNUNM1:OU99OU0: 1500eg 1330~gR2@AM10,"BUST";:BUBM1Dg\NU3RA(Q)U1011T(MM3)U1:T(MM1)UT(MM1)O1.5:2@158MMO192,"BLACKJACK";UgfTUJ:M: 2600dg@NVT3 1330gJOU99:T(L)UT(L)O2: 1400hJVKSKV4J1330)h XUGM5=GM7:A(X)U0:Ph:WUJ:JU0:SU0=3:AUSO16M10:2100:ah2@128,"ACE";h&XU2:YU192=704L64:2@Y,X:XUXM1:1h02@768,"JACK":2@832,"QUEEN":2@896,"KING"Ch:JU1=KNP:300YhDEUSO32M20:FU3ORM4mhNF(E,F)(EM2,F)iX(E,F)::9001030:JUW9k2 VUA(GM7):NU3:BUP 2660]k< WUVP1000:VUVNWO1000:XU0:WT0XU1lkF VT16 2660kP XT0RVM10T16RVM10V22VUVM10: 26603kZ 400:VUVMRMWO1000:NUNM1: 2620]kd XU1=P:UUA(GMXM4):YUUP1000:UUUNYO1000ukn YT0RUM10V22JUUUM10lx UT21.5JUU0l T(XM3)U1JUU21.54l BUGMX:HUBM2:VT21JVU1Dl AU256OXM175#l VUUJ2@A,"PUSH";::VTUJ2@A,"LOSE";:T(XN1)UT(XN1)NT(XM1)::2@A,"WIN";:T(XN1)UT(XN1)MT(XM1)2lT T(3MX)U0:_l8 9001::XUGM3=GM7:A(X)U0::BU0:XU0:2A$;mL 2" HAS ";:T(X)V0J2"LOST";:2"WON";*m` 2T(X):PU2RXU0XUXM1:2B$;: 301 REM *** CONCENTRATION *** 2 REM *** BY RANDY HAWKINS *** 3 REM *** CORPUS CHRISTI, TEXAS *** 4 DEF FNCH$(Y,X)=CHR$(27)+CHR$(61)+CHR$(32+Y)+CHR$(32+X): POKE &HFFAE,32:PRINT CHR$(27)+"1";CHR$(27)+"5" 5 PRINT CHR$(26):PRINT FNCH$(9,31);"C O N C E N T R A T I O N" 6 PRINT:INPUT "WHO IS PLAYER #1";Y$(1):INPUT "WHO IS PLAYER #2";Y$(2): DIM A(35),T$(35),PR(2,17):RANDOMIZE (INP(26)*100+INP(27)):GOTO 30 30 CH=128+RND*63+1 50 S$="":A$=STRING$(12,CH):PR(1,0)=0:PR(2,0)=0:R$=STRING$(12,8)+CHR$(10): B$(1)=T I: PRINT FNCH$(2,52);" ";CHR$(65);" " 80 FOR I=4 TO 12 STEP 2:FOR J=0 TO 4:PRINT FNCH$(I,J*12+4);" "; CHR$(56+I*2.5+J);" ":NEXT J:NEXT I:PRINT FNCH$(0,60);CHR$(128)+CHR$(156)+ CHR$(140)+CHR$(172):G1$="CONCENTRATION":G2$=CHR$(128)+CHR$(149):G3$=CHR$(170) 85 FOR I=1 TO 13:PRINT FNCH$(I,60);G2$;MID$(G1$,I,1);G3$:NEXT I: PRINT FNCH$(14,60);CHR$(128);STRING$(3,131): PRINT "PARDON ME WHILE I PREPARE THE GAME":PRINT FNCH$(13,70);"": PRINT CHR$(140); 90 RESTORE:NP=0:FOR I=1 TO 10:READ Z$:NEXT I ib:JUKNP:1045:MU1:NU3+ilJUTJMU2:NU39ivJUWJ1320bi400:A(GMMM4)UA(GMMM4)MR:NUNM1: 1900 iPXU(NN1)O14:IUXM14:YU(MN1)O12M11:HUYM9.iZXUX=I:(X,Y):(X,H)::XUIN14KidYUY=H:(X,Y):(I,Y)::pin300:AU((MN1)O256)M((NN1)O7)M257jRU1RU1001:2@A,"ACE";: 21000j RU112@A,"JACK";:RU10: 2100QjRU122@A,"QUEEN";:RU10: 2100zj RU132@A,"KING";:RU10: 2100::2@A,R;j4AUAM64:SU02@A,"HEART";: 22007j>SU12@A,"D'MND";: 2200RjHSU22@A,"SPADE";: 2200gjRSU32@A,"CLUBS";jJUJM1:JTG200k"k( NU1:MU3:WUJ:JU0:2206mj 2: 1000Hm)#XU1=2500::PLETED YOUR COINS. PRESS ENTER FOR MORE";:N1U1=50:N1:2@384,D(63,32);:N1U1=25:N1:IP$U""J260:UVMRMWO1000:NUNM1: 2620]kd XU1=P:UUA(GMXM4):YUUP1000:UUUNYO1000ukn YT0RUM10V22JUUUM10lx UT21.5JUU0l T(XM3)U1JUU21.54l BUGMX:HUBM2:VT21JVU1Dl AU256OXM175#l VUUJ2@A,"PUSH";::VTUJ2@A,"LOSE";:T(XN1)UT(XN1)NT(XM1)::2@A,"WIN";:T(XN1)UT(XN1)MT(XM1)2lT T(3MX)U0:_l8 9001::XUGM3=GM7:A(X)U0::BU0:XU0:2A$;mL 2" HAS ";:T(X)V0J2"LOST";:2"WON";*m` 2T(X):PU2RXU0XUXM1:2B$;: 30STRING$(12,32) 60 B$(2)=" "+CHR$(191)+STRING$(9,32):B$(3)=STRING$(9,32)+CHR$(191)+" ": B$(4)=" "+CHR$(191)+STRING$(6,32)+CHR$(191)+" ": B$(5)=" "+STRING$(8,191)+" " 65 IF MT(1)+MT(2)>0 THEN 75 ELSE PRINT "DO YOU NEED INSTRUCTIONS?" 70 Z$=INKEY$:IF Z$="" THEN 70 ELSE IF Z$="Y" THEN GOSUB 2000 75 PRINT CHR$(26);:FOR I=1 TO 14:PRINT STRING$(60,CH):NEXT 76 J=49:FOR I=4 TO 52 STEP 12:PRINT FNCH$(0,I);" ";CHR$(J);" ":J=J+1:NEXT I: FOR I=4 TO 40 STEP 12:PRINT FNCH$(2,I);" ";CHR$(J);" ":J=J+1:NEX95 NP=NP+1:READ P$,M:IF M>0 THEN 95 100 FOR I=1 TO 5:RESTORE 110 K=INT(RND*10+1):FOR J=1 TO K:READ Z$:NEXT J 120 DATA 015444444444445,113333333333333,215433335222225 130 DATA 315433335333345,414444445333333,515222225333345 140 DATA 615422225444445,715433333333333,815444445444445,915444445333345 150 S$=S$+LEFT$(Z$,1):FOR J=0 TO 6:T$(I+J*5)=MID$(Z$,J*2+2,2):PRINT CHR$(140);: NEXT J:NEXT I 160 P=INT(RND*2+1):A(1)=NP:FOR I=2 TO 18 170 J=INT(RND*(NP-1)+1):A(I)=J:FOR K=1 TO I-1:IF A(I)=A(K) THEN 170 17   5 NEXT K:A(I+17)=A(I):PRINT CHR$(140);:NEXT I 180 FOR L=1 TO 50:I=INT(RND*35+1):J=INT(RND*35+1):K=A(I):A(I)=A(J):A(J)=K: IF INT(L/7)*7=L THEN PRINT CHR$(140); 181 NEXT L:PRINT:PRINT FNCH$(15,0);CHR$(24) 190 PRINT FNCH$(15,5);CHR$(24);Y$(P);", WHAT IS YOUR FIRST CHOICE? "; 200 W$=INKEY$:IF W$="" THEN 200 210 IF ASC(W$)<49 OR ASC(W$)>90 OR (ASC(W$)>57 AND ASC(W$)<65) THEN 190 220 PRINT W$:W=ASC(W$)-55-(W$<"A")*7:IF A(W)=0 THEN 190 ELSE GOSUB 1000:W1=W: L1V=LOV:L1H=LOH 230 PRINT FNCH$(15,5);CHR$(24) P=1 THEN P=2 ELSE P=1 300 GOTO 190 310 PRINT FNCH$(15,5);CHR$(24);" * * * A M A T C H ! * * *": FOR TI=1 TO 1000: NEXT TI 320 PRINT FNCH$(L1V,L1H);B$(1);R$;B$(1):PRINT FNCH$(LOV,LOH);B$(1);R$;B$(1) 330 PRINT FNCH$(15,5);CHR$(24);"HERE ARE TWO MORE PIECES OF THE PUZZLE!" 340 PR(P,0)=PR(P,0)+1:PR(P,PR(P,0))=A(W):IF A(W)=NP THEN PR(P,PR(P,0))=A(W1) 350 A(W)=0:A(W1)=0:PRINT FNCH$(LOV,LOH);B$(VAL(LEFT$(T$(W),1)));R$; B$(VAL(RIGHT$(T$(W),1))) 360 PRINT FNCH$(L1V,L1H);B$(VAL(LEFT$(T$(W1),1)));R$;B$ TO 35:IF A(I)=0 THEN 490 470 RO=INT((I-1)/5):CO=I-RO*5:KH=(CO-1)*12:KV=RO*2-1 480 FOR J=1 TO 2:PRINT FNCH$(KV+J,KH);B$(VAL(MID$(T$(I),J,1))):NEXT J 490 NEXT I:FOR TI=1 TO 1000:NEXT TI 500 PRINT CHR$(26):T0=0:PRINT:PRINT "YOU GOT IT, ";Y$(P);"!" 510 PRINT "THAT MEANS YOU HAVE WON THE FOLLOWING: ":FOR J=1 TO PR(P,0) 515 RESTORE:FOR I=1 TO 10:READ Z$:NEXT I 520 FOR K=1 TO PR(P,J):READ P$,M:NEXT K:PRINT TAB(10) P$ TAB(30) "WORTH ";: PRINT USING "$$####";M:T0=T0+M:NEXT J 525 PRINT "THAT IS A TOTAL OA(W):READ P$,M:NEXT I 1015 DATA " MOTOR HOME ",12000,"EUROPE TRIP ",3000," GOLF CART ",2000, " PIANO ",5000," RECLINER ",600 1016 DATA " 2 HAMSTERS ",50,"ROLLERSKATES",50," SWIM POOL ",10000, " PINTO PONY ",2000," DISNEYLAND ",1000," WARDROBE ",1000," VIDEO TAPE ", 1200," PARAKEET ",200," GOLD INGOT ",5000," SKI TRIP ",1000 1017 DATA " MAZDA RX-7 ",12000," 1957 VW ",75," UNICYCLE ",400, " LAWNMOWER ",200," FURNITURE ",2000," PATIO SET ",800," GOLF CLUBS ",200, "TENNISRACKSCOPE ",390," BICYCLE ",120 1040 DATA "LINE PRINTER",800," DISK DRIVE ",500," 2 GOATS ",25, " HARMONICA ",5," WILD CARD! ",0 1050 LOV=INT((W-1)/5)*2:LOH=(W-INT((W-1)/5)*5-1)*12 1060 PRINT FNCH$(LOV,LOH);P$;R$;B$(1):RETURN 2000 PRINT CHR$(26):PRINT " THIS IS THE GAME OF CONCENTRATION":PRINT:PRINT "THE OBJECT OF THE GAME IS TO DISCOVER THE SECRET NUMBER HIDDEN BEHIND THE": PRINT "GAME BOARD." 2010 PRINT " THE BOARD IS DIVIDED INTO A 5 X 7 CHECKERBOARD. BEHIND EACH": PRINT "LABELE;Y$(P);", WHAT IS YOUR SECOND CHOICE? "; 240 W$=INKEY$:IF W$="" THEN 240 250 IF ASC(W$)<49 OR ASC(W$)>90 OR (ASC(W$)>57 AND ASC(W$)<65) THEN 230 260 PRINT W$:W=ASC(W$)-55-(W$<"A")*7:IF A(W)=0 OR W=W1 THEN 230 ELSE GOSUB 1000 270 IF (A(W)=A(W1)) OR (A(W)=NP) OR (A(W1)=NP) THEN 310 275 FOR TI=1 TO 1000:NEXT TI:W=W+55+(W<10)*7:W1=W1+55+(W1<10)*7 280 PRINT FNCH$(LOV,LOH);STRING$(4,CH);" ";CHR$(W);" ";STRING$(4,CH);R$;A$ 290 PRINT FNCH$(L1V,L1H);STRING$(4,CH);" ";CHR$(W1);" ";STRING$(4,CH);R$;A$ 295 IF(VAL(RIGHT$(T$(W1),1))) 370 FOR TI=1 TO 500:NEXT TI 380 PRINT FNCH$(15,5);CHR$(24);Y$(P);", WHAT IS THE SECRET NUMBER? "; 390 G$=INKEY$:G$="":FOR I=1 TO 5 400 H$=INKEY$:IF H$="" THEN 400 405 IF ASC(H$)<48 OR ASC(H$)>57 THEN 400 410 G$=G$+H$:PRINT H$;:NEXT I:FOR TI=1 TO 200:NEXT TI:PRINT 420 IF G$=S$ THEN 460 425 J=0:FOR I=1 TO 35:J=J+SGN(A(I)):NEXT:IF J=1 THEN 600 430 PRINT FNCH$(15,5);CHR$(24);"SORRY! ";G$;" WAS WRONG, BUT YOU MAY CONTINUE" 440 FOR TI=1 TO 1000:NEXT TI 450 GOTO 190 460 FOR I=1F $";T0:MT(P)=MT(P)+T0: PRINT "SO FAR THIS SESSION, ";Y$(1);" HAS WON $";MT(1);" AND " Y$(2) " HAS WON $" MT(2) 530 PRINT "PLAY AGAIN? (Y/N)"; 540 Z$=INKEY$:IF Z$="" THEN 540 550 IF Z$="Y" THEN 30 560 IF Z$="N" THEN POKE &HFFAE,2:PRINT CHR$(26);CHR$(27)+"0";CHR$(27)+"4":END 570 GOTO 540 600 PRINT FNCH$(15,5);CHR$(24); "SORRY! NOBODY WINS THIS GAME -- THE NUMBER WAS ";S$ 610 FOR TI=1 TO 2000:NEXT TI:PRINT FNCH$(15,0);CHR$(24):GOTO 530 1000 RESTORE:FOR I=1 TO 10:READ Z$:NEXT I 1010 FOR I=1 TO ET",200,"JOGGING SUIT",100 1020 DATA " 1981 CAR ",8000," FUR COAT ",5000," TRS-80 ",1000, " SAILBOAT ",9000," $5000 ",5000 1025 DATA "CLOCK RADIO ",65," MOTOR BIKE ",750," CARPET ",900, " WATER BED ",1100," CAMERA ",250 1030 DATA " COLOR TV ",1500," DISHWASHER ",500," MICROWAVE ",600, "MEXICO TRIP ",3000,"REFRIGERATOR",800 1035 DATA " POGO STICK ",5," PET SKUNK ",50," AQUARIUM ",500, " CHINA SET ",500," CANDY BAR ",1," STEREO ",350," LUGGAGE ",500, " TELED SQUARE IS ONE OF A PAIR OF PRIZES. ON YOUR TURN, YOU CHOOSE" 2020 PRINT "TWO SQUARES: IF THE PRIZES MATCH, YOU WIN THE PRIZE AND 2 PIECES": PRINT "OF THE PUZZLE ARE REVEALED." 2030 PRINT " AS LONG AS YOU MAKE A MATCH, YOUR TURN CONTINUES. EACH " 2040 PRINT "MATCH YOU MAKE ALLOWS YOU TO GUESS AT THE PUZZLE. THE PUZZLE IS": PRINT "A 5-DIGIT NUMBER CONSISTING OF TALL, THIN VERSIONS OF NUMBERALS ZERO": PRINT "THROUGH NINE. TO SEE THE NUMERALS AS THEY WILL APPEAR, PRESS " 2070 I$=INK   EY$:IF I$="" THEN 2070 2080 RESTORE:FOR I=0 TO 9:READ Z$:PRINT CHR$(26):PRINT FNCH$(15,24); " THE NUMBER ";LEFT$(Z$,1);": ":PRINT FNCH$(0,25);""; 2090 FOR K=2 TO 15:PRINT B$(VAL(MID$(Z$,K,1)));R$;:NEXT K:PRINT B$(1);: FOR TI=1 TO 500:NEXT TI:NEXT I:RETURN H$(0,25);""; 2090 FOR K=2 TO 15:PRINT B$(VAL(MID$(Z$,K,1)));R$;:NEXT K:PRINT B$(1);: FOR TI=1 TO 500:NEXT TI:NEXT I:R THIN VERSIONS OF NUMBERALS ZERO": PRINT "THROUGH NINE. TO SEE THE NUMERALS AS THEY WILL APPEAR, PRESS " 2070 I$=INK1000 ' MONOP MONOPOLY BORROWED FROM HP2000 SYSTEM REVISED 2.08.81 1001 ' REVISED FOR CPM MBASIC-80 06/26/82 1002 ' 1010 DATA "MEDDITERANEAN AVE","2","BALTIC AVE","4","READING RR" 1020 DATA "ORIENTAL AVE","3","VERMONT AVE","CONNECTICUT AVE","7" 1030 DATA "ST CHARLES PLACE","ELECTRIC CO","STATES AVE","VIRGINIA AVE" 1040 DATA "PENN. RR","ST JAMES PLACE","2","TENNESSEE AVE","NEW YORK AVE","5" 1050 DATA "KENTUCKY AVE","3","INDIANA AVE","ILLINOIS AVE","B AND O RR" 1060 DATA "ATLANTIC AVE","VENTNOR AVE"NG" 1140 PRINT "COMMANDS:":PRINT:PRINT 1150 PRINT "LIS":PRINT TAB(10);"LIST ALL PROPERTY." 1160 PRINT "LIS,GRO,[COLOR GROUP]" 1170 PRINT TAB(10);"LIST PROPERTY OF THE GROUP SPECIFIED." 1180 PRINT TAB(10);"LEGAL GROUPS ARE: PURPLE, L.BLUE, VIOLET, ORANGE," 1190 PRINT TAB(29);"RED, YELLOW, GREEN, AND D.BLUE." 1195 PRINT:PRINT:PRINT:PRINT:LINE INPUT "HIT WHEN READY ";A$ 1200 PRINT "LIS,MIN(COM)" 1210 PRINT TAB(10);"LIST ALL PROPERTY OF SPECIFIED PERSON OR HUMAN." 1220 PRINT "LIS,MIN(COM);"THE [PROPERTY NAME] FORMAT OF THE LIST COMMAND" 1320 PRINT TAB(10);"CAN BE USED IN THE BUY, MOR, AND UNM COMMANDS." 1330 PRINT:PRINT 1335 LINE INPUT "";A$ 1336 PRINT CHR$(26) 1340 PRINT TAB(20);"*MONOPOLY*":X9=1 1341 DIM U(10) 1342 DIM I(30),G[10,3],R[16,6],B[39,3],P[39],A[2,2],J[2,2],L[2],X[3],Z[3],C(32) 1343 DEF FNG(K)=INT(K/5+1) 1344 DEF FNF(K)=(9*ABS(INT(K/5)*5=K)+10*ABS(K=12 OR K=28)) 1345 DEF FNR(K)=-ABS(ABS((K+1)/5<>INT((K+1)/5)) AND ABS(K<>3)) 1346 DEF FNN(K)=INT(K*RND(1)+1) 13471600 IF L[T]<40 THEN 1670 1610 L[T]=L[T]-40 1620 IF L(T)=0 THEN 1640 1630 PRINT "Passing "; 1640 PRINT CHR$(7);CHR$(7);"GO COLLECT $ 200" 1650 ON T GOSUB 6970,7380 1660 IF L(T)=0 THEN 2090 1670 RESTORE 1680 FOR K8=1 TO L[T] 1690 READ P$ 1700 NEXT K8 1710 K8=K8-1 1720 IF LEN(P$)>1 THEN 1760 1730 Z$=P$ 1740 GOSUB 4620 1750 ON X0 GOTO 2050,2400,2440,2210,2330,2350,2380 1760 IF B(K8,1)=0 THEN 1790 1770 GOSUB 6750 1780 GOTO 2090 1790 A=3-T 1800 PRINT P$;", PRICE $";P(K8); 1810 ,"WATER WORKS","MARVINS GARDENS" 1070 DATA "1","PACIFIC AVE","NO. CAROLINA AVE","2","PENNSYLVANIA AVE" 1080 DATA "SHORT LINE RR","3","PARK PLACE","6","BOARD WALK" 1090 I$="":PRINT CHR$(26);:INPUT"INSTRUCTIONS";I$:IF I$=""THEN 1090 1100 IF LEFT$(I$,1)<>"Y" THEN 1340 1110 PRINT" THIS IS MONOPOLY. YOU WILL PLAY AGAINST COMAC (COMPUTER-MACHINE)" 1120 PRINT "THE RULES ARE THE SAME AS THE GAME OF MONOPOLY BY PARKER BROTHERS." 1130 PRINT "BECAUSE WE CAN'T PRINT THE BOARD FOR YOU, WE PROVIDE THE FOLLOWI,MOR" 1230 PRINT TAB(10);"SAME AS ABOVE, BUT LISTS ONLY MORTGAGED PROPERTY." 1240 PRINT "LIS,[PROPERTY NAME]":PRINT TAB(10);"LIST SPECIFIED PROPERTY." 1250 PRINT "QUI":PRINT TAB(10);"TERMINATE GAME." 1260 PRINT "BUY":PRINT TAB(10);"BUY HOUSES." 1270 PRINT "MOR":PRINT TAB(10);"MORTGAGED PROPERTY." 1280 PRINT "UNM":PRINT TAB(10);"PAY OFF MORTGAGE." 1290 PRINT:PRINT"NOTE:":PRINT TAB(10);"THE GRO FORMAT OF THE LIST COMMAND" 1300 PRINT TAB(10);"CAN BE USE FOR THE BUY COMMAND." 1310 PRINT TAB(10) DEF FNH(K)=50*INT((K+1)/2) 1360 GOSUB 3940 1370 GOSUB 4350 1380 R0=D1+D2 1390 GOSUB 4350 1400 IF R0XX THEN XX=XY 1930 G(XX,A)=G(XX,A)+1 1940 GOTO 2090 1950 XX=FNG(K8):XY=FNF(K8):IF XY>XX THEN XX=XY 1960 G0=XX 1970 IF A[A,A]8 OR G(G0,1)=0 THEN 2030 1990 IF G(G0,1) AND G(G0,2)=0 THEN 2030 200   0 IF A[2,1]-P[K8]>100 THEN 2030 2010 PRINT "COMAC passes!" 2020 ON ABS(A=T)+1 GOTO 2090,1810 2030 PRINT "COMAC will buy!" 2040 GOTO 1880 2050 PRINT "Go to jail, do not pass go!" 2060 L[T]=10 2070 J[T,2]=3 2080 D1=-1 2090 T=(3-T)*ABS(D1<>D2)+T*ABS(D1=D2) 2100 D=D*ABS(D1=D2) 2110 IF T=2 THEN 2190 2120 IF D1=D2 THEN 2170 2130 GOSUB 2870 2140 GOSUB 6540 2150 ON Q8 GOSUB 4670 2160 GOSUB 6380 2170 PRINT "YOUR MOVE <> "; 2180 GOTO 1470 2190 PRINT "COMAC MOVES <> "; 2200 GOTO MMUNITY CHEST : "; 2410 C1=(C1+1)*ABS(C1<16)+ABS(C1=16) 2420 L1=C[C1] 2430 GOTO 2470 2440 PRINT "CHANCE : "; 2450 C2=(C2+1)*ABS(C2<32)+17*ABS(C2=32) 2460 L1=C[C2] 2470 ' 2480 GET#1,L1 2490 Z$=AA$:W=CVI(AB$):X8=CVI(AD$) 2500 IF W>0 THEN ON W GOTO 2660,2690,2710,2730,2760,2840 2510 IF X8 THEN 2610 2520 IF W<0 THEN 2590 2530 PRINT Z$;" collect $";W 2540 ON T GOSUB 6970,7380 2550 IF L1<16 OR L1>17 THEN 2090 2560 W=-W 2570 ON T GOSUB 7380,6970 2580 GOTO 2090 2590 PRINT"PAY ";Z$;" $NEXT K7 2810 PRINT USING"TAX $#### PER HOUSE, $#### PER HOTEL";X7;X7*5-X8 2820 Z$="" 2830 GOTO 2590 2840 X7=40 2850 X8=85 2860 GOTO 2770 2870 FOR K7=0 TO 8:U(K7)=0:NEXT K7 2880 FOR K7=0 TO 1 2890 FOR G1=1 TO 8 2900 X9=INT(A[2,1]/FNH(G1)) 2910 IF X9=0 OR G[G1,2]-G[G1,3] OR U[G1] THEN 3230 2920 X8=ABS(G1>1 AND G1<8) 2930 GOSUB 5310 2940 X7=G[G1,3]*5-H 2950 IF X7=0 OR B(X1,2)+B(X2,2)+B(X3,2) THEN 3230 2960 V7=X1-L[1]+40*ABS(X1-L[1]<0) 2970 IF K7=0 AND (V7<5 OR V7>14) THEN 3230 2K8);P$ 3170 W=-Z[K8]*FNH(G1) 3180 A7=0 3190 GOSUB 7380 3200 B[X[K8],3]=B[X[K8],3]+Z[K8] 3210 NEXT K8 3220 U[G1]=1 3230 NEXT G1 3240 NEXT K7 3250 RETURN 3260 W=0 3270 T1=1 3280 IF I1=0 THEN 3340 3290 GOSUB 3880 3300 GOSUB 5120 3310 GOSUB 7050 3320 IF I1 THEN 3290 3330 RETURN 3340 GOSUB 7020 3350 RETURN 3360 S0=5 3370 L$="MINCOMGROFREATTCAS" 3380 O$="FYC M" 3390 IF I1=0 THEN 3550 3400 GOSUB 3880 3410 S1=0:S1=INSTR(L$,LEFT$(Z$,3)) 3420 S0=INT((S1+2)/3) 3430 G0*2-1,2) THEN 3720 3660 GOTO 3770 3670 IF S0<>0 THEN 3700 3680 IF LEFT$(Z$,5)=LEFT$(P$,5) THEN 3720 3690 GOTO 3770 3700 IF B[K5,1]=S0 AND ABS(B[K5,2]=M OR M=-1) THEN 3720 3710 IF S0<>4 OR B[K5,1]<>0 THEN 3770 3720 PRINT MID$(O$,B(K5,1)+1,1);MID$(O$,B(K5,2)+4,1);" ";P$; 3730 IF B(K5,3)=0 THEN 3750 3740 PRINT TAB(25)"Houses ="B[K5,3]; 3750 PRINT 3760 IF S0=0 THEN 3780 3770 NEXT K5 3780 RETURN 3790 V$="PURPLEL.BLUEVIOLETORANGERED YELLOWGREEN D.BLUERAIL UTIL " 3800 FOR Q9=1 TO 101470 2210 PRINT "Income tax:$200 or 10% "; 2220 IF T=2 THEN 2300 2230 Z$="":INPUT"WANT 10% ";Z$ 2240 IF Z$="" THEN 2230 2250 IF LEFT$(Z$,1)="Y" THEN 2310 2260 W=-200 2270 PRINT USING"$#### TAX MUST BE PAID!";-W 2280 ON T GOSUB 6970,7380 2290 GOTO 2090 2300 IF A[T,2] >= 2000 THEN 2260 2310 W=-INT(A[T,2]/10) 2320 GOTO 2270 2330 PRINT "Free parking" 2340 GOTO 2090 2350 PRINT "Luxury tax, $75" 2360 W=-75 2370 GOTO 2280 2380 PRINT "VISITING JAIL" 2390 GOTO 2090 2400 PRINT "CO";-W 2600 GOTO 2540 2610 IF X8<0 THEN 2050 2620 PRINT "Advance token to ";Z$ 2630 L(T)=X8+40*ABS(L(T)>X8) 2640 D3=2 2650 GOTO 1590 2660 PRINT "GO BACK 3" 2670 L[T]=L[T]-3 2680 GOTO 1590 2690 X8=28-16*ABS(L[T]=7 OR L[T]=36) 2700 GOTO 2620 2710 X8=25-10*ABS(L[T]=7)-20*ABS(L[T]=36) 2720 GOTO 2620 2730 PRINT "Get out of jail free!" 2740 J[T,1]=J[T,1]+1 2750 GOTO 2090 2760 X7=25:X8=25 2770 W=0 2780 FOR K7=1 TO 39 2790 W=W-(X7*B[K7,3]-X8*ABS(B[K7,3]=5))*ABS(B[K7,1]=T) 2800 980 X6=FNN(X9):IF X7B[X[K9],3] THEN 3090 3050 NEXT K9 3060 Z[K8]=Z[K8]+1 3070 X6=X6-1 3080 IF X6=0 THEN 3100 3090 NEXT K8 3100 FOR K8=1 TO 2+X8 3110 IF Z(K8)=0 THEN 3210 3120 RESTORE 3130 FOR K9=1 TO X[K8] 3140 READ P$ 3150 NEXT K9 3160 PRINT USING"COMAC BUYS # HOUSE(S) ON \ \";Z( IF S0 THEN 3480 3440 GOSUB 3570 3450 IF I1=0 THEN 3560 3460 GOSUB 3880 3470 GOTO 3440 3480 M=-1 3490 ON S0 GOTO 3500,3500,3450,3550,3790,4670 3500 IF I1=0 THEN 3550 3510 GOSUB 3880 3520 IF LEFT$(Z$,3)="MOR" THEN 3540 3530 M=M-1 3540 M=M+2 3550 GOSUB 3570 3560 RETURN 3570 RESTORE 3580 FOR K5=1 TO 39 3590 READ P$ 3600 IF LEN(P$)=1 THEN 3770 3610 IF S0=5 THEN 3720 3620 XX=FNG(K5):XY=FNF(K5):IF XY>XX THEN XX=XY 3630 G0=XX 3640 IF S0<>3 THEN 3670 3650 IF LEFT$(Z$,2)=MID$(R$, 3810 PRINT MID$(V$,6*Q9-5,6);" - "; 3820 IF G(Q9,1)+G(Q9,2)=0 THEN PRINT"FREE":GOTO 3860 3830 IF G(Q9,1)<>0 AND G(Q9,2)<>0 THEN PRINT"NOT ATTAINABLE":GOTO 3860 3840 IF G(Q9,1)<>0 THEN PRINT"YOU -";G(Q9,1):GOTO 3860 3850 PRINT"COMAC -";G(Q9,2) 3860 NEXT Q9 3870 RETURN 3880 I1=I1+1 3890 Z$=MID$(I$,I(I1),I(I1+1)-2-I(I1)+1) 3900 I1=I1*ABS(I1<>Q5) 3910 B9=LEN(Z$)+1 3920 Z$=Z$+" " 3930 RETURN 3940 FOR K=0 TO 10:FOR KK=0 TO 3:G(K,KK)=0:NEXT KK:NEXT K:'MAT G=ZER 3950 FOR K=1 TO 10:G(K,3)=3   -ABS(K=1)-ABS(K=8)+ABS(K=9)-ABS(K=10):NEXT K 3960 FOR K=0 TO 39:FOR KK=0 TO 3:B(K,KK)=0:NEXT KK:NEXT K:'MAT B=ZER 3970 FOR K=0 TO 2:FOR KK=0 TO 2:A(K,KK)=1:NEXT KK:NEXT K:'MAT A=CON 3980 FOR K=0 TO 2:FOR KK=0 TO 2:A(K,KK)=A(K,KK)*1500:NEXT KK:NEXT K 3990 T=0 4000 FOR K=0 TO 2:FOR KK=0 TO 2:J(K,KK)=0:NEXT KK:NEXT K:' MAT J=ZER 4010 FOR K=0 TO 2:L(K)=0:NEXT:' MAT L=ZER 4020 CLOSE:OPEN"R",1,"MONOPD.DAT" 4030 FIELD #1,20 AS AA$,2 AS AB$,2 AS AD$,4 AS AE$,4 AS AF$,2 AS AG$, 2 AS AH$,2 AS AI$ 4031 190 P(K)=60+40*(XX-1)+ABS((((2*XX-FNR(K))/XX)=2)*20*(K<>3))+ABS(K=37)*10+ABS(K=39)*40 4200 NEXT K 4210 P(5)=200:P(15)=200:P(25)=200:P(35)=200 4220 P(12)=150:P(28)=150 4230 FOR K=1 TO 32:C(K)=0:NEXT K 4240 FOR K=1 TO 32 4250 X=FNN(16)+ABS(K>16)*16 4260 IF C(X) THEN 4250 4270 C(X)=K 4280 NEXT K 4290 R$="PUL.VIORREYEGRD.RRUT" 4300 C1=0 4310 C2=16 4320 I1=0 4330 A7=1:T1=1:Q8=1 4340 RETURN 4350 D1=FNN(6) 4360 D2=FNN(6) 4370 D=D+ABS(D1=D2) 4380 PRINT USING"ROLL: # - #";D1;D2 4390 RETFT$(Z$,1)=MID$(N$,X0,1) THEN 4660 4650 NEXT X0 4660 RETURN 4670 PRINT USING"Y CASH $##### ASSETS $##### C CASH $##### ASSETS $####"; A(1,1);A(1,2);A(2,1);A(2,2) 4680 RETURN 4690 PRINT USING"YOUR CASH = $#####";A(1,1) 4700 RETURN 4710 IF J(T,1)=0 THEN ON T GOTO 4780,4930 4720 IF T=2 THEN 4990 4730 PRINT "Use jail card "; 4740 Z$="":INPUT Z$:IF Z$="" THEN 4730 4750 IF LEFT$(Z$,1)="N" THEN 4860 4760 J[T,1]=J[T,1]-1 4770 GOTO 4830 4780 PRINT "Pay $50 to be free "; 4790 Z$="":INPRINT "COMAC uses jail card!" 5000 GOTO 4760 5010 PRINT " Property name- "; 5020 X=0 5030 W9=W 5040 Z$="":LINE INPUT Z$:Z=LEN(Z$) 5050 PRINT 5060 IF Z >= 0 THEN 5100 5070 GOSUB 6380 5080 Z$="" 5090 RETURN 5100 IF Z$="" THEN 5070 5110 GOSUB 3910 5120 Z$=LEFT$(Z$,5) 5130 T1=1 5140 X=0 5150 K2=39 5160 S0=(T1=2) 5170 RESTORE 5180 FOR K9=1 TO K2 5190 READ P$ 5200 IF S0 THEN 5220 5210 IF LEFT$(P$,5)=Z$ THEN 5250 5220 NEXT K9 5230 IF S0=0 THEN 5380 5240 K9=K9-1 5250 X 5490 IF I1=0 THEN GOSUB 5890 5500 GOSUB 3880 5510 IF LEFT$(Z$,3)<>"GRO" THEN 5610 5520 IF I1=0 THEN GOSUB 5920 5530 GOSUB 3880 5540 FOR G1=1 TO 8 5550 IF LEFT$(Z$,2)=MID$(R$,G1*2-1,2) THEN 5590 5560 NEXT G1 5570 PRINT "Unable to comply!" 5580 RETURN 5590 GOSUB 5300 5600 GOTO 5640 5610 GOSUB 5120 5620 IF X=0 OR G1>8 THEN 5570 5630 IF B(X,1)<>1 THEN 5570 5640 IF G[G1,1]<>G[G1,3] OR H=G[G1,3]*5 THEN 5570 5650 IF B[X2,2]+B[X2,2]+B[X3,2] THEN 5570 5660 PRINT "PRICE/HOUSE $";FNH(G1GET #1,50:N=CVI(AB$):RANDOMIZE N:N=INT(20000*RND(1)) 4032 LSET AB$=MKI$(N):PUT #1,50 4040 FOR K=1 TO 16 4050 GET #1,K:R1=CVS(AE$):R2=CVS(AF$) 4060 R[K,1]=2*K+5*ABS(K=15)+18*ABS(K=16) 4070 R[K,2]=5*R[K,1]+10*ABS(K=14)-50*ABS(K=16) 4080 R[K,6]=INT(R2/100) 4090 R[K,3]=R2*10-R[K,6]*1000 4100 R[K,4]=INT(R1/10000)*10 4110 R[K,5]=R1-R[K,4]*1000 4120 NEXT K 4130 D=0:W=0 4140 RESTORE 4150 FOR K=1 TO 39 4160 READ P$ 4170 IF LEN(P$)=1 THEN 4200 4180 XX=FNG(K):XY=FNF(K):IF XY>XX THEN XX=XY 4URN 4400 I$="":LINE INPUT I$:Z=LEN(I$) 4410 I1=0 4420 PRINT 4430 IF I$="" THEN 4450 4440 GOTO 4480 4450 IF C9 THEN 4610 4460 PRINT "Bad. Retype-"; 4470 GOTO 4400 4480 FOR K=0 TO 30:I(K)=0:NEXT K 4490 X4=0 4500 Q5=0 4510 FOR K9=1 TO LEN(I$) 4520 IF MID$(I$,K9,1)="," THEN 4580 4530 IF X4 THEN 4590 4540 Q5=Q5+1 4550 I[Q5]=K9 4560 X4=1 4570 GOTO 4590 4580 X4=0 4590 NEXT K9 4600 I[Q5+1]=LEN(I$)+2 4610 RETURN 4620 N$="1234567" 4630 FOR X0=7 TO 1 STEP -1 4640 IF LEUT Z$:IF Z$="" THEN 4780 4800 IF LEFT$(Z$,1)<>"Y" THEN 4860 4810 W=-50 4820 ON T GOSUB 6970,7380 4830 J(T,2)=0:D1=0 4840 PRINT "Freed!" 4850 RETURN 4860 J[T,2]=J[T,2]-1 4870 D=0 4880 GOSUB 4350 4890 IF D THEN 4830 4900 IF J[T,2] THEN 4850 4910 PRINT "$50 fee mandatory!" 4920 GOTO 4810 4930 FOR K=1 TO 8 4940 IF (G(K,1) AND G(K,2) OR G(K,1)+ABS(G(K,2)=G(K,3)))=0 THEN 4970 4950 NEXT K 4960 IF A[T,1]<1000 THEN 4860 4970 PRINT "COMAC pays $50 to be free" 4980 GOTO 4810 4990 P1=2:X2=2:X3=2 5260 H=0 5270 X=K9 5280 XX=FNG(X):XY=FNF(X):IF XY>XX THEN XX=XY 5290 G1=XX 5300 IF G1>8 THEN 5380 5310 ' 5320 GET#1,G1 5330 X1=CVI(AG$):X2=CVI(AH$):X3=CVI(AI$) 5340 X(1)=X1 5350 X[2]=X2 5360 X[3]=X3 5370 H=B[X1,3]+B[X2,3]+B[X3,3] 5380 RETURN 5390 X9=A[1,2]-A[2,2] 5400 ON SGN(X9)+1 GOTO 5430,5450 5410 PRINT "COMAC ahead by $";-X9 5420 GOTO 5460 5430 PRINT "TIED AT $";A[1,2] 5440 GOTO 5460 5450 PRINT "You're ahead by $";X9 5460 GOTO 7580 5470 STOP 5480 X=0);", "; 5670 IF I1=0 THEN GOSUB 5940 5680 GOSUB 3880 5690 GOSUB 4620 5700 IF X0=0 THEN 5540 5710 IF X=0 THEN 5960 5720 IF B[X,3]+X0<6 THEN 5750 5730 X0=5-B[X,3] 5740 IF X0=0 THEN 5870 5750 D1=7 5760 FOR K7=1 TO G[G1,3] 5770 IF D1> B(X(K7),3) THEN D1=B(X(K7),3) 5780 NEXT K7 5790 IF X0+B[X,3] <= D1+1 THEN 5810 5800 IF D1+1-B(X,3)>0 THEN X0=D1+1-B(X,3) ELSE X0=0 5810 B[X,3]=B[X,3]+X0 5820 W=-X0*FNH(G1) 5830 A7=0 5840 GOSUB 6970 5850 PRINT USING"## HOUSE(S) BOUGHT!";X0 5860 RETU   RN 5870 PRINT "Hotel already exists!" 5880 RETURN 5890 PRINT "Property name "; 5900 GOSUB 4400 5910 RETURN 5920 PRINT "Group "; 5930 GOTO 5900 5940 PRINT "No. of houses "; 5950 GOTO 5900 5960 T0=X0 5970 X0=0 5980 FOR K7=1 TO G[G1,3] 5990 IF T0+B[X[K7],3]<6 THEN 6030 6000 X0=X0+5-B[X[K7],3] 6010 B[X[K7],3]=5 6020 GOTO 6050 6030 X0=X0+T0 6040 B[X[K7],3]=B[X[K7],3]+T0 6050 NEXT K7 6060 GOTO 5820 6070 IF I1=0 THEN GOSUB 5890 6080 GOSUB 3880 6090 A0=0 6100 IF LEFT90 6330 IF A0 OR I1=0 THEN 6170 6340 GOSUB 3880 6350 GOTO 6200 6360 PRINT "Unable to comply." 6370 GOTO 6330 6380 PRINT ""; 6390 C9=1 6400 GOSUB 4400 6410 PRINT; 6420 IF I$="" THEN 6530 6430 GOSUB 3880 6440 C$="LISQUIBUYUNMMOR" 6450 FOR K7=1 TO 5 6460 IF MID$(C$,K7*3-2,3)=LEFT$(Z$,3) THEN 6500 6470 NEXT K7 6480 PRINT "ILLEGAL COMMAND" 6490 GOTO 6380 6500 C9=0 6510 ON K7 GOSUB 3360,5390,5480,6070,3260 6520 GOTO 6380 6530 RETURN 6540 RESTORE 6550 FOR K4=1 NG(L(T)):XY=FNF(L(T)):IF XY>XX THEN XX=XY 6760 G0=XX 6770 IF B[L[T],2] THEN 6890 6780 IF B[L[T],1]=T THEN 6910 6790 IF G0-8>0 THEN ON G0-8 GOTO 6930,6950 6800 XX=FNG(L(T)):XY=FNF(L(T)):IF XY>XX THEN XX=XY 6810 W=-R(2*XX+FNR(L(T)),B(L(T),3)+1) 6820 W=W+ABS(B(L(T),3)=0 AND G(G0,3-T)=G(G0,3) AND G0<9)*W 6830 PRINT P$;" - $"; 6840 PRINT USING"#### RENT MUST BE PAID!";-W 6850 ON T GOSUB 6970,7380 6860 W=-W 6870 ON T GOSUB 7380,6970 6880 RETURN 6890 PRINT P$;" is mortgaged." 6900 RETURN 600 B(X1,3)=0:B(X2,3)=0:B(X3,3)=0 7110 A[T1,2]=INT(A[T1,2]-X5) 7120 A[T1,1]=INT(A[T1,1]+X5+P[X]/2) 7130 G[G1,T1]=G[G1,T1]-B[X,2] 7140 ON B(X,2)*T1 GOTO 7200,7230 7150 B[X,2]=1 7160 IF T1=2 THEN 7260 7170 PRINT "DONE. "; 7180 GOSUB 4690 7190 GOTO 6980 7200 PRINT "SOLD. "; 7210 B(X,1)=0:B(X,2)=0 7220 GOTO 7180 7230 PRINT "COMAC sells ";P$ 7240 B(X,1)=0:B(X,2)=0 7250 GOTO 6980 7260 PRINT "COMAC mortgages ";P$ 7270 GOTO 6980 7280 A[T1,1]=INT(A[T1,1]+W) 7290 A[T1,2]=INT(A[T1,2]+G0<9 AND G[G0,3]>G[G0,2] THEN 7090 7480 IF K1=2 AND G0<9 AND G(G0,3)=G(G0,2) AND H=0 THEN 7090 7490 IF (K1=3 OR K1=4) AND K1=13-G0 THEN 7090 7500 ON ABS(K1=9)+1 GOTO 7550,7540 7510 ON ABS(K1<8 AND G0<9)+ABS(K1-3=G[G0,2]+2*ABS(K1=6)+ABS(K1=7))GOTO 7550,7090 7520 IF 14-(K1/2)=G0 THEN 7090 7530 GOTO 7550 7540 IF G0<9 AND G[G0,3]=G[G0,2] THEN 7090 7550 NEXT K2 7560 NEXT K1 7570 STOP 7580 PRINT:PRINT:PRINT 7590 INPUT "PLAY AGAIN ";A$:IF LEFT$(A$,1)="Y" THEN RUN 0 7550 NEXT K2 7560 NEXT $(Z$,3)<>"ALL" THEN 6200 6110 A0=1 6120 FOR K7=39 TO 1 STEP -1 6130 IF B(K7,1)<>1 OR B(K7,2)=0 THEN 6180 6140 X=K7 6150 GOTO 6230 6160 PRINT "Insufficient funds, can't continue!" 6170 RETURN 6180 NEXT K7 6190 GOTO 6310 6200 GOSUB 5120 6210 IF X=0 THEN 6360 6220 IF B(X,1)<>1 OR B(X,2)=0 THEN 6360 6230 IF .55*P[X]>A[1,1] THEN 6160 6240 W=-P[X]/20 6250 GOSUB 6970 6260 W=W*10 6270 A7=0 6280 GOSUB 6970 6290 B[X,2]=0 6300 IF A0 THEN 6180 6310 PRINT "DONE. "; 6320 GOSUB 46TO 39 6560 READ P$ 6570 IF LEN(P$)=1 THEN 6730 6580 IF B(K4,2)=0 OR B(K4,1)<>2 THEN 6730 6590 XX=FNG(K4):XY=FNF(K4):IF XY>XX THEN XX=XY 6600 G0=XX 6610 IF G0=9 AND A[2,1]>200 THEN 6650 6620 IF G[G0,2]=G[G0,3] THEN 6650 6630 X9=K4-L(1)+40*ABS(K4-L(1)<0) 6640 IF X9<7 OR X9>14 THEN 6730 6650 IF P[K4]*.55>A[2,1]-100 THEN 6730 6660 W=-P[K4]/20 6670 GOSUB 7380 6680 W=W*10 6690 A7=0 6700 GOSUB 7380 6710 PRINT "COMAC pays off ";P$ 6720 B[K4,2]=0 6730 NEXT K4 6740 RETURN 6750 XX=F910 PRINT P$;" - no rent" 6920 RETURN 6930 W=-25*2^(G[9,3-T]-1)*D3 6940 GOTO 6830 6950 W=-(4+6*ABS(D3=2 OR G[10,3-T]=2))*R0 6960 GOTO 6830 6970 T1=1 6980 IF A[T1,2]+W<0 THEN 7320 6990 IF A[T1,1]+W >= 0 THEN 7280 7000 IF T1=2 THEN 7400 7010 PRINT USING"YOU ARE $ #### SHORT. MUST MORTGAGE! ";-W-A(T1,1); 7020 GOSUB 5010 7030 W=W9 7040 IF Z$="" THEN 6970 7050 IF X THEN 7080 7060 PRINT "IMPROPER PROPERTY ";Z$ 7070 GOTO 6970 7080 IF B[X,1]-T1 THEN 7060 7090 X5=H*FNH(G1)/2 71W*A7) 7300 A7=1:T1=1:Q8=1 7310 RETURN 7320 A[3-T1,2]=A[3-T1,2]+A[T1,2] 7330 IF T1=1 THEN 7360 7340 PRINT:PRINT:PRINT: PRINT "YOU WIN BY $";A[1,2] 7350 GOTO 7580 7360 PRINT:PRINT:PRINT: PRINT "COMAC WINS BY $";A[2,2] 7370 GOTO 7580 7380 T1=2 7390 GOTO 6980 7400 FOR K1=1 TO 10 7410 FOR K2=39 TO 1 STEP -1 7420 IF B[K2,1]<>T1 THEN 7550 7430 XX=FNG(K2):XY=FNF(K2):IF XY>XX THEN XX=XY 7440 G0=XX 7450 GOSUB 5160 7460 ON B[K2,2]*(ABS(K1<5)+2*ABS(K1>4)) GOTO 7550,7510 7470 IF K1=1 AND     j8280:: 8j0=500:+jT1U0=500:;jT1U0=500:KjT1U0=300:[jT1U0=120:ljT1U0=80::*k2" G A L A C T I C E M P I R E VERSION 2.0 "D64,170) " "<30)"(C) 1979 DOUGLAS G. CARLSTON "<30)"P.O.BOX 3266 "<30)"EUGENE, OREGON 97403"Wl DNL,NNP,TNZ:ANC: U(49),U1(49),U2(49),U3(49),C(19),RO(19),PS(19),PE(19),PA(19),PB(19),PC(19),PD(19):3::2"1) NEW GAME 2) LOAD DISK": T::TU2J""I",1,"EMPFL": 195:180'l PD(P1)U1:PUP1:178:T8U0=8:2@585," PLANETFALL: "C(P);:6:: ";:2?"###.#";SD;:2@108,"MODE:";:2@300,BF"S : "F;:2@364,BT"S :";:2@427,TE"EMPTY,"TF"FULL";:2@492,BS"S : "V;:2@556,"CREDITS : ";:2?"#O(T9)URO(T9)O1.01::^(2E3)U1J159:D5T2E4JD5U0^oT9U0=49:U1(T9)U5RSDTUU(T9)JPS(U2(T9))U2:U1(T9)U0:U(T9)U0fo:Op2@682,"CONTROLS:";:2@747,"=A= ATTACK";:2@811,"=C= COMPUTER";:2@875,"=E= EMBARK";:2@939,"=O= ORDERS";pF9U0J194: 30:WSUSD:WQUSDMDL:W1U0:W2U0: 246p178:2@582,"NAVIGATOR HAS NO ORDERS";:3:171: 12'qZU1:178:2@115,"UNDERWAY";:2@585,"DESTINATION: "C(P1);:2@643TT)U0:U1(TT)U02s"TT:TTU0=49:U(TT)VSDN5SU(TT)TSDSU1(TT)VT4SU3(TT)VTPJ35:178:2@586,BS" SHIP TO";:2@652,C(U2(TT))" HAS RETURNED ";:PD(U2(TT))U1:5:VUVM1:U(TT)U0t#TT:171:FFMTNMVNU0J38:178:2@451,"ADDITIONS TO FLEET: ";:FFU0J36:2@586,FF;BF"S";:FUFMFF:16Bt$TNU0J37:2@650,TN;BT"S";:TEUTEMTN:16kt%VNU0J38:2@714,VN;BS"S";:VUVMVN:16{t&5:171: 12ut'178:2@452,"ENTER CATEGORY :";:2@586,"=A= STAR MAPS";:2@650,"=B= PLANETARY DIRECTORY";:2@714,"=C= STATUS REPORTS";Du(BMU"COMPUTER":172:AU"A"J41: ";:I1UXU: 47Iw22@600,A" ";:I2UXU:177:2@642,"("PA(I1)PB(I1)PC(I1)") ";:2@662,"("PA(I2)PB(I2)PC(I2)") ";:2@707,"SYSTEMS ARE "D2" LIGHT YEARS APART ";bw32:WWU0:WPU9J: 47Dx4175:DXU394:171:2@842,"PLANETARY DIRECTORY";:2@385,"EMPIRE:";:XNU0=19:PS(XN)T1J53: 55:55{x5(DXP64NX(DXP64))O64Ms(C(XN))T39JDXUX(DXP64)O64M65x62@DX,C(XN);:DXUDXMs(C(XN))M2:qx7:DXUX(DXP64)O64M65:2@DX,"INDEPENDENT: ";:DXUDXM14:XNU0=19:PS(XN)V2J53::#y8172:171:XNU1=80:(XN,36)::AU"R"J175: 39Ky92@385,"DATA ON WHI2@586,w(217);:7:Rl 2@65,"ORBITING: "C(P);:171:SDT1.5J319m BMU"COMMAND":172:AU"Q"J197: 184:AU"E"JPUP1 23:13:AU"C"J39: 12:AU"A"J92:AU"O"J119:12m BSU"SCOUT":BFU"FIGHTER":BTU"TRANSPORT":T9U65=257L64:2@T9,w(234);:n2@0,D(41,176);:AUw(170)Mw(26)Mw(8):2@104,A;A;A;A;:BUw(149)Mw(26)Mw(8):2@64,B;B;B;B;:2@320,D(41,179);:2@234,w(151);D(20,131);w(171);:2@298,B;B;B;B;B;B;n2@319,A;A;A;A;A;A;:2@618,D(22,131);:2@384,B;B;B;B;B;B;:2@424,A;A;A;A;A;A;:2@768,D(41,131);:16: 21.oSDUSDM.001:2@44,"STARDATE,"ESTIMATED ARRIVAL: STARDATE "X(SDMDL);:25: 26GqX(Z)U^(40)M20:Y(Z)U7M^(2):RO(XU)T1002"EST. OVER A BILLION";:RO(XU)TRO(0)2"GREATER THAN GALACTICA";:RO(XU)T102"EST. OVER 100 MILLION";:2"EST. UNDER 100 MILLION";f{?2@643,"TECHNICAL LEVEL: ";:PE(XU)U0J2"PRIMITIVE";:PE(XU)U1J2"LIMITED ATOMIC";:PE(XU)U2J2"SOPHI   STICATED";:2"SUPERIOR TO OURS";{@172:171:AU"R"J175: 39:52<|A171:2@385,BS"S: -- STATUS REPORT --";:LU449:TTU0=49:U(TT)VSDN5J66:U1(TT)VT4J66:2@L,D(39,32);:2@L,"TO "C(U2(TT))" DUE "C(U3(TT))" ON SD"U(TT);:LULM64:5:LT710JLULN320@|B:172:171:2@385,"OTHERS: -- STATUS REPORT --";:LU449:TTU0=49:U(TT)VSDN5J68:U1(TT)T3J68:U2(TT)U0J68:!U1(TT)69,70,71}C2@L,w(230);:2@L,U2(TT)BB"S DUE "C(U3(TT))" ON SD"U(TT);:LULM64:LT710JLULN320:5:5/}DTT:172:171: 39;}EBBUBF:G}FBBUBT:S}GBBUBS:*}H,A" SYSTEM NOT ON LOCAL MAP ";: 79:XNU0=100:(XL,YL):(XL,YL):_OF(XP,YP)J80:(XP,YP):XZU1=10::(XP,YP): 73vPXZU0=19:!WW 82,813QXGUPA(XZ)O78P60M2:YGUPB(XZ)O17P60M18:XGUXPRYGUYPJ83:84zRXGU(PA(XZ)NXH)O39P10M40:YGU(PB(XZ)NYH)O9P10M27:XGUXPRYGUYPJ83:84S2@832,C(XZ),"(";PA(XZ);PB(XZ);PC(XZ);") ";:PS(XZ)U22@898,"EMPIRE ":5:PS(XZ)U32@898,"GARRISONED ":5:2@898,"INDEPENDENT":5(TXZ:F(XPM1,YP)J85:XPUXPM1: 73HUF(XP,YPM1)J86:YPUYPM1: 73`VXPUXPN1:YPUYPN1: 73}W91:XPT1XPUXPN1: 7VU0J104:!G 97,98,99,100DaG1U^(3):G2U^(3):G3U^(20): 101hbG1U^(3):G2U^(2)N1:G3U^(10): 101 cG1U^(2)N1:G2U^(3):G3U^(50): 101)dG1U^(2):G2U^(4):G3U^(40)eFUFNG1:F8UF8MG1:EFUEFNG2:E8UE8MG2:7:AUI:G3U1 179:^(30)U1175:PE(P)VT3JGU^(4)fFV0JFU0:EFV0JEFU00gAU"R"J116:16: 96fh175:171:2@586,"ENEMY AIR FORCES DEFEATED!!";:2*i171:178:BU"LAND":95:EFURO(P)O2:GU^(4):F8U0:E8U0:PS(P)U1JGU2 j2@538,X(TFO100P(TFMEF));:2@715,F8;:2@727,E8;:TFVU0J116:EFVU0J114:!G107,108,109,110: 111#kG1U^(3)N1:G2U^(40JTFU0GuTFV0JTFU0Xv16:171: 12w171:2@385,"ORDERS FOR WHICH OFFICER?";:2@514,"LT. STARBUCK - "BS"S";:2@578,"LT. BAYLISS - GROUND FORCES";:2@642,"NAVIGATOR KIRMAN";:2@706,"DR. HENDERSON - CRYONICS";mxBMU"ORDERS":172:171:175:AU"R"J12:AU"S"J121:AU"B"J125:AU"N"SAU"K"J142:AU"D"SAU"H"J146:119- yVVU0J175:2@832,"SIR, I HAVE NO "BS"S!";:3:175:171: 1199 z2@832,"WHICH SYSTEM SHOULD I "BS"?";:123:PD(XU)U1175:2@832,"THAT DATA IS ALREADY";:2@898," IN THE COMPUTER, SIR";:3:175: 122:124u {1)V2J125:PE(P)V2175:2@832,"SORRY SIR, THIS PLANET TOO BACKWARD";:2@898," TO BUILD SHIPS";:2:175: 125:129: 131v K2URO(P)P10:K2V5RPE(P)VT3JK2U5:K2V9RPE(P)U3JK2U9s 178:2@451,"PRICES:";:2@517,BF"S --"XF;:2@581,BT"S --"XT;:2@645,BS"S --"XS;:2@707,"(MAX. OF"K2"SHIPS PER YEAR)";: 132:WQVSDJWQUSD: 133:133H 175:2@832,"LT. BAYLISS REPORTING, SIR! ";:5:. UU1=3:N(U)U0::2@898,"PLACE ORDERS FOR HOW MANY YEARS? ";:VWU100:198:Y2Uu(B):UU1=3:!U69,70,71175:AUI:2@832,"BUILD HOW MANY "BB"S171:XNU0=19:XUPA(XN):YUPB(XN):XUXO78P60M2:YUYO17P60M18:(X,Y)::XPU40:YPU18:WWU2:~IAUI:(XP,YP):AU"R"JAU"":171:175: 39:e(14400)U32J87:e(14400)U64J88:e(14400)U8J89:e(14400)U16J90:T4U1=7::(XP,YP):AU""J16: 73M~J176:!WW 76,75~KAU"X"J73:XLUPA(XU)O78P60M2:YLUPB(XU)O17P60M18: 77C~LAU"X"J73:XLU(PA(XU)NXH)O39P10M40:YLU(PB(XU)NYH)O9P10M27>M2@832,A,"("PA(XU)PB(XU)PC(XU)") ";:PS(XU)U22@898,"EMPIRE ";:PS(XU)U32@898,"GARRISONED ";:2@898,"INDEPENDENT";,NWWU1RXLT80SXLV1SYLV18SYLT352@8329:79X91:XPV80XPUXPM1: 79:799Y91:YPT18YPUYPN1: 79:79WZ91:YPV35YPUYPM1: 79:79f[(XP,YP):%\F8U0:E8U0:PS(P)T12@586,"ATTACKING EMPIRE SYSTEM!!!";: 191z]TFV1J2@586,"NO FULL TRANSPORTS --";:2@650,"IMPOSSIBLE TO ATTACK!!";:4:171: 12I^PE(P)V2J105:178:BU" AIR":95:EFU(^(100)M30):GU^(4):PE(P)U3JGU2: 96:96F_2@451,B;" BATTLE REPORT";:2@515,"PROBABILITY OF SUCCESS: %";:2@586,"EMPIRE ENEMY";:2@650,"LOSSES LOSSES";:"`2@538,X(FO100P(FMEF));:2@715,F8;:2@727,E8;:FVU0STFVU0J116:EF):9lG1U^(3):G2U^(2):OmG1U^(3):G2U^(3):gnG1U^(2)N1:G2U^(2):io2@427,w(212);:RO(P)URO(P)NG2P10:TFUTFNG1:F8UF8MG1:EFUEFNG2:E8UE8MG2:16:RO(P)V0JRO(P)U0:2@650,"POPULATION ANNIHILATED";: 114pTFV0JTFU0:EFV0JEFU0>q6:AUI:AU"R"J116:^(30)U1RPS(P)VT1JGU^(4): 106:1062r169:U(XX)USDM10:U1(XX)U5:U2(XX)UP:PS(P)U3:PD(P)U1:RO(P)URO(P)NE8P100:171:178:2@586,"PLANET SECURED";:2:171osKKU0:T9U0=19:PS(T9)T1JKKUKKM1:KKT19J184:: 12:: 128t171:178:2@586,"ATTACK UNSUCCESSFUL";:5:FVU0J16: 187:TFV72:AU"R"J171:175: 119:176:AU"X"J123:2@896,A;: |I1UP:I2UXU:177:KUSDMD2:169:U1(XX)U4:U2(XX)UXU:175:2@832,"WHERE SHOULD I RETURN?";:123:I1UXU:177:U(XX)UKMD2:U3(XX)UXU:4:175:VUVN1:171: 119C }PS(P)V2J2@832,"WE'RE OVER AN INDEPENDENT SYSTEM, SIR!";:4:175: 119:2@385,"LT. BAYLISS' DUTIES :";:2@517,"=1= SHIP CONSTRUCTION";:2@581,"=2= ENLISTMENTS";:2@645,"=3= TAXATION"; ~172:171:AU"R"J119:AU"1"SAU"2"SAU"3"JXUu(A):!X 127,148,156:125A WSVTX(SD)XFU22M^(10):XTU10M^(10):XSU2M^(5):WSUSD> PS(P EACH YEAR?";:2@898,"";:VWU20:198:VWU100:BU"R"J175:WQUY3: 119\T6U0:N(U)Uu(B):T5U1=U:T6UT6MN(T5)::T6TK2J174: 134:T6VTK2JY3UWQ=WQMY2N1:X9U1=3:!X9 137,138,1394 MUMNXFON(X9):MV0JMUMMXFON(X9): 141:161a MUMNXTON(X9):MV0JMUMMXTON(X9): 141:161 MUMNXSON(X9):MV0JMUMMXSON(X9): 141:161' 16:BU"":X9,Y3:WHU0@ WQUY3:175:171: 12516:175:2@832,"KIRMAN REPORTING SIR!";:2@898,"WHAT IS OUR DESTINATION?";:172WPU9:AU"R"J171:175: 119:176:AU"X"J142:175:2@832,A"!! YES SIR!!!";:XUU   PJ145:178:2@580,C(P);:I1UP:50:WPU0:DLSUD2.171:P1UXU:175: 119 T9U1=200::2@832,"I MEAN NO SIR. THAT'S WHERE WE";:2@898,"ARE RIGHT NOW!!";:3:175: 1422@832,"DR. HENDERSON REPORTING.";:2@896,"HOW MANY YEARS OF SUSPENDED ANIMATION? ";:198:BU"R"J175: 119:Y2Uu(B):Y3U1=Y2:5:SDUSDM1:16:x175:178:TLU1=10:2@585," WAKE UP, SIR!!!";:6:2@586,w(207);:T8U1=30:T8,TL:171: 11"W1U1J119:W1U1:178:2@522,"ORBITING: ";C(P);:2@586,"POPULATION: ";X(RO(P)O10);" MILLION";:2@650,"AVAILABLE "BT"S: ";T 119+T7U0=19:PS(T7)U3J160::4 175:2@832,"LT. STARBUCK SIR!!";:2@898,"MERCHANT REPORTS THAT "C(T7)" HAS REVOLTED!!":PS(T7)U0:2:175:x(C(T7),1)U"S"JPS(T7)U1::T!Y3TSDJ165:!X9 162,163,164g"FUFMN(X9): 140|#TEUTEMN(X9): 140$VUVMN(X9): 1403%N(X9)U0J140:WHUY3J168:WHUY3A&175:2@832,"SEND SHIPS COMPLETED IN SD"Y3"TO:";:2@898,"(ENTER =C= FOR REFERENCE TO COMPUTER)";:172:AU"C"J171:39:130:BMU"ORDERS": 166d'175:176:AU"X"J166:2@832,A;/(169:U1(XX)UX9:U2(XX)UN(X9):U3(XX)UXU:I1UP:I2UXU:212);:TFUTFN1:16:175:2@832,"THEY GOT A "BT"!!!";:6:175: 1024WQU1:VWU100:SDU1: C(0):PU1=19T5T9U^(19):C(T9)U""J C(T9):x(C(T9),1)U"S"JPS(T9)U1:::181s6PD(0)U1:PS(0)U2:PU0=19: RO(P):P:PU0=19: PE(P)::PU0=4:PA(P)U^(15)M23:PB(P)U^(15)M23:PC(P)U^(5)M5::PU5=14:PA(P)U^(30)M15:PB(P)U^(30)M15:PC(P)U^(15):I7PU15=19:PA(P)U^(60):PB(P)U^(60):PC(P)U^(15):P:MU1000:FU100:TEU100:VU5:PU0:: 13 8KKU0:T9U1=19:PS(T9)T1JKKUKKM1:SCUSCMRO(T9)O(PE(T9)M1)::k9171:178:2@580,KK" SYSTEMS IN "SD" YEARS";:2@148," ";:2@204,D(22,32);0A2@210,w(160)w(190)w(191)w(191)w(180);:2@275,w(139)w(143)w(143)w(129);:71B2@207,w(32)w(176)w(184)w(188)w(188);D(7,191);w(189)w(188)w(188)w(176)w(144);:2@269,w(160)w(188);D(17,191);w(189)w(180);:7:uCTU0=49: #1,U(T),U1(T),U2(T),U3(T)::TU0=19: #1,C(T),RO(T),PS(T),PE(T),PA(T),PB(T),PC(T),PD(T):: #1,D5,F,KK,M,P1,P,V,SC,SD,VN,FF,TN,TE,TF,W1,W2,WP,WQ,WS,WW,XP,YP,Z,DL,VW,XF,XS,XT:&:5:: 13FD""O",2,"EMPFL":TU0=49:2#2,U(T);U1(T);U2(T);U3(T);::TU0=19:2#2,C(T)","RO(T);PS(T);PE(T)E;:!PS(P)M1152,150,151,152:x(C(P),1)U"S"K1U10+ 1537K1U10:BK1U2:MK1U1:175:2@832,"FILL HOW MANY "BT"S, SIR?";:2@898,"";:198:D1Uu(B)D1TTE175:2@832,"NOT ENOUGH ROOM ABOARD "BT"S, SIR!!";:3: 153:D1TRO(P)OK1175:2@832,"OVER"K1"PERCENT OF POPULATION SIR!!";:3: 153j2@427,w(212);:RO(P)URO(P)ND1P100:TEUTEND1:TFUTFMD1:W1U1:16:171:175: 119W2U1J119:W2U1:PS(P)V2J119:1758RO(P)T400JKHU4000:KHUX(RO(P)O10) 175:2@832,"WE HAVE RAISED"KH"CREDITS IN TAXES, SIR!";:MUMMKH:16:4:175:177:U(XX)UD2MY3: 140P)TTU0=49:U(TT)U0JXXUTT::~*TTU0=49:U(TT)VSDN5RU1(TT)VT5JXXUTT::<+X8U385=705L64:2@X8,w(231);::YU18=35:(1,Y):(80,Y):: ,AUI:LPU1=500:7:2@115,BM" ";:SDUSDM.001:AUI:AU""J6:2@115," ";:LP"-16:AU""J172:^.2@896,"SIR, THEY CAN ONLY BUILD"K2"SHIPS A YEAR! ":3:/2@832,D(43,32);:2@896,D(43,32);:40XUU0=19:x(C(XU),1)UAJAUC(XU):::AU"X":y1D2UX(]((PA(I1)NPA(I2))Q2M(PB(I1)NPB(I2))Q2M(PC(I1)NPC(I2))Q2)):$22@385,"COMPUTER CENTRAL REPORTING:";:p32@427,w(714,"SCORE : "SCNSD;:175:2@832,"PLAY AGAIN?";:AUI:AU"Y"J:AU"N"J"MENU.JIM":186i;171:175:178:2@586,"WE ARE UNDER ATTACK!";:2:T9U1=500: 255,8:2w(28);:: 184<GALACTICA,PROYC,ALHAMBRA,YANG-TZU,MOONSWEEP,SPARTA,JAVINY,BOK,EVENTIDE,LLYTHLL,OOTSI,UTOPIA,TWRYX,DRASSA2,FARSIDE,KGOTLA,NOVENA,VIEJO,ZOE,HARKON@=40,25,13,68,102,37,2,7,181,50,88,34,67,92,137,14,19,28,3,19m>2,2,1,2,2,1,3,0,1,2,2,2,1,1,2,3,0,2,1,0?TFUTFP2:FUFP2:16:2:171: 12c@2@212,w(174)w(132);:7:2@211,w(136)w(191)w(157);:7;:2@;PA(T);PB(T);PC(T);PD(T);::2#2,D5;F;KK;M;P1;P;V;SC;SD;VN;FF;TN;TE;TF;W1;W2;WP;WQ;WS;WW;XP;YP;Z;DL;VW;XF;XS;XT;:&: E2@832,"1) END GAME 2) SAVE DATA ON DISK";: T:TU2J 196:175:rFAUI:AU""SAUw(13)SAUw(10)J198:v(A)V48Sv(A)T57J198:2A;:BUA:T9U1=VW:AUI:AUw(13)J:BUBMA:2A;::H:HTUHTN64:!HT 1410,6   6bANZ>b MU8Yb M%(4OMOM),N$(1),S%(7)cS%(1)Uv("*"):S%(2)Uv("."):S%(3)Uv("C"):S%(4)Uv("M")RV1SRTMSCV1SCTMJ870mHLUCM(RN1)OM:TU1,mRM%(L)US%(T)J80,1110,1110,1070,1080,1090,1100uo.^(0)V.15J7000o/ 1110o8^(0)V.10J8000o9 11101oB^(0)V.05J9000;oC 1110PoL^(0)V.25J10000VoV\o[p`IU0=1:P7UP8(I):P7VU0J1171:P9U1=P7:^(0)T.05OWJ1170%pjIU1J1140^po5000:2"MISSILE SUBMARINE";P(I)MP8(I);" ON STATION."|pt40000:JUFR:P8(I)UP8(I)N18p~IU0J2J;"SUBMARINE MISSILES READY TO FIRE.":2"TARGETS";VpIU1RA8(0)T0J7015:7030\pbp{pLU1=MOMO2:PULMMOMO2qM%(P)US%(1)JM%(L)US%(1)qAqIU0=1:^(0)T.1OWSB8(I)U0J1340mq&B8(I)V5JJUB8(I):0):Q6UP8(1)O6MB8(1):IU0=1:Q2U0Is_MM(I)U0:B(I)U0:P(I)U0:A(I)U0:LU1MIOMOM=(IM1)OMOMQsdTU1teM%(L)US%(T)J1390:TUTM1:TV8J1381:2"E1380",tn!T 1450,1450,1450,1400,1410,1420,1430DtxMM(I)UMM(I)M1: 1440ZtB(I)UB(I)M1: 1440pt P(I)UP(I)M1: 1440tA(I)UA(I)M1t QUQM1:Q2UQ2M1Lt*::Q1UQNQ2:QUQMQ5MQ6:Q5UQ1O3MQ5:Q6UQ2O3MQ6:QU0J1530ct4WUWM1:^(0)V.5J800u>2"THE PREMIER OF ";N$(1);" IS ON THE HOT LINE."SuHA$U"": "DO YOU WISH TO NEGOTIATE A PEACE SETTLEMENT";A$iuRx(A$,1)VT"Y"J800u\(Q5M1)P(Q6M1)T^(0)J15201uf2"NEGOTIAT)adM%(L)UA%::|d YU1955MX(10O^(0)):Y0UY eM!U.33O^(0)%eYUYM1:2Y;" COLD WAR"/e 5000Te>T9U5:YTU1965JT9U6:YTU1970JT9U7 eHA$U"": "COLD WAR ORDERS";A$:A$Ux(A$,1):A$U"W"J580/eM^(0)V(YNY0)O.01J590:Q1U1J340ZeRBU1:SS(0)U3OM:A$U"S"J220:BU2:SS(0)UMee\IU1=BffA$U"": "TYPE OF INSTALLATION";A$:A%Uv(A$)fT8U4Df{A%US%(T8)J270:T8UT8M1:T8VUT9J251kf2"IMPROPER TYPE, TRY AGAIN.";: 230f "LOCATION";R,C:RUX(Y(R)):CUX(Y(C)).fRVU0SRTMSCVU0SCTMJ320Pf"LUCM(RN1)OM:M%(L)VTS%(2)J320cf,A%VTS%(6)J330|f6RU1SRUMijLUCMPMMOR:TU18ikM%(L)US%(T)J500:TUTM1:TV8J491OitTV4S^(0)V.998J550}i~IU0J2"NUCLEAR ACCIDENT AT";RM1;",";C;"!"/iM%(L)US%(1):R1URN1MX(3O^(0)):C1UCN1MX(CO^(0))IiR1V0SR1TMN1SC1TMJ550eiLUC1MPMMOR1:M%(L)US%(1)oi&::&j0Q1U1J2"ORDER TO STRIKE FIRST HAS BEEN DISOBEYED."4j:Q1U0: 150XjDSS(0)U0:Q1U1:^(0)V.25J205:600bjIYUYM1kjNQ2U1 jX2"**NUCLEAR WAR**":Q3UQ1:Q4UQ2:A$U"S"JQ1U1:QUQ1@jbIU0=1:LUIOMOMM1=(IM1)OMOMUjlM%(L)US%(4)J760jjvM%(L)US%(5)J720jM%(L)US%(6)J690k M%(L)VTS%(7)J770-80?m\TUTM1:TV8J850qmf2"NO BASE AT THAT LOCATION, TRY AGAIN.";: 820mp!T 870,870,870,890,910,920,930#mz7010: 9402m8000: 940Am9000: 940Lm"10000{m,Q2U0J1040:T8UMOMM1MX(MOMO^(0)):T9UT8:IU1n6T9UT9M1:T9TMOMO2JT9UMOMM1'n@LUT9:TU1=nJM%(T9)US%(T)J990YnTTUTM1:TV8J970:2"E970"n^!T 950,950,950,1000,1010,1020,1030nh7010: 1040 nr8000: 10400n|9000: 1040;n10000bnIU0=1:(IU0RQ1U0)S(IU1RQ2U0)J1115{nLUIOMOMM1=(IM1)OMOMoTU1oM%(L)US%(T)J10607oTU1MT:TV8J1051:2"E1050"ao$!T 111JUX((B8(I)N3)O^(0))M4%q0B8(I)UB8(I)NJ:2J;"BOMBERS ARRIVE OVER ";N$(1NI);"."ZqDIU1RF8(0)MA8(0)T0J2"AIR DEFENSE COMMAND ALERT!"nqNF8(1NI)U0J1260rX^(0)V.9JJUJN1rYJU0J1330.rb^(0)V.8JF8(1NI)UF8(1NI)N18rc 1230LrlA8(1NI)U0J1290qrvA8(1NI)UA8(1NI)N1:^(0)V.5JJUJN1rJU0J1330:1260v2"NUCLEAR WAR IS OVER.":PUMOMO2:QU0:IU0=1:P2U0evLU1MMOMOI=(IM1)OMOM:M%(LMP)UM%(L) vM%(L)US%(1)J1580:QUQM1:P2UP2M12v"M%(L)VTS%(3)J1580:QUQM10:P2UP2M10Hv,::P1UQNP2:5000cv6Q3O^(0)T.5J1600:Q3U0~v@Q4O^(0)T.5J1610:Q4U0/wJQ3T0J2"WORLD OPINION IS AGAINST ";N$(0);"."cwK2"THE POPULATION OF ";N$(0);" IS";P1;"MILLION."wTQ4T0J2"WORLD OPINION IS AGAINST ";N$(1);"."HwU2"THE POPULA   TION OF ";N$(1);" IS";P2;"MILLION."x^R!U(P1M1)O(Q4M1)P(P2M1)P(Q3M1):R!V1JS!U1PR!:S!UR!xhS!UR!JPUP1:PUP2.xrPV.2OMO(MM10)J1690=x|S!T3J1700LxS!T2J1710]xS!T1.5J1720 x2"NEITHER COUNTRY GAINS ADVANTAGE.": 1740)x$2"TOTAL STRATEGIC";: 1730=x.2"MAJOR";: 1730Nx82"MARGINAL";yB2" VICTORY FOR ";:S!UR!J2N$(0);".":2N$(1);"." yL 63000&y2N$(0);u 30010DuPNU1:LNUs(A$):LNV3 0VC50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN 0/ 50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN V 50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN DOCTOR'S FEE @jj50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN SERVICES  + M1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN TAX REFUND T7V1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN XMAS FUND dC`1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN INHERIT dOrj1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN IRBORNE:";B8(0)wyYT1965J2"MISSILE SUBMARINES AT SEA:";P8(0)+zYT1970J2"ABM'S IN ACTIVE TRACKING MODE:";A8(0)1z"]zX40000:JUFR:M%(L)US%(2):IU0J7019:7015zb40000:JUFR:M%(L)US%(2):IU0J7020/zgA8(0)T0J2"ABM ALERT! INCOMING ICBM'S!"9zh 7030Czk5000{l2J;"MISSILES READY AT MISSILE BASE";MM(0);".":2"TARGETS"; {vJ2U1=J%{IU1J20020:30000?{ RV1SRTMSCV1SCTMJ7040[{A8(1NI)U0S^(0)V.1J7075{A8(1NI)UA8(1NI)N1:^(0)V.9J7110{#^(0)T`((1960NY)P10)J7100A{(RURN1MX(3O^(0)):CUCN1MX(3O^(0))[{2RV11NI)OMOM:L9UMOMN1ML8: 20030~4NI3U1:L8U1M(3NI)OMOM:L9UMOMN1ML8L~>NL7UL8MX((L9NL8M1)O^(0)):L6UL7:T(I,I3)T0J20060e~HNL6UL6M1:L6TL9JL6UL8m~RNTU3~SNM%(L6)US%(T)J20080:TUTM1:TV8J20051)~WNL6VTL7J20040I~\NT(I,I3)T1J20080:T(I,I3)U1b~aNL6UL6M1:L6TL9JL6UL8 fNM%(L6)VTS%(1)J20080:L6VTL7J20065kNT(I,I3)U2ApNRUX((L6NL8)PM):CUL6NL8M1NROM:RURM1:Q0u2":";:A$U""g:uB$UI:B$U""J30010;uBAUv(B$):BAU13J30020'u 30010DuPNU1:LNUs(A$):LNV3STOCK SALE - \50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN SCHOOL TAX j{t/50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN HOSPITAL u9 "50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN BANK ERROR [C%'50 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN LIFE INS. MATURES d[y1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN BEAUTY CONTEST ot@1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN GO (o1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN FROM EVERY PLAYER 2 +_C1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN    EACH PLAYER ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN NEAREST RAILROAD ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN BOARDWALK 'ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ILLINOIS AVE ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN NEAREST RR ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN POOR TAX ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ST CHARLES PLACE ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN Hl͵l[!GV))^C}lm@l͝ Gl͚GUmGl[h HlhHG͵ Hì\!GV\+hGlG!O@Hv͚GͶmG\ Hl͚ H! HV))^C}Gm@!HVL@͝Km Hl\h HG]\h Hl[ Gl͚GUmGH\ͱm H\fT !"d ]hH H͵l ]!GV))^C͚ͪG!GV\+X Gl͚GUmGH\hH H3Hl!2 ͚HͶmH] HH͚Hh!Hlh%H!H %HH͚)H!%HVm@!)HVm@]!)HVm@!%HV"AHm@#n))^C*AH))^Cn%H$SHELL BASOINIT COMMNOW RELbRSTUVXYINIT ASMNPEI)^ !c hGl!@|^)^ !c hGl!@|_)"_ !c hGl!@|2_)E_ !c hGl!@|e_ !c hGl!@;n_ !Zc @!Rcj@!Mc@!}!Icͻ|g}o|ʱ_ !c !@|_hREADING RR ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN NEAREST UTILITY ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN LOAN MATURES 2ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN GO (ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN BANK DIVIDEND 2ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN ND(0)*K+1) 7250 DEF FNH(K)=50*INT((K+1)/2) 7260 RETURN !R@ !2d !G !U@ !U@ hHl!X@v$[!GVX@!ͯGjG!GkE[ GH͚GͬmH<[ZmGlZE[UmGlZ!GVX@}@j !@ !Bd ![@ !2d !^@ !@ !Bd ![@ !2d !^@ !l !l !l !l Th H͚%HZm%HlS] !Hl͚!HPm!HH ]L]hGl!GV ^d^^^^F__-`M`a ! d _hGl @!} @jd! @Hv͚GͱmGc^ !G !c hGlhGl@!9dHv͚GͱmG^ !c hGl!@|ڣ^)ڶ^ !c hGl!@|^)^ !c hGl!@|^)^ !c hGl!@|_)"_ !c hGl!@|2_)E_ !c hGl!@|e_ !c hGl!@;n_ !Zc @!Rcj@!Mc@!}!Icͻ|g}o|ʱ_ !c !@|_h    1 'COPYRIGHT 1977 BY W.A.BURTON-DO NOT COPY WITHOUT PERMISSION ! 2 CLEAR 400 3 PRINT" SLOT-MACHINE......." 4 PRINT"DO YOU WANT INSTRUCTIONS (Y OR N)":INPUT H$:PRINT CHR$(26) 5 IF H$="Y" GOTO 85 6 IF H$="N" GOTO 7:GOTO 4 7 PRINT" ---------- SILVER DOLLAR SLOT ----------" 8 B$=" BIG 7 " 9 C$=" -BAR- " 10 D$=" $1OO " 11 E$=" FIFTY " 12 F$=" TEN " 13 J$=" $5.OO " 14 G$=" LEMON " 15 W$=" ------- ------- -------" 16ER!!!":GOTO 24 35 M=-M 36 S=S+M:PRINT CHR$(26) 37 FOR X=1 TO 9 38 A(X)=INT(RND(7)*101) 39 NEXT X 40 FOR Y=1 TO 9 41 IF A(Y)<2 THEN A$(Y)=B$ ELSE 43 42 GOTO 52 43 IF A(Y)<=5 THEN A$(Y)=C$ ELSE 45 44 GOTO 52 45 IF A(Y)<=13 THEN A$(Y)=D$ ELSE 47 46 GOTO 52 47 IF A(Y)<=26 THEN A$(Y)=E$ ELSE 49 48 GOTO 52 49 IF A(Y)<=55 THEN A$(Y)=F$ ELSE 51 50 GOTO 52 51 IF A(Y)<=94 THEN A$(Y)=J$ ELSE A$(Y)=G$ 52 NEXT Y 53 IF A$(1)=G$ THEN A$(1)=J$ 54 IF A$(2)=G$ THEN A$(2)=F$ 55 IF A$(4)=G$ THEN A$(4)=E$ OSUB 78 70 Q$=" "+A$(1)+" "+A$(2)+" "+A$(3)+" "+X$+L$ 71 R$=" "+A$(4)+" "+A$(5)+" "+A$(6)+" "+Y$+M$ 72 S$=" "+A$(7)+" "+A$(8)+" "+A$(9)+" "+Z$+N$ 73 PRINT P$:PRINTQ$:PRINTW$:PRINTR$ 74 PRINTW$:PRINTS$:PRINTP$:PRINT:PRINT 75 PRINT" YOUR STANDING IS: $";S 76 PRINT:PRINT:PRINT:PRINT:PRINT 77 GOTO 24 78 IF A$(N)=B$ THEN S=S+7500 79 IF A$(N)=C$ THEN S=S+2500 80 IF A$(N)=D$ THEN S=S+100 81 IF A$(N)=E$ THEN S=S+50 82 IF A$(N)=F$ THEN S=S+10 83 IF A$(N)=J$ THEN S=S+5 84 RETURN 85 PRINT"GETONLY WINNING COMBINATIONS ON A 'PAY LINE' WILL WIN MONEY..." 96 PRINT"THE 'LEMON' CANCELS THE PAYOFF ON ANY LINE ON WHICH IT APPEARS." 97 PRINT 98 PRINT"IF YOU HAVE BET MORE THAN $1, IT IS POSSIBLE TO HAVE MORE THAN" 99 PRINT"ONE SIMULTANEOUS PAYOFF......." 100 PRINT"EXAMPLE: IF YOU HAVE BET $2 AND YOU GET $5.OO SYMBOLS IN EACH" 101 PRINT"POSSIBLE POSITION, YOUR NET GAIN WOULD BE $1O MINUS YOUR $2" 102 PRINT"BET OR $8...YOU WOULD MISS AN ADDITIONAL $5 PAYOFF ON THE LAST" 103 PRINT"LINE BECAUSE YOU H P$=" -------------------------------------" 17 INPUT"WHAT IS YOUR LUCKY NUMBER (1 TO 25OOO)";K 18 IF K>25000 THEN 17 19 IF K<1 THEN 17 20 IF K<>INT(K) THEN 17 21 IF K<71 THEN K=K+77 22 P=K MOD 73 23 FOR O=1 TO P:O1=RND(7):NEXT O 24 INPUT" YOUR BET ($1,$2 OR $3) ";M 25 L$="":M$="":N$="" 26 Y$=" ---- PAY LINE ----":X$="":Z$="" 27 IF M>1 THEN X$=Y$ 28 IF M=3 THEN Z$=Y$ 29 IF M=2 THEN Z$="" 30 IF M<1 THEN 34 31 IF M>3 THEN 34 32 IF M<>INT(M) THEN 34 33 GOTO 35 34 PRINT"INVALID BET, REENT56 IF A$(5)=G$ THEN A$(5)=J$ 57 IF A$(7)=G$ THEN A$(7)=F$ 58 IF A$(8)=G$ THEN A$(8)=E$ 59 N=1 60 IF X$<>Y$ THEN 63 61 IF A$(1)=A$(2) AND A$(2)=A$(3) THEN L$=" WINNER":GOSUB 78 62 IF A$(1)=A$(2) AND A$(3)=C$ THEN L$=" WINNER":GOSUB 78 63 N=4 64 IF A$(4)=A$(5) AND A$(5)=A$(6) THEN M$=" WINNER":GOSUB 78 65 IF A$(4)=A$(5) AND A$(6)=C$ THEN M$=" WINNER":GOSUB 78 66 IF Z$<>Y$ THEN 70 67 N=7 68 IF A$(7)=A$(8) AND A$(8)=A$(9) THEN N$=" WINNER":GOSUB 78 69 IF A$(7)=A$(8) AND A$(9)=C$ THEN N$=" WINNER":G THREE OF A KIND ON A 'PAY LINE' AND YOU WIN THAT AMOUNT" 86 PRINT"THREE 'BIG 7'S PAYS $75OO; THREE -BAR-S PAYS $25OO....." 87 PRINT 88 PRINT"ANY PAIR ON A LINE WITH A -BAR- IN THE THIRD POSITION PAYS" 89 PRINT"AS IF IT WERE THREE OF A KIND..." 90 PRINT"EXAMPLE: $1OO $1OO -BAR- IS A $1OO.OO WINNER..." 91 PRINT 92 PRINT"IF YOU BET $1 ONLY THE CENTER LINE IS A 'PAY LINE'; IF" 93 PRINT"YOU BET $2 THE TOP TWO LINES ARE 'PAY LINES'; IF YOU BET $3" 94 PRINT"ALL THREE LINES ARE PAY LINES. 95 PRINT"AD ONLY BET $2......GOOD LUCK !!" 104 PRINT 105 GOTO7 ISS AN ADDITIONAL $5 PAYOFF ON THE LAST" 103 PRINT"LINE BECAUSE YOU HPEARS." 97 PRINT 98 PRINT"IF YOU HAVE BET MORE THAN $1, IT IS POSSIBLE TO HAVE MORE THAN" 99 PRINT"ONE SIMULTANEOUS PAYOFF......." 100 PRINT"EXAMPLE: IF YOU HAVE BET $2 AND YOU GET $5.OO SYMBOLS IN EACH" 101 PRINT"POSSIBLE POSITION, YOUR NET GAIN WOULD BE $1O MINUS YOUR $2" 102 PRINT"BET OR $8...YOU WOULD MISS AN ADDITIONAL $5 PAYOFF ON THE LAST" 103 PRINT"LINE BECAUSE YOU H    10 DIM D(5),K1(7),K2(7),K3(7),S(7,7),Q(7,7),D$(5) 20 Q$=".EKB*" 30 D$(0)="WARP ENGINES" 40 D$(1)="SHORT RANGE SENSORS" 50 D$(2)="LONG RANGE SENSORS" 60 D$(3)="PHASERS" 70 D$(4)="PHOTON TORPEDOES":D$(5)="GALACTIC RECORDS" 80 INPUT"PLEASE ENTER A RANDOM NUMBER";E$:I=ASC(E$) 90 I=I-11*INT(I/11):FOR J=0 TO I:K=RND(1):NEXT:PRINT"WORKING-" 100 DEF FND(N)=SQR((K1(I)-S1)^2+(K2(I)-S2)^2) 110 GOSUB 610:GOSUB 450:Q1=X:Q2=Y:X=8:Y=1:X1=.2075:Y1=6.28:X2=3.28 120 Y2=1.8:A=.96:C=100:W=10:K9=0:B9=0:S9=400:T9=34RINT"YEARS.":PRINT" THE NUMBER OF STARBASES IS";B9 230 A=0:IF Q1<0 OR Q1>7 OR Q2<0 OR Q2>7 THEN N=0:S=0:K=0:GOTO 250 240 N=ABS(Q(Q1,Q2)):Q(Q1,Q2)=N:S=N-INT(N/10)*10:K=INT(N/100) 250 B=INT(N/10-K*10):GOSUB 450:S1=X:S2=Y 260 FOR I=0 TO 7:FOR J=0 TO 7:S(I,J)=1:NEXT J,I:S(S1,S2)=2 270 FOR I=0 TO 7:K3(I)=0:X=8:IF I0 THEN GOSUB 460:S(X,Y)=4 300 IF I>0 THEN GOSUB 460:S(X,Y)=5:I=I-1:GOTO 300 310 GOSUB 550:IF A=0 THEN GOSUB 480 320 I X=INT(RND(1)*8):Y=INT(RND(1)*8):RETURN 460 GOSUB 450:IF S(X,Y)>1 THEN 460 470 RETURN 480 IF K<1 THEN RETURN 490 IF C$="DOCKED" THEN PRINT"STARBASE PROTECTS ENTERPRISE":RETURN 500 FOR I=0 TO 7:IF K3(I)<=0 THEN NEXT:RETURN 510 H=K3(I)*.4*RND(1):K3(I)=K3(I)-H:H=H/(FND(0)^.4):E=E-H 520 E$="ENTERPRISE FROM":N=E:GOSUB 530:NEXT:RETURN 530 PRINT H;"UNIT HIT ON ";E$;" SECTOR";K1(I)+1;"-";K2(I)+1; 540 PRINT" (";N;"LEFT)":RETURN 550 FOR I=S1-1 TO S1+1:FOR J=S2-1 TO S2+1 560 IF I<0 OR I>7 OR J<0 OR J>7 THENS.";:I=4:GOTO 630 700 N=15:IF P<1 THEN PRINT"NO TORPEDOES LEFT":GOTO 650 710 IF A=5 THEN PRINT"TORPEDO "; 720 INPUT"COURSE (1-8.9)";C:IF C<1 THEN 650 730 IF C>=9 THEN 710 740 IF A=5 THEN P=P-1:PRINT"TRACK:";:GOTO 900 750 INPUT"WARP (0-12)";W:IF W<=0 OR W>12 THEN 710 760 IF W<=.2 OR D(0)<=0 THEN 780 770 I=0:PRINT D$(I);" DAMAGED, MAX IS .2 ";:GOSUB 630:GOTO 750 780 GOSUB 480:IF E<=0 THEN 1370 790 IF RND(1)>.25 THEN 870 800 X=INT(RND(1)*6):IF RND(1)>.5 THEN 830 810 D(X)=D(X)+INT(6-RND(1)*5):PRINT"):X2=INT(X1) 930 IF X2<0 OR X2>7 OR Y2<0 OR Y2>7 THEN 1110 940 IF A=5 THEN PRINT Y2+1;"-";X2+1, 950 IF S(Y2,X2)=1 THEN NEXT:GOTO 1060 960 PRINT:IF A=1 THEN PRINT"BLOCKED BY "; 970 ON S(Y2,X2)-3 GOTO 1040,1020 980 PRINT"KLINGON";:IF A=1 THEN 1050 990 FOR I=0 TO 7:IF Y2<>K1(I) THEN 1010 1000 IF X2=K2(I) THEN K3(I)=0 1010 NEXT:K=K-1:K9=K9-1:GOTO 1070 1020 PRINT"STAR";:IF A=5 THEN S=S-1:GOTO 1070 1030 GOTO 1050:2L29E76C 1040 PRINT"STARBASE";:IF A=5 THEN B=2:GOTO 1070 1050 PRINT" AT SECTOR";Y2+1;"-"51:GOTO 140 130 K=K+(NA):B9=B9-B:Q(I,J)=K*C+B*W-INT(RND(Y)*X+Y):NEXT J,I 170 IF K9>(T9-T0) THEN T9=T0+K9 180 IF B9>0 THEN 200 190 GOSUB 450:Q(X,Y)=Q(X,Y)-10:B9=1 200 PRINT LEFT$("STARTREK ADAPTED BY L.E.COCHRAN 2/29/76",8):K0=K9 210 PRINT"OBJECTIVE: DESTROY";K9;"KLINGON BATTLE CRUISERS IN";T9-T0; 220 PF E<=0 THEN 1370 330 I=1:IF D(I)>0 THEN 620 340 FOR I=0 TO 7:FOR J=0 TO 7:PRINT MID$(Q$,S(I,J),1);" ";:NEXT J 350 PRINT" ";:ON I GOTO 380,390,400,410,420,430,440 360 PRINT"YEARS =";T9-T 370 NEXT:GOTO 650 380 PRINT"STARDATE=";T:GOTO 370 390 PRINT"CONDITION: ";CHR$(27)+CHR$(108);C$;CHR$(27)+CHR$(109):GOTO 370 400 PRINT"QUADRANT=";Q1+1;"-";Q2+1:GOTO 370 410 PRINT"SECTOR =";S1+1;"-";S2+1:GOTO 370 420 PRINT"ENERGY=";E:GOTO 370 430 PRINT D$(4);"=";P:GOTO 370 440 PRINT"KLINGONS LEFT=";K9:GOTO 370 450 580 570 IF S(I,J)=4 THEN C$="DOCKED":E=E0:P=P0:GOSUB 610:RETURN 580 NEXT J,I:IF K>0 THEN C$="RED":RETURN 590 IF E6 THEN 680 670 ON A GOTO 710,310,1250,1140,690,1300 680 FOR I=0 TO 5:PRINT I+1;"= ";D$(I):NEXT:GOTO 650 690 IF D(4)>0 THEN PRINT"SPACE CRUD BLOCKING TUBE**SPACE STORM, "; 820 PRINT D$(X);" DAMAGED**":I=X:GOSUB 630:D(X)=D(X)+1:GOTO 870 830 FOR I=X TO 5:IF D(I)>0 THEN 860 840 NEXT 850 FOR I=0 TO X:IF D(I)<=0 THEN NEXT:GOTO 870 860 D(I)=.5:PRINT"**SPOCK USED A NEW REPAIR TECHNIQUE**" 870 FOR I=0 TO 5:IF D(I)=0 THEN 890 880 D(I)=D(I)-1:IF D(I)<=0 THEN D(I)=0:PRINT D$(I);" ARE FIXED!" 890 NEXT:N=INT(W*8):E=E-N-N+.5:T=T+1:S(S1,S2)=1 900 Y1=S1+.5:X1=S2+.5:IF T>T9 THEN 1370 910 Y=(C-1)*.785398:X=COS(Y):Y=-SIN(Y) 920 FOR I=1 TO N:Y1=Y1+Y:X1=X1+X:Y2=INT(Y1;X2+1:Y2=INT(Y1-Y):X2=INT(X1-X) 1060 S1=Y2:S2=X2:S(S1,S2)=2:A=2:GOTO 310 1070 PRINT" DESTROYED!";:IF B=2 THEN B=0:PRINT". . .GOOD WORK!"; 1080 PRINT:S(Y2,X2)=1:Q(Q1,Q2)=K*100+B*10+S:IF K9<1 THEN 1400 1090 GOSUB 480:IF E<=0 THEN 1370 1100 GOSUB 550:GOTO 650 1110 IF A=5 THEN PRINT"MISSED!":GOTO 1090 1120 Q1=INT(Q1+W*Y+(S1+.5)/8):Q2=INT(Q2+W*X+(S2+.5)/8) 1130 Q1=Q1-(Q1<0)+(Q1>7):Q2=Q2-(Q2<0)+(Q2>7):GOTO 230 1140 I=3:IF D(I)>0 THEN 620 1150 INPUT"PHASERS READY: ENERGY UNITS TO FIRE";X:IF X<=0 THEN 650    1160 IF X>E THEN PRINT"ONLY GOT";E:GOTO 1150 1170 E=E-X:Y=K:FOR I=0 TO 7:IF K3(I)<=0 THEN 1230 1180 H=X/(Y*(FND(0)^.4)):K3(I)=K3(I)-H 1190 E$="KLINGON AT":N=K3(I):GOSUB 530 1200 IF K3(I)>0 THEN 1230 1210 PRINT"**KLINGON DESTROYED**" 1220 K=K-1:K9=K9-1:S(K1(I),K2(I))=1:Q(Q1,Q2)=Q(Q1,Q2)-100 1230 NEXT:IF K9<1 THEN 1400 1240 GOTO 1090 1250 I=2:IF D(I)>0 THEN 620 1260 PRINT D$(I);" FOR QUADRANT";Q1+1;"-";Q2+1 1270 FOR I=Q1-1 TO Q1+1:FOR J=Q2-1 TO Q2+1:PRINT" "; 1280 IF I<0 OR I>7 OR J<0 OR J>7 TINT"YOU ARE DEMOTED TO CABIN BOY!":GOTO 1430 1400 GOSUB 1360:PRINT"THE FEDERATION HAS BEEN SAVED!" 1410 PRINT"YOU ARE PROMOTED TO ADMIRAL":PRINT K0;"KLINGONS IN"; 1420 PRINT T-T0;"YEARS. RATING=";INT(K0/(T-T0)*1000) 1430 INPUT"TRY AGAIN";E$:IF LEFT$(E$,1)="Y" THEN 110 0;"KLINGONS IN"; 1420 PRINT T-T0;"YEARS. RATING=";INT(K0/(T-T0)*1000) 1430 INPUT"TRY AGAIN";E$:IF LEFT$(E0:PRINT"THANKS TO YOUR BUNGLING, THE FEDERATION WILL BE" 1380 PRINT"CONQUERED BY THE REMAINING";K9;"KLINGON CRUISERS!" 1390 PR100 REM AUTHOR: ROBERT W. BAKER 101 REM MODIFIED FOR BASIC-E (BARF) BY R S MASON 9-25-77 102 REM MODIFIED FOR MICROSOFT DISK BASIC BY ZOSO 103 REM THIS PROGRAM REQUIRES CP/M WITH 26K OF FREE MEMORY (OVERHEAD) 104 REM 105 REM THIS GAME IS WRITTEN TO PROVIDE A REALISTIC MODEL OF THE 106 REM ACTUAL STOCK MARKET RATHER THAN A COMPLETELY RANDOMIZED 107 REM HAPPENING OF EVENTS. 108 REM 109 REM 110 PRINT CHR$(26) : WIDTH 120 111 PRINT "WHAT IS YOUR LUCKY NUMBER (1 TO 25000)" 112 INPUT AXP SP ODMRD SO BT KA ZE BPL" 126 Y$="$5 $1 NONE$4 $7 NONENONE$2 $6 $3 " 127 REM 128 REM DATA TO SIMULATE REAL LIFE STOCK MARKET 129 REM 130 DATA 1,0,0,0,0,0,0,0,0,5,0,0 131 DATA 0,0,0,0,0,0,-25,0,0,0,0,0 132 DATA 1,0,0,0,0,0,0,15,0,0,0,0 133 DATA 0,0,0,0,-5,0,0,0,0,0,0,0 134 DATA 1,0,0,0,0,0,0,0,0,5,0,0 135 DATA 0,0,0,0,0,0,5,0,0,0,0,0 136 DATA 1,0,0,0,0,0,10,0,0,0,0,0 137 DATA 0,0,10,0,0,0,0,0,0,0,0,0 138 DATA 1,0,0,0,0,0,15,0,0,0,0,0 139 DATA 0,0,-5,0,0,0,0,0,0,0,0,0 140 DATA 1,8,5HEN PRINT"***";:GOTO 1350 1290 Q(I,J)=ABS(Q(I,J)):GOTO 1340 1300 I=5:IF D(I)>0 THEN 620 1310 PRINT"CUMULATIVE GALACTIC MAP FOR STARDATE";T 1320 FOR I=0 TO 7:FOR J=0 TO 7:PRINT" "; 1330 IF Q(I,J)<0 THEN PRINT"***";:GOTO 1350 1340 E$=STR$(Q(I,J)):E$="00"+MID$(E$,2):PRINT RIGHT$(E$,3); 1350 NEXT J:PRINT:NEXT I:GOTO 650 1360 PRINT:PRINT"IT IS STARDATE";T:RETURN 1370 GOSUB 1360:PRINT"THANKS TO YOUR BUNGLING, THE FEDERATION WILL BE" 1380 PRINT"CONQUERED BY THE REMAINING";K9;"KLINGON CRUISERS!" 1390 PR 113 IF A<1 OR A>25000 OR A<>INT(A) THEN PRINT "DO IT RIGHT !" : GOTO 111 114 PRINT CHR$(26) 115 PRINT "STAND BY FOR A FEW MOMENTS" 116 A=A MOD 97 117 FOR X=1 TO A : X1=RND(1) : X1=RND(X) : NEXT X 118 DIM A(36,12),U(11,9),E(11,9),K(10),T(10),F(9),M(4,12),X(4) 119 FOR I=1 TO 36: FOR J=1 TO 12: READ A(I,J): NEXT J: NEXT I 120 FOR I=1 TO 11: FOR J=1 TO 9: READ U(I,J): NEXT J: NEXT I 121 FOR I=1 TO 11: FOR J=1 TO 9: READ E(I,J): NEXT J: NEXT I 122 FOR N=1 TO 10 123 READ K(N) 124 NEXT N 125 V$="HIB ,5,0,0,0,7,0,0,0,0 141 DATA 0,0,0,0,0,0,0,0,-25,0,0,0 142 DATA 1,0,0,0,0,0,0,0,10,0,0,0 143 DATA 0,0,-10,0,0,0,0,0,0,0,0,0 144 DATA 1,0,5,0,0,0,0,0,0,0,0,0 145 DATA 0,10,0,0,0,0,0,0,0,0,1,0 146 DATA 1,0,0,0,0,17,0,0,0,0,0,0 147 DATA 0,0,0,0,0,-15,0,0,0,0,0,0 148 DATA 1,0,0,0,0,0,0,0,10,0,0,0 149 DATA 0,0,0,0,0,0,0,-15,0,0,0,0 150 DATA 1,0,0,0,0,0,0,10,0,0,0,0 151 DATA 0,0,0,0,0,0,0,-15,0,0,0,0 152 DATA 1,0,0,-8,0,8,0,0,5,0,0,0 153 DATA 0,-10,0,0,0,0,0,0,0,0,0,0 154 DATA 1,8,0,0,0,0,0,0,0,0,0,0    155 DATA 0,0,0,0,0,0,0,-10,0,0,0,0 156 DATA 1,0,0,3,0,0,0,0,0,4,0,0 157 DATA 0,-8,0,0,0,0,0,0,0,0,0,0 158 DATA 1,0,0,0,5,0,0,0,0,0,0,0 159 DATA 0,0,0,0,0,-10,0,0,0,0,0,0 160 DATA 1,0,0,0,0,0,0,10,0,0,0,0 161 DATA 0,-8,-5,0,0,0,0,-7,0,0,0,0 162 DATA 1,10,0,0,0,0,0,0,0,0,0,0 163 DATA 0,0,0,0,0,0,0,0,0,-14,0,0 164 DATA 1,-10,0,0,0,0,0,0,0,0,0,0 165 DATA 0,0,0,0,0,0,-5,0,0,0,0,0 166 DATA -2,-10,7,-9,-2,-9,-7,-16,-4 167 DATA 26,16,25,8,-14,21,14,-4,17 168 DATA 18,23,11,12,46,18,-5,34,15 169 DATA 45,6,-10,10,4 184 DATA -2,6,-3,-8,-20,7,10,14,6 185 DATA 11,11,-5,-7,30,10,-11,-18,-4 186 DATA -5,13,-8,6,25,4,18,-22,-4 187 DATA -8,-10,-10,-15,-20,-20,-23,-25,-7 188 DATA 5,1,0,4,7,0,0,2,6,3 189 REM 190 REM SECURITY NAMES 191 REM 192 A$="HIGHWAY IMPROVEMENT BONDS" 193 B$="X-PANDO CORPORATION" 194 C$="SEASIDE PROPERTIES INC." 195 D$="OLD DOG MUTUAL FUND" 196 E$="RUBBLE DEVELOPMENT" 197 F$="SLIPPERY OIL COMPANY" 198 G$="BUMPY TRANSPORT CO." 199 H$="KRASH AUTO COMPANY" 200 I$="ZAP ELECTRONN EVERY PAYING" 215 PRINT"STOCK WHICH IS WORTH $50 OR MORE." 216 PRINT 217 PRINT"IF THE VALUE OF ANY STOCK FALLS TO 0,THAT STOCK GOES BANKRUPT" 218 PRINT"AND ALL SHARES ARE SURRENDERED.THE VALUE OF THE STOCK IS THEN" 219 PRINT"ESTABLISHED AT $100. IF THE VALUE OF ANY STOCK REACHES $150," 220 PRINT"THERE WILL BE A STOCK SPLIT." 221 PRINT 222 PRINT"A TABLE WILL BE PRINTED EACH YEAR GIVING THE CHANGE IN VALUE" 223 PRINT"OF EACH STOCK, THE PRESENT PRICE, AND THE NUMBER OF SHARES" 224 PRINT"EACH PLAYER1 TO 4: FOR J=1 TO 12: M(I,J)=0: NEXT J: NEXT I 242 INPUT "NUMBER OF YEARS (3 TO 10)="; S 243 IF S<3 THEN 249 244 IF S>10 THEN 249 245 PRINT CHR$(26) 246 FOR I=1 TO 9: F(I)=0: NEXT I 247 FOR N=1 TO P 248 M(N,1)=5000 249 NEXT N 250 FOR I=1 TO 10: T(I)=100: NEXT I 251 Y=0 252 REM 253 REM 254 REM FIND MARKET CHANGES FOR NEXT ROUND,SEE IF BULL OR BEAR MARKET 255 REM 256 D=INT(RND(1)*11+1) 257 C=INT(RND(1)*36+1) 258 IF A(C,12)=1 THEN 257 259 A(C,12)=1 260 FOR N=2 TO 10 261 GOSUB 417 262 IFT(N)=100 287 FOR J=1 TO P 288 M(J,N+1)=0 289 NEXT J 290 PRINT "*** "+S$+" WENT BANKRUPT ***" 291 PRINT "THESE STOCKS MUST BE SURRENDERED" 292 NEXT N 293 Y=Y+1 294 REM 295 REM ADD EACH PLAYERS DIVIDENDS TO TOTAL CASH 296 REM 297 FOR N=1 TO P 298 M(N,12)=0 299 FOR J=1 TO 10 300 IF T(J)<50 THEN 302 301 M(N,12)=M(N,12)+K(J)*M(N,J+1) 302 NEXT J 303 IF A(C,11)=0 THEN 306 304 M(N,12)=M(N,12)+M(N,3)*2 305 PRINT "*** X-PANDO CORP. PAYS $2 DIVIDENDS PER SHARE ***" 306 M(N,1)=M(N,1)+M(N,12) 307 23,28,-2,11,56,19,30,29,14 170 DATA 20,15,15,7,-20,15,13,-10,12 171 DATA 17,21,13,-2,37,23,23,19,14 172 DATA 19,24,17,9,-5,26,13,-7,15 173 DATA 11,18,14,11,67,15,22,18,13 174 DATA 13,31,1,14,-11,18,18,-14,10 175 DATA 14,-8,19,1,-9,25,-10,13,19 176 DATA 24,24,23,20,51,27,38,33,18 177 DATA 12,14,13,10,10,20,21,25,8 178 DATA 7,-6,10,-10,30,6,-19,22,-2 179 DATA 9,10,7,-5,-20,12,21,18,7 180 DATA 7,8,5,-6,-40,3,16,-14,4 181 DATA 8,6,4,-4,40,8,4,-12,3 182 DATA 6,4,3,3,-15,5,8,-8,5 183 DATA 5,7,-1,-3,ICS " 201 J$="BLINKEY POWER & LIGHT CO." 202 REM 203 REM 204 PRINT "WANT INSTRUCTIONS"; 205 INPUT R$ 206 IF LEFT$(R$,1)="N" THEN 230 207 IF LEFT$(R$,1)<>"Y" THEN 205 208 PRINT CHR$(26) 209 PRINT "THE MAIN OBJECT OF BLACK FRIDAY IS TO SHREWDLY INVEST $5000" 210 PRINT"IN THE GAME'S 10 SECURITIES, BUYING AND SELLING EACH YEAR FOR" 211 PRINT"A MAXIMUM OF 10 YEARS (ROUNDS) IN AN ATTEMPT TO BECOME" 212 PRINT"THE WEALTHIEST PLAYER." 213 PRINT 214 PRINT"EACH YEAR ALL PLAYERS WILL RECEIVE DIVIDENDS O OWNS OF EVERY STOCK. ALSO, ANY DIVIDENDS RECEIVED" 225 PRINT"FOR THE YEAR WILL BE SHOWN ALONG WITH EACH PLAYERS TOTAL CASH" 226 PRINT 227 PRINT "PRESS SPACE BAR TO PLAY" 228 WAIT 0,1,1 229 PRINT CHR$(26) 230 PRINT CHR$(26) 231 PRINT"AVAILABLE SECURITIES, ABBREVIATION, DIVIDENDS PER SHARE" 232 PRINT 233 FOR N=1 TO 10 234 GOSUB 417 235 PRINT S$,MID$(V$,3*N-2,3),MID$(Y$,4*N-3,4) 236 NEXT N 237 PRINT 238 INPUT "NUMBER OF PLAYERS (1 TO 4)="; P 239 IF P>4 THEN 243 240 IF P<=0 THEN 243 241 FOR I= A(C,1)=1 THEN 267 263 W$="BEAR" 264 F(N-1)=A(C,N)+E(D,N-1) 265 T(N)=T(N)+F(N-1) 266 GOTO 273 267 F(N-1)=A(C,N)+U(D,N-1) 268 W$="BULL" 269 T(N)=T(N)+F(N-1) 270 REM 271 REM CHECK FOR STOCK SPLITS 272 REM 273 IF T(N)<150 THEN 285 274 PRINT "*** "+S$+" STOCKS SPLIT ***" 275 IF T(N)/2=INT(T(N)/2) THEN 278 276 T(N)=INT(T(N)/2)+1 277 GOTO 279 278 T(N)=T(N)/2 279 FOR J=1 TO P 280 M(J,N+1)=M(J,N+1)*2 281 NEXT J 282 REM 283 REM CHECK FOR BANKRUPT STOCKS 284 REM 285 IF T(N)>0 THEN 292 286 NEXT N 308 REM 309 REM 310 REM PRINT WHAT HAPPENED & CURRENT VALUES 311 REM 312 PRINT CHR$(26) : PRINT "*** YEAR ";Y;"*** "+W$+" MARKET ***" 313 PRINT TAB(23);"PLAYER HOLDINGS YEAR ";Y 314 PRINT TAB(6);" +/-$ PRICE"; 315 FOR N=1 TO P 316 PRINT TAB(18+8*N);N; 317 NEXT N 318 PRINT 319 PRINT LEFT$(V$,3);TAB(8);"0";TAB(16);"100"; 320 FOR N=1 TO P 321 PRINT TAB(18+8*N);M(N,2); 322 NEXT N 323 PRINT 324 FOR N=1 TO 9 325 PRINT MID$(V$,3*N+1,3);TAB(7);F(N);TAB(15);T(N+1); 326 FOR J=1 TO P     327 PRINT TAB(18+8*J);M(J,N+2); 328 NEXT J 329 PRINT 330 NEXT N 331 PRINT 332 PRINT "DIVIDENDS FOR YEAR"; 333 FOR N=1 TO P 334 PRINT TAB(18+8*N);M(N,12); 335 NEXT N 336 PRINT 337 PRINT "NEW CASH TOTAL"; 338 FOR N=1 TO P 339 PRINT TAB(18+8*N);M(N,1); 340 NEXT N 341 PRINT 342 PRINT "NEW NET WORTH "; 343 GOSUB 438 344 FOR N=1 TO P 345 PRINT TAB(18+8*N);X(N); 346 NEXT N 347 IF Y=S THEN 391 348 REM 349 REM 350 REM CHECK IF ANYONE WANTS TO SELL OR BUY ANYTHING 351 REM 352 FOR N=1 TO P TO 387 375 INPUT "WANT TO BUY"; R$ 376 IF R$="N" THEN 387 377 IF R$<>"Y" THEN 393 378 GOSUB 406 379 INPUT "NUMBER OF SHARES"; R 380 IF R*T(J)<=M(N,1) THEN 383 381 PRINT "ONLY MONEY ENOUGH FOR ";INT(M(N,1)/T(J));"SHARES" 382 GOTO 379 383 M(N,J+1)=M(N,J+1)+R 384 M(N,1)=M(N,1)-R*T(J) 385 PRINT "YOU NOW HAVE $";M(N,1) 386 GOTO 371 387 NEXT N 388 GOTO 256 389 REM 390 REM 391 REM CLOSING OUT AT END OF GAME - PRINT FINAL TOTALS 392 REM 393 PRINT 394 PRINT "*** FINAL TOTALS ARE:" 395 PRINT "P$ 419 RETURN 420 S$=B$ 421 RETURN 422 S$=C$ 423 RETURN 424 S$=D$ 425 RETURN 426 S$=E$ 427 RETURN 428 S$=F$ 429 RETURN 430 S$=G$ 431 RETURN 432 S$=H$ 433 RETURN 434 S$=I$ 435 RETURN 436 S$=J$ 437 RETURN 438 FOR N=1 TO P 439 W=0 440 FOR J=1 TO 10 441 W=W+T(J)*M(N,J+1) 442 NEXT J 443 X(N)=W+M(N,1) 444 NEXT N 445 RETURN 446 RESET N=1 TO P 439 W=0 440 FOR*J-1,2) THEN 415 413 NEXT J 414 GOTO 408 415 RETURN 416 REM 417 ON N GOTO 418,420,422,424,426,428,430,432,434,436 418 S$=A +"6# x+:`i* ">"/##~>;+> 6*s#r w+͊1>2 u+#w+>36*s#rw+6*xDM"+ڍ+s#r#À+! æ+>2:*ã+6*x+Á*~#ʽ+#~+ҽ+~+x 6*s#rw+ɯ2,x_O:*+2,x_O6*9w#w+x,+r+s=,w>#w+Á*~7^#VE,E,!~ѧ7x1P*x1~7!~#fo~ʁ,7,#~+~w}D#wx#1]*KÄ,!9*?>":u,2g>2u:u#..~.+u+w#w+e#*#~6+/]*6#s#r>6###s#r#6@"=#w:uGf?/b!/####~#B/F#N#~#fo~#fox/ LU/##~>O͖,6#p#6 ####yKͶ,+w~39;5!/K~2>"@&0:/3-3>".͊1P*/ 00`i)9^#V!~`-y0#~#fo##A:x03x>". U0^#V#ͩ+3> ".10#~͸/o&"f>2u./ͩ+3> "."0xGO>$6*H"0s#r# ‹0H +V+^ͩ+s#r#  0͸/w*0w+3 353 PRINT 354 PRINT "*** PLAYER ";N;" ***" 355 PRINT "YOU NOW HAVE $";M(N,1) 356 FOR J=1 TO 10 357 IF M(N,J+1)<>0 THEN 360 358 NEXT J 359 GOTO 371 360 INPUT "WANT TO SELL"; R$ 361 IF R$="N" THEN 371 362 IF R$<>"Y" THEN 374 363 GOSUB 406 364 INPUT "NUMBER OF SHARES"; R 365 IF R<=M(N,J+1) THEN 368 366 PRINT "*** YOU ONLY HAVE ";M(N,J+1);" SHARES ***" 367 GOTO 364 368 M(N,J+1)=M(N,J+1)-R 369 M(N,1)=M(N,1)+R*T(J) 370 GOTO 355 371 FOR J=1 TO 10 372 IF M(N,1)>T(J) THEN 375 373 NEXT J 374 GOLAYER TOTAL" 396 FOR N=1 TO P 397 FOR J=1 TO 10 398 M(N,1)=M(N,1)+T(J)*M(N,J+1) 399 NEXT J 400 PRINT 401 PRINT N,M(N,1) 402 NEXT N 403 GOTO 446 404 REM 405 REM 406 REM SUBROUTINE TO LOOK UP STOCK NAMES FOR BUY & SELL 407 REM 408 PRINT "NAME OF STOCK"; 409 INPUT R$ 410 FOR J=1 TO 10 411 IF LEFT$(R$,2)=MID$(V$,3*J-2,2) THEN 415 412 IF LEFT$(R$,2)=MID$(V$,3*J-1,2) THEN 415 413 NEXT J 414 GOTO 408 415 RETURN 416 REM 417 ON N GOTO 418,420,422,424,426,428,430,432,434,436 418 S$=A, PJ-,O:u,-!l{Ps",͖Q!-gQH-*fx-͸QP'-͌Q!l>P͍PH-@]T}_|H-)>-x1P*I&>4ͺ-K3y=d-e#x2#~+Œ-x-xGe#>.xʛ-e#>.xG ʩ->.x#~+>.>X6*s#r+}*W!-K^#V#~.    !> .!> .! > .!> .!> .O*yK !.KF͊1q-x2.H.u+w.#N+͊1q-ڱ.xn.#~+j..n.y. u+w!~#fo#~#w:.ʏ.6~+ž.~ ž.6 «.~«.63ó.ɀ @ PPPPPP yO0e#0e#0**}_|W09LM Bytes Free 201:#x1:>"~>"###^#V"*:Z1L>f1j1#{z+j1>""K3>?ú-:#*#Ͱ2#"#*O*QL{#+V+^"QP*ʴ1ʺ1e#ͩ+þ1++~=w21~#foP*~#!1K~"X[ P*#~+>>2#x1>2#P*|/2!~#@2~#fo32W2##~#~#3232.x1-P*@&b&e#> 2q" 3y2323O]*#s#r+++++++~ʩ2 }|x2!^#Vz< 3z3wL    3DM!35©2x3~͸/! 3=2DM++++r+s:3Oýe#!e#*Qs#r#"Q{z#~+e#*Q++"Q:!9"d3!c3"#̓3[1*"!"""#!"2*"!~#fo3"v=##~#fo]=i=ʷ3͈4͍4͒4å3~Yʿ3=3͋;: >*fM#r+s++Ï3*>!( #"  $͑$. ". ". "- - :. U."i ! 0- ":. ͝. \ . U." ! C/))͑0! ͑0J.v0. - -" 0.- ":. ͝. Ͷ,!"]+!")R(! ͎)"! 2!"22 ͽ1>- ":. U."Ý! 0! 0! 33/:. U."È! 33/ - q.! 33/. ! C/! 3 f2! ͥ2 - "q/ 42! 2! 33/q.! 33/&-"- -"q/ I22 ͽ1! 33/ - :. Á! 33/ - q.! 33/.! C/! 3 f2! ͥ2- "q/ 42! 2! 33/q.! 33/&-"- -"q/ I22 ͽ1! 33/ - :. - ":. ͝. > - ":. ͝.   !f2!"ͥ2! 3+ I2 ͽ111- :. U."! 0- ":. ͝."FRIEND"', "COMPUTER","NOKEYFOUND"gl " ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY "Ð " IVE "," YOUVE "," IM "," YOURE "ö "DON'T YOU BELIEVE THAT I CAN*" "PERHAPS YOU WOULD LIKE TO BE ABLE TO*"  "YOU WANT ME TO BE ABLE TO*"*/ "PERHAPS YOU DON'T WANT TO*"MR "DO YOU WANT TO BE ABLE TO*"pu "WHAT MAKES YOU THINK I AM*"Ü "DOES IT PLEASE YOU TO BELIEVE I AM*" "PERHAPS YOU WOULD LIKE TO BE*" "DO YOU SOMETIMES WISH YOU WERE*"  "DON'T YOU REALLOU KNOW YOU CAN'T*",1 "HAVE YOU TRIED?"IN "PERHAPS YOU CAN NOW*"uz "DID YOU COME TO ME BECAUSE YOU ARE*"Õ "HOW LONG HAVE YOU BEEN*" "DO YOU BELIEVE IT IS NORMAL TO BE*" "DO YOU ENJOY BEING*"  "WE WERE DISCUSSING YOU-- NOT ME." "OH, I*"IN "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"w| "WHAT WOULD IT MEAN TO YOU IF YOU GOT*"Ð "WHY DO YOU WANT*"î "SUPPOSE YOU SOON GOT*" "WHAT IF YOU NEVER GOT*" "I SOMETIMES ALSO WANT*"  "WHY DO YOU AS "DOES THAT REASON EXPLAIN ANYTHING ELSE?"W\ "WHAT OTHER REASONS MIGHT THERE BE?"w| "PLEASE DON'T APOLOGIZE!"Ü "APOLOGIES ARE NOT NECESSARY." "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE." "DON'T BE SO DEFENSIVE!"# "WHAT DOES THAT DREAM SUGGEST TO YOU?":? "DO YOU DREAM OFTEN?"fk "WHAT PERSONS APPEAR IN YOUR DREAMS?"Ð "ARE YOU DISTURBED BY YOUR DREAMS?" "HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM." "YOU DON'T SEEM QUITE CERTAIN."  "WHY THE UNCERT ͽ1! 33/:. U."ó ! C/ !f2!"ͥ2j - "q/ 42! 33/"- q/ I22 ͽ1 - "q.! 33/. ì ! C/ !f2!}"ͥ2 Ͷ,!p"]+F"- ":. ͝.   ! ͥ2 Ͷ,!P"]+ 11. ". U."t ! 0. m ! 3! 3}o|g#3/:. U."_ ! C/! 3 f2! ͥ2X . .  ! ͽ1- ":. ͝. $ - ":. ͝. . . . ä . "11. U." ! 0- ":. ͝. ! 3! 3}o|g3/"- -"q/ I2" ! C/))vJ.:. U.".! 0- ":. ͝. !! C/))vJ. -"0.! C/))vJ.q." "  J..* J.* 0. !I2!L"ͪ2Ͷ,! ]+ ! ͽ1 Ͷ,! 3+ 429+! ]+ ! ͽ1  "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL"UZ "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM "Ó "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE"  " NO","YOUR","ALWAYS","THINK","ALIKE","YES",Y*"  "WHY DON'T YOU*">C "DO YOU WISH TO BE ABLE TO*"]b "DOES THAT TROUBLE YOU?"Ç "TELL ME MORE ABOUT SUCH FEELINGS."â "DO YOU OFTEN FEEL*" "DO YOU ENJOY FEELING*" "DO YOU REALLY BELIEVE I DON'T*"  "PERHAPS IN GOOD TIME I WILL*"', "DO YOU WANT ME TO*"SX "DO YOU THINK YOU SHOULD BE ABLE TO*"jo "WHY CAN'T YOU*"á "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" "WOULD YOU PREFER IF I WERE NOT*" "PERHAPS IN YOUR FANTASIES I AM*" "HOW DO YK?"-2 "DOES THAT QUESTION INTEREST YOU?"\a "WHAT ANSWER WOULD PLEASE YOU THE MOST?"w| "WHAT DO YOU THINK?"æ "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" "HAVE YOU ASKED ANYONE ELSE?"). "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"[` "WHAT ELSE COME TO MIND WHEN YOU ASK THAT?"| "NAMES DON'T INTEREST ME."í "I DON'T CARE ABOUT NAMES-- PLEASE GO ON." "IS THAT THE REAL REASON?" "DON'T ANY OTHER REASONS COME TO MIND?",1AIN TONE?"/4 "CAN'T YOU BE MORE POSITIVE?"HM "YOU AREN'T SURE?"`e "DON'T YOU KNOW?"Ï "ARE YOU SAYING NO JUST TO BE NEGATIVE?"õ "YOU ARE BEING A BIT NEGATIVE." "WHY NOT?" "ARE YOU SURE?" "WHY NO?" "WHY ARE YOU CONCERNED ABOUT MY*"16 "WHAT ABOUT YOUR OWN*"^c "CAN YOU THINK OF A SPECIFIC EXAMPLE?"lq "WHEN?"Î "WHAT ARE YOU THINKING OF?"æ "REALLY, ALWAYS?" "DO YOU REALLY THINK SO?" "BUT YOU ARE NOT SURE YOU*" "DO YOU DOUBT YOU*    " "IN WHAT WAY?"<A "WHAT RESEMBLANCE DO YOU SEE?"mr "WHAT DOES THE SIMILARITY SUGGEST TO YOU?"Ø "WHAT OTHER CONNECTIONS DO YOU SEE?" "COULD THERE REALLY BE SOME CONNECTION?" "HOW?" "YOU SEEM QUITE POSITIVE."  "ARE YOU SURE?" "I SEE."05 "I UNDERSTAND."bg "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"Å "DO YOUR FRIENDS WORRY YOU?"ê "DO YOUR FRIENDS PICK ON YOU?" "ARE YOU SURE YOU HAVE ANY FRIENDS?" "DO YOU IMPOSE ON YOUR FRIENDS?"/4 YOU FULLY."8!=! "COME COME ELUCIDATE YOUR THOUGHTS."[!`! "CAN YOU ELABORATE ON THAT?"}!! "THAT IS QUITE INTERESTING"ñ!! 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3!! 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9!"&" 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4F"" 80,3,83,7,90,3,93,6,99,7,106,6͡$͡$O"*S"PLEASE DON'T REPEAT YOURSELF! s"SHUT UP..."SHUT"'" %"HI! I'M ELIZA. WHAT'S YOUR PROBLEM?"`@[[[[ BASLIB #000000 5.30 - OWNED BY MI&w#6"#*#*#>2#u&Û$!9N#F%&~#~N%~+T%~#~N%+^#V###,%###,%|`%~#fo!h%~6 Internal Error - No Line Number ð#%&~#%~6 at line%Ͱ%&>%<%%³%%<%0C%%}_|W!%ͯC~#fo>~6 at address|͢6}͢6&> C> C~#*4&ͯC~#fo M!9"#!<&*#B&"#!c&*#&!&~<ʏ&=ʏ&#~#&{&#Ä6Syntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Me^):#^)|(~^)!"#~,"$)#"~8)8)# ')^)">)#"*x"S) S)+~ H)y4(~6?Redo from Start *K(5!))*P(:O(O{(*M(+~+ʹ)ʫ)ʫ) +w ­))++~#fo1"M(!O(5*K(~2)#~#^#Vp6++5!Aڒ$:)NirPS/<#Fwx+ SF+N9]P!kG>w2a!rͽTxT:k2a͒TcT4 XTcT>͔T!jܪTG:hRT!aVwz# 7Tx*TM!aTJTxcT!iwM:auT!j~++w!b4#zT4 X+6&!lÚT>!lb2T#  T~/w!aOyw#´TqT8&f++W#v-͒-͘-v-͒-͘-v-͒-͘-ͤ-v-͒-͘-ͤ-v-͒-͘-v-͒-͘-v-͒-͘-ͤ-v-͒-͘-ͤ-ͳ--^#V#-"-*-ͳ-|-ͳ-^#̀.í-ͳ-^#V#-Â-"-~2-"-8&*-*-:-9C:-xC:---IIJI-î.>î.>î.>î.>î.>^#V#^#V#/>.>.>.>.>.>^#̀.D/>/>/>/>/>/> "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."OT "DO COMPUTERS WORRY YOU?" "ARE YOU TALKING ABOUT ME IN PARTICULAR?"ç "ARE YOU FRIGHTENED BY MACHINES?" "WHY DO YOU MENTION COMPUTERS?"  "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"A F "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"u z "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"ê "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" "WHAT DOES THAT SUGGEST TO YOU?" "I SEE." !! "I'M NOT SURE I UNDERSTANDCROSOFT, 1980 #0L0?DM*"3*6&##"3$>2#2#*^#V"###^#V"# 2#!g#!!""#!#"#6#6P>2#>2#>2##ì##ì#ã#_0PҕM/< P0P]PgUN|!fM5NN#4 X.|NNG~_#~W#~OANh9/:/!9"#%& !͆$%&)$!͆$$!#͆$!R"#!O"#%&|Z$> $6#s#r#=O$>2#>2#>2#2#!#"#!$\"#>&2#5#+66#}ƒ$|ƒ$~6 STO͑%á$&*#.. . ........5*#|¨$:#%*#|%%%&  s#r%&  {tmor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erros">RN#"P(!9"K("M(y2O(*#|t(*#!^)"#A~#**ͣC:#”(~^))¦(9é(9"*((,7*D*D*D*D(z8*D(7*D*D**ͣC )~#"*,|( J,8&q+J,8&|+J,8&<+J,8&f+l,8&q+l,8&|+l,8&+l,8&f+,8&q+,8&|+,8&+,DÇ+DÇ+"DÐ+H~# ˆ+x26:#A,,+:4<x,~ʹ+pB#í+g,:~ʼ+ pB#+>26:#A,F#~#fox,x,,+~#pB+,5,>"pBG:#x,C*#+~<=,==,###~=,*#C!+*#*#~=Q,/<x,g,=],> pB,>,pBW*##^ ̢,ʜ,+=ڜ,:#=ʜ,Cz{ڴ,{_æ,!#"#!"#2#,!#~6#w~!,͐6N,I&i&$ ^#V#!k&// GW0./~#fo0/##S&cK2#8&8&R/8&xC͉/CC|þ$8&À/8&͉/f//:#/!l&*0|/g}/o30!H0G|D0;0o& Gȯ|g}oK0a0>n0~+~?~y0+#҆0+ 08&w17D>08&̀19͖1,7D>08&w1z8D>ʹC8&̀1~,"0#"~11# 0I!   &þ$" 1#͖1x"%1yͯC+~ $1 1y41%&^#V#{C1!#"#"#>2#11N#F#*#~=r1}|r1ͨ1]1̀19Ö1:#11*#ͣC~=I&$ͣC~,¤1#"#ɧ·1*#"#+V+^"#I&$8&41~##++đ5>ʹC+V+^+1+r+s58&1~48&ھ$́4$2$255~#~#foʹC8&|¾$BKn2PY8&|¾$BK _2 o_B28&z¾$zv2 |2_҂2o}`i45DM>ì2>ì2>ì2>ì2>ì2>Ϳ2ʻ2~#fo##GN2y2#~#fo~#fo2#2 2 y2y<.2)2)4x#N#F& 44͑55*l6*n6C@56:5͑55###!5f5~6 during G.C. ð#f5~6 ð#~6 Internal Error - String Space Corrup#N#F*3yx5*3yx5++`i+V+^C[5##6+6+~6  >@++*3"3s#r+ 4*3#~_#~W6I&$r+s##6"3###!3~#fo(6C6<*3"3*3}o|g6@#s#r#6"3*n6*l6"3}w>#w##CS6++6+6 3M3~C#=r6̈́6~C#Ä6G~#ʠ6#’6++ͫ60:ڶ6C``͢fxͤf͢f>e>ixg#>ͤf~!>@7*D}/o|/g#"D|}767A>26`h8~&Y@-09+09+$@:.ʽ9eB9El9$@lZ9LZ9qZ9Qk9:6ʅ9>Å9~%9#9!9dʅ9Dœ99$@O@$@ڊ:œ9_{_9: 96>@!78>@ œ9909$@!7!z8Ü99$@Ü97,7>@87=>@77@P:*D ͇7L:T])))O |J:"D09y#77l:t$7i:8:D:37Ͳ7V8737l7D:777{ ҙ:0_Ï9:!D>@::Dô:y::D::D::D/:Aa;:6+h8:6-6#60:6W:6چ<6%ڪ="=?r70=:+6%7=:8>U=_x>͛>>Ĕ>>â<_y:`=:b={_x~=>͛>Ï=̈́>y>Ö́>GO>š=*6=>Pë<#7ѯʰ=:87>y:OzWO:==/<>>>͍7~.8"6>]<ë<կ>@5>:D5>?!DC8͸7 >g>>@J>CO7P>?r7c>98>:g>>@y>t#7>?r7[>=60#Å>”>>60#=Ð>{O:6@O>"66.#60¹>#H>6."6#H 6,#>@&?V8!?P8l7͕7?> >/7:62626I&û$I&û$S&!"#!)"*3A:)DA~6?DApjBxA:;B>\2;B^ACA?B+rA~?BÆA+?B†A?B\?B2;By BBB7 0B B ADA BBBDAADA?B> ?B>kAA>#rAB6Byq#?B †A> ?BjB!B ʆAÉA:)^?B@?B ?B?B#TB͏#*# ʇB#~+<ʆB=C BB ژB4+~# pB~=55~5o& sss 3#3U&3s)3,3o/3923q5383r;3>3nA3D3rG3_J3r_!34]35*3"3~#N#F#ڝ3w3 ͯC`3yx҂3 `3+++6@#yw#xw+++6###!3~6ڮ33]3 4*3#~#~]3I&õ$!*3"3~#^#V# 43ͯC3|33++~_w#~Ww#33*3DM~#^#V#g4'44+zD5+{D5##{z~#q#p_4y\4x\4DM4~#\44YP+++"36@###{_zW+r+sɷʶ4*3|”4I&ø$M3^#V+"3w#s#r+++r+s##!44*l6{z*n6?4}|~# 4yǴ4xʹCG97cK7!D~wɯ2D>@#7H97*D97cK>@#7H>>8~͘##>7Ø#6!D\7>!DD2c7# b7!D>څ7>|}+!8DF 8K+6!D>ͅH2D!8I!8DF!DDF~_#~W#~OMÅI!?ÂI5K7ɇ<o&97cK*D*D8"D`i"D!D^#V#N#F#!8ÃJMx{L!D6Kwg>dM MG8:6Gw#G8B8\8!DC8D>@D>@:8*D||<>@*D8V8!?P8l77Ù87:D2D:DA8:Dº8ÿ88|/g}/o8!A:D88"D>267aj8 L<~<j;o?!6F :6_ ,;x*,;{,;Aq$@L;EL;DL;0,;,,;.O;+60{Z;+:#w{+p26!66 7*D*D26<E~ʶ;:Җ;0ږ; #~‡;>DG…;"D`i"D#~+;-;0OxG;#~»;`xE;y Ҧ;>26<|Ҧ;;æ;"D`i"D8#W>:60<:<><><Ͱ>608>+~0M<.8<>@>"w#6+p<6-/</ r<:#p#w#6!6#z=ڣ=ͨ>z>o?{̍7=>;ʵY7?>Y7p#=>!D73?7>88@?> 8/{_#zW#yO++G?;7#8p#9?>u?@>>N#F#*D/}o|g҈?"Dp#=u?>w1_cƤ~@zZrN vH Tʚ;@B''d #~: $@ $@ $@0?<=:6K@7-++$@@Oj@Hj@+v@@8H#ʫ@Å@I&û$M!͗@ڕ@}0?)))صo×@M!ͽ@ڻ@}@0? @? ))))صoý@a{ z8>@:D:DB*#!#"#pB"#> pB> pB:#=3C> ͟#> ͟#*nB^#V#CCɷ!D_C!DZCD_CD_Cw#w#w#w#IN0C>DËC>DpC ~#=C!pC#~ ʢC ʢCɅo$ɧGw#¸C{z送r( ogzzpH{,q{ō(Yz$)zƀǔȕɔ(% }o|gzRzzʀj(% $)zzˀP$)z̀E(}9o|=gz $)|g}oz(}9o|=gz $)|g}oz3pHI{,qIHDE MOE!(M!Dy#D+D!    M?(MELH EE͹HE!DHʌE:D M:D/NͅHG2D:DG Mx/F+N+= F!DF!D>q#p#="F!DDF"CFFE*CHL:DL!DN#FJnHqʁFGܳGͱHx jFaFG!D͍HyFj0 TeB׳]h!I.k ELHFE͹H!DDF,!Dq#~++w+qF MDNn"~HG++Ny(MDH!DL>QI)I,M_IMMI!D6Kg>dM|ԸK!>#IakLnIJnI M!D~+>w MuKÅIM M:DLҘI/OÈIuKIMʦK MȯGJ"Dy2DFoͽKK!D*D:DO7JD4ʦLOJ_Jg.*D:DOz8J_Jg.*D:DEJx<=vJ{_zWxG)yOHG÷LuKÆJML MJy+F+F+Fw`h|JgyҷJ:DO|g}oxG-|«J}¦JKElaOåJ!D~GxJƀLwKw+ɷLLMx`i"D*D*DDM^#V#N#F#xy(M:D:D7|/G}/O!>KM JM7>{_zW}o|g=AM|g}osMCZQfM o-yOzW{_xGvMD*DDM^#V#N#F#xy(M:D:D7|/G}/O!>KM JM7>{_zW}o|g=AM|g}osMCZQfM o-yOzW{LJS\E!DL/L͋L3Lx|mLTL]LfLejSXmLmLch|L{_zW}o|gnL"D"Dx!D~w#’L͋LžLL,J!Dqx!DLF#~怩OL 4êLgo"D"DMs#r#q#pMMLM"D`35zr1{r1h!IH MyO2DBGH M:DETG/dM|L{>2DK/L͋L3Lx|mLTL]LfLejSXmLmLch|L{_zW}o|gnL"D"Dx!D~w#’L͋LžLL,J!Dqx!DLF#~怩OL 4êLgo"D"DMs#r#q#pMMLM"D"   "   #   #   $   $   %   %   &   &   '   '