OR $";E1F(3) "YOUR MINK SOLD FOR $";(M1.5)F(1)9 I%M1F(1)B1F(2)E1F(3)D1F(4)I%?i"YOU NOW HAVE $";I%;"INCLUDING YOUR""PREVIOUS SAVINGS." 508J14F(J)0JMINK,BEAVER,ERMINE,FOX "FURS BEHIND." 1320 1418 B1(B12)# M1(M12)O"YOUR MINK AND BEAVER WERE DAMAGED ON"|"YOUR TRIP. YOU RECEIVE ONLY HALF THE""CURRENT PRICE FOR THESE FURS." 1320  1410("SUPPLIES AT NEW YORK COST 5  M1((.15(1)1.05)10.5)10/ D1((.25(1)1.10)10.5)10D P(10(1))1V P2 1281h P6 1291z P8 1295 P10 13061430:"YOU WERE ATTACKED BY A PARTY OF""IROQUOIS. ALL PEOPLE IN YOc *SUB*WAIT***** "(PRESS ANY KEY TO GO ON.)"$ TU$:TU$""3004- ""3 ?"Vz"(ANSWER YES OR NO)"_{ B$e|k"YOUR BEAVER SOLD FOR $";(B1.5)F(2)"YOUR FOX SOLD FOR $";(D1)F(4)"YOUR ERMINE SOLD F $80.00")"YOUR TRAVEL EXPENSES WERE $25.00" *<x:"DO YOU WANT TO TRADE AT ANOTHER FORT?"Vz"(ANSWER YES OR NO)"_{ B$e|k"YOUR BEAVER SOLD FOR $";(B1.5)F(2)"YOUR FOX SOLD FOR $";(D1)F(4)"YOUR ERMINE SOLD F UR TRADING" "GROUP WERE KILLED EXCEPT YOU!"1302A "YOU WERE LUCKY. YOU ARRIVED SAFELY"Z "AT FORT NEW YORK."e  1311p 1430"YOU NARROWLY ESCAPED AN IROQUOIS""RAIDING PARTY.""HOWEVER, YOU HAD TO LEAVE ALL YOUR "  F(4)""1 8)"FRENCH FUR TRADER"H:"YOUR NAME";NA$[(NA$)1314:"YOUR NAME'S TOO LONG. I'LL CALL YOU""PIERRE."NA$"PIERRE":"DO YOU WANT DIRECTIONS(Y/N)";DN$DN$"Y"1089I%(201(1)500) OUTE"r"TO NEW YORK. YOU WILL RECEIVE AN"Ds"AVERAGE VALUE FOR YOUR FURS AND THE "rt"COST OF YOUR SUPPLIES WILL BE AVERAGE."}u 1400x B$"Y" 1110y 1198{"":"YOU HAVE CHOSEN THE MOST DIFFICULT"|"ROUTE. AT FORT NEW U V"TYPE 1,2,OR 3."; WB XB11120- YB21135; ZB31147E \1110t `"":"YOU HAVE CHOSEN THE EASIEST ROUTE." a"HOWEVER, THE FORT IS FAR FROM ANY" b"SEAPORT. THE VALUE YOU RECEIVE FOR" c"YOUR FURS WILL BE LOW AND THE 2(1).65)10.5)10 B1((.2(1).75)10.5)10A D1((.2(1).80)10.5)10p"SUPPLIES AT FORT HOCHELAGA COST $150.00""YOUR TRAVEL EXPENSES TO HOCHELAGA WERE""$10.00." 1410 I%I%140 M1((.3(1).  FURS WILL DEPEND' I"ON THE FORT THAT YOU CHOOSE."- Km L3000:"DO YOU WANT TO TRADE AT FORT 1, FORT 2, OR FORT 3?" M:"FORT 1 IS FORT HOCHELAGA (MONTREAL) " N"UNDER THE PROTECTION OF THE FRENCH ARMY.": O"FORT 2 IS FORT STADACONA (QU T BROKE THE SIEGE.".d 1150/n "MAY 5, 1864. GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO"G/x "FAIL HERE,AND CONTINUED AT COLD HARBOR AND PETERSBURG."R/ 1150/ "AUGUST, 1864. SHERMAN AND THREE VETERAN ARMIES CONVERGED"/ "ON ATLANTA AN $ B$"Y"100 I%0516A "YOU ENDED WITH $";I%;"ALTOGETHER!":^ NA$;",YOU ENDED UP IN "v "DEBTOR'S PRISON!" "YOU OWE $";(I%);"!!"  @ A*SUB*DIRECTIONS********* B:"THE YEAR IS 1776."& C"YOU ARE THE LEADER OF  "JULY 4, 1863. VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH"*- "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI."5-  1150p- "JULY 1-3, 1863. A SOUTHERN MISTAKE BY GEN. LEE AT";- "GETTYSBURG"- "COST THEM ONE OF THE MOST CRUCIAL ."61430 ;JJ14LB$%MOO"HOW MANY ";B$;" PELTS DO YOU HAVE";YRF(J)vTF(0)F(1)F(2)F(3)F(4)VF(0)10F 1100XF(0)10F 500\J]F10F400^"(PRESS SPACE BAR TO GO ON.)" "THAT ONLY RTAGE. YOU HAD TO LEAVE"'"THE PELTS BUT FOUND THEM STOLEN WHEN"<"YOU RETURNED."G 1244R 1414"YOU ARRIVED SAFELY AT FORT STADACONA." 1239 1430"YOUR CANOE UPSET IN THE LACHINE RAPIDS.""YOU LOST ALL YOUR FUR dF(11(2)15):I%0108Be:NA$;",YOUHAVE $";I%"IN SAVINGS"{f"AND";10F;"FURS YOU TRAPPED DURING THE WINTER.g"(PRESS ANY KEY TO CONTINUE.)"h3004k261lNA$;",YOU ARE IN DEBT "m"FOR $";(I%);"!".n"BUT Y YORK YOU WILL GET""}"THE HIGHEST VALUE FOR YOUR FURS."Q~"THE COST OF YOUR SUPPLIES WILL BE LOWER"u"THAN AT ALL THE OTHER FORTS." 1400 B$"Y" 1110 1250 I%I%160 M1((.2(1).70)10.5)10 E1((.  COST"d"OF SUPPLIES HIGHER THAN AT FORTS"8e"STADACONA OR NEW YORK."Cf 1400Yi B$"Y" 1110cj1160o"":"YOU HAVE CHOSEN A HARD ROUTE; IT IS,"p"IN COMPARISON, HARDER THAN THE ROUTE"q"TO HOCHELAGA BUT EASIER THAN THE R 85)10.5)10 E11((.15(1).80)10.5)108 B1((.2(1).90)10.5)10M P(10(1))1_ P2 1216q P6 1224 P8 1226 P10 1235 F(2)0"YOUR BEAVER WERE TOO HEAVY TO CARRY""ACROSS THE PO EBEC) UNDER"& P"THE PROTECTION OF THE FRENCH ARMY."o Q"HOWEVER, YOU MUST MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS."u R S"FORT 3 IS FORT NEW YORK (NEW AMSTERDAM) AND IS UNDER DUTCH CONTROL." T"YOU MUST CROSS THROUGH IROQUOIS LAND."@D DEALT THE DEATH BLOW TO THE CONFEDERACY."/ 1150/ON IN A FOREST NEAR CHICKAMAUGA LED"4.< "TO A COSTLY SOUTHERN VICTORY"?.F 1150.P "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'".Z "ARMY FOR THREE MONTHS, GEN. GRAN  A FRENCH FUR TRADING EXPEDITION LEAVING THE"p D"LAKE ONTARIO AREA TO SELL FURS AND GET SUPPLIES FOR THE NEXT YEAR. F"YOU HAVE A CHOICE OF THREE FORTS AT WHICH YOU MAY TRADE. G"THE COST OF SUPPLIES AND THE AMOUNT YOU RECEIVE FOR YOUR  BATTLES OF THE WAR."-( 1150.2 "SEPT. 15, 1863. CONFUSION IN A FOREST NEAR CHICKAMAUGA LED"4.< "TO A COSTLY SOUTHERN VICTORY"?.F 1150.P "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'".Z "ARMY FOR THREE MONTHS, GEN. GRAN  ADDS UP TO";F(0);"."*"YOU HAVE";10F;"FURS!"35039^"YOU MAY NOT HAVE";F(0);"FURS!""DO NOT TRY TO CHEAT. I CAN ADD.""PRESS ANY KEY TO START AGAIN."3004300"DO YOU WANT TO TRADE FURS NEXT YEAR?"B S!" 1244 1418 F(4)05"YOUR FOX PELTS WERE NOT CURED PROPERLY."R"NO ONE WILL BUY THEM!"] 1244h 1410"SUPPLIES AT FORT STADACONA COST $125.""YOUR TRAVEL EXPENSES TO STADACONA WERE $15." I%I%10 OU HAVE";10F;"FURS YOU TRAPPED DURINGTHE WINTER."7o103YE1((.15(1).95)10.5)10|B1((.25(1)1.00)10.5)10,"":-"YOUR";10F;"FURS ARE DISTRIBUTED AMONG THE."FOLLOWING KINDS OF PELTS:"/"MINK,BEAVER,ERMINE,AND FOX 2790n WW1x T1T1C5E T2T2C6E2 P1P1C1 P2P2C2< Q1Q1(F(1)H(1)B(1))Y Q2Q2(F(2)H(2)B(2))t R1R1M1(100I1)20 R2R2M2(100I2)20 M3M3M1 M4M4M2 3300 UO:U2O 2660 "BATTLE OUTCOME UNRESOLVED" WOWO1 A0 2790" 2680? C6(17C2C1(C520))L E25OW 2280 "YOUR CASULTIES WERE "(100(C5C1).5)"% OF " "THE ACTUAL CSAULTIES AT ";C$  - FIND WHO WON ,12653,1& "MURFREESBORO",38000.,45000.,11000,12000,1&' "CHANCELORSVILLE",32000,90000.,13000,17197,2T' "VICKSBURG",50000.,70000.,12000,19000,1' "GETTYSBURG",72500.,85000.,20000,23000,3' "CHICKAMAUGA",66000.,60000.,18000,16000,2'  E7C513 U1 D1 2500 "CASUALTIES",C5,C64 "DESERTIONS",(E),(E2):S B$ "YES" 2530 "COMPARED TO THE ACTUAL CASUALTIES AT "C$ "CONFEDERATE:"(100(C5C1).5)"% OF THE ORIGINAL"$ "UNION: " BELOW 5%$ S3$ S00$ I1 4% S(I) 5 3390%* S(I)S(I)S%> +%H S(Y)S(Y)S01%R r%\ - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING%f DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ%p "BULL RU SES-NORTH   C6(2C25)(11(2((Y2Y)1))).* C6C6(1.28(5M26)(B(2)1))I4 C6(C6(11O2).5)w> - IF LOSS > MEN PRESENT, RESCALE LOSSESH E2100O2R (C6E2)M6 2190\ C6(13M620)f E27C613p U21z , OR 4 (USUALLY PREVIOUS UNION STRATEGY)""b 3140#l S00#v R100(0) # I1 41# S0S0S(I)o# - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS# THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STRATEGY.# RS0 3270# E BATTLE AT") "BULL RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK.") 1150M)$ "APRIL 6-7, 1862. THE CONFEDERATE SRUPRISE ATTACK AT"}). "SHILOH FAILED DUE TO POOR ORGANIZATION.")8 1150)B"JUNE 25-JULY 1, 1862. GENERAL LEE (C HISTORICAL LOSSES",(P1.5),(P2.5)! "SIMULATED LOSSES",(T1.5),(T2.5)! X! " % OF ORIGINAL",(100(T1P1).5),(100(T2P2).5)n! B$"YES" 3100t! ! "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED "! "STRATEGIES 1, 2 ORCES BACK INTO WASHINGTON."*~ 1150+ "SEPT. 17, 1862. THE SOUTH FAILED TO INCORPORATE MARYLAND"8+ "INTO THE CONFEDERACY."C+ 1150+ "DEC. 13, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY"+ "REPULSED AN ATTACK BY THE UNION UNDER G  "---------------" 620 ------FINISH OFF0 "THE CONFEDERACY HAS SURRENDERED"2840 2860R" "THE UNION HAS SURRENDERED"^, " "x6 "THE CONFEDERACY ";@ "HAS WON "W" BATTLES AND LOST "LJ Y5 2940T Y25 2920^ U1 2590 C5E17C2C1(C520)5O 2630 "YOU LOSE ";C$)( A0 279052 LL1@< 2680TF "YOU WIN ";C$P - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICALZ RESOURCES AVAILABLE.IF A REPLAY DON'T UPDATE.d A0  "CHATTANOOGA",37000.,60000.,36700.,5800,2( "SPOTSYLVANIA",62000.,110000.,17723,18000,2@( "ATLANTA",65000.,100000.,8500,3700,1( "JULY 21, 1861. GEN.BEAUREGARD, COMMANDING THE SOUTH, MET"( "UNION FORCES WITH GEN. MCDOWELL IN A PREMATUR (100(C6C2).5)"% OF THE ORIGINAL". 8 - 1 WHO WON!B U 1 23803G U21 2460DL U1 2420VV U21 2440n` C5EC6E2 2460j C5EC6E2 2440t "THE UNION WINS "C$~ 2600 "THE CONFEDERACY WINS "C$ N",18000,18500,1967,2708,1%z "SILOH",40000.,44894.,10699,13047,3/& "SEVEN DAYS",95000.,115000.,20614,15849,3c& "SECOND BULL RUN",54000.,63000.,10000,14000,2& "ANTIETAM",40000.,50000.,10000,12000,3& "FREDRICKSBURG",75000.,120000.,5377  - CALCULATE SIMULATED LOSSES " ","CONFEDERACY","UNION"D C5(2C15)(11(2((Y2Y)1)))q C5(C5(11O)(1.28F1(B(1)1)).5)}E100O C5100OM1(1(P1T1)(M31)) 2270 C5 (13M120(1(P1T1)(M31)))  I# - IF ACTUAL STRAT. IN,THEN HERE IS Y2= HIST. STRAT. $ Y21$ Y2$ P$ LEARN PRESENT STRATEGY, START FORGETTING OLD ONES$ - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S$ PROBABILITY POINTS, UNLESS A STRATEGY FALLS SA) UPHELD THE"*L "OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN"6*V "AND THE UNION FORCES AWAY FROM RICHMOND."A*` 1150*j "AUG 29-30, 1862. THE COMBINED CONFEDERATE FORCES UNDER";*o "LEE"*t "AND JACKSON DROVE THE UNION F , 3, 4 IN THE FOLLOWING PERCENTAGES"" S(1);S(2);S(3);S(4)" ---------------------#" M"& - UNION STRATEGY IS COMPUTER CHOSENi"0 "UNION STRATEGY IS ";}": A 0 3180"D Y2"N Y2 0 3160"S Y25 3290"X "ENTER 1, 2, 3 EN. BURNSIDE."+ 1150, "DEC.31, 1862. THE SOUTH UNDER GEN. BRAGG WON A CLOSE";, "BATTLE."", 1150`, "MAY 1-6, 1863. THE SOUTH HAD A COSTLY BATTLE AND LOST", "ONE OF THEIR OUTSTANDING GENERALS, 'STONEWALL' JACKSON.", 1150,  W L 2940c Y5 2940 h "THE CONFEDERACY HAS WON THE WAR" r 2950; | "THE UNION HAS WON THE WAR"A S R10 3100 "FOR THE "WLWO" BATTLES FOUGHT (EXCLUDING RERUNS)" " "," "," "; "CONFEDERACY"," UNION" "  ""! 26) "CIVIL WAR"X 15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"b:: ORIGINAL GAME DESIGN: CRAM, GOODIE, HIBBARD LEXINGTON H S MODIFICATIONS: G. PAUL, R. HESS (TIES), 1973 2 S(4),C$(14),M1(14),M2(14),C1(14),C 000.5)  B$ "YES" 1050E D(2)100((M2(100I2)2000)(1(R2Q2)(R21)).5)[ - MEN AVAILABLE}$ M5(M1(1(P1T1)(M31))). M6(M2(1(P2T2)(M41)))8 F15M16B " "L "THIS IS THE BATTLE OF ";C$V X$"NO 0:M40:P10:P20:T10:T20L bF(2)0:H(2)0:B(2)0:R20:Q20:C60:F0:W00:Y0:Y20:U0:U20V l " " v "WHICH BATTLE DO YOU WISH TO SIMULATE";  A  A 0 660  R 0 1140  A 0 2860  A 15 2860  C$C$(A)  ;I115;"%"," ";I2;"%"7 - ONLY IN PRINTOUT IS CONFED INFLATION = I1+15%d - IF TWO GENERALS, INPUT CONFED. FIRSTr I1 D B$ "YES" 1260 I2 1260 "CONFEDERATE GENERAL---"; "HOW MUCH DO YOU WISH TO SPEND FOLECT A BATTLE BY TYPING A NUMBER FROM 1 TO 14 ON"`  "REQUEST. TYPE ANY OTHER NUMBER TO END THE SIMULATION"  "BUT '0' BRINGS BACK EXACT PREVIOUS BATTLE SITUATION"  "ALLOWING YOU TO REPLAY IT"   "NOTE: A NEGATIVE FOOD$ ENTRY CAUSES  1490 " - AMMUNITION";  B(I) N2' B(I)0 1490-Q F(I)H(I)B(I) D(I) 1510\ 1270 "NEGATIVE VALUES NOT ALLOWED." N 1370,1410 B$ "YES" 1550 I2 1550 "UNION GENERAL---"; G MANEUVERS"% , " (4) FALLING BACK"V 6 "YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:"v @ " (1) ARTILLERY ATTACK" J " (2) FRONTAL ATTACK" T " (3) FLANKING MANEUVERS" ^ " (4) ENCIRCLEMENT" h "YOU MAY SURRENDER BY TYPIN:158,059467,0:D12500:A$:A$""D:$T11T135E84,22:85,T1:(826):T3T31gTR$(T3):T34T30:T10:T20mxxEL$:}ER$:OUR MAN IN BETWEEN ALL 20 FLAGS"(34)u" "LV$(LV)" SLOY. FACTS AND FIGURES USED ARE"\ "BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT" "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!" "THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS "; "POSSIBLE."AIR" 1700 "MORALE IS POOR" B$ "YES" 1760* O(Z)O2 Z@ O2O(2)M OO(1)m "CONFEDERATE GENERAL---"; - ACTUAL OFF/DEF BATTLE SITUATION M 3 1800 "YOU ARE ON THE OFFENSIVE" 1840 2(14),M(14)9< UNION INFO ON LIKELY CONFEDERATE STRATEGYcFS(1)25 : S(2)25 : S(3)25 : S(4)25rT D1 14V C$(D),M1(D),M2(D),C1(D),C2(D),M(D)X DY D(1)Zd "DO YOU WANT INSTRUCTIONS";n X$x X$"YES" 160 " 1150` A11 1150Ce A 3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890_j A11 3920,3950,3980yt C$ "INSTANT REPLAY"~ " ","CONFERERACY","UNION""MEN",M5,M6 "MONEY","$";D(1),"$";D(2) "INFLATION"," " M1M1(A) M2M2(A) C1C1(A)$ C2C2(A)1 MM(A); U0P INFLATION CALCd I110(LW)2x I210(WL)2 - MONEY AVAILABLE D(1)100((M1(100I1)2000)(1(R1Q1)(R11)).5) D(2)100(M2(100I2)2R" " - FOOD......"; F  F 0 1360- R1 0 1330I "NO PREVIOUS ENTRIES"T( 12702 "ASSUME YOU WANT TO KEEP THE SAME ALLOCATIONS"<F 1510P F(I)FZ " - SALARIES..";d H(I)n N1x H(I)0 THE PROGRAM TO "1  "USE THE ENTRIES FROM THE PREVIOUS BATTLE"7 h  "AFTER REQUESTING A BATTLE, DO YOU WISH "; & "BATTLE DESCRIPTIONS" 0 "(ANSWER YES OR NO)"; : X$ D X$"YES" 600 N X$ "NO" 560 XL0:W0:R10:Q10:M3 I Z1 D B$ "YES" 1620" Z 1580,16001, "CONFEDERATE";<6 1620O@ " UNION";cJ - FIND MORALET O((2F(Z)2H(Z)2)F121)^ O10 1660h "MORALE IS HIGH"r 1700| O5 1690 "MORALE IS FG A '5'FOR YOUR STRATEGY."6 r "ARE THERE TWO GENERALS PRESENT";R | "(ANSWER YES OR NO)";[  B$p  B$"YES" 430  B$ "NO" 380  "YOU ARE THE CONFEDERACY. GOOD LUCK!"   D1  B$ "YES" 460  D2#  "SE  Y (Y3)3 1960 "STRATEGY";Y;"NOT ALLOWED."! 19107 B$"YES" 2000H Y5 2830S 3110^ 2170o I2 2040z Y1Y "UNION STRATEGY"; I Y2Y YY1  Y25 2020 : SIMULATED LOS"PRESS ANY KEY TO CONTINUE"0A$: A$"" 255a "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" " (1) ARTILLERY ATTACK" " (2) FORTIFICATION AGAINST FRONTAL ATTACK" " " (3) FORTIFICATION AGAINST FLANKINM 1 1830  "YOU ARE ON THE DEFENSIVE" 1840=& "BOTH SIDES ARE ON THE OFFENSIVE"C0]: - CHOOSE STRATEGIESvD B$ "YES" 1910N I1 2X I 1890,1920b "CONFEDERATE STRATEGY"l 1920v "YOUR STRATEGY" X$"NO" 370" "YES OR NO -- ";, 1104""[ "THIS IS A CIVIL WAR SIMULATION" "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." "REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR" "RESPONSES COULD CHANGE HISTOR 1 500:IT$A1$""5^$A2$""@h$ "";Xr$ (A1$,((A2)3));m|$ (A2$,(11B));$ CNT9 ((CNT),1);$ CNT10 ""((CNT),1)"";$ "";$CNT19 (A2$,CNT4); (";#CR$"" : CS$" " #FLG1# 850 : A(A$)'#",";1#FLG2;# 850a# A$(20) " ";: 9130s#B(A$):")";#D2(XA)(XA)(YB)(YB)#" "# "WHAT IS THE RADIUS?"#  ***********************= * S K I ! *[ * *y *BY STEPHEN PROKOPCHUK* * * *********************** COPY ME! I LIKE TO TRAVEL! ***************** *************. THIS PROGRAM WORKS PROPERLY ONP 40 COLUMN 4.0 MACHINES ONLYV\tLV1:59467,0:1100LV1PP10:WT11LV2PP9:WT13LV3PP7:WT10LV4PP2:WT8  72,152,72,138,72,169,19,32,210,255,165,84,2- *****************************22"";:PO18:224,10t3I126:" ": SCREEN OF4I : SHIFTED SPACES5TR$(1)"ߒ"6TR$(2)"ߒ"7TR$(3)"ߒ"8TR$(4)" ߒ"& >LP10:RP3   "I TER$ER$"   " ULM$"    VRM$"   a ********** b *THE GAME* c *H2:980:950:CR$A$:E1:WG0:KL3:OPPOO SI((1)2)0:SI1FC4T20T1((1)2)0:T21_ T211300 980:84,25:85,0:MA:1000:POPOE:WG1900:100 950:100  *************  *SUBROUTINES*  ************* 84,1:81:S$"":NF9S$"":NF211015C""((NF),2,2)""((NF),2,2)""S$;z""84,22:85,0:MA" "((1)10)1PP32768880((1)&$"CRASH! YOU HIT A FLAG!":12000L"";QM"  ߒ    "rN"     "O"  ߒ  ߒ   "P"   ߒ  "Q"     "U"HEN PROKOPCHUK"`"4-LEFT"j"6-RIGHT"Fk" PRESS RETURN TO SELECT COURSE"tl" PRESS SPACE TO START"t""(34)"GUIDE YOUR MAN IN BETWEEN ALL 20 FLAGS"(34)u" "LV$(LV)" SLO$CNT18 (A2$,CNT14); $ (A1$,25)"#";$$ ((CNT),2)" (";H$ ((A),1)","((B),1)")";^$ ((R),1)" ";x$ D2RR "ON ";$ D2RR "IN ";$ D2RR "OUT";$CNTCNT1$"";$ ""; $FLG1: 850 : R(A$))$ AX BY RD2 5000;$ D20 5000h"$"THE SNARK IS";,$ D2RR " ON "6$ D2RR " INSIDE "@$ D2RR " OUTSIDE"J$"YOUR CIRCLE.O$ I******! * THE SECRET TO THIS *> * PROGRAM IS THE *[ * TECHNIQUE OF USING *x * SHIFTED SPACES IN **AREAS THE SKIER DOES ** NOT BELONG. SHIFTED ** SPACES REGISTER AS **"96" INSTEAD OF "32."* **********40,9,169,17,32,210S 255,198,84,208,247,165,85,240,9,169,29,32,210,255,198,85,208,247p# 104,170,104,168,104,96(I826867:A:I,A:I* *****************************+ *THE PREVIOUS IS M/L ROUTINE*, *TO RE-POSITION THE CURSOR. *1:CR$"4":CH1:E1:WG1:KL0:TI$"000000":FC10S PXA33146:XB33147:XC33148:MA826:XD224 QEL$"     " REL$EL$"   " SER$"    ********* d A$:BPPO:OPPOKL% eA$CR$A$""_ fXD,128:"TIME:"TI$" SKI! FEET:"FT:XD,10k gFTFT1 hIXA18OP XB18OP:P(I):P96 iIXC18OP1050 xA$"4"CH1:980:900:CR$A$:E1:WG1:KL0:OPPO A$"6"C5,PO:MA LM$  84,1:85,PO:MA# RM$) > 84,1:85,BP:MAQ CR$"4"1400d CR$"6"1405j  FCFC1:FCWTFC0:1002 FC151010 FP((1)25)1:FPLPWT FPLP(WT)1002 84,20:85,FP:MA:LPFP:NFNF37)2,81:" COURSE COMPLETED!" 1200dP32"OUT OF BOUNDS! DISQUALIFIED!":1200P81"CRASH! HIT A ROCK!":1200P233P223"CRASH! HIT A TREE!":1200 ";:V"   ";WLV$(1)"BEGINNER":LV$(2)"INTERMEDIATE":LV$(3)"EXPERT":LV$(4)"SUICIDAL"["Υͥ"]"BY STEPPE "~D150:D:158,0A$:A$""11607A$(13)LVLV1:LV4LV1JA$(13)1141_ 92,73,61,73,61e59467,16:59466,100:59464,0P96 900: V15:A:59464,A:D1200:D:VP9659464,255D1100:Db I1 8% " ";%$!% "";/&% 90805'$";Xr$ (A1$,((A2)3));m|$ (A2$,(11B));$ CNT9 ((CNT),1);$ CNT10 ""((CNT),1)"";$ "";$CNT19 (A2$,CNT4);  GAME: SNARK VERSION 3.0C BUILT FROM 9-18-79 TO 10-1-79W @ VINCE MILLSxd------- HEADER BLOC -------i 59468,12n ""x "ݦ" "ݦ " " ";v I08 1 11" "((I0),1)"": I0Z" 0"z" 0 1 2 3 4 5 6 7 8 9 "" ""  "@ ------- INST U TELL ME THE RADIUS OF YOUR "9 $ "CIRCLE, I'LL LET YOU KNOW IF THE "f . "SNARK IS INSIDE, OUTSIDE OR ON THE " 8 "BOUNDARY OF THE CIRCLE. WHEN YOU " B "YOU THINK YOU KNOW THE COORDINATES " L "OF THE SNARK, TYPE A ZERO (0) FOR o) "="VY(1) NP1 2740"VX"C$(2)"="VX(2)"VY"C$(2)"="VY(2)#8G'"P1="P1;"P2="P2 CRASH(P)1o CRASH(P)1 "CRASH"u{----DETERMINE DIRECTION------ (VX(P))(VY(P)) VX(P)0 DIR(P)1  " "J  " "w  " "  "HERE'S HOW WE CAN CATCH THE SNARK. "  "I WILL ASK YOU FOR THE X AND Y COOR-"  "DINATES OF A GRIDPOINT;H(P)1| 4300! P(X41)32 P(X40)32 P(X39)32 CRASH(P)1M P(X40)32 P(X)32 CRASH(P)1o CRASH(P)1 "CRASH"u{----DETERMINE DIRECTION------ (VX(P))(VY(P)) VX(P)0 DIR(P)1 "";%  " Y G H! "1 ZZ(2):  I7l  "I";CNT;"T"  "WԠϠ٠? "; FLG0 CS$""  850  A$"Y" 199 o "": Q" M7 M$"W" M8 M$"E" M9;( M 3710,3720,3730,3740,3900,3760,3770,3780,3790G2P2P21M<o----CHECK FOR CRASH--------- DIR(P) 4100,4150,4200,4250 P(X1)32P(X)32 P(X1)32P(X39)32 CRASH(P)11 (A$)57 857% (A$)13 A$;+1Q ------- WINNER BLOC -----` 59468,14 "" "ݩ" "ݩ" ""; I1 8 "";$7 I1 500 :E U1 3`"";n I1 8 AA$: AA$""; IFLG0"PRESS ANY KEY TO CONTINUE.";CS$"^":CR$" " 850ݦ SNARK ": "ݦ "\ "ݦ"~ "" I01 10:L(2):CS$"" : CR$" " " DO YOU WANT INSTRUCTIONS? "; 850 : A$ "Y"  RUCTION BLOCK ---AE "";1J I01 8 fT"  ";o^ I0h " ";r I01 8|"" I0 " "V "THE RADIUS. "G` " GOOD LUCK! "jX ------- SCREEN GRID --------{] SUBROUTINEa" GRID GUESSES "b" 9 ";l" I01 8!P# "   ";'Z#Yd# " ";n# " ";x# "WHAT ARE THE GRID-"# "POINT COORDINATES?"# " THIS IS OUR "+  "STARTING POINT. MARK THIS POINT ON "X  "YOUR SNARK PAPER. THEN, DRAW A "  "CIRCLE OF ANY SIZE ON YOUR PAPER "  "WITH THE COMPASS. I WILL THEN ASK "  "YOU FOR THE RADIUS OF THE CIRCLE. "  "WHEN YO (VX(P))(VY(P)) VX(P)0 DIR(P)3$ (VX(P))(VY(P)) VY(P)0 DIR(P)4P (VX(P))(VY(P)) VY(P)0 DIR(P)2V~t-----REDO HEADING-------""BLANK$TMTM.5"VX"C$(1)"="VX(1);20)"TIME="TM"CYCLES"VY"C$(1p ------- DATA BLOC -----< z "THE SNARK IS HIDING SOMEWHERE UNDER "i  "THE GRID ABOVE. YOUR JOB IS TO PIN- "  "POINT IT'S EXACT LOCATION. TO PLAY "  "THIS GAME PROPERLY, GO GET A COMPASS"  "AND SOME SNARK PAPER NOW. " P(X41)32 CRASH(P)1 4300*6 P(X40)32 P(X)32 CRASH(P)1f@ P(X39)32P(X40)32 P(X41)32 CRASH(P)1qJ 4300h P(X41)32 P(X1)32 P(X)32 CRASH(P)1r P(X1)32 P(X39)32 CRASݩ "A "ݩ"q "ݩ" "" I71 5.5 .5 ""; I7(I7).5 5075 ""; : 5076  U'#(# -------- GAME BLOC --------+)#X(10(1)):CNT1<*#Y(10(1))K+# 59468,12[2# "";j5# I 1 97# "  ";9#<# "   ";F# 7000: 8000: 9000# 7000 : 9000GR ------- GET SINGLE CHAR -----PWTTIqY TIT20 CS$"";: 870\ TIT40 CR$"";: 870aTTIf A$ : A$"" 857k FLG2 (A$)20 p FLG1 (A$)48 857 z FLG * ---RACE TRACK FOR 1 OR 2 PLAYERS--L---MAIN CALLING ROUTINE-----# CAR$(2,4),CRASH(2),PX(2),PY(2),VX(2),VY(2),MOVE$(2),DIR(2)( 500:INIT2 1000:INSTRUC< 1500:DRAWA NP1 CRASH(2)1F 2500: SPEED AND HEADINGP $(I)""CAR$(I,1);PX(I)X:PY(I)Y. I1 "";8YY5@ ITX38:Y18: 800j"START";"DO YOU WANT TO CHANGE THE TRACK (Y,N)"; 850 A$"Y" 2000""BLANK$ I1 NPCAR$(I,2)" HE SPACE BAR TO EITHER ADD OR: "DELETE OBSTACLES AND RETURN WHEN THROUGHZ "PRESS ANY KEY TO GO ON.";d  850j ( --DRAW TRACK AND ALLOW CHANGES-- ""BLANK$  I 12 9 1 (BLANK$,I)  I  I1 15 " " " USE CRSR, SPC BAR, & RETURN."X20:Y17 800& 850<  A$(13) 2190Z A$(29) XX1: 2040y  A$(157) XX1: 2040* A$(17) YY1: 20404 A$(145) YY1: 2040> A$(32) 2300H 2040I) t I$ ~"THE KEYS SHOWN BELOW ARE USED TON "CONTROL YOUR ACCELERATION (NOT YOURy "SPEED. THE LINES SHOW THE DIRECTION "OF ACCELERATION." " PLAYER "C$(2)" PLAYER "C$(1) " " Q W E : 2650  A$"S" SPEED 4 : 2650* A$"A" SPEED 2 : 2650J A$"F" SPEED 0 : 2650U 2520dZ ""BLANK$d "PRESS ANY KEY TO START.";i 850  ----ACEPT P'S MOVE----- XPX(P):YPY(P) P 3500,3800: FI P9160 " ";: 890 t" ";! zE -----GET NON-EMPTY STRING-----O B$""Y  850u  B$"" A$(13) 910  A$(13) 960 A$; B$B$A$: 910  ----INSTRUCTIONS---- "HOW MANY PLAYERS?(1 OR 2) ";  850X36 "WINNER!": 3490D 4000: CHECK FOR CRASH-N CRASH(P) 34907S 800KX CAR$(P,DIR(P))Vb 3052\  ----PLAYER 1'S NEXT MOVE------ A$"" 3560 (A$)48 (A$)58 3555 MOVE$(2)MOVE$(2)A$ !CRASH(1)0:CRASH(2)0&&P11:P21:TM0B0MOVE$(1)"":MOVE$(2)""c:ERASE$(1)"   "DERASE$(2)"   "NERASE$(3)"   "XERASE$(4)"   "bDIR(1)1:DIR(2)1 lRGHT$"VX(P)VX(P)1:VY(P)VY(P)1:VX(P)VX(P)1: <VX(P)VX(P)1: ^VX(P)VX(P)1:VY(P)VY(P)1:rVY(P)VY(P)1:VX(P)VX(P)1:VY(P)VY(P)1:----PLAYER 2'S NEXT MOVE------ A$"" 3860 (A$) P1 NP,Z CRASH(1)0 CRASH(2)0 100G\""7)"PLAY AGAIN?";Q^ 850h` A$"N" "";:wb 500: 60d CRASH(P) 160nA$x SPEED5 138z P1 A$"9" 110{ P2 A$"9" 110} TM0 140 A$"" "C$(I)""C$(I)""C$(I)C$(I)C$(I)""ZCAR$(I,3)""C$(I)""C$(I)C$(I)C$(I)""C$(I)""CAR$(I,4)""C$(I)C$(I)C$(I)""C$(I)""C$(I)"" I---ALLOW ALTERATIONS IN TRACK---""BLANK$"I ," ":" ":" "6BLANK$(@X38:Y3: 800AJ"FINISH";UTX14:Y12: 800h^(BLANK$,25);|hX14:Y13: 800r(BLANK$,25);|X36:Y16: 800 I 1 NPCAR$(I,1)""C$(I)C$(I)C$(I)""C$(I)""C---ADD OR DELETE OBSTACLE----' P(X)160 " ";: 2325@ P(X)32 " ";J XX1P  ----ACCEPT SPEED & PRINT HEADING----------------------------------- "MANUAL,SLOW,AVERAGE,OR FAST?"; 850 A$"M" SPEED 5 7 8 9! " A D 4 6A " Z X C 1 2 3b " "BEFORE THE RACE YOU GET A CHANCE TO "ALTER THE RACE COURSE. YOU WILL USE "THE 'CRSR' CONTROLS TO MOVE AROUND, "AND TND P'S MOVE M5  PX(P)PX(P)VX(P) PY(P)PY(P)VY(P)> XPX(P) YPY(P) 3490H 800^ ERASE$(DIR(P)); 4500: DETERMINE DIRECTION XPX(P) XX1& XPX(P) XX10 YPY(P) YY1: YPY(P) YY1?   A$"1" A$"2" 1020 A$( NP(A$)y $"YOU WILL BE DRIVING A CAR. WHAT GRAPHIC SYMBOL DO YOU WANT FOR YOUR CAR? . I1 NP 8"PLAYER"I"?"; BC$(I)"" L 850 V A$"" C$(I)"": 1100 `C$(I)C$(I)A$"" jC$( A$ 3510 MOVE$(1)MOVE$(1)A$ P1(MOVE$(1)) 36008 M((MOVE$(1),P1,1))o M 3710,3720,3730,3740,3600,3760,3770,3780,3790{P1P11t---CHANGE VELOCITIES-----~VX(P)VX(P)1:VY(P)VY(P)1:VY(P)VY(P)1:"-vVX(1)0:VX(2)0:VY(1)0:VY(2)03A --X,Y---Q* 216,Y1:c4 (RGHT$,X);i>xR-GET CHARTP9P(X)\ 158,0^T3TI` TIT330"";:870b TIT360" ";:870dT3TIf A$: A$"" 864 r64 3850 (A$)1 3840MOVE$(1)MOVE$(1)A$ A$: 38108 MOVE$(2)MOVE$(2)A$T P2(MOVE$(2)) 3900lM$(MOVE$(2),P2,1) M$"Z" M1 M$"X" M2 M$"C" M3 M$"A" M4 M$"D" M6 M$"110  140TTI, TITSPEED60 139I 3000: ACCEPT P'S MOVEY X36 92r 5000: NEW HEADINGz P 80-INIT--- 59468,12BLANK$" " P(X)(3276840YX)AW_ PET GAMES 12 AB2AACEY DEUCYCIVIL WAR-DEFLEXTION FUR MUGWUMP NUMBER-TOERACETRACKSKI.FSNARKVOLCANO>  ""0d NUMBER-TOE .Vn A GAME INVENTED BY MURRY SUID|x PROGRAMMED BY JOSE GUTIERREZ 1000: INSTRUCTIONS, 2000: GRID SETUP 3000: ACCEPT INPUTT3400X 5000: CHECK FOR WIN]WW17 HE FIRST PERSON TO MAKE TWO NUMBERS ADD UP TO THE THIRD IN A RO";r24);"W, COLUMN, OR DIAGONAL IS THE WINNER.""YOU MAY NOT PLAY IN THE CENTER SQUARE ON THE FIRST TURN."$"ONCE A NUMBER IS PLAYED YOU CAN'T USE IT AGAIN."." 13: FILLS CELLS%::J13:CH(I,J)999.::J6:IXD$""L$""U$""CS02200 SAME PLAYER FIRST???"SAME PLAYER FIRST? PL$ " G$(7)"G H I "0 G$(8)""< :N57I  ::I14[  ::20);G$(I)d  ::Iu $ :20);G$(N)} . :N 3 20);G$(8) V ACCEPT INPUT X$(T)IS LETTER INPUT TT1: T IS INPUT ITEM NUMBER I2:2 "WHICH NUMBER? ";5 9500: FLASHING ROUTINEN NU$"0" NU0:3210k (NU$)0 8500:3015y NU(NU$) N(T)NU: N(T) STORES USED VALUES T13260 :K1T1: CHECKS REPEATS :: NUN(K)8000:3015 : MA216X$(T)"B"X$(T)"E"X$(T)"H" MA26L@X$(T)"C"X$(T)"F"X$(T)"I" MA31RJh CHECK FOR WINN Y IS ROW **Z IS COLUMNXXCH(Y,1):YYCH(Y,2):ZZCH(Y,3)XXYYZZ9995700XXCH(1,Z):YYCH(2,Z):ZZCH(v FLASHES TIE GAMEKI103"IT'S A TIE ":9800L" ":9800SKu ****SCORE FOR TIE HERE*****TTTT1  FLASHES A WINNER K110*"";PL$(I);" WINS!":98004"  YOU LIKE TO PLAY AGAIN?"BCS$:CS$""6210:CS01L CS$"N" CS1:IQ"GOODBYE THEN!":OVU?p@ REJECT FOR REPEATSE"";(D$,4):15);"CAN'T USE THAT AGAIN":9000J" "h4! Rf0N%X$(T);X%9800b%9510H& TIMING FOR FLASHING(R&TMTI;\&TITM109820Af&$OVU?p@ REJECT FOR REPEATSE"";(D$,4):15);"CAN'T USE THAT AGAIN":9000J" "h4! R% -- MUGWUMP, CREATIVECOMPUTING.""; P(4,2)S15);"MUGWUMP"::q"DO YOU WANT THE RULES";z# R$( (R$,1)"Y" 60- (R$,1)"N" 1052"PLEASE ANSWER YES OR NO"7 30<"THE OBJECT OF THIS GAME IS TO FIND 4 00 bT9400l58002 6000: SCORE & STOP?ACS1300G\ INSTRUCTIONS"NUMBER-TOE IS A GAME FOR TWO PLAYERS.""IT IS PLAYED LIKE TIC TAC TOE.""INSTEAD OF X'S AND O'S YOU USE NUMBERS FROM 0 TO 9."="TPRESS ANY KEY TO GO ON"+8P$:P$""1080VB"TYPE IN FIRST PERSON'S NAME."bLPL$(1)V"TYPE IN SECOND PERSON'S NAME."`PL$(2)jTPL$(1)PL$(1):TPL$(2)PL$(2)"": GRID SETUPX$,N:T0:WW0 :I(3):PL$(3)""2040E PL$(3)"Y"PL$(4)PL$(1):PL$(1)PL$(2):PL$(2)PL$(4)Y  GRID PRINTINGl ""; (D$,6) G$(1)"ϣϣϣ" G$(2)" " G$(3)G$(2):G$(4)G$(2) G$(5)"A B C " G$(6)"D E F(T2)T0I11 "WHICH SPACE ";PL$(I);"? ";K X$(T):X$(T)""3020j ' T1X$(1)"E"8500:3015 ( X$(T)"I"X$(T)"A" 8500:3015 * T13160 : :P1T1 D ::X$(T)X$(P)8000:3015 N :P X 4000: PLACES INPUT l "";(D$,MD):MA);NU' Y(MD3)5:Z(MA16)56 CH(Y,Z)NU< W  DEFINES TAB VALUES{ X$(T)"A" X$(T)"D" MD8 X$(T)"D" X$(T)"G" MD13 X$(T)"G" X$(T)"J" MD18 ,X$(T)"A"X$(T)"D"X$(T)"G" 3,Z) XXYYZZ9995700DYZXXCH(1,1):YYCH(2,2):ZZCH(3,3):XXYYZZ9995700YZ4XXCH(1,3):YYCH(2,2):ZZCH(3,1):XXYYZZ9995700(D TESTS THREE CELLS FOR A WINNXXYYZZ5900XXXZZYY5900bYYZZXX5900 ";:9800>KHWW1$MPL$(I)TPL$(1)T1T11ARPL$(I)TPL$(2) T2T21G\kp GIVE SCORE & CONTINUE OR STOPtu""zTPL$(1);" HAS";T1;" POINTS"TPL$(2);" HAS";T2;" POINTS""THERE ARE";TT;" TIES"8"WOULDEJECT FOR OUT OF RANGE(>!"";(D$,4): 15);" NOT ACCEPTABLE":9000XH!" "^p!i(#TMTI}2#TITM1209010<#% FLASHING ROUTINE&%NU$:NU$""95300%:%""(D$,MD2): MA);" ";D%980 MUGWUMPS HIDDEN ON A 10 BY 10"l="GRID. THE MUGWUMPS WILL BE HIDING AT 4 OF THE GRIDPOINTS. YOU TRY TO ">"FIND THEN BY GUESSING A GRIDPOINT. HOMEBASE IS POINT 0,0 IN THE " ?"LOWER LEFTHAND CORNER OF THE ENTIRE GRID. YOUR GUESS SHO ITH A COMMA BETWEEN" 125" I1 48 P(I,1)1 180N P(I,1)M 170d P(I,2)N 170r P(I,1)1 "YOU HAVE FOUND MUGWUMP"I 180 D((P(I,1)M)2(P(I,2)N)2) "YOU ARE"((D10))10"UNITS"; " FROM --- MU AT ("P(N,1)","; P(N,2)")" N0 :"THAT WAS FUN!!"U "WOULD YOU LIKE TO PLAY AGAIN";^ P$v (P$,1)"Y" 270 (P$,1)"N" 1029 "PLEASE ANSWER YES OR NO"  245 "OKAY, 4 MORE MUGWUMPS ARE NOW IN HIDING" ' GAME:*ACEY DEUCY*:10-V10.1-MOD1M BY VINCE MILLS - (415) 523-7163s COPYRIGHT MAR 1980 - PERMISSION( RESERVED - LIMITED DISTRIBUTION. 50 REMZ 59468,12[ P(52)\Y1$""d 2000 8200: B$"Y" 320 ";E8"1-C- Ǡ٠lB" Š;"D"";F"2-L- Ǡ̠"G" Π ٠;"K" A$"4" ZZ1.:-RANDOM% ZZ0 10204CR(A$):G-INSTRUCTIONSV 59468,14y" ""  ACEY-DEUCY ""TӠӠŠƠ. TŠˠ";"ΠĠ. TŠ> *" I'̠ˠՠϠŠ (͠ ϠŠĠ)."l 4" I'̠ ΠŠĠĠ." >" IƠŠĠӠŒ ŠҠ"; H" ΠՠΠŠ. IƠŠ" R" ӠŒ, ՠŠ ""Y1$"LET ME TAKE YOU THROUGH ONE HAND."6  9500:WT3: 13000I  9600: 13000b  (1OD)7.1 3140n & -NO GO 0 "GIVEN THESE ODDS, I WOULD CHOOSE" 2 "NOT TO BET ON THIS HAND.":DC0 : 3160 D -GO FOR IT F DC((OD11)9.1); 8400 (B$,1)"Y" 9400: 3080 %4-RUN GAME[ 59468,14:PB100:BR100:DC0:PO0v|"";: 59468,12:930059468,12:9500:9600Y1$" PLACE YOUR BET, PLEASE: $ "; 8400:BQ(B$): (BQ0 BQ101) B$"0" 4ULD BE A PAIR"[@"OF WHOLE NUMBERS, WITH EACH NUMBER BE- TWEEN 1 AND 10,INCLUSIVE. THE NUM-A"BERS SHOULD BE SEPARATED BY A COMMA. THE FIRST NUMBER TELLS HOW FAR TO"B"THE RIGHT OF HOMEBASE YOU THINK THE MUGWUMPS ARE HIDING, AND THE NESWER YES WHEN READY"J 70 i 1000(nT02sTT1:x:`}"TURN NO."T"WHAT IS YOUR GUESS";l~ M$,N$xM(M$)N(N$) M0 M0 132 M10 N10 132 135 "PLEASE ENTER WHOLE NUMBERS BETWEEN 1 AND 10, WGWUMP"I I J1 4( P(J,1)1 2100 JV :"YOU GOT THEM ALL IN"T"TURNS!"` 240q T10 115 :"SORRY, THAT'S 10 TRIES. HERE IS WHERE THEY'RE HIDING --" N1 4 P(N,1)1 235 "MUGWUMP"N"IS  105  J1 2  I1 4. P(I,J)((10(1))1)6  I>  JD  "THANKS FOR PLAYING MUGWUMP WITH ME SEE YOU LATER......" $E IS WHERE THEY'RE HIDING --" N1 4 P(N,1)1 235 "MUGWUMP"N"IS , 3000@ 1000 4000"1-RUN GAMEG"";: 59468,14Y PE1 1060"CΠI ٠ǠȠ ? ";: 8400 (B$,1)"Y" 1999-PET PLAY PE1$"HנĠՠŠŠϠ٠٠: "."";6L"3-N- Š͠; "WX"";`"4-R- ԠƠŠ'B S' ?"j 8000:ZZ0l A$"1" ZZ2.0:-CONSRVt A$"2" ZZ9.0:-LIBERL~ A$"3" ZZ7.1:-NORM "& " ŠӠ ΠӠȠ "M ". H'ӠנԠ:" " I ̠̠ՠϠ Š, ĠŠŠ." " AҠǠՠ Ԡ "; "" ĠǠŠǠӒ,"Š."% \" (ŠĠӠŒ ƠŠ"M f" Ӡ٠Π"w p" ŠƠ Ҡ.)" q 12000 z"DϠՠԠ? (Y N)";  -RUN SIMUL'N 59468,12:PE0:BR100:PB0 N "GIVEN THESE ODDS, I WOULD CHOOSE TO BET"< P "$"DC".00 ON THIS HAND."\ X "PLACE YOUR BET, PET: ";h b 13000y l "$"DC".00" v 13000 9700 13000 9300 13000 Y1$"DO YOU WANT ANOTHER DEMONSTRATION? "340" "% 4240LDC(B$): PE0 "" : 4400^ ZZ0 4346yDE0: (1)41 4360 4350 (1OD)ZZ 4360DE0: 4370DE((OD11)9.1)  ZZ0 DE(100(1))" XT"HC"NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU THINK THE MUGWUMPS ARE."D"YOU GET 10 TRIES. AFTER EACH TRY I WILL TELL YOU HOW FAR YOU ARE FROME"EACH MUGWUMP"::F"ARE YOU READY";G G$H (G$,1)"Y" 105 I"PLEASE AN $"PB".00":$ DE0 DC0 "LAST BET $"DC".00"~$ PE1 DEDC0 "$"DE".00"$ IO0 PO0 "LAST PAYOFF $"PO".00"$ PE1 IOPO0 " AW ONE HAND&%"";: 9200:C1J0%"";: 9200:C2J0:%"";MD%O1OO:OO0: 10000:OOO1iN%FLG1: 9200:C3J:FLG0oX%%-DECIDE ODDS%A1(C1C2)1% A10 A10%ODA111% OD0 OD.0001%Y1$"THE "THE CARD IS  INSIDE! ",&.&"THE CARD IS  OUTSIDE! "'/&PODC:IODE?0&BRBRPO:PBPBIO:U'-CARD GENERATIONd':TTP(OO)}$' TT0 I4: 10040.'I((TT1)13)0'JTTI132'II1 J: A$,A$:II8' A1$,A2$:'C$" "," 5","6 "," 6","7 "," 7","8 "," 8","9 "," 9"9+ "10","10","J "," J","Q "," Q","K "," K","A "," A"G.-SHUFFLE].I152:P(I)I:Ij.I1100.X1((1)511.5):X2((1)511.5):X1X212020/P(0)P(X1):P(X1)P(X2):P(X2)P(0)/ I:P(I1CR:"";::"";:$"8 "," 8","9 "," 9"9+ "10","10","J "," J","Q "," Q","K "," K","A "," A"G.-SHUFFLE].I152:P(I)I:Ij.I1100.X1((1)511.5):X2((1)511.5):X1X212020/P(0)P(X1):P(X1)P(X2):P(X2)P(0)/ I:P( d"GAME OF DEFLECTION"::Zn"DO YOU WANT INSTRUCTIONS";X$: (X$,1)"Y" 1000cx""~SS32768:J3: I1 J I1 JA(1000(1)): (SSA)160 170 SSA,160: IA(1000(1)): (ASS)160 210UASS:DI1:77 DI1:NENE1+ (A)78 DI1:NENE15 530F DI0 490k NE40(NE40)7 DIDI: 320tANE (A)77 DI40:NENE40 (A)78 DI40:NENE40 530 NE40(NE40)8 DIDI: 320ANE  (A)77 THE PET WILL BET: $"; IU1100: IU(& DE".00 ";0 IU180: IUM2 9700: 9300_: DC0 4430DY1$" PRESS ANY KEY TO CONTINUE";E PE1 " OR ! "F PE1 " TO CHANGE THE PET'S STRATEGY ";G 8 8220: B$"" A13 D A13 A$;:BN A20 (B$)2 " ";:B$"": 8220^O (B$)0 A20 8220X A20 " ";:B$(B$,(B$)1): 8220b A32 (A127 A161) 8220{ (B$)38  A$;:B$B$A$: (B$)39 $T$-PRINT BANKROLLV$"";=^$I14:" " : IG`$"";`h$ PE0 "";:9340r$"YOUݑPET"|$ BR0 PB0 "BANKROLL $"BR".00"$ PE1 "$"IO".00" $ PE1 14000$+$-CLEAR DISPLAY WINDOWL$"";$I113:" ";: I$I17:" ";: I$%-DR ODDS ARE";% (1OD);"TO 1."%%-DRAW MISSING CARDF%""C3$Y1$""T%PO0:IO0r% C1C2 CC1:C1C2:C2C& C3C1 9774 & C3C2 9774&PO(1OD)DC:BRBRPO &IO(1OD)DE:PBPBIO*&" B'C$C$A1$(" ",I1,1)" "@L'C$C$" "(" ",I1,1)A2$dV'C$C$"˝"`' FLG1 C3$C$:10999j' C$;**-DATA+ " "," ","2 "," 2","3 "," 3","4 "," 4" + "50)0/2-WAIT2TTI60WT2 TTI 13020 26-STRAT_6X27:Y4:8800:"PET STRATEGY:";6" CONSERVATIVE LIBERAL NORMAL";6" RANDOM";6TT1 300ATISLB(A60 .5):"IT TOOK YOU"T;"TRIES AND"B;"SECONDS"p"TO GET ALL"J;"OF THE TARGETS"zABJ A3 "YOU'RE TOO GOOD - GO HOME!"::: 900 A5 "YOU MUST HAVE BEEN PRACTICING": 900  A7 "YOU AR (1).5 D11STI2, X$: (X$)0 600N@NEUDI: (DI)1 430_T DI0 380z^ NESS DIDI: 320cANEh (A)77 DI1:NENE1r (A)78 DI1:NENE1w 530| NESS999 DIDI: 320ANE  (A) DI40:NENE40+ (A)78 DI40:NENE406 U,32Z (NE)32 NE,81:UNE: 300r& (NE)160 KK1+ NE,81:UNE0 KJ 700: 300X X$"/" A78: 630b X$"\" A77: 630l 320v (UDI)32 UDI,A:000: A$"!" 1000:"";: 9300:4230 N 9400: 4230&<@-GET SINGLE CHAREJTTIcT TIT20 "";: 8050^ TIT40 " ";: 8050hTTIr A$: A$"" 8020|" ";: -GET STRING 8000:A(A$)0 B$"" A20  8220 -NE STRING B$"":525,0' 8200: B$""8420- 8`"-MOVEde"DD$"":"";xj" Y0 X);:t" X0 (DD$,Y);:~"(DD$,Y)X);:#-PICK CARD#OOOO1: OO53 OO1$ 10000   ***T *** VOLCANO / SOFTSIDE MAGAZINE * 7 REM *** TRANSLATED FROM TRS-80o *** BY CHUCK HOLLANDy ***   'DL2000 : *** DELAY TIME ***( 892 I1 DL:I:<"TYPE ANY KEY TO CONTINUE."> V$:V$ B THAT FELL ON HIROSHIMA."Em"THE TOP 1300 FEET OF THE MOUNTAIN WAS"qo"IMMEDIATELY PULVERIZED AND THROWN 12"q"MILES INTO THE SKY. WITHIN MOMENTS"s"EVERYTHING WITHIN 150 SQUARE MILES WAS"u"ENGULFED IN THE FURY OF THE VOLCANO.w LASTIC FLOWS AT OVER";"100 MPH. THE 800 DEGREE FLOWS COLLIDED"h"INTO SPIRIT LAKE AND BECAME A TORRENT""OF SUPERHEATED MUD CARRYING OFF 100 TON""LOGGING TRUCKS, BUILDINGS, BRIDGES AND""ANYTHING ELSE IN ITS PATH." "THE MU WEEKEND SINCE ST. HELENS": "BEGAN EMITTING PUFFS OF STEAM BACK IN"H "MARCH."u "ALTHOUGH THERE WERE SIGNS AND ROAD-" "BLOCKS WARNING EVERYONE TO STAY AWAY," "THEY STILL CAME. TOURISTS, CAMPERS," "SCIENTISTS, PHOTOGRAPHERS, ADVE GETTING GOOD AT THIS": 900M  A11 "KEEP PRACTICING - YOU'LL GET BETTER": 900{  A20 "YOU HAVE SOME POTENTIAL": 900 "YOU SEEM TO BE UNCOORDINATED" I1 200: I A((J)3):"YOUR SCORE";(1000(ABAT)) ::"DO YOU TROLS"# "OVER THE BALL; THE '\' AND THE '/'."K "TYPE A SLASH AND IT WILL SHOW UP"w "IMMEDIATELY IN FRONT OF THE BALL AND" "THE BALL WILL BOUNCE OFF THE SLASH." "ONCE PLACED, A SLASH CANNOT BE CHANGED." $::"HIT ANY KEY WHEN REAEND DID NOT LEAVE" "ALIVE."? "EXACTLY HOW MANY PEOPLE PERISHED WILL"] "LIKELY NEVER BE KNOWN." "WHAT IS KNOWN IS THAT AIR FORCE AND" "ARMY NATIONAL GUARD HELICOPTERS RESCUED" "197 PEOPLE, SNATCHING THEM FROM AROUND" ""CAMPED AROUND MT. ST. HELENS ON THE"5"MORNING OF MAY 18, 1980."_"YOUR GOAL IS SIMPLE: SURVIVE !""THE HAZZARDS ARE MANY..." 60"L A V A :UNLIKE THE MORE LIQUID LAVA""OF THE HAWAIIAN VOLCANOS, THE LAVA OF"""P Y R O C L A S T I C F L O W S :"D"MASSES OF HOT, DRY ROCK THAT MOVE LIKE"s"A FLUID BECAUSE THEY ARE MIXED WITH HOT""AIR AND OTHER GASSES. THESE FLOWS""TRAVEL AT OVER 100 MPH AND AFFECT AREAS" "FAR FROM THE VOLCANO 0"CARBON DIOXIDE, CARBON MONOXIDE,"42"CHLORINE, AND SULFUROUS FUMES ARE"^4"SPEWED OUT TOGETHER WITH MOLTEN OR"q6"SOLID ROCK."8"D E B R I S :LARGE CHUNKS OF EARTH":"ROCK AND ICE CAN BE THROWN OUT FROM"<"ANY OF THE MOUNTAI"" 62 @=F"ENTER NUMBER OF THE ACTION YOU SELECT":FY""fZ12)"V O L C A N O !"o_ 50d"ON MAY 18, 1980 AT 8:32 AM, MOUNT"g"ST. HELENS ERUPTED WITH A FORCE 500"i"TIMES GREATER THAN THAT OF THE ATOMIC"k"BOM 60+x"THICK, BLACK SMOKE ACCENTED WITH PINK"Yz"AND PURPLE LIGHTNING, FLYING BOULDERS,"|"AND CHUNKS OF ICE BLASTED A SWATH OF"~"DESTRUCTION 20 MILES TO THE NORTH.""HOT ASH, ROCKS, AND GAS ROARED DOWN THE" "MOUNTAIN IN PYROCD FLOWED ON INTO THE TOUTLE,"> "COWLITZ AND COLUMBIA RIVERS CAUSING"V "SEVERE FLOODING."_ 60 "DRAWN BY THE HOPE OF SEEING SOME" "VOLCANIC ACTIVITY, MANY PEOPLE HAD" "COME TO THE MOUNTAIN THAT WEEKEND AS" "MANY HAD EVERY ENTURERS," "AND THE JUST PLAIN CURIOUS."J "BUT THEN NO ONE EXPECTED THAT THE"v "MOUNTAIN WAS WAITING TO EXPLODE LIKE" "SOME KIND OF GIGANTIC NUCLEAR TIME BOMB!" 60 "ABOUT 70 OF THE VISITORS TO THE" "MOUNTAIN THAT WEEKWISH TO PLAY AGAIN";X$: (X$,1)"Y" 990] :"HOW MANY TARGETS DO YOU WANT";J:J((J)): J2 930t "":K0:T0: 160 "BEEN FUN. COME AGAIN SOON!"  :"YOUR MISSION IS TO DEFLECT THE BALL" "INTO THE TARGETS. YOU HAVE TWO CON0DY TO BEGIN" . X$:(X$)0 1070 8$:"HOW MANY TARGETS DO YOU WANT";J:J((J)): J2 930t "":K0:T0: 160 "BEEN FUN. COME AGAIN SOON!"  :"YOUR MISSION IS TO DEFLECT THE BALL" "INTO THE TARGETS. YOU HAVE TWO CONTHE BOILING MOUNTAIN." 60 **< **INSERT VOLCANO GRAPHIC HERE *E **N ""h 12)"THE SCENARIO" "THIS PROGRAM CREATES A SCENARIO" "SIMILAR TO THOSE REPORTED BY SOME OF" "THE APPROXIMATELY 300 PEOPLE WHO WERE" "ST. HELENS IS OF THE ANDESITE VARIETY--"@ "A STICKY, GUMMY MATERIAL. IT MOVES"g"SLOWLY AND DOES NOT TRAVEL FAR.""A S H :MOST OF THE DEATHS AT""ST. HELENS WERE DUE TO SUFFOCATION""CAUSED BY HOT ASH FORCED INTO THE LUNGS. ."" 60$"M U D F L O W S :THESE LOOK LIKE A"K&"WAVE OF HOT, FLOWING CONCRETE AND CAN"z("MOVE AT SPEEDS UP TO 50 MPH. THEY CARRY"*"ALONG BOULDERS, TREES, AND DEBRIS IN","THEIR WAKE."."G A S S E S :HOT GASSES SUCH AS" N'S FLANKS AS WELL" >"AS ITS SUMMIT."3@"L I G H T N I N G :FLASHES OF"aB"LIGHTNING, GENERATED BY HIGHLY CHARGED"D"DUST PARTICLES, STREAK AROUND THE PEAK."F 60H"F L O O D S :MUDFLOWS JOIN WITH"J"RIVERS SWELLING THEM M X"WERE STARTED DURING THE ST. HELENS"3Z"ERUPTION BY HOT GASSES, PYROCLASTIC"P\"FLOWS, AND LIGHTNING."Y^ 60o`"-THE SCENE-"b"YOU ARE CAMPED ON THE WEST SIDE OF"d"MT. ST. HELENS. YOU HIKED UP FROM THE"f"END OF A LOGG THE GROUND UNDULATES AROUND YOU."v"TALL FIR TREES SWAY."Hx"THEN...A GIANT ROAR, AND THE TOP OF THE"sz"MOUNTAIN EXPLODES THOUSANDS OF FEET"|"INTO THE AIR SUSPENDED ON A COLUMN"~"OF THICK BLACK SMOKE.""THE DENSE CLOUD EXPAN "3) START BACK DOWN THE MOUNTAIN TO" "YOUR CAR."*"4) GET TO HIGH GROUND"O"5) TRY TO FIND SOME SHELTER."X 70` D|D 675,680,685,690,695"YOU JUST DUG YOUR OWN GRAVE. HOT ASH""WILL BURY YOU.":700"CONGRATUFAST !":710 "FORGET IT ! HOT SULFUR DIOXIDE GAS"4"COMING OUT THE SIDE OF THE MOUNTAIN"^"GETS YOU AS YOU CLIMB HIGHER.":700"YOU ARE TOO CLOSE TO THE HOT ASH FOR""ANY SHELTER TO BE EFFECTIVE. THOSE WHO""TRIED THIS WERE  FROM SMOKING MOUNTAINS....""PREFERABLY BOTH !":0"AS YOU APPROACH THE HIKING TRAIL"\"THAT LEADS DOWN TO THE LOGGING ROAD,""YOU FIND THAT MANY TREES HAVE FALLEN""ACROSS THE TRAIL MAKING PASSAGE""DIFFICULT." 50D765,755"IN AN EMERGENCY WE OFTEN FORGET EVEN"2"THOSE THINGS THAT WE KNOW WELL--SUCH AS"O"OUR OWN PHONE NUMBER."|"IN YOUR EXCITEMENT YOU QUICKLY FIND""YOURSELF LOST.""YOUR TIME RUNS OUT AND YOU ARE OVER-""RAY BACK DOWN THE TRAIL." 60!"WHEN YOU ARRIVE AT YOUR CAR, YOU FIND"@! "THE ROAD IS BLOCKED BY SEVERAL LARGE"n! "ROCKS WHICH ROLLED ON TO IT DURING THE"! "EARTHQUAKE."!"YOU KNOW THAT THE END OF THESE ROADS IS"!"ONE OF THE "WAIT TO BE RESCUED."#$"2) FORGET THE CAR AND GO DOWN THE ROAD"#%"ON FOOT.D#&"3) BUILD A FIRE TO ATTRACT RESCUERS."t#("4) TRY TO GET THE ROCKS OUT OF THE WAY."|#*70#, D#/D820,825,830,835#4"SOME PEOPLE DID EXACTLY THAT.NUTES.":700$C"IF THERE IS A CHANCE YOU CAN USE YOUR"%D"CAR TO GET AWAY, TAKE IT!"E%E"BY USING TREE LIMBS AS A LEVER AND"t%F"PUSHING OTHER ROCKS OUT OF THE WAY WITH"%H"THE CAR, YOU MANAGE TO GET THROUGH."%I50%J"AS SOON AS YANY TIMES THEIR"L"NORMAL SIZE CAUSING WIDESPREAD FLOODING"?N"AND KILLING OF WILDLIFE."nP"E A R T H Q U A K E S :THESE RESULT"R"FROM THE MOVEMENT OF MOLTEN ROCK WITHIN"T"THE MOUNTAIN."V"F I R E S :ABOUT A HUNDRED FIRES"ING ROAD WHERE YOU LEFT"!h"YOUR CAR LAST NIGHT. YOU HAVE A SMALL"Hj"FIRE GOING TO MAKE SOME COFFEE."wl"THERE IS AN EERIE QUIET. THERE ARE NO"n"BIRDS SINGING."o 50p 60r"SUDDENLY YOU ARE SHAKEN BY AN EARTH-"t"QUAKE! DS AND BEGINS TO""MOVE IN YOUR DIRECTION." 50 60$9999@"WHAT SHOULD YOU DO?"o"1) USE YOUR CAMPING SHOVEL AND DIG IN""UNTIL IT'S SAFE TO MOVE.""2) TAKE PHOTOGRAPHS. THEY SHOULD BE""WORTH PLENTY."LATIONS...YOU HAVE TAKEN SOME""REALLY SPECTACULAR PICTURES THAT WILL"M"BE DUPLICATED IN A HUNDRED NEWSPAPERS."w"YOU WILL RECEIVE MANY AWARDS....""ALL POSTHUMOUSLY.":700"NOW YOU ARE USING YOUR HEAD. GET OUT""OF THERE BURIED ALIVE.":70050"YOU HAVE PERISHED": 500"WANT TO TRY AGAIN (Y/N)"H D$: D$"Y" 608[ D$"N" 707 D$"Y"D$"N""ANSWER ONLY WITH A Y OR N.":703"EITHER TAKE A SURVIVAL COURSE OR""STAY AWAY"YOU THINK YOU REMEMBER A SHORT CUT"""DOWN THE MOUNTAIN THAT ALSO LEADS TO"F"THE END OF THE LOGGING ROAD."O 60k"WHAT SHOULD YOU DO?""1) ATTEMPT TO NAVIGATE THE TRAIL.""2) TAKE THE SHORT CUT." 70 DUN BY A PYROCLASTIC FLOW.":700 "UNDER THE CIRCUMSTANCES THIS IS THE"@ "BETTER CHOICE. AT LEAST YOU KNOW THAT"n "THE TRAIL EVENTUALLY LEADS BACK TO THE"{ "ROAD." 50 "YOU CLIMB OVER HUGE FALLEN TREES AS" "YOU MAKE YOUR WFIRST PLACES THAT RESCUERS"!"WILL LOOK."! 50'""ON THE OTHER HAND THERE IS A CHANCE"U""YOU COULD MOVE THOSE ROCKS JUST ENOUGH"l""TO GET THROUGH."t"60" "WHAT SHOULD YOU DO?""""1) GET IN THE CAR FOR PROTECTION AND""# "#5"UNFORTUNATELY, THEIR CARS BECAME THEIR"$6"TOMBS.":700*$9"IT IS HARD TO OUTRUN A VOLCANO."W$:"YOU ARE OVERTAKEN BY A MUDSLIDE.":700$>"YOU WON'T HAVE TO BUILD A FIRE HERE."$?"IT WILL BE PLENTY HOT WITHOUT IT IN A"$@"FEW MI OU'RE CLEAR, YOU FLOOR"%L"THE ACCELERATOR. YOU'RE GOING 80 MPH"&N"DOWN A DIRT ROAD." &P50K&R"YOU ARE APPROACHING A BRIDGE THAT"y&\"CROSSES THE TOUTLE RIVER WHEN SUDDENLY"&^"A MUD FLOW HITS."&`"THE BRIDGE EXPLODES BEFORE YOUR  "YOU START TO RUN AGAIN."'l"THE ASH CLOUD IS COMING !"'n60((o"AS THE CLOUD DESCENDS, IT IS AS IF"Q(p"SOMEONE HAS THROWN A BLACK VELVET"p(q"CURTAIN OVER YOUR HEAD."(r"ALL LIGHT VANISHES."(s"YOU CANNOT SEE YOUR HAND IN FRONT  HAT SHOULD YOU DO?"){"1) LIE DOWN WITH YOUR FACE ON THE"*|"GROUND."*}"2) FIND SOME SHELTER."F*~"3) RUB THE ASH FROM YOUR EYES."j*"4) KEEP MOVING IN THE DARK."r*70y*D*D910,915,920,925*"THE RIGHT DECISION...IF YO +"ARE OVERCOME.":700+"THIS IS THE ONLY REAL CHANCE YOU HAVE."","TO STAY WHERE YOU ARE MEANS CERTAIN"0,"DEATH."[,"YOU GET UP AND BEGIN WALKING WITH","YOUR HANDS OUT BEFORE YOU TO FEEL THE","WAY.","AFTER A WHILE YOU - D-D970,975,980-"SINCE YOU HAVE NO WAY TO KNOW WHERE"."YOU'RE GOING, YOU WANDER IN A CIRCLE"G."UNTIL EXHAUSTION TAKES OVER.":700s."THE ASHFALL IS TOO HEAVY. THE WATER"."MIXES WITH IT TO FORM A GRITTY PASTE.": 700.CREEK FOR SOME"/"TIME. THEN, WITHOUT WARNING YOU PLUNGE" 0"INTO HOT WATER UP TO YOUR NECK.050?0"INSTINCTIVELY, YOU REACH OUT IN THE"m0"DARKNESS AND GRAB HOLD OF SOMETHING..."0"A FALLEN TREE."0"IT PULLS YOU ALONG DOWNSTR A LOG JAM.":7001 "THE LOG CARRIES YOU ALONG UNTIL IT" 2 "STOPS AT A LOG JAM. THE END YOU ARE"82 "HOLDING ON TO SWINGS AROUND AND RESTS"b2"ON A SHALLOW AREA BESIDE THE BANK."2"YOU SCRAMBLE OUT OF THE WATER."2"FINALLY, YOU CABREAKS THROUGH AND"3"YOU CAN SEE THE SKY AGAIN. UP AHEAD YOU"4"SEE A RIDGE, BELOW YOU IS A PLATEAU OF">4"INDESCRIBABLE DEVASTATION...A GRAY ASH"X4"COVERED MOONSCAPE."`460|4$"WHAT SHOULD YOU DO?"4%"1) YOU ARE BLEEDING A LIT"ASLEEP AND NEVER WAKE UP.":7005B"WHY ON EARTH WOULD YOU WANT TO GO DOWN"6C"THERE! POISON GAS GETS YOU.":700B6G"UP ON THE RIDGE YOU CAN BE SEEN BETTER"W6H"FROM THE AIR."6I"ONCE ON TOP YOU GET AN EVEN BETTER"6J"APPRECIATION FOR35,11407o"THERE IS NO PLACE TO GO BUT BACK INTO"7p"THE DARKNESS."8q"YOU SUCCUMB TO SMOKE INHALATION.":700A8t"SINCE YOU ARE IN AN AREA EASILY VISABLE"n8v"TO RESCUE HELICOPTERS, AND EVERYTHING"8x"BELOW YOU IS COVERED WITH TOXIC SEYES."&b50&c60&f"YOU SLAM ON THE BRAKES AND STOP JUST"*'g"SHORT OF THE STEAMING CHOCOLATE OOZE."Y'h"YOUR WAY BLOCKED, YOU GET OUT OF YOUR"'i"CAR AND BEGIN RUNNING. AFTER A WHILE"'j"YOU TIRE AND SLOW DOWN, BUT LOOKING UP"'kOF"(t"YOUR FACE. IT IS HOT, BURNING.")u"YOU TRY TO CATCH YOUR BREATH, BUT YOUR":)v"THROAT FEELS LIKE IT IS STUFFED WITH"g)w"WARM COTTON. YOUR LUNGS BURN AND YOUR")x"EYES STING. YOU STUMBLE AND FALL IN THE")y"DARKNESS.":60)z"WU WANT TO"*"MAKE THIS YOUR ETERNAL RESTING PLACE !":700+"I HOPE YOU LIKE THE SPOT YOU FIND"A+"BECAUSE YOU'RE GOING TO BE THERE"V+"FOREVER.":700+"VOLCANIC ASH IS VERY ABRASIVE. YOUR"+"EYES SWELL UP. YOU WANDER AROUND AND"NOTICE THAT YOUR","FEET FEEL WET. YOU THINK YOU ARE"-"WALKING IN A CREEK." -60&-"WHAT SHOULD YOU DO?"W-"1) GET OUT OF THE WATER AND KEEP MOVING"-"2) WASH OUT YOUR EYES WITH THE WATER."-"3) WALK IN THE CREEK."-70"SINCE YOU HAVE NO IDEA OF WHICH"."DIRECTION YOU'RE GOING, THIS OFFERS THE"/"BEST ALTERNATIVE."B/"YOU STOOP DOWN AND FEEL THE WAY THE"q/"WATER IS FLOWING AND FOLLOW THE CURRENT"/"DOWNHILL."/ 50/"YOU TRAVEL DOWN THE EAM."0600"WHAT SHOULD YOU DO?"0"1) LET GO OF THE LOG AND SWIM FOR" 1"THE BANK."'1"2) SWIM UNDERWATER.";1"3) HANG ON."D1 70K1Da1D1030,1030,10351"THE RIVER IS FILLED WITH DEBRIS."1"YOU ARE CRUSHED INN SEE SOMETHING....":602"A DIM GLOW IN THE DISTANCE. IT LOOKS"3"LIKE A SEARCHLIGHT. THEN YOU REALIZE"A3"THAT IT IS THE SUN SHINING THROUGH THE"S3"ASH CLOUD."~3"AS YOU GO ON THE ASH GETS THINNER."3503"FINALLY, THE SUN TLE FROM YOUR"4&"HEAD AND ARMS. TEND TO YOUR WOUNDS."4'"2) GO UP TO THE RIDGE."!5("3) START DOWN TOWARDS THE PLATEAU.";5)"4) REST YOURSELF."D5* 70K5+Df5,D1085,1095,1090,10855="YOU HAVE WASTED VALUABLE TIME. YOU FALL"5> THE AWESOME MAGNITUDE"6K"OF THE VOLCANO. EVERYTHING BELOW YOU IS"7L"COVERED WITH THICK, INPENETRABLE SMOKE."7M6037Q"WHAT SHOULD YOU DO?"[7S"1) CONTINUE DOWN THE MOUNTAIN."7U"2) TRY TO ATTRACT RESCUERS."7W707YD7[D11 MOKE,"8y"YOU WISELY DECIDE TO BUILD A SIGNAL"8z"THAT CAN BE SEEN FROM THE AIR."9|"YOU ARRANGE ROCKS SO THEY SPELL OUT"D9~"'S O S' AND POINT A LONG ARROW TO A"W9"SMALL FIRE."9"FINISHED, YOU FALL TO THE GROUND"9"EXHAUSTED, BU :50:"YOU TAKE OFF YOUR SHIRT AND WAVE IT":"WILDLY.";"ASH FALLS OFF YOU IN A SMALL CLOUD"+;"AS YOU JUMP UP AND DOWN YELLING AS"E;"LOUDLY AS YOU CAN."M;50|;"THEY SEE YOU AS A PLASTER GRAY FIGURE";"RUNNING AROUN "<$'T1$""<)'T2$""=.'UP$""$=3'DN$""V=8'OV$""=='BL$" " ">y'(OV$,14);" ">~'(OV$,13);" ">'(OV$,12);" "?' 10010 ?'"";: (OV$,5);(EX$,30)-?'O5:E30^?' I114:(OV$,O);(EX$,E):OO.5:EE1: I?'(OV$,10);(T1$,9);(T2$,10)?'DL@@' PRINTUP$;:FOR I=1TO800:PRINT" ";:NEXT@'60@' ">'(OV$,12);" "?' 10010 ?'"";: (OV$,5);(EX$,30)-?'O5:E30^?' I114:(OV$,O);(EX$,E):OO.5:EE1: I?'(OV$,10);(T1$,9);(T2$,10)?'DLT FIGHTING THE URGE TO"9"SLEEP. YOU MUST REMAIN ALERT FOR THE"9"POSSIBILITY OF RESCUE."950*:"AGAINST THE RUMBLING OF THE VOLCANO"J:"YOU HEAR A NEW SOUND...."i:"ALSO LOUD, BUT CHOPPY."q:60:"IT'S A HELICOPTER ! ! !"D IN CIRCLES. THEY LOWER";"A WICKER RESCUE BASKET, AND YOU JUMP IN.";60<"YOU MADE IT ! !"4<"YOU BEAT THE MOUNTAIN. CONGRATULATIONS!":<C<'""O<'DL1000Z<'10015k<' I1DL::<'EX$"=B'""=G'17)"Σ"=L'14)"Σ ͤ"=Q'12)"Σ Σ"=V'12)" ͤ "=['T11:U27&>`' I110:T)""U)"":TT1:UU1:I<>e'I1200:"^";:IH>j' 10010l>o'(UP$,16);(OV$,16)" ">t'(OV$,15);" 500:10010?'"";:(OV$,10);(EX$,20)?'"";:(OV$,9);(T1$,11);(T2$,11)?'DL400:10010 @'"";:(OV$,8);(EX$,24)+@'"";:(OV$,6);(EX$,26)I@'"";:(OV$,9);(EX$,22)k@'(OV$,7);(T1$,13);(T2$,13)@'UP$;:I120:BL$;:I