**** LANDSLIDE ****2%::0,0,79,24,1D""M6,7t(28);"L A N D S L I D E"|215< Z1 65535 200F 1,Z,1PZ Z65535 1 200d 1,Z,1nsZ0u30000x5,8 1Y" CREATED BY - TIM P VON PEIN CONVERTED TO 80 COLUMNS BY TIM C DOTSON"b 2{ZZ1: Z3 120:0,16: "DO YOU NEED INSTRUCTIONS (Y OR N)?"Z9$"":Z9$ Z9$"N" 280 Z9$"Y" 5000 172!""22)"MUST HAVE BETWEEN 2 AND 4 PLAYERS."W20)"ENTER THE NUMBER OF HUMAN PLAYERS (0-4)"`"Z$l.Z(Z$)~1 Z4 290@"ENTER THE NUMBER OF COMPUTER OPPONENTS (0-"4Z")"JX$YX(X$)^PXZcP4P2330mZ0405r I1 Z| "PLAYER #";I;@ "ENTER HIS/HER NAME";NAME$(I)FNIZw X0 II1:NAME$(I)"COMPUTER #1" X1 II1:NAME$(I)"COMPUTER #2" X2 II1:NAME$(I)"COMPUTER #3" X4 II1:NAME$(I)"COMPUTER #4"  I1 P POP(I)10000 H 20000:40,0,40,17,1:" "Y 10105:1000k 0,0,39,14,1  " NAME";:16);"POPULAR";:26);"ELECT";:34);"TO NOM"  " ";:16);"";:26);"";:34);""!""NAME$(1);! A1 " *";)!SPOP(1):50000:!&S);POP(1);P!0SELECT(1):51000c!:S);ELECT(1);w!DSNOM(1):52000!NS);NOM(1);!X NAME$(2);!] A2 " *";!bSPOP(2):50000!lS);POP(2);!vSELECT(2):51000!S);ELECT(2);"SNOM(2):52000"S);NOM(2);1" P3 900A" NAME$(3);U" A3 " *";i"SPOP(3):50000z"S);POP(3);"SELECT(3):51000"S);ELECT(3);"SNOM(3):52000"S);NOM(3);" P4 900" NAME$(4);" A4 " *";#SPOP(4):50000## S);POP(4);9#SELECT(4):51000L# S);ELECT(4);`#*SNOM(4):52000q#4S);NOM(4);# ""#Z4P## I1 P#5,2# I1 A1# I2 A2# I3 A3 $ I4 A4$500($X(((1)10)1);$$ X8 1080F$. 1260Q$810000W$Bb$L40000$V BID(1)BID(2) BID(1)BID(3) BID(1)BID(4) POP(1)POP(1)BID(1):ELECT(1)ELECT(1)V:BBID(1):41000:W$NAME$(1):1160d%` BID(2)BID(1) BID(2)BID(3) BID(2)BID(4) POP(2)POP(2)BID(2):ELECT(2)ELECT(2)V:BBID(2):41100:W$NAME$(2):1160w%e P3 1160%j BID(3)BID(1) BID(3)BID(2) BID(3)BID(4) POP(3)POP(3)BID(3):ELECT(3)ELECT(3)V:BBID(3):41200:W$NAME$(3):1160 &o P4 1160&t BID(4)BID(1) BID(4)BID(2) BID(4)BID(3) POP(4)POP(4)BID(4):ELECT(4)ELECT(4)V:BBID(4):41300:W$NAME$(4):1160&~& "TIE BID! ENTER BIDS AGAIN!"& O1 10&15& 1,2000,20& 1,1000,20&& 1090'*' W$;" WINS ";S$;"'S";V;"VOTES!"5'20000C' O1 4K'15[' 1,5000,10k' 1,6000,10{' 1,7000,10' 1,8000,10' 1,9000,10':10100' ZX1 P' NOM(ZX)0 5,9:1245'' 1250( NOM(1)0 N$NAME$(1):500:55000;( NOM(2)0 N$NAME$(2):500:55000e( NOM(3)0 N$NAME$(3):500:55000( NOM(4)0 N$NAME$(4):500:55000(( 1000(X(((1)10)1)( X1 Y(((1)100)1):1500( X2 Y(((1)1000)1):1300 )  1310) Y101 1280)) 1500O) X6 Y(((1)10000)1):1330Y)(1350o)2 Y1001 1310y)<1500)F X10 Y(((1)25000)1): 1370)P 1390)Z Y10001 1350)d 1500)nY(((1)100000)1))x Y25001 1390'*""NAME$(I);" IS AWARDED";Y;"VOTES";*POP(I)POP(I)YR* Y30000 1550[* 15* 1,65535,250,0,32768,3000,2,2600* 2* (NAME$(I),4)"COMP" 1950* 1*": NAME$(I);" YOUR TURN IS OVER!"*, 1+6: " "+@Z$""%+J Z$:+T Z$"" 1610@+^J+h1000S+ 1w+: NAME$(I);"'S TURN IS OVER!"+ 1++1000+ **** INSTRUCTIONS ***+""31);"WELCOME Q-LINKERS!"+31);""G, "THIS IS A COMPUTER VERSION OF THE POPULAR BOARD GAME OF THE SAME NAME. THE", "OBJECT OF THE GAME IS TO GET ELECTED TO OFFICE. THE FIRST PERSON TO REACH", "OR EXCEED THE NUMBER OF ELECTORAL VOTES NEEDED TO CLINCH THE NOMINATION IS THE" - "WINNER OF THE GAME."e- "UP TO FOUR PLAYERS ARE PERMITTED TO PLAY LANDSLIDE. THESE FOUR PLAYERS CAN BE"- "HUMAN, COMPUTER OPPONENTS, OR A COMBINATION OF BOTH"-2 "ONE OF TWO THINGS WILL HAPPEN ON EACH PLAYER'S TURN:"7.F "1) THE PLAYER WILL RECEIVE A RANDOM NUMBER OF POPULAR VOTES. IF THIS HAPPENS,".Z " THE POPULAR VOTES WILL BE ADDED TO THE PLAYER'S TOTAL AND THE PLAY".n " MOVES ON TO THE NEXT PLAYER."/x "2) THERE WILL BE AN ELECTION IN A REGION OF THE COUNTRY. THIS IS WHERE EACH"X/ " PLAYER WILL USE HIS POPULAR VOTES TO BID ON OBTAINING THE ELECTORAL VOTES"/ " VOTES OF THE STATE WHICH IS HAVING THE ELECTION."/8000/35);"ELECTIONS"/35);""!0 "IT IS GOOD WHEN AN ELECTION HAPPENS ON YOUR TURN, BECAUSE IF YOU ARE NOT THE"x0 "WINNER OF THE ELECTION, YOU WILL RECEIVE ALL THE POPULAR VOTES THE WINNER BID."0 "IF YOU DO WIN AN ELECTION ON YOUR TURN, THE POPULAR VOTES WILL BE DEDUCTED FROM"0 "YOUR TOTAL AND REMOVED FROM THE GAME."V1""EACH STATE COMES UP FOR ELECTION ONLY ONCE PER GAME. THE STATE YOU ARE BIDDING"16 "ON IS NOT REVEALED UNTIL ALL BIDS ARE IN. YOUR BID SHOULD BE BASED ON THE"1J "STATES REMAINING IN THAT AREA OF THE COUNTRY AND THE ELECTORAL VOTES THAT"I2^ "EACH STATE IS WORTH (THIS INFORMATION WILL BE LISTED ON THE SCREEN.)"2r "EACH PLAYER IS FREE TO BID ANY AMOUNT FROM ZERO UP TO HIS POPULAR VOTE TOTAL."2p "THIS PROGRAM IS FREEWARE. IF YOU HAVE QUESTIONS OR COMMENTS SEND E-MAIL TO")3z "TIMV5 OR TREMOR. HOPE YOU ENJOY THE GAME!"J3 "1) REPEAT INSTRUCTIONS."a3 "2) BEGIN GAME."q3Z9$"":Z9$3 Z9$"1" 50003 Z9$"2" 280360503@27);""3JZ9$"":Z9$: Z9$"" 80103T:4' **** STATE SELECTION ****-4'X(((1)4)1)H4' X1 E13 10000c4' X2 M13 10000~4 ' X3 H13 100004"' X4 W13 100004$' X1 110004.' X2 1200048' X3 130004B'140004t'4y'41,0,79,24,1 5'""E1$20)E2$5'E3$20)E4$)5'E5$20)E6$95'E7$20)E8$I5'E9$20)E0$Y5(EX$20)EY$l5(EZ$""20)MZ$|5Z(M1$20)M2$5d(M3$20)M4$5n(M5$20)M6$5x(M7$20)M8$5(M9$20)M0$5(MX$20)MY$5(""SY$20)SZ$5(S1$20)S2$5(S3$20)S4$6(S5$20)S6$6(S7$20)S8$/6(S9$20)S0$86(SX$^6(""17)" = EASTERN STATES"6(17)" = MIDWESTERN STATES"6(17)" = SOUTHERN STATES"6(17)" = WESTERN STATES"6( 0,16,39,24,17) ""'7)""W1$20)W2$77")W3$20)W4$G7,)W5$20)W6$W76)W7$20)W8$g7@)W9$20)W0$w7J)WX$20)WY$7T)10);WZ$7^) 0,9,39,157c)7h)5,8:106407r)5,11:106407|)5,16:106407)5,157) 0,8,39,158)" IT'S ELECTION DAY IN THE ";L$&8)Z0: Z1 10.8)15>8) 1,9000,12N8) 1,6000,14T8)Z8)x8* **** EASTERN STATE ****8+X(((1)13)1)8 + XE1 XE2 XE3 XE4 XE5 XE6 XE7 XE8 XE9 XE0 XEX XEY XEZ 110009+ X1 S$"NEW YORK":V90:E11A9 + X2 S$"PENNSYLVANIA":V58:E22g9*+ X3 S$"NEW JERSEY":V35:E3394+ X4 S$"MASSACHUSETTES":V28:E449>+ X5 S$"MARYLAND":V19:E559H+ X6 S$"CONNECTICUT":V15:E66:R+ X7 S$"WEST VIRGINIA":V9:E77$:\+ X8 S$"MAINE":V5:E88K:f+ X9 S$"RHODE ISLAND":V5:E99u:p+ X10 S$"NEW HAMPSHIRE":V4:E010:z+ X11 S$"DELAWARE":V3:EX11:+ X12 S$"VERMONT":V2:EY12:+ X13 S$"DIST OF COLUMBIA":V4:EZ13;,L$"EAST":10600 ;.15000;|.EE1;.:;. **** MIDWEST STATE ****O;.X(((1)13)1);. XM1 XM2 XM3 XM4 XM5 XM6 XM7 XM8 XM9 XM0 XMX XMY XMZ 12000;. X1 S$"ILLINOIS":V55:M11;/ X2 S$"OHIO":V53:M22</ X3 S$"MICHIGAN":V44:M33B</ X4 S$"INDIANA":V27:M44f<&/ X5 S$"MISSOURI":V24:M55<0/ X6 S$"WISCONSIN":V21:M66<:/ X7 S$"MINNESOTA":V19:M772 XS1 XS2 XS3 XS4 XS5 XS6 XS7 XS8 XS9 XS0 XSX XSY XSZ 13000>2 X1 S$"FLORIDA":V35:S11>2 X2 S$"NORTH CAROLINA":V25:S22>2 X3 S$"VIRGINIA":V23:S33>3 X4 S$"GEORGIA":V22:S44?3 X5 S$"TENNESSEE":V19:S55=?3 X6 S$"LOUISIANA":V18:S66`?"3 X7 S$"ALABAMA":V17:S77?,3 X8 S$"KENTUCKY":V16:S88?63 X9 S$"SOUTH CAROLINA":V13:S99?@3 X10 S$"MISSISSIPPI":V11:S010?J3 X11 S$"ARKANSAS":V9:SX11@T3 X12 S$"TEXAS":V60:SY12G@^3 X13 S$"PUERTO RICO":V1:SZ13^@4L$"SOUTH":10620i@517000s@L6HH1y@6@6 **** WESTERN STATE ****@6X(((1)13)1)A6 XW1 XW2 XW3 XW4 XW5 XW6 XW7 XW8 XW9 XW0 XWX XWY XWZ 14000:A6 X1 S$"CALIFORNIA":V99:W11`A6 X2 S$"WASHINGTON":V17:W22A6 X3 S$"COLORADO":V11:W33A6 X4 S$"OREGON":V10:W44A6 X5 S$"ARIZONA":V9:W55A7 X6 S$"ALASKA":V6:W66B 7 X7 S$"UTAH":V5:W77-B7 X8 S$"NEW MEXICO":V5:W88NB7 X9 S$"HAWAII":V4:W99pB(7 X10 S$"IDAHO":V4:W010B27 X11 S$"MONTANA":V3:WX11B<7 X12 S$"NEVADA":V2:WY12BF7 X13 S$"WYOMING":V2:WZ13B8L$"WEST":10630B918000C4:WW1 C:C: X1 E9$""2C: X2 E0$""EC: X3 E8$""XC: X4 E6$""kC: X5 E5$""~C: X6 E1$""C: X7 EZ$""C: X8 E4$""C: X9 EX$""C: X10 E7$""C: X11 E2$""C; X12 EY$""D; X13 E3$"" D; D> X1 M1$""3D> X2 M0$""FD> X3 M5$""YD> X4 M2$""lD> X5 M7$""D> X6 MZ$""D> X7 M6$""D> X8 M3$""D> X9 MX$""D> X10 M4$""D> X11 M8$""D> X12 MY$""E> X13 M9$""E?!EhB X1 S3$""4ErB X2 S8$""GE|B X3 SZ$""ZEB X4 S4$""mEB X5 SX$""EB X6 S6$""EB X7 S1$""EB X8 S5$""EB X9 S0$""EB X10 S7$""EB X11 S2$""EB X12 SY$"" FB X13 S9$""FB"FPF X1 W3$""5FZF X2 WY$""HFdF X3 W4$""[FnF X4 W0$""nFxF X5 W2$""FF X6 W1$""FF X7 WX$""FF X8 W9$""FF X9 W5$""FF X10 W6$""FF X11 W7$""FF X12 W8$"" GF X13 WZ$""GF0G N **** NOMINATION COMP ****@G*NP1ELECT(1)PG4NP2ELECT(2)`G>NP3ELECT(3)pGHNP4ELECT(4)GRN P1P2 P1P3 P1P4 FP1: 20500G\N P2P1 P2P3 P2P4 FP2: 20600GfN P3P1 P3P2 P3P4 FP3: 20700(HpN P4P1 P4P2 P4P3 FP4: 20800?HNX1017P1P2P3P4[HN X508 N509: 20140eHNYFSoHNXXYHNX((X2)1)HNNFXHNNOM(1)NELECT(1)HNNOM(2)NELECT(2)HNNOM(3)NELECT(3)HNNOM(4)NELECT(4)HN IP P2P3 P2P4 SP2: 201002IP P3P2 P3P4 SP3: 20100WI(P P4P2 P4P3 SP4: 20100|IxP P1P3 P1P4 SP1: 20100IP P3P1 P3P4 SP3: 20100IP P4P1 P4P3 SP4: 20100IP P1P2 P1P4 SP1: 20100JP P2P1 P2P4 SP2: 201005JP P4P1 P4P2 SP4: 20100ZJ@Q P1P2 P1P3 SP1: 20100JJQ P2P1 P2P3 SP2: 20100JTQ P3P1 P3P2 SP3: 20100J0u **** STRING ASSINGMENTS ****J:uM1$"ILLINOIS (55)"JDuM2$"INDIANA (27)" KNuM3$"IOWA (14)" KXuM4$"KANSAS (11)"8KbuM5$"MICHIGAN (44)"QKluM6$"MINNESOTA (19)"iKvuM7$"MISSOURI (24)"KuM8$"NEBRASKA (7)"KuM9$"NORTH DAKOTA (3)"KuM0$"OHIO (53)"KuMX$"OKLAHOMA (12)"KuMY$"SOUTH DAKOTA (3)"KuMZ$"WISCONSIN (21)"LuE1$"CONNECTICUT (15)"-LuE2$"DELAWARE (3)"ILuE3$"DIST COLUMBIA (4)"]LuE4$"MAINE (5)"uLuE5$"MARYLAND (19)"LuE6$"MASSACHUSETTS (28)"LuE7$"NEW HAMPSHIRE (4)"LvE8$"NEW JERSEY (35)"L vE9$"NEW YORK (90)"LvE0$"PENNSYLVANIA (58)"M vEX$"RHODE ISLAND (5)"-M*vEY$"VERMONT (2)"IM4vEZ$"WEST VIRGINIA (9)"^M>vW1$"ALASKA (6)"tMHvW2$"ARIZONA (9)"MRvW3$"CALIFORNIA (99)"M\vW4$"COLORADO (11)"MfvW5$"HAWAII (4)"MpvW6$"IDAHO (4)"MzvW7$"MONTANA (3)"MvW8$"NEVADA (2)"NvW9$"NEW MEXICO (5)")NvW0$"OREGON (10)"ULS26:RU ˋ S10 S37:gU*ˋ S100 S36:rU4S35:U֏ **** WINNING ROUTINE ****UX0:0,8,39,15,1U 5,6Uי N$;" WINS!";U 15U 1,15000,6U 1,20000,9U( 3V- 5,14V2י20);N$;" WINS!"V<15/VF 1,15000,6?VP 1,20000,9HVZ 3RVdXX1fVn׋ X5 55035pV5,16Vׅ " PLAY ANOTHER GAME";Z$V׋ (Z$,1)"Y" :1VV5,6VעV׀