%  : 5: 6,8&9 (14);(11);# (15);"UBMARINE ATTLE ROGRAM FOR THE OMMODORE 128 ERSONAL OMPUTER IN 80 OLUMNS"( X1 80:"";:- 1,0,24,"RESS THE [ PACE AR ] TO CONTINUE.",12 A$: A$(32)  "AGAGA": 50n7 1,0,0,"UBMARINE ATTLE ROGRAM FOR THE OMMODORE 128 ERSONAL OMPUTER IN 80 OLUMNS":< (27);"T";:A:FY$" "KZ$" "PW$" "U25);Y$.Z X1 10>_ 25);W$:Kd26);Z$\i "";:::|n 28);"LEASE PRESS THE"s 28);"CORROSPENDING LETTER OF"x 28);"YOUR MENU CHOICE:"}: 28);"()NSTRUCTIONS"  28);"()LAY SUBMARINE GAME"2 28);"()AME PROGRAMMING CREDIT"^ 28);"()UIT AND EXIT TO 7.0":: "OUR CHOICE IS: ";(27);"E";(27);"U"; C$ C$"I" C$"" 180 C$"P" C$"" 180 C$"G" C$"" 180 C$"Q" C$"" 180  "AGAGA": 150p C$;:: "ND IS CHOICE ";C$;" YOUR CORRECTLY ENTERED CHOICE ()ES/()O? ";{ CC$ CC$"" CC$"N" CC$;:"";:55 CC$"" CC$"Y" CC$: 205  "AGAGA": 185 (27);"S";(27);"F"! C$"I" C$"" 2402! C$"P" C$"" 335N! C$"Q" C$"" 875j! C$"G" C$"" 745! (27);"F";(27);"S";""!:! INSTRUCTIONS""": 1,0,0,"NSTRUCTIONS FOR PLAYING THE UBMARINE BATTLE AME PROGRAM FOR THE NEW PLAYER":A":(27);"T": ""25)"OW TO LAY THE UBMARINE AME"l" 25)"=============================="": "OU WILL BE RANDOMLY ASSIGNED ONE OF FIVE (5) POSSIBLE SUBMARINES BY" #  "THE .. AVY ORCES GENERAL. HE OBJECT OF THIS GAME IS TO DESTROY TEN"W# "(10) OF THE ENEMY'S SUBMARINES, BEFORE YOU YOURSELF ARE DESTROYED."#: "OUR SUBMARINE HAS TEN (10) TORPEDOES. HEN YOU RUN OUT, YOU HAVE THE"# "OPTION TO GET MORE TORPEDOES OR STOP THE GAME. ACH TIME YOU RESTOCK, ALL"R$ "DAMAGE IS ALSO REPAIRED. OU CAN TAKE THREE (3) HITS FROM THE ENEMY SUBMARINE"$" "BEFORE YOU ARE BLOWN OUT OF THE WATER."$': "HE ENEMY SUBMARINES USE LASER TORPEDOES, SO THEY DON'T HAVE TO WORRY ABOUT RUNNING OUT."x%,: "HE PROGRAM CHECKS YOUR INPUT AND MAKES SURE YOU REALLY WANTED TO DO SOMETHING.": "OU GET THE CHANCE TO QUIT AT MOST INPUT ENTRIES."&1: "VERYTHING IS FULLY EXPLAINED IN ALL THE INPUT REQUESTS, AND YOU ARE PROVIDED": "WITH ALL THE DETAILS OF THE CONSEQUENCES OF YOUR CHOICES."e&6 1,0,22,"LEASE PRESS THE [ PACE AR ] TO RETURN TO THE MENU, OR TO QUIT.",1o&; A$&@ A$(27) 875&E A$(32) "";:55&J"AGAGA": 315&O PLAY GAME&T ""&Y ""E'^ 1,0,0,"CTIVE AME LAY PTION ELECTION ":::(27);"T"R'c25);Y$`'h X1 8p'm 25);W$:}'r26);Z$'w "";:::'| 28);"LEASE ENTER YOUR LAST"' 28);"NAME, AND PRESS THE"' 28);"[ ] KEY."(: 28);"R NOTHING TO QUIT."b( "HAT IS YOUR LAST NAME, PLEASE?";(27);"S";(27);"E";: N$t( N$"" 875( "ND IS APTAIN ";N$;" YOUR CORRECT NAME, SIR (/)";( ZZ$: ZZ$"N" ZZ$"" 335( ZZ$"Y" ZZ$"" 430 ) "AGAGA": 415) ASSIGN SUBX) "ELCOME, APTAIN ";N$;", TO THE SUBMARINE NAMED ";j)X((1)5)1) X1 S$"... EAFOX": 470) X2 S$"... EAWOLF": 470) X3 S$"... WORDFISH": 470* X4 S$"... IGER HARK": 470** X5 S$"... ASHINGTON"7* S$;"!"y* 1,0,22,"RESS [ PACE AR ] TO CONTINUE, OR TO QUIT.",1* ZZ$* ZZ$" "495* ZZ$(27) 875* "";: 6,7*TP10:US3*"": "";+ "NSIDE THE ";S$: X1 80: "";:: (27);"T"$+(27);"F"q+(142);: " î"+  " î "+ " SUBMARINE COMMAND BATTLE PROGRESS REPORT "=, " ó ", " ",! " " -& " "M-+ " "-0 " ó "-5 " ".: " "].? " ý ".D " ý.IYY$""/N YY$;(14);"ITS TAKEN:";3US;" ITS WE CAN TAKE:";US"6/S "UMBER OF TORPEDOES LEFT:";TPr/X"NEMY COMPUTER SUBMARINES DESTROYED:";CS/] "UBMARINES LEFT TO DESTROY:";10CS/b "EAD BATTLE INFORMATION BELOW, AND MAKE"0g "YOUR COMMAND DECISIONS."&0l TP0 1005K0q(142);::: L1 80: "";:v0v "FIRING TORPEDO COMMAND ORDER BOX":0{ (27);"T"0ES((1)15)10 (14);"APTAIN, HERE IS THE CURRENT INFORMATION ON THE ENEMY SUBMARINE'S PLACEMENT-"J1 "HE ENEMY SUBMARINE WAS DETECTED AT";ES;"LEAGUES, BUT IS MOVING. T MAY BE"1 "HARD TO HIT. NTER A NUMBER FROM 1 TO 15, 0 () TO STOP, OR (16) TO"1 " THIS MOVE. Y RECOMMENDATIONS ARE TO INPUT A NUMBER FROM";ES1;"TO";2 ES15 " 16": 685,2 ES14 " 16": 685H2 ES13 " 16": 685X2 ES3;"-";h2 "-";: SPz2 SP16 6402 SP0 6,8: 8752 SP1 SP16 6452TPTP12ESES((1)3)12 SPES CSCS1: 740U3 6,3: "E MISSED, SIR! HEY ARE NOW FIRING THEIR LASER TORPEDOES AND ATTACKING- ";: ((1)5)1y3OS((1)15)1:TT((1)15)13 OSTT 1125: HIT US3 OSTT 1145: MISSED US 4 "GGG": " !!": "RESS :";: YY$: CS10 1090: 5054 CREDITS%4 ""04 ""4 1,0,0,"UBMARINE ATTLE AME ROGRAMMING CREDITS AND INFORMATION ":::(27);"T"425);Y$4 X1 174 25);W$:4 26);Z$4 "";:::5 28);"RITTEN BY: OWARD ILLER"35 28);"RIGINAL WRITTEN ON:"Y5 : 28);" ONEYWELL"5% 28);" MINICOMPUTER SYSTEM"5* 28);" ON ULY 9, 1987 BY THE"5/ 28);" ABOVE IN ONEYWELL"54 28);" ASIC 4.0"69: 28);" ONVERTED TO"+6> 28);" OMMODORE 128 ASIC"Q6C 28);" 7.0 BY OWARD ILLER"{6H: 28);"-LINK SCREEN NAME: URU"6M 28);"ENIE MAIL ADDRESS: ."6R 1,0,22,"LEASE PRESS [ PACE AR ] FOR MENU, OR TO QUIT.",16W A$ 7\ A$(27) 875)7a A$(32) "";: 55=7f "AGAGA":855H7k QUITR7p ""]7u ""7z 1,0,0,"UIT THE UBMARINE AME OPTION ":::(27);"T"725);Y$7 X1 87 25);W$:826);Z$8 "";:::68 28);"? RE YOU ?"N8: 28);"RESS:"m8: 28);" FOR YES, OR"8 28);" TO CANCEL."8(27);"S";(27);"F"8A$8 A$"C" A$"" "";:558 A$"Y" A$"" 9658 "AGAGA": 945 9 6,19 "";`9(142);(12);"COMMODORE 128 BASIC 7.0";(0)(1);"BASIC BYTES FREE"9 "SUBMARINE PROGRAM STILL IN MEMORY."9: "THANK YOU FOR PLAYING."9 "YOU DESTROYED";CS;"SUBMARINES, CAPTAIN."9&97: 6,1: "APTAIN, WE HAVE RAN OUT OF TORPEDOES! HAT SHALL WE DO NOW--"_:M$" ":N$"  ":O$"  ":::25);M$:  X1 10:25);N$: X: 25);O$ ; ""27);" RESTOCK AND REPAIR"G;: 27);" QUIT AND EXIT GAME"o;:: 27);"HAT IS YOUR CHOICE,";$ 27);"APTAIN?";) "'D LIKE TO ?";;. T$;3 T$"R" T$"" "RESTOCK AND RESTORE!": 3: 500<8 T$"Q" T$"" "QUIT.": 3: 6,8: 8754<= "AGAGA": 1070Dj "! HEY US!": X1 2: 6,8: "FFF": 2: 6,3: "FFF": 2:U>oUSUS1: US0 "": " .....":: "Ӡ .": XX$: 965>t "ELL, WE GOT";US;"MORE CHANCES WITH OUR SHIP. RESS A KEY, PLEASE.": XX$: 505>y MISSED US>~ "HEW, WE ESCAPED."?: "RESS THE Š TO CONTINUE.")? XX$: XX$" " 1160: 505