LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)E6d *********************************6n ** INTERNATIONAL CONFLICT GAME **6x *********************************> THIS GAME PLACES YOU IN CHARGE OF WORLD WIDE AFFAIRS BYD ASSIGNING YOU THE R)PICKAFONT  _,PICKAFONT.AW ' -PICKAFONT.ART' DRIVER $DEXTRAGAME $EK^tttttv ttvtt1, &50&="1&ttttqzutttt tttttt ttvttttttttttttttttttt !1*+CAL.COUNTER X5!18)BIORHYTHM g l!1$GOLF p!1(SURVIVAL ~ $<!1)MAKE.MENU !.-MAKE.MENU.DOC* !kOA3.BASIC.001u' $GAME $E $%HELLO , !U+ *DOC.READER 4 !U: (DISK.DOC; !23 )INVENTORY B !1#(MORTGAGE O >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LOLE OF THE PRESIDENT OF THE UNITED STATES.B YOUR GOAL IS TO ACT IN WHATEVER MANNER NECESSARY TO SUSTAINC WORLD WIDE HARMONY IN THE NEAR FUTURE AS YOU MATCH WITS WITH$ COMPUTER-GUIDED SOVIET UNION.& ***** GRAPHICS SECTION *****7  !"#$%&'()* XXX XX X"'" XXX XX"&" X XXX";" X X XX X XX X"> " XX XXXXX X X X X X X X XX"A" XXXXXX XXXXXXXX XX XX" X XX XXX XX XXX X"2" XX X XXXX"/" XXX XXX XX XXX X"." XX X XX XXX"+" XX XX X")" X";" XXX XXXX XX XX":" XXX XXXXX X X X"9" XXXX XXXX XX X"6" XXXX XXX XXXX XX"4 XXX XXX XX XXX";" XX X X X XX XX"<" X XXX XX X X X";" X X X X X"<" XXX X XXXXX X X X"1" X XXXX XX XX XX XX XXX"6" X X XX X X XX X"8" XX XXX XXXX XXXXX"9" X XXX XXXX X X X X":" X SPACE WAIT=11000 %WAIT*%/ GRAPHIC OF FLASHING EXPLOSION.49FLASH=13>WAIT=125 CWAITHMRWAIT=125 WWAIT\a fFLASHkWAIT=1100 pWAIT! GRAPHIC OF EXPLODING BOMB.+" tttttttttttttttttt~~~~vTqVvtttttttttttttttttttttttttttt~~vT\VieeTDVWiegfVYSWiefaT]XWT]EWiyfTdFWtttclattt tttxTyEUvvttcbattcmatttzTsBWvtttttttttttttttttttttttttt tttt vT\MU=10&" * *"'" ******"&" ****"&" ****"&" ****"&" ****"&" ****"v" ****"{" ****"" ******"" * *"SPACE=110WAIT=1100 WAIT" X X" SPACESPACE=125WAIT=150 WAIT SPACEDESTROY%=14920& GRAPHIC OF MISSILE ON WAY DOWN.CE%" (**)" SPACE=16WAIT=120 WAIT !SPACE&WAIT=1250 +WAIT0875:!? GRAPHIC OF MISSILE LAUNCH.DNWAIT=12000 SWAITX]b" **"g" ****"l" ****"q" X X "WAIT=1300 WAIT%" \ / "#" (****)"SPACE=18WAIT=140 WAIT SPACE$" (***)"SPACE=17WAIT=130 WAIT SPA / ___ |"-" ______________________/ (___>|"@" /----' ____________ |_ X X X X"A" ( (____________> _| X X X X X"@" \____________________________/ X X THE FIRST GRAPHIC SYMBOLIZES A NUCLEAR CONFLICT.> THE SCREEN IS CLEARED TO NORMAL AT THE GAME'S BEGINING. œ6920,6@J-" _____"-" / /"-" XXXXX X X"A"XXX XXXX XXXXXXXXXXX XX XXXX X XX XXXXX XXXX"A"XXXXXX XXXXXX XXXXXXXXXXXXXX XXXXX XXXXXXX XXXXX X X"?" XXX XX XX XX XXXXX XXXXXXXXX XXXXXXX XX X XXX X"$8DESTROY%=16020BYEAR>=19853730GL2Q OPERATOR IS ASKED IF HE NEEDS INSTRUCTIONS.V1[" *********************************"1`" ** INTERNATIONAL CONFLICT GAME **"1e" *********************************"jWAIT=1500 oWAITt " ------------------------------"zWAIT=11000 WAIT 2430= SECTION ALLOCATES FACTOR POINTS IN NON STRATEGY YEARS. FACTOR%=5YEAR<20102430 FACTOR%=4YEAR<20352430  FACTOR%=3 YEAR<20602430  FACTOR%PLAN PLAN"&>" ------------------------------"+H"LASERS "USLAS%" "RUSLAS%*R"MISSILES "USMX%" "RUSNUC%WWAIT=11000 XWAIT,\"WEAPONS "USCONV%" "RUSCON%+f"PEACE "USPCE%" "RUSPCE%&p1)*7)RUSNUC%=1)*11)RUSCON%=1)*12)RUSPCE%=1)*7)WAIT=1500 WAIT6 A TABLE COMPARING BOTH STRATEGIES IS PRESENTED. #" *** POLICY COMPARISSON ***" !*" AMERICAN RUSSIAN" 4" "PEACE TALKS" vUSPCE%)USLAS%+USMX%+USCONV%+USPCE%=201970&"ERROR ON INPUT, TRY AGAIN DUMMY" 1830A RUSSIAN STRATEGY IS DETERMINED BY THE COMPUTER IN A RANDOM7 PROCESS DESIGNED TO GIVE THE U.S. A SLIGHT EDGE.RUSLAS%=TEGY SECTIONS *****9 AMERICAN STRATEGY IS ENTERED THROUGH THE TERMINAL.!"YEAR IS "YEAR&&"ENTER POINTS ALLOCATED TOWARDS:"0"LASER TECHNOLOGY" :USLAS%D"MX & CRUISE MISSILES" NUSMX%X"CONVENTIONAL WEAPONS" bUSCONV%l+70)*.4)|$"INTERMEDIATE SCORE IS: "INTER%WAIT=1500 WAIT+"DO YOU WISH TO CHANGE YOUR STRATEGY?"2"ENTER 1 TO CHANGE OR ZERO TO KEEP OLD PLAN." CHOICE%CHOICE%=01970CHOICE%=11820 1720%  ***** STRAR=20101650 FACTOR%=3YEAR=20351650 "FACTOR%=2,YEAR=20601650 6FACTOR%=1@YEAR=20851650 J2270T8Y SECTION DETERMINES AND PRINTS INTERMEDIATE SCORE,4^ ASKING IF OLD STRATEGIES NEED REVISION. crINTER%=(PTS%UTION, IN THIS CASE STRATEGIES DO NOT CHANGE FROM PREVIOUSLY SET STRATEGY.? POINT FACTORS ARE ASSINGED TO WEIGH RECENT YEARS AS MORE" IMPORTANT THAN LATER YEARS.YEAR>21005520 FACTOR%=5YEAR=19851820 FACTOR%=4YEA YEARS.iYEAR=YEAR+5nsxWAIT=1750 }WAIT< NEW STRATEGY IS DETERMINED IN YEARS 1985, 2010, 2035,; 2060, AND 2085; AS TECHNOLOGY BECOMES OBSELETE EVERY@ 25 YEARS. THESE YEARS MAY BE SKIPPED OCCASIONALLY DURING< EXEC----------------------------------------------------"AWAIT=12500 FWAIT@K"THE GAME IS PLAYED UNTIL THE YEAR 2100 OR A MAJOR CRISIS."&P"ENTER YOUR NAME MR. PRESIDENT!!" UNAME$ ZYEAR=1985 _15002d PROGRAM RETURNS TO LINE 1385 EVERY 5------------------------------------"5("LASER TECHNOLOGY- FOR FIRST STRIKE NUCLEAR WAR"2-"MX & CRUISE MISSLES- IN CASE OF NUCLEAR WAR"52"CONVENTIONAL WEAPONS- FOR CONVENTIONAL BATTLES"77"PEACE TALKS- MAY LEAD TO TREATIES OR DISARMAMENT"=<"--"THE POINTS YOU ENTER FOR EACH VARIABLE ARE MODIFIED":"SLIGHTLY BY THE COMPUTER (LUCK.) LASER TECHNOLOGY,"4 "A NEW SCIENCE, IS HIGHLY SUSCEPTIBLE TO LUCK."WAIT=13000 WAIT*" *** YOUR FOUR VARIABLES ARE: ***"="------------------THE ROLE OF THE UNITED STATES WHILE"/"THE COMPUTER ASSUMES THE ROLE OF RUSSIA."WAIT=12000 WAIT8"EACH OF YOU DETERMINES A STRATEGY FOR THE FUTURE."="YOU ARE GIVEN 20 POINTS TO ALLOCATE ON FOUR VARIABLES."WAIT=12000 WAIT:y"DO YOU NEED INSTRUCTIONS?"!~"ENTER 1 IF YES, ZERO IF NO" INSTR%INSTR%=01360INSTR%=11235 11501 **** INSTRUCTIONS & BEGINING OF GAME ****;"IN THIS GAME WHICH SIMULATES FUTURE WORLD CONDITIONS"5"YOU ASSUME =2$ YEAR<20852430 . FACTOR%=1` "e ***** CONFRONTATIONS *****6j THE CHANCE FOR A CRISIS IS RANDOMLY DETERMINED.=o MAJOR PROBLEMS ARE SCORED MORE HEAVILY, THAN ARE MINOR2t PROBLEMS, AND MAY BYPASS THE PEACE PROCESS.y ~ "YEAR IS "YEAR CRISIS%=1)*110) CRISIS%<142570 WAIT=1250 WAIT "NO PROBLEMS IN YEAR "YEAR PTS%=PTS%+FACTOR% 1385 $ A CONFRONTATION HAS OCCURRED.   PCETOT%=USPCE%+RUSPCE%( CRISIS%<22620 2 2640$< "RUSSIA "YEAR IS "YEAR"WAIT=11000 'WAIT6OUTCOM%<14060; WAR ENDS NEXT PERIOD@OUTCOM%=14230!E U.S. WINS CONVENTIONAL WARJOUTCOM%=24270#O RUSSIA WINS CONVENTIONAL WARTOUTCOM%=34080Y WAR CONTINUES AGAIN7^"CONVENTI0RUSC%-USC%>24270USC%=RUSC%40803"CONVENTIONAL WAR ENDS AS BOTH SIDES WITHDRAW"PTS%=PTS%+0 13852"CONVENTIONAL WAR CONTINUES INTO NEXT PERIOD"PTS%=PTS%+0WAIT=11000 WAITOUTCOM%=1)*5)YEAR=YEAR+5SLAS%)RUSL%=1)*RUSLAS%)USM%=1)*3)+USMX%RUSN%=1)*3)+RUSNUC% 4510USC%=1)*4)+USCONV%RUSC%=1)*4)+RUSCON%# ***** CONVENTIONAL WAR *****PEACE%=PEACE%-1WAIT=11000 WAITUSC%-RUSC%>2423590t237808WIDE HERO "NAME$} PEACE%=PEACE%+2"~ PTS%=PTS%+(10*FACTOR%*IMPORT%) YEAR=YEAR+10 13855 "BECAUSE OF TREMENDOUS PEACE MAKING EFFORTS ALL"5 "COUNTRIES HAVE AGREED TO THE TOTAL DISARMAMENT"' "OF ALL NUCLEAR WEAPONS!!!!!!!!!!"9 "THE NOBEL EACHED BELOW.133480* NOWAR%>934304 NOWAR%>43410 > 3620#H SOME PEACE IS R" IMPORT%=1$ GOES DIRECTLY TO NUCLEAR WAR. 590. "ASSASSIN KILLS AMERICAN PRESIDENT "NAME$'& "DETAILED PLOT UNCOVERED TOO LATE"0 WAIT=11500 5 WAIT%: "ENTER THE NEW PRESIDENT'S NAME" D NAME$H PTS%=PTS%-10#I THIS WILL NOT LEA IMPORT%=1.2# PEACE PROCESS WILL BE TOUGH. PCETOT%=PCETOT%-2 3340 CRISIS%=113030 3050 "CRISIS IN SOUTHEAST ASIA" IMPORT%=1 3340 CRISIS%=123070 3100A "A MADMAN IS EXTORTING THE SUPERPOWERS WITH NUCLEAR WEAPONS"U.S. FEUDS WITH LATIN AMERICAN COUNTRY" _ IMPORT%=1 h 3340r CRISIS%=92950 | 2970' "RUSSIAN TROOPS TAKE ALASKAN LAND" IMPORT%=1.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=102990 3010( "RUSSIA-CHINA BORDER CONFRONTATION"90 2810! "ISRAEL INVADES ARAB NATION" IMPORT%=1.2 3340 CRISIS%=62830  2850 "CRISIS IN AFRICA"  IMPORT%=1  3340" CRISIS%=72870 , 28906 "CRISIS IN SOUTH AMERICA" 7 IMPORT%=1 @ 3340J CRISIS%=82910 T 2930-^ GAS PIPELINE SABOTAGED" IMPORT%=1 PCETOT%=PCETOT%-2' PEACE PROCESS WILL BE TOUGH. 3340 CRISIS%=42750 27702 "MIDDLE EAST WAR ESCALATES IN BATTLE FOR OIL" IMPORT%=1.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=527INVADES WESTERN EUROPE"= IMPORT%=1.536260 j6290t" GENERAL"~"EXCELLENT PLANNING "NAME$ 6500MILIT%>16310 6340" PEACE MAKING RESULTS/ IS NOW GIVEN. MILITARY RESULTS SECTION.WAIT=1500 WAIT("YOUR MILITARY SKILL WAS THAT OF A"WAIT=1500 WAITMILIT%>56170 6240" RULER"$WAIT=11000 )WAIT88"BECAUSE OF Y%"YOUR SCORE IS: "SCORE%" "NAME$" ^^^^^^"6 THE FINAL SCORE IS THE TOTAL ACCUMULATED POINTS7 THROUGHOUT THE GAME. EVERY CONSEQUENCE HAS BEEN& SCORED (EVEN NO PROBLEM YEARS.)9 A DESCRIPTION OF MILITARY AND SAFELY INTO THE 23RD CENTURY!!!!!","CONGRATULATIONS ON YOUR EFFORTS "NAME$PEACE%=PEACE%+1PTS%=PTS%+20p#u ***** GAME IS FINISHED *****'z SCORE IS COMPUTED AND DESCRIBED.SCORE%=(PTS%+70)*.4)WAIT=11000 WAITAR WAR. (6020*2"SOVIET SNEAK ATTACK NUCLEAR VICTORY"(<"THEY NOW CONTROL THE WHOLE PLANET"F"YOU ARE EXECUTED "NAME$HMILIT%=MILIT%-4JPTS%=PTS%-40 P6020|8 THE OPERATOR HAS MADE IT SAFELY TO THE YEAR 2100. 5"THE WORLD IS7 "UNITED STATES WINS FIRST STRIKE NUCLEAR WAR!!!!!""FANTASTIC PLANNING "NAME$MILIT%=MILIT%+4PEACE%=PEACE%+2PTS%=PTS%+(30*FACTOR%)6 POINTS ARE ADDED TO PEACE AS WORLD IS SAFER FOR; DEMOCRACY, ALSO OFFSETS 3 POINT LOSS IN NUCLE* WILL THE PRESIDENT BE ON THAT SHIP?ENDURE%<86020""YOU WERE ON THAT SHIP "NAME$MILIT%=MILIT%+1PTS%=PTS%+10 60203 ONE SIDE HAS WON A FIRST STRIKE NUCLEAR WAR.."RUSSIAN MISSLES BLOWN UP IN THEIR SILOS"=1LSURVIV%=1)*1000)2V"A ROCKET SHIP HAS SOMEHOW MANAGED TO ESCAPE"/`"FROM THE EARTH'S ATMOSPHERE WITH "SURVIV%3j"PEOPLE ONBOARD, BARELY BEFORE THE HAULOCAUST"'t"THE HUMAN RACE IS NOT EXTINCT!!!"xPTS%=PTS%+10~WAIT=12000 WAITWAITDESTROY%=1MILIT%=MILIT%-3PTS%=PTS%-50; DETERMINING CHANCE FOR ROCKET TO LEAVE EARTH SAFELY.ENDURE%=1)*10)ENDURE%>6600825$*) SOME OF THE HUMAN RACE HAS ENDURED..8WAIT=1500 =WAITBWAIT=12000 WAIT4"UNFORTUNATELY WE HAD NO ALTERNATIVE EXEPT TO "4"RETALIATE IN THE FULLEST, EVEN THOUGH IT WILL"6"PROBABLY DESTROY OUR PLANET. I AM DEEPLY SORRY."WAIT=11500 WAIT"MAY GOD HELP US ALL..."WAIT=15000 WAIT-p"A FRANTIC MESSAGE IS BRODCAST BY "NAME$z"DEAR AMERICANS:";"I DEEPLY REGRET TO INFORM YOU THAT OUR EARLY WARNING";"SYSTEM HAS DETECTED A MASSIVE ALL-OUT NUCLEAR ATTACK":"FROM THE SOVIET UNION DUE TO OUR LATEST CONFLICT..."DIE OF RADIATION "NAME$$PTS%=PTS%-30%*"ENTER THE NEW PRESIDENT'S NAME" 4NAME$>YEAR=YEAR+20@MILIT%=MILIT%-2+C AS THE WORLD TAKES YEARS TO RECOVER. H1385R5W THE WORLD IS DESTROYED BY A NUCLEAR NIGHTMARE.\fWAIT=11000 kOR LIMITED NUCLEAR WAR.LIMIT%=1)*10)LIMIT%>34710+"THERE HAS BEEN A LIMITED NUCLEAR WAR"+"MUCH OF OUR WORLD HAS BEEN DESTROYED"DEAD%=1)*5000) "THERE ARE "DEAD%0"MILLION PEOPLE DEAD WITH MILLIONS INJURED"! "YOU S,4 FIRST STRIKE CAPABILITIES ARE FIRST MEASURED.PEACE%=PEACE%-3.((USL%*2)+USM%)-((RUSL%*2)+RUSN%)>75120.((RUSL%*2)+RUSN%)-((USL%*2)+USM%)>751706 THERE ARE NO FIRST STRIKE WINNERS, PROGRAM NOW 2 DETERMINES CHANCES F COLONEL""GOOD PLANNING "NAME$ 6500MILIT%>06360 6380" CAPITAN" 6500MITޡ@< (5^F <99*(((((((((([MZOMIF\*>=88EADA\-6%<><<8>46570 66.Box 813 "%|30;"San Francisco Cal. 94101 ":::"Compensation will be comming in the near future" 20000------------------------------------------- PAGE THREE0---------------------------------------------------------------6=15@" If you wish to contribute a program to the "5J"Original Apple /// rs library you may do so by"T"sending your program to:")^::30;"Original Apple /// rs "%h30;"Attention BASIC Librarian"%r30;"P.Owish. thay may also be given away. These programs were"::"donated by the Authors or have been in the public"":"domain for some time." ,200010--------------------------------------------1 PAGE TWO12-------------------------------------------------------------------- PAGE ONE1--------------------------------------------=3:" The programs that appear on this disk are public">:"domain software. Thay may be used for any purpose you"?:":0------------------------------------------- BOARDER0-------------------------------------------!" ";:TOP=175:"_";:TOP:%SIDE=120:"|";:=77:"|":SIDE*"|";:BOTTOM=175:"_";:BOTTOM:"|"10,372,201+-./012Z=5d19);13)n30;"Welcome to the""x:30;"Original Apple ///rs":30;"program disk # 1"19);14),::::30;"{ Press ESCAPE to quit } (30;"{ Press ANY key to continue }KEYPRESS$KEYPRESS$=27)5000  HELLO PROGRAM+-------------------------------------- TITLE PAGE+--------------------------------------:  34C,(16);1): { set 40X24 color screen }220);15) <28)F3,337,22P20);0):28)""***************************""GAME IS OVER "NAME$""TO PLAY AGAIN TYPE IN 'RUN'"""***************************"@" YOU *%&^#@* #&!%*$*" 7020( ROUTINE TO HANDLE UNUSUAL ERRORS.9"UNUSUAL ERROR HAS OCCURED, PLEASE CONTINUE PLAYING"!"AS IT DOES NOT EFFECT GAME"X%] ***** FINAL INSTRUCTIONS *****blWAIT=1250 qWAITv" h7020rPEACE%>-46790 |6820" FEILD MARSHALL"!"THEY DON'T LIKE MUCH PEACE" 7020PEACE%>-66840 6870" WARMONGER"/"TRY TO SHOW SOME MORE HUMANITY NEXT TIME" 7020" A FRIEND OF HITLER'S"GRATULATIONS WORLD PRESIDENT "NAME$ 7020PEACE%>26670 66905" NOBEL PRIZE WINNER, CONGRATULATIONS "NAME$ 7020"PEACE%>-16710 ,67306" DIPLOMAT" @7020JPEACE%>-36750 T6770^" AVERAGE PRESIDENT50" WORLD LEADER"WAIT=11000 WAIT5"BECAUSE OF YOUR EXCELLENT PEACE MAKING RESULTS"5"ACHIEVED DURING THE GAME YOU HAVE BEEN ELECTED"4"PRESIDENT OF THE WORLD BY A CONFERENCE OF THE" "WORLD'S LEADERS!!!!!!!!!!","CON=3?"We hope you enjoy the programs on this disk. If you have";:"any problems or questions feel free to contact us.">:"It is suggested that you first read the documentation" :"contained on this disk." œ40503::" TYPE: D to read the documentation")" C to catalog the disk"-" ESCAPE to quit and go to BASIC":KEYPRESS$'KEYPRESS$="D"KEYPRESS$="d"3000'KEYPRESS$="C"KEYPRESS$="c"4000KEYPRESS$=27)50004102-------------CURSOR=27:420r|HI>ZIPT=ZIP:B$=BNK$ 280:(HI+79+ZIP<=MAXLENGTHT=ZIP:B$=BNK$ 300::26);0);23); :::=6  79C'=25:"*** DOCUMENT READER ***" J::510;"To view the documentation u,HI+80<=MAXLENGTHINDEX=VI-25:HIINDEX=80+HI:J=124:B$,T*J-T+1,T)=A$(INDEX+J),HIINDEX,T)::HI=HI+T:LEFTSCROLL$((T=1));B$;67@VI24SCROLLDOWN$;A$(VI-25),HI,80);:VI=VI-1^h=21)+3*(CURSOR=10)+4*(CURSOR=11)+5*(CURSOR=136)+6*(CURSOR=149)B$=BLANK24$:T=1'MOVE+1360,280,300,320,340,380,400 :230wHI>TINDEX=VI-25:HIINDEX=HI-T:J=124:B$,T*J-T+1,T)=A$(INDEX+J),HIINDEX,T)::HI=HI-T:RIGHTSCROLL$((T=1));B$;"OLLDOWN$=16)+3)+12)+11)+SYNC$:21);"5";6I=023:A$(I))>80A$(I),1,80);::A$(I):HI=1:VI=24:'BLANK24$=" " BNK$="""I=1ZIP:BNK$=BNK$+BLANK24$:A$:CURSOR=A$)ZMOVE=(CUSOR=8)+2*(CURSORCROLL$(0)=SYNC$+23)+ZIP)+26)+0)+0)+2)+26)+ZIP-1)+23)+3)+21)+"5"+12)_RIGHTSCROLL$(1)=SYNC$+23)+1)+26)+0)+0)+2)+26)+0)+23)+3)+21)+"5"+12)?SCROLLUP$=16)+3)+26)+0)+23)+10)+21)+"5"+SYNC$,SCR356789I)):::ZLASTRECORD=IdSYNC$=22)mnLEFTSCROLL$(0)=SYNC$+23)+256-ZIP)+26)+80-ZIP)+0)+2)+26)+ZIP-1)+24)+3)+21)+"5"+12)axLEFTSCROLL$(1)=SYNC$+23)+255)+26)+79)+0)+2)+26)+0)+23)+3)+21)+"5"+12)eRIGHTS ----------FILE SCROLL READER------------- œ750 :500+ A$(500),RIGHTSCROLL$(1),LEFTSCROLL$(1)A$="DISK.DOC"A$=""420 (#1,A$2MAXLENGTH=0 <ZIP=1 Fž#190EPI=0500:#1;A$(I):A$(I))>MAXLENGTHMAXLENGTH=A$(E2---------------------------------------------:=10 =30:" ___________________"!=30:"| |"!=30:"| THE |"!=30:"| END |"!=30:"|___________________|":"*** VOLUME NOT FOUND ERROR ***":<:=16:"The library disk must be in the onboard drive.".=23:=25:"Press 'RETURN' to continue..."KEYPRESS$4552--------------------------------------------- END ROUTINMENTATION2 --------------------------------------------- : ".D1/DOC.READER" :2 -------------------------------------------- ERROR ROUTINE2 --------------------------------------------:=12:=23)-------------------------------- PAUSE ROUTINE2---------------------------------------------=17(=13:"{ Press RETURN to continue }" KEY$:2 ---------------------------------------------( RUN PROGRAM DOCUse the UP and DOWN arrow keys."@:510;"To leave the document reader press the ESCAPE key".&=22:510;"{ Press RETURN to continue }"-+510;"{ Press ESCAPE to exit program }" 0KEY$:KEY$=27)700X=12510;"*** GOOD BY ***"3 --------------------------------------------- ERROR ROUTINE 3 ---------------------------------------------:=11:=22-:"*** THERE IS A DISK ACCESS ERROR ***"<:=16:"The library disk must be in the onbograms on this disk were converted from Applesoft BASIC using the convertion program APPLECON. The programs are from the San Francisco Apple Core's public domain library and modified by Stan Guidero. The original authors names are included in REM statementcumentation for this program is called MAKE.MENU.DOC. You can read it with AppleWriter /// or any text reader. MAKE.MENU.DOC..The documentation for MAKE.MENU. NOTES Most of the prs. Take this test to find out. MAKE.MENU......This is our feature program. It's a utility that allows you to make a menu to use in a program. The program that Make.menu produces could be used as a hello program. The dosh. GOLF...........Practice your golfing stratagy using this program. A text game converted from Applesoft. The program is originally from the San Francisco Apple Core Library. SURVIVAL.......Can you survive in the wildernes may add more items to the list of food. BIORHYTHM......Will print out you biorythm to a printer or the screen. If you need to dump the info to a Silentype or an Epson change line to whatever device name you wi BASIC with the use of APPLECON convertion program available through the Original Apple // rs. Mortgage will find out how much that new house really will cost you. CAL.COUNTER....Keep track of your calorie intake. Youion. This file is written with Apple Writer ///. INVENTORY......This program utilizes several formulas to help you figure inventory costs. MORTGAGE.......This and the next three programs were converted from Applesoft :<=>?@his file which was written with Apple Writer ///. You can use the up and down arrow keys to view the text.Use the ESCAPE key to exit and catalog this disk. DISK.DOC.......The text file containing this informat > Use the 'UP' and 'DOWN' arrow keys to move the doc. up and down. < HELLO..........The Hello program has some good programming technque which you may find usefull. DOC.READER.....This is a file reader that will alowe you to read t----------------4oard drive." =23:=27$"Press 'RETURN' to continue..."KEYPRESS$" -----------------------------! From Softalk magazine " By Taylor Pohlman# $ Modified by Stan Guidero% Aug.1982"&-------------s in the listing. The APPLECON program is available through the Original Apple /// er's for $10.00 or $8.50 to members. DISCLAIMER The programs on this disk are programming examples and are not intended for any other purpose. The Original Apple /// er's bears no responsability for losses incured due to the use of these programs. > Use the 'ESCAPE' key to catalog the disk. < I1+PR+MU)-(S+MD+E+WR)!bI4=I3*((I2+PC+FI)/(I1+PR+MU)) lI4=I4):v"ENDING INVENTORY AT COST":"(APPROXIMATELY LOWER OF"*"COST OR MARKET) - - - - - - - - ";I4 15209 --------------------------------------------------- SelectiEE DISCOUNTS (IF NOT"+"RECORDED ON BOOKS ";E:&"NET ADDITIONAL MARKUPS"0"(ADDITIONAL MARKUP MINUS",:"(CANCELLATION) ";MU:$D"NET MARKDOWNS (MARKDOWN MINUS",N"MARKDOWN CANCELLATION) ";MD:XI3=("WORTHLESS INVENTORY AT RETAIL-"%"(DUE TO BREAKAGE,SPOILAGE,ETC.","OR POSSIBLE KNOWN THEFT) ";WR:4=(22):=(5):"PRESS FOR NEXT PAGE ";B$L:=(3):10);"ESTIMATED INVENTORY":9);"RETAIL INVENTORY METHOD"::!"EMPLOYES FOR THE PERIOD ";S:,"BEGINNING INVENTORY AT RETAIL ";I1:,"BEGINNING INVENTORY AT COST ";I2:,"PURCHASES AT RETAIL ";PR:,"PURCHASES AT COST ";PC:,"FREIGHT IN ";FI:% ---- ";I2 |1520< ------------------------------------------------------ Selection B< ------------------------------------------------------%7)"ESTIMATED ENDING INVENTORY"$9)"RETAIL INVENTORY METHOD":+"SALPERIOD ";FI:,""BEGINNING INVENTORY ";I1:,"ESTIMATED GROSS PROFIT"@J"(OMIT DECIMALS)":5T"PERCENTAGE ON SALES ";R:::R=R/100^=(14):=(36):"%":hI2=(I1+P+FI)-(S*(1-R))*r"ESTIMATED ENDING INVENTORY CASE ONLY *"A$:A$<"A"A$>"G"210+A$)-64240,390,660,780,900,1050,12702"ESTIMATED INVENTORY-GROSS PROFIT METHOD"::+"SALES FOR THE PERIOD ";S:+"PURCHASES FOR THE PERIOD ";P:,"FREIGHT IN FOR THE RDER SIZE"::"(G) TO QUIT"=(22):=(7)= ------------------------------------------------------- Selection A= -------------------------------------------------------$"SELECT A PROGRAM BY LETTER ":):" * USE UPPER?"(A) ESTIMATING INVENTORY":5);"(GROSS PROFIT METHOD)":C"(B) ESTIMATING INVENTORY":5);"(RETAIL INVENTORY METHOD)":E"(C) MAXIMUM INVENTORY LIMIT"::"(D) MINIMUM INVENTORY LIMIT":S"(E) DETERMINING THE ORDER POINT"::"(F) OPTIMUM OACDEFGHIJKLM----------------------------------2716);0)<=F -------------------------------------------------------K MENU=P -------------------------------------------------------ZTT$(30):1570dx:=(3):13);"MENU"::< -----------------------------------------------------% Inventory Formulas# By Stanley Lowe+( July 1980 mod. November 19822- Modified by Stan Guidero for the Apple ///;1 -------------------on C9 ----------------------------------------------------=(4):8);"MAXIMUM INVENTORY LIMIT":: I1=MAXIMUM INVENTORY* O =STANDARD ORDER:REM P=ORDER POINT""STANDARD ORDER ";O=(7):=(31):"UNITS"::""ORDER POINT ";P=(10):=(31):"UNITS":: I1=O+P#"MAXIMUM INVENTORY ";I1=(13):=(31):"UNITS" 15209 --------------------------------------------------- Selection D9  ----------------------------------NPQRSTUV=0PE=0 ZF=19dK=0 nMC=13s/x"****************************************"/y"** -Mortgage Calculation- **"/z"****************************************"{:&"HOW MUCH IS THE MORTGAGE ";:P:E=P%"WHAT IS THE INT:16);0) :870! DONATED BY KEVIN ARMSTRONG !œ1240;#------------------------------------------------------$ Initialize;%------------------------------------------------------(A=02B=0<C=0FDTT$:=23:=12:"[ESC] TO END"&=24:9);"[SPACE] TO CONTINUE ";&ZZ$:ZZ$=27)ZZ$=3):::ZZ$=32)::1570 Title Page =, ------------------------------------------------------- @=6:TT$="INVENTORY FORMULAS"#J1650:=9:TT$="BY STANLEY LOWE" T1650 ^=16:"" h1680:r * PRINT CENTER * )|WIDTH=20-(TT$)/2):WIDTH<=0TT$:=WIDTH:---------=(12):18);"BYE" STALL=11000:STALL :::4=(22):"WOULD YOU LIKE ANOTHER RUN? (Y OR N) ";Y$::Y$="N"120Y$<>"Y"""1530230= -------------------------------------------------------" A/100Q=(2*(C*N))/((U*I)+A)) Q=Q)7"OPTIMUM ORDER SIZE ";Q;:35);"UNITS" 1520= -------------------------------------------------------$ End from selection G= ---------------------------------------------- PRICE OF MATERIAL ";U: `"(";tN~"OMIT DECIMALS";::")";:"ASSUMED":"RATE OF INTEREST ";I:=(13):=(33):"%": "(";("OMIT DECIMALS";::")";:" ANNUAL")"COST PER UNIT ";A:U=U/100:A=ction F5 -----------------------------------------------#$11);"OPTIMUM ORDER SIZE"::)."COST OF PLACING ORDER ";C:%8"NUMBER OF UNITS CONSUMED "'B"IN ONE YEAR ";NL:"INPUT ($10 AS 10.00)")V"UNIT=(9):=(34):"UNITS":&"MINIMUM INVENTORY ";I2=(11):=(34):"UNITS":P=(T*U)+I2 P=P)%"ORDER POINT ";P=(13):=(34):"UNITS" 15205 ----------------------------------------------- Selection E9 --------------------------------------------------- =(4))6);"DETERMINING THE ORDER POINT":"NUMBER OF DAYS REQUIRED"'"TO FILL ORDER ";T:=(7):=(34):"DAYS":%"MAXIMUM USAGE ";U:=(36):"DAYS"::+H"MAXIMUM DAILY INVENTORY USAGE ";U::R=(11):=(36):"UNITS":: \I2=D*U(f"MINIMUM INVENTORY ";I2p=(15):=(36):"UNITS" z15209 --------------------------------------------------- Sele----------------- -=(4):8);"MINIMUM INVENTORY LIMIT"::n  I2=MINIMUM INVENTORY:REM D=NUMBER OF DAYS INVENTORY DESIRED ON HAND:REM U=MAXIMUM DAILY INVENTORY USAGE*"NUMBER OF DAYS INVENTORY"'4"DESIRED ON HAND ";D>=(8)EREST RATE ";:II<1190 I=I/100k"# OF YEARS TO PAY:":" ENTER I.E. .5 FOR HALF A YEAR;":" HOW MANY YEARS ";:L D=L:h:"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LIST?":" ENTER D 3 ::20,060,24R(L)=L*100+.5)/100=4:13)"CALORIE COUNTER"::8)"BY LISA & GARY RENSBERGER":7)"PERSONAL COMPUTING-DEC. 1979"::9)"ADAPTED FOR THE APPLE BY:"::14)"JON RICHARDS" =15,#" > Make all entries in UPPER CASE------------------------* Error handling subroutine=--------------------------------------------------------2:=10:" *** NUMBERS ONLY PLEASE ! ***"TIME=11000:TIME JULY 19820B By Stan Guidero for the APPLE ///=G--------------------------------------------------------"L HOME MORTGAGE=M=========================================================-------------------------------- * * THE END * * *"Time=11000:Time::::=========================================================5$ Given to the S.F.Apple Core by Kevin Armstrong=.--------------------------------------------------------)8 Last modifiedYPRESS$5KEYPRESS$=27)1040:ۻKEYPRESS$<>32)1000:= ------------------------------------------------------- END Routine=--------------------------------------------------------2:16);0):=10:=10:"*)=21:" { Press ESCAPE to quit }"1=22:"{ Press the SPACE BAR to continue...}"= -------------------------------------------------------& Quit-continue Routine=--------------------------------------------------------KE--------------------------------------------#f:=5:" Home Mortgage"&p:" Donated by Kevin Armstrong"#z" Modified by Stan Guidero"-::"This program lets you see payments"+"principal and interest for your home""mortgage"Y THE INTEREST."*)4"$";R3;" WENT TO PAY THE PRINCIPAL.">2H"HIT RETURN TO CONTINUE. ESCAPE TO QUIT";:K$MK$=27)1040R\=a-------------------------------------------------------- b Title page=c------------760MC<12700 MC=0 R1=0 R2=0 R3=0 R4=0 MC=MC+1 R1=R1+P1 R2=R2+P2 R3=R3+P3 R4=PMC<12860+"IN THE ";M/12;" YEAR OF YOUR LOAN.":' "$";R1;" WAS YOUR ANNUAL PAYMENT."( "$";R2;" WENT TO PA TO DO ANOTHER":" ANSWER Y OR N ";:X$0X$="Y"X$="y"30 :1040=D--------------------------------------------------------.E This routine accumes yearly figures=F--------------------------------------------------------vMC=14 paid ";:435;C/:B=B+P:"Total payments made ";:435;B&:"Total years paid ";D%:"Total months paid ";A*:"Your monthly payment ";:435;P18:I<1I=I*100:"The interest rate is ";I;" %":5"WANT,P580A=M+0:B=P1+B:C=P2+CTJ$="S"J$="s"K=0:=10:"** I'M COMPUTING AS FAST AS I CAN !! **":::K=1M'J$="D"J$="d"MC<12MC=14:580::16);0)  7#.2#):"Origional loan amount ";:435;E):"Total interest--------------------------------------),P1=P*(I/12)/(1-(1/(1+(I/12))^(L*12)))6P1=P1*100+.5)/100@M=1L*12 JP2=P*I/12TP2=P2*100+.5)/100 ^P3=P1-P2hP=(P-P3)*100+.5)/100rJ$="S"J$="s"400w 7#.2#,7X|M;5);:375;P1,P2,P3OR S ";:J$J$="S"J$="s"280 :Q"Per.";8)"Payment";24);"Interest";40);"Prin.Red.";56);"Prin.Balance"0,380,245'------------------------------------------------"( Do Calculations5)----------. <"(=19/2"***** S.F. APPLE CORE - JULY 1980 *****"L<=23:=8:"HIT TO CONTINUE.":=24:=11:"HIT TO END.";:A$F0,2340,24 PA$<>32)A$<>27):60ZdA$=27)::nxI=0T=0R(L)=L*150+.5)/WYZ[\]^_`abcdeBEANS, 4, 30 LIMA BEANS, 4, 180 HAMBURGER,3, 61 ROAST, 3, 82 STEAK, 3, 73 APPLE JUICE, 4,126  BANANA CREAM PIE,5,377 APRICOT,1 , 20 ARTICHOKE,1,51 GREEN BEANS,4,26 BEAN SOUP,4,260  BEAN SPROS"8C<1TABLE$(I,1)="STRIP"B$L ========FOOD ITEMS==========V APPLE,1,188#` APPLE SAUCE(SUGARLESS),4,110!j APPLE SAUCE(REGULAR),4,230t ASPARAGUS,5,3~ BACON,7,50 BANANA,1, 85 PORK AND BEANS, 4,320 STRING C<1TABLE$(I,1)="PIECE"& =============================="HOW MANY SLICES?? ";CC>1TABLE$(I,1)="SLICES"C<1TABLE$(I,1)="SLICE"$ ============================$"HOW MANY STRIPS?? ";C.C>1TABLE$(I,1)="STRIP$(I,1)="OUNCES"pC<1TABLE$(I,1)="OUNCE"z ======================"HOW MANY CUPS? ";CC>1TABLE$(I,1)="CUPS"C<1TABLE$(I,1)="CUP"" ============================" HOW MANY PIECES?? ";CC>1TABLE$(I,1)="PIECES"====== ========================"HOW MANY?? ";C TABLE$(I,1)=" "C>1B$=B$+"S" * =========================4"HOW MANY TBSP?? ";C>TABLE$(I,1)="TBSP"HR =====================\"HOW MANY OUNCES?? ";CfC>1TABLE00)/3200:"IT IS LIKELY YOU GAINED ";R(L);" POUNDS TODAY!! ":2600Q:L=(2800-T)/3200:"IT IS LIKELY YOU LOST ";R(L);" POUNDS TO DAY! ":2600DL=(T-2800)/3200::"YOU LIKELY GAINED ";R(L);" POUNDS TODAY!!" 2600" =====================0M=1T>2800" IT APPEARS YOU ARE EATING MORE THAN THE AVERAGE MALE. YOU SHOULD EAT ";T-2800;" FEWER CALORIES JUST TO MAINTAIN YOUR PRESENT WEIGHT.":730Q:L=(2200-T)/3200:"IT IS LIKELY YOU LOST ";R(L);" POUNDS TO DAY! ":2600S:L=(T-22 FEMALE. YOU SHOULD EAT ";T-2200;" FEWER CALORIES TO MAINTAIN YOUR PRESENT WEIGHT.":M=2T>THAN2200710M=1T<2800"IT APPEARS YOU ARE EATING LESS THAN THE AVERAGE MALE. YOU COULD EAT ";2800-T;" MORE CALORIES AND KEEP YOUR PRESENT WEIGHT. ":72NUE * *" L$:::M=2T<2200"IT APPEARS YOU ARE EATING LESS THAN THE AVERAGE FEMALE. YOU COULD EAT ";2200-T;" MORE CALORIES AND KEEP YOUR PRESENT WEIGHT":M=2T2200" IT APPEARS YOU ARE EATING MORE THAN THE AVERAGE060,24:J=040:"-";:J &N=0I-1'0TABLE$(N,0);5);TABLE$(N,1);15):TABLE$(N,2);36);TABLE(N)DT=TABLE(N)+TNNX TOTALSbI=040:"-";:I:$l10)"TOTAL CALORIES ";36);Tv:,4)"* * HIT SPACE BAR TO CONTIT$,1)400360T$360 ======================== UNIT'UNIT760,810,850,900,950,1000,1050TABLE$(I,2)=B$CALTABLE(I)=C*CAL)TABLE$(I,0)=C) I=I+1220 ======================== PRINT TABLE:20,$B$="END"330B$=A$420DUMMY,DUMMY240 " =========================), LIST ALL FOOD WITH THE SAM INITIAL$6 LETTER AS TYPED BY USER@ J"DON'T HAVE ";A$T^hT$,DUMMY,DUMMYrT$="END"220|A$,1)=100TABLE(50)TABLE$(50,2)=5J" INPUT EACH ITEM YOU HAD TO EAT TODAY. WHEN FINISHED ENTER 'END'."7::"ARE YOU MALE OR FEMALE (1=MALE/2=FEMALE)??";M=12 " UPPER CASE ONLY.":#:"ITEM : ";A$:A$="END"510BUTS,4,20 BEEF STEW,4,260 BEER,4,173( BEETS,4,802 BERRY PIE,5,365< BISCUIT,5,130F BREAD,6,55P TOAST,6,55Z BROCCOLI, 5,29 d BRUSSELS SPROUT,4,60n BUTTER,2,100x BUTTERMILK,4,85  CHEESE CAKE(2 INCH),5,250! CAKE(CHOCLATE LAYER),5,356 COFFEE CAKE,5,133 CUPCAKE,1,229 FRUIT CAKE,5,142 CANTALOPE,6,30 CARROTS,4,60 CATSUP,2,17  CAULIFLOWER,4,30 CELERY,5,8 COTTAGE CHEESE,4,200 CREAM CHEESE,3fhijklmn"MON","TUE","WED","THU","FRI","SAT"," ",6.28318CF(1),F(2),F(3),F(4),F(5),F(6),F(7),F(8),F(9),F(10),F(11),F(12)) 31,28,31,30,31,30,31,31,30,31,30,31=8  79C -1255;"Biorhythm program for Apple ///";1255;"This program wj  ****** 6 ****** Developed for the Apple /// by Fred Davis0 ****** Box 11787, San Francisco, CA 94101 ****** 8O$(51)LBIRTH$(100) `T$(8)tF(12),J(2),Z$(20)6T$(1),T$(2),T$(3),T$(4),T$(5),T$(6),T$(7),T$(8),K< "SUN",-END ROUTINE------------( KEYPRESS$ < :::ODS( * THE FIRST NUMBER IS THE SERVING * * SEE LINES 710-1030:1-UNITS:2=TBSPS1 * 3=OZS.:4=CUPS:5=PIECES:6=SLICES:7=STRIPS" *THE 2ND NUMBER IS CALORIES$ * CALL ME IF THERE ARE ERRORS$ * JON RICHARDS(415) 824-1864 (' ----------AM MUSHROOM,4,120` CREAM-WHIPPED,2,49j WATERMELON,6,90#t JUICE GRAPE(SUGARLESS),4,160~ WHISKEY-BOURBON,3,83 WHISKEY-SCOTCH,3,73  WAFFLES,5,232 SUNFLOWER SEEDS,3,159 END,1,1+ * YOU CAN ADD DATA FOR YOUR OWN FO,1,75 SOUP-CLAM CHOWDER,4,87 COKE,3,13.125 FRENCH TOAST,5,170 SANDWICH-BOLOGNA,1,351!$ STRAWBERRY SHORTCAKE,1,350. STRAWBERRIES,4,608 FISH-SWORD,5,180"B PANCAKES(DRY CURD),1,182.66L WALNUTS,1,20 V SOUP-CRE PINEAPPLE-CANNED,4,190 SOUP-CHICKEN NOODLE,3,18 SOUP-CREAM MUSHROOM,3,24 JELLO,4,206 SANDWICH-CHEESE,5,230 SAUSAGE,5,94 PIE-PUMPKIN,5,300 SUGAR-BROWN,2,50 WATER,1,0 COFFEE(BLACK),4,0 ORANGE4,100  MARGARINE,2,100* ICE CREAM,4,3004 CORN,4,80> CORN ON THE COB,1,92H CEREAL,4,80R SPAGHETTI W SAUCE,4,555\ BAKED BEANS,4,260f BLINTZES,5,220p CREPES,5,220z FRUIT COCKTAIL,4,100 PEARS-CANNED,4,160115 BEEF STEW,4,260 CATSUP,2,17 FRENCH TOAST,6,170 FRUIT COCKTAIL,4,100 HAM,6,400 FISH-TROUT,5,216 RICE,4,200 FISH-SALMON,5,200 CRAB,4,54 FISH-RED SNAPPER,5,183  RAISINS,4,428 LEMONADE,PLE,4,100D YOGURT,4,250N SANDWICH P B & J,1,320X SANDWICH TUNA,1,350b SALAD BLUECHEESE,1,40!l SALAD THOUSAND ISLAND,1,40v COOKIE,1,64 CRACKER SALTINE,5,17 CRACKER AK-MAK,3,117 DOUGHNUT,1,157 MEAT LOAF,5, PANCAKES,5,75 SYRUP,2,50 PEAS,4,73 POTATO,1,90 PRUNES,1,25 POTATO CHIPS,5,10 SUGAR,2,50 PORK CHOP,5,290 HOT CHOCOLATE,4,277 WINE,4,95& JUICE-V-8,4,350 JUICE GRAPEFRUIT,4,90: PINEAPEE CREAM & SUGAR,4,57T GRAHAM CRACKER,5, 14^ EGG,1,75h HOT DOG,1,125r GRAPEFRUIT,5,70| JAM,2,60 LENTIL SOUP,4,606 MACARONI & CHEESE,4,600 MUFFIN,1,140 MILK,4,140 OATMEAL,4,150 ORANGE JUICE,4,110 ,318 CHEESE(PARMESAN),2,20 CHEESE(SWISS),3,105# CHICKEN(FRIED BREAST),5,232$ CHICKEN(FRIED DRUMSTICK),5,64" CHOCOLATE MILK,4,277, CHOCOLATE ECLAIR,5,3166 CHOCOLATE FUDGE,5,100 @ CHOCOLATE ICE CREAM,4,360 J COFFill plot your biorhythm cycles."<:@P" This biorhythm is prepared for (name): ";Z$(N+1)Z-d"Enter dates in this format: MM,DD,YYYY" xN=N+1"Birthdate:"; M1,D1,Y1?M1$=M1):D1$=D1):Y1$=Y1):BIRTH$(N)=M1$+"/"+D1$+" 2350 A$(25)A$(1)="1ST TEE"(A$(2)="2ND TEE"2A$(3)="3RD TEE"<A$(4)="4TH TEE"FA$(5)="5TH TEE"PA$(6)="6TH TEE"ZA$(7)="7TH TEE"dA$(8)="8TH TEE"nA$(9)="9TH TEE"xA$(10)="10TH TEE"A$(11)="11TH TEE"A$(12)="12TH TEE"* Developed for the Apple /// by Fred Davis0 ****** Box 11787, San Francisco, CA 94101  ****** 4180,X=1@TX=0h| TURN AROUND INFORMATION,"Another biorythm with same name ? ";Q$Q$="y"Q$="Y"Q$="Y"1620+"Another Biorythm with new name ? ";E$E$="y"E$="Y"E$="Y"13600D:  ******6 *****P2=N7-7*N7/7)+1)( FIND DAYS EXPENDED IN PRIOR MONTHS<J2=0PX=14000 dI=1X-1xJ2=J2+F(I)I GET NAME FILE 4420 CHECK X FOR LEAP YEARX/400-X/400)=04140X/100-X/100)=04180X/4-X/4)<>0ree cycles start at zero at the moment of birth."  PRNT$="S"3660 #1 #0 L4220` FIND DAY OF WEEKtN1=M2+12*.6+1/M2)N2=Y2-.6+1/M2)N3=13*(N1+1)/5)N4=5*N2/4)N5=N2/100)N6=N2/400)N7=N3+N4-N5+N6+D2-1is associated with physical vitality endurance and energy level."Hp "Emotional corresponds to sensitivity, intuition and cheerfulness."S "Intellectual is related to alertness, cognitive power and judgement ability."U "According to the theory all th biorhythm theory postulates that there are certain biological cycles which"R4 "have a constant period in the human body. According to the theory there are"SH "three main cycles: 23 day physical, 28 day emotional, & 33 day intellectual."P\ "Physical T$(P2);3);M2;"/";D2; =13 X=151 O$(X); X  INCREMENT DATE0 P2=83180 D P2=P2+1X P2>7P2=1 l D2=D2+1 D2>F(M2)D2=1:M2=M2+1 M2<133260 M2=1:Y2=Y2+1 X=Y2:F(2)=28 4060 F(2)=F(2)+X O U "TheO=OL-1 d C=C+1 x X=151 O$(X)="-" X O$(26)="!" Y=0! X=(K*(O/23-O/23)))*25)+26 O$(X)="P"  Y=Y+X! X=(K*(O/33-O/33)))*25)+26 , O$(X)="I" @ Y=Y+X!T X=(K*(O/28-O/28)))*25)+26 h O$(X)="E" | Y=(Y+X)/3 O$(Y)="A" l A=overall Average" @ 13);"Down Average Up"@ 13);"-------------------------!+++++++++++++++++++++++++"" SET F(2) TO 29 FOR LEAP YRS  X=0  GENERATE THE BIO PLOT ( L=O+L< C=0 P R I=15I:"Biorhythm analysis for ";L;" days - prepared for:" 5 Z$(N);", born on: ";T$(P1);" ";M1;"/";D1;"/";Y18 ?L "This Biorythm chart begins: ";T$(P2);" ";M2;"/";D2;"/";Y2Ft 13);"P=Physical E=Emotional I=Intelectua3880J2=J2+D2+Y2*365J2<639723P2=8 N1=Y2-.1CO=J2-J1+N1/4)-Y1/4)-N1/100)+Y1/100)+N1/400)-Y1/400)M1>22080X=Y1 4060 O=O+X Y2/4-Y2/4)<>021804X=Y2 H4060 \O=O+XpF(2)=F(2)+X PRINT CHART HEADE"Send output to Printer or Screen (enter 'P' or 'S')?";PRNT$PRNT$="s"PRNT$="S"PRNT$="S"1780#1,".printer"#17 ****** CALCULATE OFFSET,INCLUDE LEAP YEARS ******X=M1 38800J1=J2+D1+Y1*365DJ1<639723P1=8XX=M2 l/"+Y1$Y1>991560Y1=Y1+1900M1;"/";D1;"/";Y1M2=M1:D2=D1:Y2=Y1 ,3680 @P1=P2J T"Starting date for chart:"; hM2,D2,Y2|Y2>991720Y2=Y2+1900M2;"/";D2;"/";Y2 3680 "Length of chart in days:";LAA$(13)="13TH TEE"A$(14)="14TH TEE"A$(15)="15TH TEE"A$(16)="16TH TEE"A$(17)="17TH TEE"A$(18)="18TH TEE" ::'"are you a new member of the club""YES OR NO : ";X$X$="YES"X$="yes"300X$="NO"X$="no"430Coqrstuvwxyz{|the woods. REPLAY - TWO STROKE PENALTY 6C=C+1@Y=Y1J640 TY=Y)-^"You overshot the green by ";Y;" yards."h640r2*X))=116803|"The idea is to hit the ball not the .. sand.640"You topped it - NO GAIN..6404* Y=Y)Y=30*X)+15&"You're in a trap near the green.640(" YOU S U N K THE SHOT...(BIG DEAL) 2160V/6=A1580Y-202201110 1250X<1901110X>2101110 Y=Y-XI=1(4-A+C^2)V=30*X))X/11=X/11)1400 X/5=X/5)1530X/28=X/28)1430X/27=X/27)1580(I2Y>271380<Y<-231620FY)<51510P(>41060 1080.$"Your woods are numbered 1 - 4 ,RETYPE "; .10208K=01110B7*X))=31700 L1650VX=X)*250)`A<>11150jX<2201110 t1250~A<>21190X<2101110X>2301110 1250A<>31230X<200numbered 2 thru 9 RETYPE850 K=09405*X))=31700 1650M=35*X)+200)X=M-14.4*A-(7*X)+38)) Y=Y-XM/27=M/27)1580M/8=M/8)1480M/69=M/69)2150 1330"WHAT NUMBER WOOD ";AA<11060Airon or wood."720 Y<(18*X)+73)810<" HEY ... YOU CANT USE A WEDGE AT THIS DISTANCE....." 680*15*X))=1321504Y=Y-(75*X)+50)) >1700H"What number iron ";RA \A<2890 fA>9890p910-z"Your irons are me which type of club to use,a wedge and iron or a wood."@" -FROM NOW ON I WILL JUST ASK WEDGE, IRON OR WOOD. - ";Z$Z$="WOOD"Z$="wood"1010 Z$="WEDGE"Z$="wedge"780Z$="IRON"Z$="iron"8401"You can only choose a wedge, "IF YOU PLAY LIKE YOU TYPE YOU'LL NEVER MAKE IT."0::YDY1=YND"X"You are on the ";A$(S);"..."%b"It is ";Y;" yards long, PAR ";DlC=0vK=0Y)=01780 C=C+1S+C<3700"WEDGE,IRON or WOOD : ";720D"Tell approximately 100ft. but with questionable accuracy.":: S=S+1S<>19470K1=2 2220S<>10560K1=1="Do you want to play another nine holes ":"YES/NO ";X2$X2$="YES"X2$="yes"560X2$="NO"X2$="no"22206:::M"A putter can be used only on the green. You putt by inputting a number"J"from 1 to 10. The distance and accuracy of your putt are controlled"J"by the magnitude of your input. A one will tap the ball accurately,"S"A ten will drive it* THESE ARE YOUR CLUBS ***":2620::/TCT$=" - 4 Woods numbered 1 thru 4":2620:/^CT$=" - 8 (Eight)Irons 2 thru 9":2620:1hCT$=" - a putter and a wedge ":2620::Br" HIT ANY KEY FOR INSTRUCTIONS":A$| "I can see you've already spent considerable time at the 19th"!"hole, TRY ANSWERING AGAIN.""240, 6:::R@::CT$="You are about to play a round of golf at the new and exciting ":2620'ECT$="Essick Country Club. ":2620:2J:CT$="**X))<>31730F=10*X)) 17707*X))<>71760F=50*X)+50) 1770F=50*X)+10)F)=02160F<>11810>" You are on the green 1 FT from the pin ...LUCKY SHOT " 18206"You are on the green, ";F;" feet from the pin": &C=C+10"What is your putt ";:ADA>101890NA<11890 X1910b"Can't use that. RETYPE. l1850vK=F&F=F=(A^2+A-((.5*A^2-A+1)*X))))F)>X)+1.52010K>5210010*X))=71980"THE TAP IS GOINUE...>"= -------------------------------------------------------KEYPRESS$3KEYPRESS$=27)5920:ۻKEYPRESS$<>32)210= -------------------------------------------------------0:=5:"1. HOW LONG CAN THE AVERAGE PERSON"&""F}: JACK L ESPINAL":70!C$="DATE: 1 AUGUST 1980":70.:C$="THIS PROGRAM WILL EVALUATE YOUR":70,C$="ABILITY TO SURVIVE AN EMERGENCY":70#C$="WILDERNESS EXPERIENCE.":70)=21:" PRESS 'ESCAPE' TO END.","< PRESS THE SPACE BAR TO CONT"< C$(40)@ ** You must add the .AUDIO Driver to your SOS.DRIVER **#1,".AUDIO"(2716);0)<120F PRINT CENTER ROUTINEP=20-C$)/2ZC$: PRINTS LINEd"": CONTROL Gnx=5:C$="SURVIVAL":70":C$="BYmod. Sept.1982 for Original Apple 3 ers.2 Program clessified - PUBLIC DOMAIN - ! ' G O L F '< ------------------------------------------------------ "* * * THE END * * *":26207 :)< ----- PRINT CENTER ROUTINE -----F =40-CT$)/2P CT$d 27)2550' ----- SPECIAL END ROUTINE -----= ------------------------------------------------------- : = -------------------------------------------------------  :2530( 2570:=10/2 =10:CT$= CT$="for 9 or 18 holes":2620 ----- PAUSE ROUTINE -----. =21:CT$="Press the 'ESCAPE' to end":2620: =22:CT$="< Press the SPACE BAR to continue...>":2620= ------------------------------------------------------- KEYPRESS$ KEY8 CT$(80):2570'B ----- TITLE PAGE ROUTINE ------"L =8:CT$="*** GOLF ***":2620!V CT$="By author unknown":2620` CT$="March 1979":2620=j ------------------------------------------------------ ,t :CT$="Pick a Wedge,Wood, or Iron":2620!~ at the ESSICK COUNTRY CLUB 2340> "The par is ";(K1*36);". you are ";(E-K1*36);" over par."< 374,4,434,4,210,3,376,4,205,3,440,4,422,4,510,5,595,5< 510,5,434,4,210,3,312,4,428,4,440,4,205,3,515,5,318,4$ . ----- INITIALIZE -----8"After ";(K1*9);" holes you have had ";E;" strokes"K1*36-E<02310(K1*36-E)<>02270"NICE GAME..YOU SHOT PAR" 2340?"The PAR is ";(K1*36);". You are ";(K1*36-E);" under par."M"*** CONGRADULATIONS you played a great game;" feet from the pin. *18204K<>12130>"You sunk it from one ft. H2160"R"You sunk it from ";K;" feet" \2160f"YOU S U N K IT"pzC<>12190"*HOLE IN ONE* E=E+C4"You have had ";C;" strokes on hole NO. ";S;"."430OD 2160G"OH BOY, you jabbed the putt ";9*X)+2);" inches from the cup."F=1 1820F=02100F>02050 F=F)%"You overshot the blooming cup!"F<>12080& "You are now ONE FT from the pin. 2010* "You are now ";FUNCTION WITHOUT WATER INTAKE? ","(TEMPERATURE 100 DEGREES)6:@5)"1. 10 DAYS"J:5)"2. 3 DAYS"T:5)"3. 2 WEEKS"^:5)"4. 1 DAY"+h=23:"SELECT THE BEST ANSWER, ";N$;:ArA<1A>4280|A=2R=R+1A=25650A<>25720 E=14602:=7:"YOU CAN FUNCTION ABOUT THREE DAYS IN "/:"THE DESERT WITH THE TEMPERATURE AT 100":"DEGREES WITH NO WATER!" 58100:=5:"2. INSULATION IS ANYTHING THAT HAS""THE FOLLOWING QUALITY:"#=8:5)"1. :=7:"EACH OF THE FOLLOWING CAN CAUSE"E=11800':"CIRCULATORY UPSET IN THE BODY:"::10)"HYPOXIA.":10)"HYPOTHERMIA.":10)"HYPERTHERMIA.":10)"HYP0HYDRATION":10)"FATIGUE." 5810.:=5:"9. ASSUMING TH)"2. HYPOTHERMIA.""J=13:5)"3. HYPOHYDRATION."!T=15:5)"4. HYPERTHERMIA."^=17:5)"5. FATIGUE." h=19:5)"6. ALL OF THEM."!r=21:5)"7. NONE OF THEM." |5610A=6R=R+1A<1A>71570A=65650A<>65720,41420A<>25720E=115703:=7:" THE INTERNATIONAL DISTRESS SIGNAL FOR"-:"WILDERNESS USE IS THREE OF ANYTHING." 58101":=5:"8. WHICH OF THE FOLLOWING CAN CAUSE","CIRCULATORY UPSET?"6=9:5)"1. HYPOXIA." @=11:5:=5:"7. THE INTERNATIONAL DISTRESS SIGNAL""FOR WILDERNESS USE IS:"=9:5)"1. SOS."&=11:5)"2. THREE OF ANYTHING."!=13:5)"3. A LARGE FIRE.""=15:5)"4. NONE OF THESE." 5610A=2R=R+1A=25650A<1A>9)"AND SECURITY." 5610A=4R=R+1A=45650(A<1A>411802A<>45720<E=11420+F:=7:"THE BODY NEEDS, BESIDES AIR AREP::7)"WATER."Z:7)"WARMTH."d:7)"ENERGY."n:7)"REST." x5810I=115002=10:5)"1. WATER, WARMTH, SALT, ENERGY,"9)"AND REST.".=13:5)"2. WATER, WARMTH, ENERGY, SALT9)"AND SECURITY."0=16:5)"3. WATER, FOOD, REST, SECURITY,"9)"AND ENERGY."0=19:5)"4. WATER, WARMTH, ENERGY, REST,"1180,t:=7:"COTTON LOOSES ALMOST ALL OF ITS"0~:"INSULATION VALUE WHEN IT BECOMES WET SO"-:"IT SHOULD BE AVOIDED IN WET WEATHER." 5810*:=5:"6. WHAT ARE THE GENERAL BODY"*"NECESSITIES OF SURVIVAL BESIDES AIR""AND SHELTER?"0"5. WHAT CLOTHING MATERIAL SHOULD YOU""AVOID IN WET WEATHER?"=8:5)"1. COTTEN"=10:5)"2. WOOL"$=12:5)"3. NYLON".=14:5)"4. POLYESTER" 85610BA=1R=R+1LA=15650VA<1A>41020`A<>15720jE=123:"SELECT THE BEST ANSWER, ";N$;:AA=3R=R+1A=35650A<1A>4850A<>35720E=110203:=8:"THE MOST IMPORTANT THING THAT YOU MUST"/:"BE ABLE TO USE IN A SURVIVAL SITUATION":"IS YOUR BRAIN!!" 58102:=5:101R:=5:"4. WHAT IS THE MOST IMPORTANT THING"+\"THAT YOU SHOULD BE ABLE TO USE IN AN"f"EMERGENCY?"&p=10:5)"1. YOUR SURVIVAL KIT."z=12:5)"2. YOUR KNIFE."=14:5)"3. YOUR BRAIN."'=16:5)"4. YOUR SIGNAL MIRROR."+=650A<1A>4610A<>25720 E=18500:=9:"YOU SHOULD ALWAYS SET THE FOLLOWING", :"PRIORITIES IN A SURVIVAL SITUATION:": 8)"1. WATER.*:8)"2. SHELTER."4:8)"3. BECOMMING UNLOST.">:8)"4. FOOD." H58ATER, SHELTER, BECOMMING"9)"UNLOST, FOOD."3=15:5)"3. FOOD, WATER, SHELTER, BECOMMING"9)"UNLOST"2=18:5)"4. BECOMMING UNLOST, WATER, FOOD,"9)"SHELTER."+=23:"SELECT THE BEST ANSWER, ";N$;:AA=2R=R+1A=25"ANYTHING WITH DEAD AIR SPACES WILL"N:"MAKE GOOD INSULATION!" X58104b:=5:"3. RANK THE FOLLOWING PRIORITIES TO BE"*l"CONSIDERED IN A SURVIVAL SITUATION."2v=9:5)"1. FOOD, SHELTER, WATER, BECOMMING"9)"UNLOST"-=12:5)"2. WDEAD AIR SPACES." =10:5)"2. MANY LAYERS.")=12:5)"3. CLOSE WEAVE MATERIAL.""=14:5)"4. WATERPROOFING."+=23:"SELECT THE BEST ANSWER, ";N$;:AA=1R=R+1A=15650&A<1A>44600A<>15720 :E=1610/D:=9:AT WATER IS SCARCE,,"WHICH OF THE FOLLOWING WOULD REQUIRE "*"THE LEAST AMOUNT OF BODY FLUIDS FOR"&"ASSIMILATION?"0=11:5)"1. PROTEIN.":=13:5)"2. FAT.""D=15:5)"3. CARBOHYDRATES." N5610XA=3R=R+1bA<1A>31800lA=35650vA<>35720E=11980-:=7:"WHEN WATER IS SCARSE, YOU SHOULD"*:"EAT ONLY CARBOHYDRATES SINCE THEY"0:"REQUIRE THE LEAST AMOUNT OF BODY FLUIDS":"FOR ASSIMILATION." 5810/:=5:"10. WHICH OF THE FOLLOWING ICOLD" "ENVIRONMENT." =10:5)"1. YES." =13:5)"2. NO." 5610 A=1R=R+1 A=15650 A<1A>23250 A<>15720 E=133902 :=7:"BODY VENTILATION IS JUST AS IMPORTANT"-* :"AS INSULATION IN A COLD ENVIRONMENT." 610b A=4R=R+1l A=45650v A<1A>43090 A<>45720 E=13250. :=7:"A WARM FRONT IS FORCASTED BY HIGH" :"ALTITUDE CIRRUS CLOUDS." 58102 :=5:"17. BODY VENTILATION AS WELL AS BODY"* "INSULATION IS NEEDED IN A VERY ORTH."  5810- :=5:"16. HIGH ALTITUDE CIRRUS CLOUDS"- "FORCAST WHICH OF THE FOLLOWING WEATHER"& "CONDITIONS?"0 =10:5)"1. COLD FRONT."": =12:5)"2. THUNDERSTORMS."D =14:5)"3. HIGH WINDS."N =16:5)"4. WARM FRONT." X 5=11:5)"2. GRID NORTH."' =13:5)"3. GEOGRAPHICAL NORTH."& =15:5)"4. NONE OF THE ABOVE." 5610 A=4R=R+1 A<1A>42950 A=45650 A<>45720 E=13090. :=7:"THE NEEDLE IN A COMPASS POINTS TO" :"MAGNETIC N56106 A=3R=R+1@ A=35650J A<1A>52790T A<>35720^ E=129502h :=7:" YOUR ATTITUDE IS MOST IMPORTANT IN A"r :"SURVIVAL SITUATION." | 58104 :=5:"15. THE NEEDLE IN A COMPASS POINTS TO:" =9:5)"1. TRUE NORTH." E." 5810/ :=5:"14. WHICH OF THE FOLLOWING IS THE". "MOST IMPORTANT IN A SURVIVAL SITUATION?" =8:5)"1. SKILLS." =10:5)"2. CLOTHING." =12:5)"3. ATTITUDE." =14:5)"4. EQUIPMENT." " =16:5)"5. FOOD INTAKE." , d 5610n A=6R=R+1x A=65650 A<1A>62570 A<>65720 E=12790/ :=7:"THE FOLLOWING ARE THE SYMPTOMS FOR" :"HYPOHYDRATION." ::10)"HEADACHE." :10)"CONSTIPATION." :10)"MUSCLE CRAMPS." :10)"FATIGUHE"# "SYMPTOMS OF HYPOHYDRATION OR" "DEHYDRATION?"( =8:5)"1. HEADACHE."2 =10:5)"2. FATIGUE."!< =12:5)"3. CONSTIPATION.""F =14:5)"4. MUSCLE CRAMPS."&P =16:5)"5. NONE OF THE ABOVE."%Z =18:5)"6. ALL OF THE ABOVE."720 E=125702 :=7:"HEAT CAN BE INTRODUCED INTO THE BODY " :"IN THE FOLLOWING WAYS:" ::10)"CONDUCTION." :10)"CONVECTION." :10)"RADIATION." :10)"MUSCLE ACTION." 58100 :=4:"13. WHICH OF THE FOLLOWING ARE T. CONDUCTION."V =10:5)"2. CONVECTION."` =12:5)"3. RADIATION.""j =14:5)"4. MUSCLE ACTION."&t =16:5)"5. NONE OF THE ABOVE."%~ =18:5)"6. ALL OF THE ABOVE." 5610 A=6R=R+1 A=65650 A<1A>62360 A<>65:"FOLLOWING WAYS:"::10)"EVAPERATION." :10)"RESPIRATION." :10)"RADIATION." :10)"CONVECTION."$ :10)"CONDUCTION." . 581038 :=5:"12. WHICH WAYS CAN HEAT BE INTRODUCED"B "INTERNALLY IN THE BODY:"L =8:5)"1 RADIATION."=15:5)"4. CONVECTION."&=17:5)"5. NONE OF THE ABOVE."%=19:5)"6. ALL OF THE ABOVE." 5610A=6R=R+1A=65650A<1A>62130A<>65720E=123601:=7:"THE HUMAN BODY CAN LOOSE HEAT IN THE":=7:"THE FIRST SIGN OF HYPOTHERMIA IS">:"SHIVERING." H5810/R:=5:"11. OTHER THAN EVAPERATION, WHICH"*\"WAYS CAN THE BODY LOOSE HEAT TO THE"f"ENVIRONMENT?"p=9:5)"1. RESPIRATION."z=11:5)"2. CONDUCTION."=13:5)"3. S THE"#"INITIAL SIGN OF HYPOTHERMIA:"=9:5)"1. STUMBLING."=11:5)"2. SWEATING."=13:5)"3. SHIVERING."!=15:5)"4. A DUMB BRAIN." 5610A=3R=R+1 A=35650A<1A>41980 A<>35720*E=12130-44 5810/> :=5:"18. REST CAN BE THE BEST CURE FOR",H "MOST SELF INFLECTED OUTDOOR MISERIES."R =9:5)"1. TRUE."\ =12:5)"2. FALSE." f 5610p A=1R=R+1z A=15650 A<1A>23390 A<>15720 E=135203 :=7:"REST IS USUALLY THE BEST CURE FOR MOST") :"SELF INFLECTED OUTDOOR MISERIES." 58103 :=5:"19. CAN YOU TIE A KNOT IN A ROPE THAT") "YOU WOULD BE WILLING TO TRUST YOUR") "LIFE TOO IN A 150 FOOT LIFT FROM A" "FLOODING ISLAND?" =11:5)"1. 5810.:=5:"27. IN A DESERT, IT IS BETTER TO"*"CONSERVE AND PROTECT WATER THAT YOU"("HAVE INSIDE YOUR BODY RATHER THAN"*"EXPEND IT DIGGING FOR NEEDED WATER."=11:5)"1. TRUE."=14:5)"2. FALSE." $5610.A=1R=R+18AINNER BODY RESPONSES TO HEAT GAIN,",:"HEAT LOSS, WATER LOSS, AND CHEMICAL".:"UPSET CAN CAUSE ALL OF THE FOLLOWING:""::10)"OVERALL TIREDNESS."!:10)"LOSS OF MUSCLE USE.":10)"A DUMB BRAIN."!:10)"AN ATTITUDE CHANGE." SE."!4=15:5)"3. A DUMB BRAIN."'>=17:5)"4. AN ATTITUDE CHANGE."&H=19:5)"5. NONE OF THE ABOVE."%R=21:5)"6. ALL OF THE ABOVE." \5610fA=6R=R+1pA=65650zA<1A>64600A<>65720E=148404:=7:"YOUR OULD BE A WOOL BLANKET." 58103:=5:"26. YOUR INNER BODY RESPONSES TO HEAT"&"GAIN,HEAT LOSS, WATER LOSS, AND", "CHEMICAL UPSET CAN CAUSE WHICH OF THE""FOLLOWING?"& =11:5)"1. OVERALL TIREDNESS."'*=13:5)"2. LOSS OF MUSCLE U=13:5)"2. A FIRE STARTER.""=15:5)"3. A DOWN JACKET."#=17:5)"4. A WOOL BLANKET." 5610A=4R=R+1A=45650A<1A>44430A<>45720E=146001:=7:"YOUR BEST CHOICE UNDER MOST SURVIVAL",:"SITUATIONS WHEAT UNDER WINDCHILL"#::"AND WATERCHILL CONDITIONS." D58103N:=5:"25. IF IT WERE VERY COLD AND YOU WERE")X"GIVEN ONE ITEM FROM THE FOLLOWING."-b"WHICH WOULD YOU CHOOSE, DRESSED AS YOU"l"ARE RIGHT NOW?"v=11:5)"1. A KNIFE."#E FETAL POSITION CAN""BE BENEFICIAL."=10:5)"1. TRUE."=13:5)"2. FALSE." 5610A=1R=R+1A=15650A<1A>24280A<>15720E=144301&:=7:"THE FETAL POSITION WILL CONSERVE THE"/0:"MAXIMUM AMOUNT OF 1A>24150rA=2R=R+1|A=25650A<>25720E=142804:=7:"FAST SWIMMING WILL CAUSE MORE HEAT LOSS"0:"THEN WILL BE GENERATED BY THE SWIMMING." 58103:=5:"24. WHEN YOU ARE EXPOSED TO WINDCHILL"-"OR WATER CHILL, TH5720E=141500:=7:"WATERCHILL IS MANY TIMES WORSE THEN"":"WINDCHILL." ,581036:=5:"23. FAST SWIMMING IN COLD WATER HELPS",@"TO KEEP YOU WARM AND PROLONG SURVIVAL"J=9:5)"1. TRUE."T=12:5)"2. FALSE." ^5610hA24020A=15650A<>1NEED WARM CLOTHING FOR A"(2"TWO DAY BACKPACKING TRIP INTO THE"<"ARIZONA DESERT?"F=10:5)"1. YES."P=13:5)"2. NO." Z5610dA=1R=R+1nA<1A>23880xA=15650A<>15720E=140202:=7:"IT GETS VERY COLD, EVE"4. YOURSELF." 5610A=4R=R+1A=45650A<1A>43720A<>45720E=13880,:=7:"YOU ARE THE ONLY PERSON WHO IS "' "RESPONSIBLE FOR YOUR SELF IN THE"#:"BACKCOUNTRY OR WILDERNESS." 58103(:=5:"21. WILL YOU :10)"SQUARE KNOT."j:10)"SHEETBEND."t:10)"FIGURE EIGHT." ~58103:=5:"20. WHO IS RESPONSIBLE FOR YOU IN THE""BACKCOUNTRY?"=9:5)"1. RANGERS." =11:5)"2. THE SHERIFF." =13:5)"3. YOUR FATHER."=15:5)YES." =14:5)"2. NO." 5610A=1R=R+1A=15650A<1A>23520$A<>15720.E=1372028:=7:"YOU SHOULD BE ABLE TO TIE EACH OF THE"/B:"FOLLOWING KNOTS. THEY COULD SAVE YOUR"L:"LIFE!"V::10)"BOWLINE."`=15650BA<1A>24840LA<>15720VE=150000`:=7:"IN MOST CASES, YOU WILL USE UP MORE".j:"BODY WATER THAN YOU WILL FIND DIGGING"t:"IN THE DESERT. ~58101:=5:"28. SURVIVAL SITUATIONS CAN DEVELOP"!=8:5)"1. ON THE DESERT.""=10:5)"2. IN THE ARCTIC."&=12:5)"3. WHEN YOU MISMANAGE"9)"YOUR BODY." =15:5)"4. IN THE CITY."%=17:5)"5. IN AN AUTOMOBILE."&=19:5)"6. NONE OF THE ABOVE."%=21:5)"7. ALL OF THE ABOVE." 5610 lines for menu items and the file name for the menu to be created. #10);"Menu Generator Program"":"Enter current date: ";dte$/(:"Enter up to two lines for menu header:" 2i=12!<"Line ";i;:=8:"";title$(i)Fi9P:"Enter nmode cannot delete line numbers smaller than the line number of the DEL command. 50010 dummy line Lines 18 - 130 are input data for the menu to be created. One or two lines of text for the menu header, the creation date, up to 10 ' *** Make Menu Program ***  R. D. Biggs' 15903 Malvern Hill Ave., Baton Rouge, Louisiana 70816; (504) 292 6717 November 9,1982 9{10-5000: DEL command in deferred 4TIME=11000:TIME >:::000:IDE=1N X RESPONSE FOR WRONG ANSWERb:=12:18)"WRONG"-l#1;128);63);255);63);100);0)vE=0 PAUSE SUBROUTINE#=23:"HIT ANY KEY TO CONTINUE"=23:=25:B$: !*=10:C$="*** THE END ***":70------------------------3R<158)"";::"YOU HAD BETTER STAY HOME!!"=23+=23:"SELECT THE BEST ANSWER, ";N$;:A I=1250 I=175 REWARD FOR RIGHT ANSWER :=12:15)"GOOD JOB!"&"":"":" "0I=11"YOU SHOULD TRY CLIMBING MOUNT EVEREST!!"9R<28R>=25" YOU CAN TRAVEL MOST ANYWHERE!"7R<25R>=20" BE CAREFUL WHERE YOU TRAVEL"@R<20R>=15"ALWAYS TAKE A SURVIVAL INSTRUCTOR WITH YOU"= -------------------------------AYS." 5610A=3R=R+1"A=35650,A<1A>453306A<>35720@E=15480+J:=7:"THE AVERAGE EMERGENCY SURVIVAL"*T:"SITUATION LASTS ABOUT THREE DAYS." ^5810h r:=8:17)"SCORE = ";R|=14T=1500:T6R>=28E BODY"1:"TO ACCLIMATIZE TO AN EXTREME ENVIRONMENT" 58106:=(5):"30. HOW LONG DOES THE AVERAGE SURVIVAL""EMERGENCY LAST?"=9:5)"1. ONE HOUR."=11:5)"2. ONE MONTH."=13:5)"3. THREE DAYS."=15:5)"4. SEVEN DT?"P=8:5)"1. TWO DAYS."Z=10:5)"2. ONE DAY."d=12:5)"3. ONE MONTH."$n=14:5)"4. ABOUT TWO WEEKS." x5610A=4R=R+1A=45650A<1A>45180A<>45720E=153302:=7:"IT TAKES ABOUT TWO WEEKS FOR THA=7R=R+1A=75650A<1A>75000 A<>75720E=15180.:=7:"A SURVIVAL SITUATION CAN SUDDENLY"%(:"DEVELOPE WHERE EVER YOU ARE." 25810,<:=(5):"29. HOW LONG DOES IT TAKE TO"-F"ACCLIMATIZE TO AN EXTREME ENVIRONMENumber of menu items - max of 10: ";number%(Z:"Enter title of each menu item: "di=1number% n"Item ";i;:=8:"";menu$(i)xi6:"Enter path name for created menu: ";file.name$* Line 140 opens the console driver. #1,".console" Lines 150 - 180 present menu options to print created file to the console or to a disk file, edit file or exit program. /:=10::"Enter '1' to print to console: "#"Enter '2' to print to disk: ")"Enter '3' to review/edit entries: """f choice$=chr$(10) then pointer%=pointer%+1"=#x%;"330 if pointer%>"+7+number%)+" then pointer%= 8"<#x%;"340 if choice$=chr$(11) then pointer%=pointer%-1":#x%;"350 if pointer%< 8 then pointer%="+7+number%)1 #x%;"360 if choice$=chr$(13 for i=1 to "+number%))#x%;"210 print tab(b%(i));menu$(i)"#x%;"220 next i"Y#x%;"300 vpos=pointer%:hpos=b%(pointer%-7):inverse:print menu$(pointer%-7);:normal"$#x%;"305 last.point%=pointer%"#x%;"310 get choice$"<#x%;"320 in. |"+34)e#x%;"186 hpos=12:print"+34)+"| Press RETURN or ENTER to select choice |"+34)e#x%;"188 hpos=12:print"+34)+"|_______________________________________________________|"+34)#x%;"190 vpos=pointer%"&#x%;"2004)+"_______________________________________________________"+34)et#x%;"182 hpos=12:print"+34)+"| |"+34)e~#x%;"184 hpos=12:print"+34)+"| Use 'up' and 'down' arrow keys to change selectio/2)DL#x%;100+10*i)+" print tab("+a%)+");"+34)+title$(i)+34) V#x%;100+10*i+5)+" print"`i9b#x%;"130 c$="+34)+"Latest Update: "+34)+"+dte$"1d#x%;"140 print tab(INT((80-LEN(c$))/2));c$"kj#x%;"180 vpos=20:hpos=13:print"+3turn cursor off"#x%;"20 pointer%= 8"i=1number%>$#x%;30+2*i)+" menu$("+i)+") = "+34)+menu$(i)+34)A)#x%;30+2*i+1)+" b%("+i)+") = "+(80-menu$(i)))/2)).i8#x%;"100 home:vpos=3" Bi=12Ga%=(80-title$(i)))xt file is execed (line 50010). c Delete the extraneous lines 1 - 9 and 50000 - 50010 and the menu program is ready to run. file.name$,#2,file.name$:j=1100:j%#x%;"10 dte$="+34)+dte$+34)0#x%;"15 print chr$(6):rem e text file to the console allows you to review it before writing to a disk file. After writing the text file to a disk, the program is exited via line 167. | At this point the files are closed, lines 10-5000 are deleted (line7) and the menu te0 &i=no$)0=i:=15:"";menu$(i):500X150 Lines 1000 - 1470 print the new menu as a text file, either to the console or to a text file 'file.name$', depending upon the choice made at the menu in lines 150 -170.  Printing th or '0' to accept: ";no$no$="0"600 Line 540 will accept only a '1', '2', ... (to the number of menu entries). All other character inputs are rejected and control is returned to line 530. ,no$)<49no$)>48+number%=17:53The number of menu entries = ";number%,"Is the number of entries correct? ";y$Ay$<>"Y"y$<>"y""Enter the correct number: ";number%:420i=1number%""Menu item ";i;15);menu$(i)i=17:"Enter item number to correcto accept: ";no$no$="0"420 Line 417 will accept ONLY a '1' or '2'. All other character inputs are rejected and control is returned to line 410. #no$)<49no$)>50=5:410,i=no$):=i:=16:"";title$(i):=5:410," Edit Routine: Lines 300 - 600 ,"6"The current date is - ";dte$@J"Is entry correct? ";y$(Ty$<>"Y"y$<>"y"=1:=23:"";dte$^ hi=12$r"Title line ";i;" - ";title$(i)|i=5:"Enter line number to correct or '0' tEnter '4' to exit program: "Q=20:"NOTE: You MUST write the menu program to disk (option 2 above) before"D" exiting if you want to generate the BASIC menu program."x$x$)<49x$)>52150 x%=x$)x%1020,1000,300,4000)) then goto 380"R#x%;"370 vpos=last.point%:hpos=b%(last.point%-7):print menu$(last.point%-7)"(#x%;"375 goto 300"%2a$="380 on pointer%-7 goto 1000"<i=2number%Fa$=a$+","+1000*i)Pi Z#x%;a$ni=1number%4x#x%;1000*i)+" rem item "+i)+" on the menu"ix#x%;"15000 home:vpos=10:hpos=15:print"+34)+"You selected item "+34)+";pointer%-7;"+34)+" on the menu"+34)#x%;"15010 vpos=22"7#x%;"15020 print chr$(5):end:rem turn cursor on"t#x%;"run 10": tthe BASIC program, you will want to delete the extraneous lines 1 through 9 and lines 50000 and 50010. MAKE.MENU is documented and should be easy to read and modify. I am sure that there are many improvements to be made, and I am looking forward to feedbC program in memory and runs the menu program. The program, as created, contains dummy lines to branch to when menu options are selected. As you develop the body of your program, you replace the dummy lines with appropriate lines of code. Before saving ce 3 allows you to review and edit any or all of the original input data before saving the text file. Choice 4 closes the file and console driver, deletes the main body of the generator program, executes the EXEC command to convert the text file to a BASIe console, which allows you to review the text file before writing to the disk. Choice 2 writes the text file to the disk using the specified path name. This choice\must\be exercised before exiting the program\if you wish to save the menu program\. Choing the text file to a disk. After you complete the data input, you are presented with four choices: .pm15 1. Print to console 2. Print to disk 3. Edit/Review entries 4. Exit program .pm0 Choice 1 prints the text version of the desired menu program to thBASIC program using the EXEC command. Hence, the utility program MAKE.MENU was born. When the program is run, it prompts you for two title or header lines for the menu to be created, the creation date, from 1 to 10 menu labels and the path name for writi skeleton program containing a menu would be handy and time-saving. The concept was to have the utility program write a text file with the format of the desired BASIC program. After the text file is saved on a disk, the text file could be converted to a o, we moved up to an Apple ///. I have written and rewritten many programs, and I have come to appreciate the advantages to the user of a well-conceived, menu-driven program. It occurred to me recently that a utility program designed to\create\or\write\a .cj MENU GENERATION PROGRAM by R. D. Biggs - November 11, 1982 .fj Since the summer of 1980, when my wife and I purchased our first personal computer, an Apple ][, I have been intrigued with the variety of problems that can be solved. A few months agu want to EXEC and RUN your file? - (Y/N) ";y$y$="Y"y$="y"5000:ۀ;Pú7: branch to top of program to delete lines 10-5000 dZfile.name$:: EXEC command from deferred mode must be followed by an ENDhis command will run menu program after EXEC command is complete-"Press RETURN to display options: ";:y$ :150::=10:" Do you want to save your file? - (Y/N) ";y$y$="Y"y$="y"150;" Do yoack from interested Original Apple ///rs. k$=" "i=124:" ":iB=06:=13:"E P S O N F O N T S E L E C T P R O G R A M"k$=" "1050 1240;=08:=25:"This is a utility program to select a font"0$=25:"for the Epson MX-100 printer to use." .=25:" ";8=25:"Onc@ This program was written December 12, 1982 by Jim Linhart = of Berkeley, California and is donated to the Original = Apple ///'ers Users Group. It is in the public domain."A"9): Set horizontal spacing at 9/72" per line.v Set UNDERLINING on4 Ignore UNDERLINING if SMALL font was selected.a$="3"b$="N"a$="3"198020);27);52)27);45);1) Set ITALICS on27);52)ORMAL font on Set DOUBLE-WIDTH font on27)"W"1)&0 Set SMALL font on-:15)" ";14)" ";20);27);83);0)=D27)"A"6): Set horizontal spacing at 6/72" per line.NX Set COMPRESSED font onb15);" "=l27)" Font will be italicized.":C" Four score and seven years ago out fathers brought forth"A"on this continent, a new nation, conceived in Liberty, and"C"dedicated to the proposition that all men are created equal." 2020 Set Na$="4"1880|b$="Y"1920c$="Y"1990#a$="1""Normal font in use.")a$="2""Double-Width font in use.""a$="3""Small font in use."'a$="4""Compressed font in use.",b$="Y"" Font will be underlined.",c$="Y"t out a catalog, A"=20:"when the program ends you'll type in the following --"2,=20:"OPEN#1,"22)".PRINTER"22)",OUTPUT#1"6#1,".printer":#1@ Reset the software codes J27)"@"Ta$="1"1790^a$="2"1810ha$="3"1840r (Y or N)"=20:=47:d$d$="y"d$="Y"d$="Y"1540 1240A=20:=20:"Now the program will conclude by sending a small"C=20:"paragraph to the Epson to be printed. Note that if you"D=20:"now want to list this program out or lisdb$="Y"1420nb$="n"b$="N"xb$="N"1420 13505=18:=25:"Do you want ITALICIZING (Y or N)"=18:=48:c$c$="y"c$="Y"c$="Y"1490c$="n"c$="N"c$="N"1490 14205=20:=25:"Are these choices good 4:=25:" 4 -- Compressed font."*=10:=25:"WHICH FONT WOULD YOU LIKE" =10:=50:a$a$="1"1350a$="2"1350(a$="3"13502a$="4"1350 <12805F=16:=25:"Do you want UNDERLINING (Y or N)"P=16:=48:b$Zb$="y"b$="Y"s setting." =25:" ".=25:"Hit any non-blank key to continue-"=23:=58:k$ k$="Y" 1010&=11:=25:" 1 -- Normal font.",=12:=25:" 2 -- Double-Width font."==13:=25:" 3 -- Small font. (won't use underlining)"*=1t by software"j=25:"commands." t=25:""<~=25:"I use this program to set the Epson to the print"9=25:"setting I want. Subsequent printings of disk";=25:"catalogs, program listings, or VisiCalc spread-",=25:"sheets are done in thie a font is selected along with accompanying"9B=25:"features (underlining, italicizing) then this":L=25:"program lists the features selected along with"8V=25:"a small paragraph. The Epson will remain in"6`=25:"this setting until it is rese 1000 k$=" " 1010 FOR i=1 TO 24:PRINT" ":NEXT i 1020 VPOS=06:HPOS=13:PRINT"E P S O N F O N T S E L E C T P R O G R A M " 1030 IF k$=" " GOTO 1050 1040 GOTO 1240 1050 VPOS=08:HPOS=25:PRINT"This is a utility program to select font in use." 1700 IF a$="3" THEN PRINT"Small font in use." 1710 IF a$="4" THEN PRINT"Compressed font in use." 1720 IF b$="Y" THEN PRINT" Font will be underlined." 1730 IF c$="Y" THEN PRINT" Font will be italicized." 1740 PRINT:PRINT IF a$="2" THEN GOSUB 1810 1640 IF a$="3" THEN GOSUB 1840 1650 IF a$="4" THEN GOSUB 1880 1660 IF b$="Y" THEN GOSUB 1920 1670 IF c$="Y" THEN GOSUB 1990 1680 IF a$="1" THEN PRINT"Normal font in use." 1690 IF a$="2" THEN PRINT"Double-Width the program ends you'll type in the following --" 1580 HPOS=20:PRINT"OPEN#1,"CHR$(22)".PRINTER"CHR$(22)",OUTPUT#1" 1590 OPEN#1,".printer":OUTPUT#1 1600 REM Reset the software codes 1610 PRINT CHR$(27)"@" 1620 IF a$="1" THEN GOSUB 1790 1630 OS=20:HPOS=20:PRINT"Now the program will conclude by sending a small" 1550 HPOS=20:PRINT"paragraph to the Epson to be printed. Note that if you" 1560 HPOS=20:PRINT"now want to list this program out or list out a catalog, 1570 HPOS=20:PRINT"when $="n" THEN c$="N" 1470 IF c$="N" GOTO 1490 1480 GOTO 1420 1490 VPOS=20:HPOS=25:PRINT"Are these choices good (Y or N)" 1500 VPOS=20:HPOS=47:INPUT d$ 1510 IF d$="y" THEN d$="Y" 1520 IF d$="Y" THEN GOTO 1540 1530 GOTO 1240 1540 VP420 1390 IF b$="n" THEN b$="N" 1400 IF b$="N" THEN GOTO 1420 1410 GOTO 1350 1420 VPOS=18:HPOS=25:PRINT"Do you want ITALICIZING (Y or N)" 1430 VPOS=18:HPOS=48:INPUT c$ 1440 IF c$="y" THEN c$="Y" 1450 IF c$="Y" GOTO 1490 1460 IF c IF a$="2" GOTO 1350 1320 IF a$="3" GOTO 1350 1330 IF a$="4" GOTO 1350 1340 GOTO 1280 1350 VPOS=16:HPOS=25:PRINT"Do you want UNDERLINING (Y or N)" 1360 VPOS=16:HPOS=48:INPUT b$ 1370 IF b$="y" THEN b$="Y" 1380 IF b$="Y" THEN GOTO 11260 VPOS=13:HPOS=25:PRINT" 3 -- Small font. (won't use underlining)" 1270 VPOS=14:HPOS=25:PRINT" 4 -- Compressed font." 1280 VPOS=10:HPOS=25:PRINT"WHICH FONT WOULD YOU LIKE" 1290 VPOS=10:HPOS=50:INPUT a$ 1300 IF a$="1" GOTO 1350 1310 HPOS=25:PRINT" " 1200 HPOS=25:PRINT"Hit any non-blank key to continue-" 1210 VPOS=23:HPOS=58:INPUT k$ 1220 k$="Y" 1230 GOTO 1010 1240 VPOS=11:HPOS=25:PRINT" 1 -- Normal font." 1250 VPOS=12:HPOS=25:PRINT" 2 -- Double-Width font." INT"I use this program to set the Epson to the print" 1160 HPOS=25:PRINT"setting I want. Subsequent printings of disk" 1170 HPOS=25:PRINT"catalogs, program listings, or VisiCalc spread-" 1180 HPOS=25:PRINT"sheets are done in this setting." 1190 rogram lists the features selected along with" 1110 HPOS=25:PRINT"a small paragraph. The Epson will remain in" 1120 HPOS=25:PRINT"this setting until it is reset by software" 1130 HPOS=25:PRINT"commands." 1140 HPOS=25:PRINT"" 1150 HPOS=25:PRa font" 1060 HPOS=25:PRINT"for the Epson MX-100 printer to use." 1070 HPOS=25:PRINT" " 1080 HPOS=25:PRINT"Once a font is selected along with accompanying" 1090 HPOS=25:PRINT"features (underlining, italicizing) then this" 1100 HPOS=25:PRINT"p1750 PRINT" Four score and seven years ago out fathers brought forth" 1760 PRINT"on this continent, a new nation, conceived in Liberty, and" 1770 PRINT"dedicated to the proposition that all men are created equal." 1780 GOTO 2020 1790 REM Set NORMAL font on 1800 RETURN 1810 REM Set DOUBLE-WIDTH font on 1820 PRINT CHR$(27)"W"CHR$(1) 1830 RETURN 1840 REM Set SMALL font on 1850 PRINT CHR$(15)" ";CHR$(14)" ";CHR$(20);CHR$(27);CHR$(83);CHR$(0) 1860 PRINT CHR$(27)"A"CHR$(6):RE ***** GRAPHICS SECTION *****7 THE FIRST GRAPHIC SYMBOLIZES A NUCLEAR CONFLICT.> THE SCREEN IS CLEARED TO NORMAL AT THE GAME'S BEGINING. œ6920,6@J-" _____"-" FAIRS BYD ASSIGNING YOU THE ROLE OF THE PRESIDENT OF THE UNITED STATES.B YOUR GOAL IS TO ACT IN WHATEVER MANNER NECESSARY TO SUSTAINC WORLD WIDE HARMONY IN THE NEAR FUTURE AS YOU MATCH WITS WITH$ COMPUTER-GUIDED SOVIET UNION.& D#1,".PRINTER"#1 80006d *********************************6n ** INTERNATIONAL CONFLICT GAME **6x *********************************> THIS GAME PLACES YOU IN CHARGE OF WORLD WIDE AF backup. Each additional copy is only $ 5.00. Order extra copies to pass around and save the hassel of formating, copying and labeling the diskettes.rmal font. 2 -- Double-Width font. 3 -- Small font. (won't use underlining) 4 -- Compressed font. This program is on Original Apple ///rs Business BASIC diskette OA3.BASIC.001. You can order it from us $ 12.50, for an additional $ 7.50 we will send you a small paragraph. The Epson will remain in this setting until it is reset by software commands. Subsequent printings of disk catalogs, program listings, or VisiCalc spread- sheets are done in this setting. The program menu offers the following: 1 -- NoThis utility program, donated by Jim Linhart, enables you to select a font for the Epson MX-100 printer to use. Once a font is selected along with accompanying features (underlining, italicizing) then this program lists the features selected along with a);CHR$(52) 2010 RETURN 2020 END 2030 REM This program was written December 12, 1982 by Jim Linhart 2040 REM of Berkeley, California and is donated to the Original 2050 REM Apple ///'ers Users Group. It is in the public domain. M Ignore UNDERLINING if SMALL font was selected. 1940 IF a$="3" THEN b$="N" 1950 IF a$="3" THEN GOTO 1980 1960 PRINT CHR$(20);CHR$(27);CHR$(52) 1970 PRINT CHR$(27);CHR$(45);CHR$(1) 1980 RETURN 1990 REM Set ITALICS on 2000 PRINT CHR$(27M Set horizontal spacing at 6/72" per line. 1870 RETURN 1880 REM Set COMPRESSED font on 1890 PRINT CHR$(15);" " 1900 PRINT CHR$(27)"A"CHR$(9):REM Set horizontal spacing at 9/72" per line. 1910 RETURN 1920 REM Set UNDERLINING on 1930 RE / /"-" / ___ |"-" ______________________/ (___>|"@" /----' ____________ |_ X X X X"A" ( (____________> _| X X X X X"@" \____________________________/ X X X X "WAIT=1300 WAIT%" \ / "#" (****)"SPACE=18WAIT=140 WAIT SPACE$" (***)"SPACE=17"YOU ARE GIVEN 20 POINTS TO ALLOCATE ON FOUR VARIABLES."WAIT=12000 WAIT:"THE POINTS YOU ENTER FOR EACH VARIABLE ARE MODIFIED":"SLIGHTLY BY THE COMPUTER (LUCK.) LASER TECHNOLOGY,"4 "A NEW SCIENCE, IS HIGHLY SUSCEPTIBLE TO LUCK."AME ****;"IN THIS GAME WHICH SIMULATES FUTURE WORLD CONDITIONS"5"YOU ASSUME THE ROLE OF THE UNITED STATES WHILE"/"THE COMPUTER ASSUMES THE ROLE OF RUSSIA."WAIT=12000 WAIT8"EACH OF YOU DETERMINES A STRATEGY FOR THE FUTURE."=GAME **"1e" *********************************"jWAIT=1500 oWAITt y"DO YOU NEED INSTRUCTIONS?"!~"ENTER 1 IF YES, ZERO IF NO" INSTR%INSTR%=01360INSTR%=11235 11501 **** INSTRUCTIONS & BEGINING OF GXX XX XX XX XXXXX XXXXXXXXX XXXXXXX XX X XXX X"$8DESTROY%=16020BYEAR>=19853730GL2Q OPERATOR IS ASKED IF HE NEEDS INSTRUCTIONS.V1[" *********************************"1`" ** INTERNATIONAL CONFLICT XXXXX X X X X X X X XX"A" XXXXXX XXXXXXXX XX XX XXXXX X X"A"XXX XXXX XXXXXXXXXXX XX XXXX X XX XXXXX XXXX"A"XXXXXX XXXXXX XXXXXXXXXXXXXX XXXXX XXXXXXX XXXXX X X"?" X XX X XX XXX"+" XX XX X")" XXX XX X"'" XXX XX"&" X XXX";" X X XX X XX X"> " XX XX X"6" XXXX XXX XXXX XX"4" X XX XXX XX XXX X"2" XX X XXXX"/" XXX XXX XX XXX X"." " X X X X X"<" XXX X X";" XXX XXXX XX XX":" XXX XXXXX X X X"9" XXXX XXXX XXXXX"9" X XXX XXXX X X X X":" X XXX XXX XX XXX";" XX X X X XX XX"<" X XXX XX X X X";LASHkWAIT=1100 pWAIT! GRAPHIC OF EXPLODING BOMB.+" XXXXX X X X"1" X XXXX XX XX XX XX XXX"6" X X XX X X XX X"8" XX XXX XXXX ****"&" ****"%" **" WAIT=11000 %WAIT*%/ GRAPHIC OF FLASHING EXPLOSION.49FLASH=13>WAIT=125 CWAITHMRWAIT=125 WWAIT\a fF GRAPHIC OF MISSILE ON WAY DOWN.=10&" * *"'" ******"&" ****"&" ****"&" ****"&" " ****"l" ****"q" ****"v" ****"{" ****"" ******"" * *"SPACE=110WAIT=1100 WAIT" X X" SPACESPACE=125WAIT=150 WAIT SPACEDESTROY%=14920&WAIT=130 WAIT SPACE%" (**)" SPACE=16WAIT=120 WAIT !SPACE&WAIT=1250 +WAIT0875:!? GRAPHIC OF MISSILE LAUNCH.DNWAIT=12000 SWAITX]b" **"gWAIT=13000 WAIT*" *** YOUR FOUR VARIABLES ARE: ***"="------------------------------------------------------"5("LASER TECHNOLOGY- FOR FIRST STRIKE NUCLEAR WAR"2-"MX & CRUISE MISSLES- IN CASE OF NUCLEAR WAR"52"CONVENTIONAL WEAPONS- FOR CONVENTIONAL BATTLES"77"PEACE TALKS- MAY LEAD TO TREATIES OR DISARMAMENT"=<"------------------------------------------------------"AWAIT=12500 FWAIT@K"THE GAME IS PLAYED UNTIL THE YEAR 2100 OR A MAJOR CRISIS."&P"ENTER YOUR NAME MR.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=52790 2810! "ISRAEL INVADES ARAB NATION" IMPORT%=1.2 3340 CRISIS%=62830  2850 "CRISIS IN AFRICA"  IMPORT%=1  3340" CRISIS%=72870 , 28906 "CRISIS IN SOUTH AMERPORT%=1 n 3340x CRISIS%=32700 2730% "RUSSIAN GAS PIPELINE SABOTAGED" IMPORT%=1 PCETOT%=PCETOT%-2' PEACE PROCESS WILL BE TOUGH. 3340 CRISIS%=42750 27702 "MIDDLE EAST WAR ESCALATES IN BATTLE FOR OIL" IMPORT%=1S OCCURRED.   PCETOT%=USPCE%+RUSPCE%( CRISIS%<22620 2 2640$< "RUSSIA INVADES WESTERN EUROPE"= IMPORT%=1.5A BYPASSES PEACE PROCESS. F 3620P CRISIS%=22660 Z 26807d "EASTERN EUROPEAN COUNTRY REBELS AGAINST U.S.S.R." e IMEAVILY, THAN ARE MINOR2t PROBLEMS, AND MAY BYPASS THE PEACE PROCESS.y ~ "YEAR IS "YEAR CRISIS%=1)*110) CRISIS%<142570 WAIT=1250 WAIT "NO PROBLEMS IN YEAR "YEAR PTS%=PTS%+FACTOR% 1385 $ A CONFRONTATION HAR<20102430 FACTOR%=4YEAR<20352430  FACTOR%=3 YEAR<20602430  FACTOR%=2$ YEAR<20852430 . FACTOR%=1` "e ***** CONFRONTATIONS *****6j THE CHANCE FOR A CRISIS IS RANDOMLY DETERMINED.=o MAJOR PROBLEMS ARE SCORED MORE H,\"WEAPONS "USCONV%" "RUSCON%+f"PEACE "USPCE%" "RUSPCE%&p" ------------------------------"zWAIT=11000 WAIT 2430= SECTION ALLOCATES FACTOR POINTS IN NON STRATEGY YEARS. FACTOR%=5YEA#" *** POLICY COMPARISSON ***" !*" AMERICAN RUSSIAN" 4" PLAN PLAN"&>" ------------------------------"+H"LASERS "USLAS%" "RUSLAS%*R"MISSILES "USMX%" "RUSNUC%WWAIT=11000 XWAITPUTER IN A RANDOM7 PROCESS DESIGNED TO GIVE THE U.S. A SLIGHT EDGE.RUSLAS%=1)*7)RUSNUC%=1)*11)RUSCON%=1)*12)RUSPCE%=1)*7)WAIT=1500 WAIT6 A TABLE COMPARING BOTH STRATEGIES IS PRESENTED.  :USLAS%D"MX & CRUISE MISSILES" NUSMX%X"CONVENTIONAL WEAPONS" bUSCONV%l"PEACE TALKS" vUSPCE%)USLAS%+USMX%+USCONV%+USPCE%=201970&"ERROR ON INPUT, TRY AGAIN DUMMY" 1830A RUSSIAN STRATEGY IS DETERMINED BY THE COMLAN." CHOICE%CHOICE%=01970CHOICE%=11820 1720%  ***** STRATEGY SECTIONS *****9 AMERICAN STRATEGY IS ENTERED THROUGH THE TERMINAL.!"YEAR IS "YEAR&&"ENTER POINTS ALLOCATED TOWARDS:"0"LASER TECHNOLOGY"MEDIATE SCORE,4^ ASKING IF OLD STRATEGIES NEED REVISION. crINTER%=(PTS%+70)*.4)|$"INTERMEDIATE SCORE IS: "INTER%WAIT=1500 WAIT+"DO YOU WISH TO CHANGE YOUR STRATEGY?"2"ENTER 1 TO CHANGE OR ZERO TO KEEP OLD PTER YEARS.YEAR>21005520 FACTOR%=5YEAR=19851820 FACTOR%=4YEAR=20101650 FACTOR%=3YEAR=20351650 "FACTOR%=2,YEAR=20601650 6FACTOR%=1@YEAR=20851650 J2270T8Y SECTION DETERMINES AND PRINTS INTEROBSELETE EVERY@ 25 YEARS. THESE YEARS MAY BE SKIPPED OCCASIONALLY DURING< EXECUTION, IN THIS CASE STRATEGIES DO NOT CHANGE FROM PREVIOUSLY SET STRATEGY.? POINT FACTORS ARE ASSINGED TO WEIGH RECENT YEARS AS MORE" IMPORTANT THAN LA. PRESIDENT!!" UNAME$ ZYEAR=1985 _15002d PROGRAM RETURNS TO LINE 1385 EVERY 5 YEARS.iYEAR=YEAR+5nsxWAIT=1750 }WAIT< NEW STRATEGY IS DETERMINED IN YEARS 1985, 2010, 2035,; 2060, AND 2085; AS TECHNOLOGY BECOMES ICA" 7 IMPORT%=1 @ 3340J CRISIS%=82910 T 2930-^ "U.S. FEUDS WITH LATIN AMERICAN COUNTRY" _ IMPORT%=1 h 3340r CRISIS%=92950 | 2970' "RUSSIAN TROOPS TAKE ALASKAN LAND" IMPORT%=1.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=102990 3010( "RUSSIA-CHINA BORDER CONFRONTATION" IMPORT%=1.2# PEACE PROCESS WILL BE TOUGH. PCETOT%=PCETOT%-2 3340 CRISIS%=113030 3050 "CRISIS IN SOUTHEAST ASIA" IMPORT%=1 3340 CRISIS%=123070 3100A %0"MILLION PEOPLE DEAD WITH MILLIONS INJURED"! "YOU DIE OF RADIATION "NAME$$PTS%=PTS%-30%*"ENTER THE NEW PRESIDENT'S NAME" 4NAME$>YEAR=YEAR+20@MILIT%=MILIT%-2+C AS THE WORLD TAKES YEARS TO RECOVER. H1385R5W THE WORLD ISRST STRIKE WINNERS, PROGRAM NOW 2 DETERMINES CHANCES FOR LIMITED NUCLEAR WAR.LIMIT%=1)*10)LIMIT%>34710+"THERE HAS BEEN A LIMITED NUCLEAR WAR"+"MUCH OF OUR WORLD HAS BEEN DESTROYED"DEAD%=1)*5000) "THERE ARE "DEAD WAR ***** 2 PROGRAM COMES HERE AFTER PRINTING GRAPHICS,4 FIRST STRIKE CAPABILITIES ARE FIRST MEASURED.PEACE%=PEACE%-3.((USL%*2)+USM%)-((RUSL%*2)+RUSN%)>75120.((RUSL%*2)+RUSN%)-((USL%*2)+USM%)>751706 THERE ARE NO FI=MILIT%+1!PTS%=PTS%+(6*FACTOR%*IMPORT%) 13855"RUSSIAN TROOPS REPEL U.S. FORCES IN BATTLE AND""CONTROL CONFLICT AREA"&"YOU SURRENDER LAST TROOPS "NAME$MILIT%=MILIT%-1!PTS%=PTS%-(2*FACTOR%*IMPORT%) 1385 ***** NUCLEARTOUTCOM%=34080Y WAR CONTINUES AGAIN7^"CONVENTIONAL WAR ESCALATES INTO NUCLEAR EXCHANGE"hr5905"UNITED STATES FORCES DESTROY RUSSIAN TROOPS IN","BATTLE, WE CONTROL CONFLICT AREA!!!!!"$"YOU ARE A NATIONAL HERO "NAME$MILIT%IT=11000 WAITOUTCOM%=1)*5)YEAR=YEAR+5"YEAR IS "YEAR"WAIT=11000 'WAIT6OUTCOM%<14060; WAR ENDS NEXT PERIOD@OUTCOM%=14230!E U.S. WINS CONVENTIONAL WARJOUTCOM%=24270#O RUSSIA WINS CONVENTIONAL WARE%=PEACE%-1WAIT=11000 WAITUSC%-RUSC%>24230RUSC%-USC%>24270USC%=RUSC%40803"CONVENTIONAL WAR ENDS AS BOTH SIDES WITHDRAW"PTS%=PTS%+0 13852"CONVENTIONAL WAR CONTINUES INTO NEXT PERIOD"PTS%=PTS%+0WANOLOGY IS HIGHLY SUSCEPTIBLE TO LUCK.USL%=1)*USLAS%)RUSL%=1)*RUSLAS%)USM%=1)*3)+USMX%RUSN%=1)*3)+RUSNUC% 4510USC%=1)*4)+USCONV%RUSC%=1)*4)+RUSCON%# ***** CONVENTIONAL WAR *****PEACOME OF TIME.)$WAR%=1)*10).WAR%>237808590t934304 NOWAR%>43410 > 3620#H SOME PEACE IS REACHED BELOW.133480* NOWAR"A MADMAN IS EXTORTING THE SUPERPOWERS WITH NUCLEAR WEAPONS" IMPORT%=1$ GOES DIRECTLY TO NUCLEAR WAR. 590. "ASSASSIN KILLS AMERICAN PRESIDENT "NAME$'& "DETAILED PLOT UNCOVERED TOO LATE"0 WAIT=11500 5 WAIT%: "ENTER THE NEW PRESIDEN DESTROYED BY A NUCLEAR NIGHTMARE.\fWAIT=11000 kWAIT-p"A FRANTIC MESSAGE IS BRODCAST BY "NAME$z"DEAR AMERICANS:";"I DEEPLY REGRET TO INFORM YOU THAT OUR EARLY WARNING";"SYSTEM HAS DETECTED A MASSIVE ALL-OUT NUCLEAR ATTACK":"FROM THE SOVIET UNION DUE TO OUR LATEST CONFLICT..."WAIT=12000 WAIT4"UNFORTUNATELY WE HAD NO ALTERNATIVE EXEPT TO "4"RETALIATE IN THE FULLEST, EVEN THOUGH IT WILL"6"PROBABLY DESTROY OUR PLANET. I AM DEEPLY SORRY."WAIT=115JPEACE%>-36750 T6770^" AVERAGE PRESIDENT" h7020rPEACE%>-46790 |6820" FEILD MARSHALL"!"THEY DON'T LIKE MUCH PEACE" 7020PEACE%>-66840 6870" WARMONGER"/"TRY TO SHOW SOME MORE HUMACONFERENCE OF THE" "WORLD'S LEADERS!!!!!!!!!!","CONGRATULATIONS WORLD PRESIDENT "NAME$ 7020PEACE%>26670 66905" NOBEL PRIZE WINNER, CONGRATULATIONS "NAME$ 7020"PEACE%>-16710 ,67306" DIPLOMAT" @7020AT OF A"WAIT=1500 WAITPEACE%>46570 6650" WORLD LEADER"WAIT=11000 WAIT5"BECAUSE OF YOUR EXCELLENT PEACE MAKING RESULTS"5"ACHIEVED DURING THE GAME YOU HAVE BEEN ELECTED"4"PRESIDENT OF THE WORLD BY A 6470(" CORPORAL"&2"YOUR STRATEGY NEEDS IMPROVEMENT" <6500F" PRIVATE"-P"YOU'RE WASTING EXPENSIVE COMPUTER TIME"U$Z PEACE MAKING RESULTS SECTION._dWAIT=1500 iWAITn(x"YOUR PEACE RESULTS WERE THLANNING "NAME$ 6500MILIT%>16310 6340" COLONEL""GOOD PLANNING "NAME$ 6500MILIT%>06360 6380" CAPITAN" 6500MILIT%>-26400 6420" SERGEANT" 6500MILIT%>-46440 RULER"$WAIT=11000 )WAIT88"BECAUSE OF YOUR AMAZING CONQUESTS DURING THE GAME"8B"YOU HAVE NOW TAKEN CONTROL OF THE PLANET!!!!!!!!!"L"HAIL TO LORD "NAME$ V7020`MILIT%>36260 j6290t" GENERAL"~"EXCELLENT PO PROBLEM YEARS.)9 A DESCRIPTION OF MILITARY AND PEACE MAKING RESULTS/ IS NOW GIVEN. MILITARY RESULTS SECTION.WAIT=1500 WAIT("YOUR MILITARY SKILL WAS THAT OF A"WAIT=1500 WAITMILIT%>56170 6240" SCORE%=(PTS%+70)*.4)WAIT=11000 WAIT%"YOUR SCORE IS: "SCORE%" "NAME$" ^^^^^^"6 THE FINAL SCORE IS THE TOTAL ACCUMULATED POINTS7 THROUGHOUT THE GAME. EVERY CONSEQUENCE HAS BEEN& SCORED (EVEN NAS MADE IT SAFELY TO THE YEAR 2100. 5"THE WORLD IS SAFELY INTO THE 23RD CENTURY!!!!!","CONGRATULATIONS ON YOUR EFFORTS "NAME$PEACE%=PEACE%+1PTS%=PTS%+20p#u ***** GAME IS FINISHED *****'z SCORE IS COMPUTED AND DESCRIBED.FER FOR; DEMOCRACY, ALSO OFFSETS 3 POINT LOSS IN NUCLEAR WAR. (6020*2"SOVIET SNEAK ATTACK NUCLEAR VICTORY"(<"THEY NOW CONTROL THE WHOLE PLANET"F"YOU ARE EXECUTED "NAME$HMILIT%=MILIT%-4JPTS%=PTS%-40 P6020|8 THE OPERATOR HEAR WAR.."RUSSIAN MISSLES BLOWN UP IN THEIR SILOS"7 "UNITED STATES WINS FIRST STRIKE NUCLEAR WAR!!!!!""FANTASTIC PLANNING "NAME$MILIT%=MILIT%+4PEACE%=PEACE%+2PTS%=PTS%+(30*FACTOR%)6 POINTS ARE ADDED TO PEACE AS WORLD IS SA NOT EXTINCT!!!"xPTS%=PTS%+10~WAIT=12000 WAIT* WILL THE PRESIDENT BE ON THAT SHIP?ENDURE%<86020""YOU WERE ON THAT SHIP "NAME$MILIT%=MILIT%+1PTS%=PTS%+10 60203 ONE SIDE HAS WON A FIRST STRIKE NUCL HUMAN RACE HAS ENDURED..8WAIT=1500 =WAITB=1LSURVIV%=1)*1000)2V"A ROCKET SHIP HAS SOMEHOW MANAGED TO ESCAPE"/`"FROM THE EARTH'S ATMOSPHERE WITH "SURVIV%3j"PEOPLE ONBOARD, BARELY BEFORE THE HAULOCAUST"'t"THE HUMAN RACE IS00 WAIT"MAY GOD HELP US ALL..."WAIT=15000 WAITDESTROY%=1MILIT%=MILIT%-3PTS%=PTS%-50; DETERMINING CHANCE FOR ROCKET TO LEAVE EARTH SAFELY.ENDURE%=1)*10)ENDURE%>6600825$*) SOME OF THENITY NEXT TIME" 7020" A FRIEND OF HITLER'S"" YOU *%&^#@* #&!%*$*" 7020( ROUTINE TO HANDLE UNUSUAL ERRORS.9"UNUSUAL ERROR HAS OCCURED, PLEASE CONTINUE PLAYING"!"AS IT DOES NOT EFFECT GAME"X%] ***** FINAL INSTRUCTIONS *****blWAIT=1250 qWAITv""***************************""GAME IS OVER "NAME$""TO PLAY AGAIN TYPE IN 'RUN'"""***************************"?#1@ XXXXX X X X"1" X XXXX XX XX XX XX XXX"6" X X XX X X XX X"8" XX XXX XXXX XXXXX"9" X XXX XXXX X X X X":" X SPACE WAIT=11000 %WAIT*%/ GRAPHIC OF FLASHING EXPLOSION.49FLASH=13>WAIT=125 CWAITHMRWAIT=125 WWAIT\a fFLASHkWAIT=1100 pWAIT! GRAPHIC OF EXPLODING BOMB.+" ****"%" **"=11SPACE=110WAIT=125 WAIT =-20 LINE 785 WILL NOT EXECUTE ON THE PRINTER,/ DELETE LINES 765 TO 795 IF PRINTING OUT.'" X X" =10&" * *"'" ******"&" ****"&" ****"&" ****"&" ****"&" ****"v" ****"{" ****"" ******"" * *"SPACE=110WAIT=1100 WAIT" X X" SPACESPACE=125WAIT=150 WAIT SPACEDESTROY%=14920& GRAPHIC OF MISSILE ON WAY DOWN.CE%" (**)" SPACE=16WAIT=120 WAIT !SPACE&WAIT=1250 +WAIT0875:!? GRAPHIC OF MISSILE LAUNCH.DNWAIT=12000 SWAITX]b" **"g" ****"l" ****"q" X X "WAIT=1300 WAIT%" \ / "#" (****)"SPACE=18WAIT=140 WAIT SPACE$" (***)"SPACE=17WAIT=130 WAIT SPA / ___ |"-" ______________________/ (___>|"@" /----' ____________ |_ X X X X"A" ( (____________> _| X X X X X"@" \____________________________/ X X THE FIRST GRAPHIC SYMBOLIZES A NUCLEAR CONFLICT.> THE SCREEN IS CLEARED TO NORMAL AT THE GAME'S BEGINING. œ6920,6@J-" _____"-" / /"-"  OLE OF THE PRESIDENT OF THE UNITED STATES.B YOUR GOAL IS TO ACT IN WHATEVER MANNER NECESSARY TO SUSTAINC WORLD WIDE HARMONY IN THE NEAR FUTURE AS YOU MATCH WITS WITH$ COMPUTER-GUIDED SOVIET UNION.& ***** GRAPHICS SECTION *****7E6d *********************************6n ** INTERNATIONAL CONFLICT GAME **6x *********************************> THIS GAME PLACES YOU IN CHARGE OF WORLD WIDE AFFAIRS BYD ASSIGNING YOU THE R XXX XXX XX XXX";" XX X X X XX XX"<" X XXX XX X X X";" X X X X X"<" XXX X X";" XXX XXXX XX XX":" XXX XXXXX X X X"9" XXXX XXXX XX X"6" XXXX XXX XXXX XX"4TEGY SECTIONS *****9 AMERICAN STRATEGY IS ENTERED THROUGH THE TERMINAL.!"YEAR IS "YEAR&&"ENTER POINTS ALLOCATED TOWARDS:"0"LASER TECHNOLOGY" :USLAS%D"MX & CRUISE MISSILES" NUSMX%X"CONVENTIONAL WEAPONS" bUSCONV%l+70)*.4)|$"INTERMEDIATE SCORE IS: "INTER%WAIT=1500 WAIT+"DO YOU WISH TO CHANGE YOUR STRATEGY?"2"ENTER 1 TO CHANGE OR ZERO TO KEEP OLD PLAN." CHOICE%CHOICE%=01970CHOICE%=11820 1720%  ***** STRAR=20101650 FACTOR%=3YEAR=20351650 "FACTOR%=2,YEAR=20601650 6FACTOR%=1@YEAR=20851650 J2270T8Y SECTION DETERMINES AND PRINTS INTERMEDIATE SCORE,4^ ASKING IF OLD STRATEGIES NEED REVISION. crINTER%=(PTS%UTION, IN THIS CASE STRATEGIES DO NOT CHANGE FROM PREVIOUSLY SET STRATEGY.? POINT FACTORS ARE ASSINGED TO WEIGH RECENT YEARS AS MORE" IMPORTANT THAN LATER YEARS.YEAR>21005520 FACTOR%=5YEAR=19851820 FACTOR%=4YEA YEARS.iYEAR=YEAR+5nsxWAIT=1750 }WAIT< NEW STRATEGY IS DETERMINED IN YEARS 1985, 2010, 2035,; 2060, AND 2085; AS TECHNOLOGY BECOMES OBSELETE EVERY@ 25 YEARS. THESE YEARS MAY BE SKIPPED OCCASIONALLY DURING< EXEC----------------------------------------------------"AWAIT=12500 FWAIT@K"THE GAME IS PLAYED UNTIL THE YEAR 2100 OR A MAJOR CRISIS."&P"ENTER YOUR NAME MR. PRESIDENT!!" UNAME$ ZYEAR=1985 _15002d PROGRAM RETURNS TO LINE 1385 EVERY 5------------------------------------"5("LASER TECHNOLOGY- FOR FIRST STRIKE NUCLEAR WAR"2-"MX & CRUISE MISSLES- IN CASE OF NUCLEAR WAR"52"CONVENTIONAL WEAPONS- FOR CONVENTIONAL BATTLES"77"PEACE TALKS- MAY LEAD TO TREATIES OR DISARMAMENT"=<"--"THE POINTS YOU ENTER FOR EACH VARIABLE ARE MODIFIED":"SLIGHTLY BY THE COMPUTER (LUCK.) LASER TECHNOLOGY,"4 "A NEW SCIENCE, IS HIGHLY SUSCEPTIBLE TO LUCK."WAIT=13000 WAIT*" *** YOUR FOUR VARIABLES ARE: ***"="------------------THE ROLE OF THE UNITED STATES WHILE"/"THE COMPUTER ASSUMES THE ROLE OF RUSSIA."WAIT=12000 WAIT8"EACH OF YOU DETERMINES A STRATEGY FOR THE FUTURE."="YOU ARE GIVEN 20 POINTS TO ALLOCATE ON FOUR VARIABLES."WAIT=12000 WAIT:y"DO YOU NEED INSTRUCTIONS?"!~"ENTER 1 IF YES, ZERO IF NO" INSTR%INSTR%=01360INSTR%=11235 11501 **** INSTRUCTIONS & BEGINING OF GAME ****;"IN THIS GAME WHICH SIMULATES FUTURE WORLD CONDITIONS"5"YOU ASSUME >=19853730GL2Q OPERATOR IS ASKED IF HE NEEDS INSTRUCTIONS.V1[" *********************************"1`" ** INTERNATIONAL CONFLICT GAME **"1e" *********************************"jWAIT=1500 oWAITt XXXXX X X"A"XXX XXXX XXXXXXXXXXX XX XXXX X XX XXXXX XXXX"A"XXXXXX XXXXXX XXXXXXXXXXXXXX XXXXX XXXXXXX XXXXX X X"?" XXX XX XX XX XXXXX XXXXXXXXX XXXXXXX XX X XXX X"$8DESTROY%=16020BYEAR XXX XX X"'" XXX XX"&" X XXX";" X X XX X XX X"> " XX XXXXX X X X X X X X XX"A" XXXXXX XXXXXXXX XX XX" X XX XXX XX XXX X"2" XX X XXXX"/" XXX XXX XX XXX X"." XX X XX XXX"+" XX XX X")" "PEACE TALKS" vUSPCE%)USLAS%+USMX%+USCONV%+USPCE%=201970&"ERROR ON INPUT, TRY AGAIN DUMMY" 1830A RUSSIAN STRATEGY IS DETERMINED BY THE COMPUTER IN A RANDOM7 PROCESS DESIGNED TO GIVE THE U.S. A SLIGHT EDGE.RUSLAS%=1)*7)RUSNUC%=1)*11)RUSCON%=1)*12)RUSPCE%=1)*7)WAIT=1500 WAIT6 A TABLE COMPARING BOTH STRATEGIES IS PRESENTED. #" *** POLICY COMPARISSON ***" !*" AMERICAN RUSSIAN" 4" PEACE PRIZE IS GIVEN TO PRESIDENT "NAME$ PEACE%=PEACE%+4 PTS%=PTS%+(32*FACTOR%) 6020; DETERMINING WHETHER CRISIS LEADS TO CONVENTIONAL WAR4 (MOST OF TIME) OR NUCLEAR WAR (SOME OF TIME.)$WAR%=1)*10).WAR%>237808WIDE HERO "NAME$} PEACE%=PEACE%+2"~ PTS%=PTS%+(10*FACTOR%*IMPORT%) YEAR=YEAR+10 13855 "BECAUSE OF TREMENDOUS PEACE MAKING EFFORTS ALL"5 "COUNTRIES HAVE AGREED TO THE TOTAL DISARMAMENT"' "OF ALL NUCLEAR WEAPONS!!!!!!!!!!"9 "THE NOBEL EACHED BELOW.133480* NOWAR%>934304 NOWAR%>43410 > 3620#H SOME PEACE IS R" IMPORT%=1$ GOES DIRECTLY TO NUCLEAR WAR. 590. "ASSASSIN KILLS AMERICAN PRESIDENT "NAME$'& "DETAILED PLOT UNCOVERED TOO LATE"0 WAIT=11500 5 WAIT%: "ENTER THE NEW PRESIDENT'S NAME" D NAME$H PTS%=PTS%-10#I THIS WILL NOT LEA IMPORT%=1.2# PEACE PROCESS WILL BE TOUGH. PCETOT%=PCETOT%-2 3340 CRISIS%=113030 3050 "CRISIS IN SOUTHEAST ASIA" IMPORT%=1 3340 CRISIS%=123070 3100A "A MADMAN IS EXTORTING THE SUPERPOWERS WITH NUCLEAR WEAPONS"U.S. FEUDS WITH LATIN AMERICAN COUNTRY" _ IMPORT%=1 h 3340r CRISIS%=92950 | 2970' "RUSSIAN TROOPS TAKE ALASKAN LAND" IMPORT%=1.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=102990 3010( "RUSSIA-CHINA BORDER CONFRONTATION"90 2810! "ISRAEL INVADES ARAB NATION" IMPORT%=1.2 3340 CRISIS%=62830  2850 "CRISIS IN AFRICA"  IMPORT%=1  3340" CRISIS%=72870 , 28906 "CRISIS IN SOUTH AMERICA" 7 IMPORT%=1 @ 3340J CRISIS%=82910 T 2930-^ GAS PIPELINE SABOTAGED" IMPORT%=1 PCETOT%=PCETOT%-2' PEACE PROCESS WILL BE TOUGH. 3340 CRISIS%=42750 27702 "MIDDLE EAST WAR ESCALATES IN BATTLE FOR OIL" IMPORT%=1.5 BYPASSES PEACE PROCESS. 3620 CRISIS%=527INVADES WESTERN EUROPE"= IMPORT%=1.5" ------------------------------"+H"LASERS "USLAS%" "RUSLAS%*R"MISSILES "USMX%" "RUSNUC%WWAIT=11000 XWAIT,\"WEAPONS "USCONV%" "RUSCON%+f"PEACE "U