10 REM   BATTLESHIP BOOTER/INSTRUCTIONS
20 REM   COPYRIGHT (C) 1987  MIKE COOKE
30 REM   PUBLISHED BY UPTIME!
41 POKE52,56:POKE56,56:CLR
50 POKE53280,0:POKE53281,0
60 REM
70 REM    *** LOAD CHARSET ***
80 REM         MADE  WITH
90 REM       ALPHA-DESIGNER
100 REM
110 GT=14335
120 OPEN15,8,15,"I0"
130 OPEN1,8,2,"0:BATTLEDATA1,S,R"
140 GOSUB1330:IFE=1THENCLOSE1:CLOSE15:GOSUB1380:RUN
150 FORT=1TO104*8
160 INPUT#1,NU:GT=GT+1:POKEGT,NU
170 NEXT
180 CLOSE1:CLOSE15
185 PRINT"[147][142][158]"TAB(9)"ONE MOMENT, PLEASE...
190 [129]T[178]1[164](256[171]104)[172]8:GT[178]GT[170]1:[151]GT,0:[130]T
210 GT[178]14336:[129]T[178]160[172]8[164]161[172]8[171]1:[151]GT[170]T,255:[130]
230 [151]53272,([194](53272)[175]240)[176]14
240 [156]
250 PP[178]831:[129]T[178]1[164]127:[135]BY:[151]T[170]PP,BY:[130]
260 V[178]53248:[151]V[170]21,3:[151]2040,13:[151]2041,14:[151]V[170]39,12:[151]V[170]40,12
270 [151]V[170]28,3:[151]V[170]37,11:[151]V[170]38,8
280 [151]V[170]2,74:[151]V[170]3,145:[151]V,255:[151]V[170]1,145
285 [153][199](8);[199](14)
290 [153]"LISTLOAD                           "
300 [153]"              "
310 [153]"              "
320 [153]"                    "
330 [153]"             "
340 [153]"             "
350 [153]"                      "
360 [153]:[153][163]25)" "
370 [153][163]11)"         "
380 [153][163]11)"         "
390 [153][163]11)"         "
400 [153][163]11)"          "
410 [153][163]11)"      "
420 [153][163]11)"       "
430 [153]:[153]:[153][163]6)"OPENCOPYRIGHT / 1987 MIKE COOKE"
440 [153]:[153]" CONTPUBLISHED BY SOFTDISK PUBLISHING, INC.
450 PRINT:PRINT"PRESS C TO CONT * F8 TO RETURN TO UPTIME"
460 GETA$:IFA$=""THEN460
470 IFA$="C"THENPOKEV+21,0:GOTO700
480 IFA$<>"[140]"THEN460
490 POKEV+21,0
500 REM
510 REM *** RETURN TO UPTIME ***
520 REM
530 SYS 8*4096+4
610 REM
620 REM    *** SPRITE DATA ***
630 REM
640 DATA 0,32,0,0,32,0,0,168,0,0,136,0,0,136,0,1,85,0,1,85,0,61,85,0
650 DATA 10,85,64,6,169,64,5,169,64,5,169,64,169,85,168,86,154,84,85,101
660 DATA 84,21,85,80,5,85,64,5,85,64,1,85,0,1,85,0,0,84,0,0
670 DATA 0,32,0,0,32,0,0,168,0,0,136,0,0,136,0,1,85,0,1,85,0,1,85,240,5
680 DATA 86,128,5,170,64,5,169,64,5,169,64,169,85,168,86,154,84,85,101,84
690 DATA 21,85,80,5,85,64,5,85,64,1,85,0,1,85,0,0,84,0
700 REM
710 REM    *** INSTRUCTIONS ***
720 REM
730 PRINT"[147][155]  DO YOU WISH TO SEE THE INSTRUCTIONS?"
735 PRINTTAB(17)"Y OR N?"
740 GETA$:IFA$=""THEN740
741 IFA$="N"THEN1280
750 IFA$<>"Y"THEN740
760 PRINT"[147]                            "
770 PRINT"             [146] [155]INSTRUCTIONS  [146]"
780 PRINT"                            [155]"
790 A$="    YOU ARE THE COMMANDER OF A FLEET":GOSUB1210
800 A$="IN THE PACIFIC THAT HAS ENCOUNTERED AN":GOSUB1210
810 A$="ENEMY FLEET.  YOUR JOB IS TO DESTROY":GOSUB1210
820 A$="THE ENEMY.  QUICKLY.  EFFICIENTLY.  AND":GOSUB1210
830 A$="OF COURSE, BEFORE THEY DESTROY YOU.":GOSUB1210
840 A$="    YOU HAVE NARROWED DOWN THE AREA":GOSUB1210
850 A$="THAT THE ENEMY IS IN INTO A 15 BY 10":GOSUB1210
860 A$="GRID ON YOUR RADAR.":GOSUB1210:GOSUB1220
870 A$="[147]    NOW YOU MUST STRATEGICALLY PLACE":GOSUB1210
880 A$="ALL OF YOUR SHIPS IN AN AREA OF EQUAL":GOSUB1210
890 A$="SIZE.  TO DO THIS, SIMPLY TELL THE":GOSUB1210
900 A$="MASTER COMPUTER WHERE YOU WANT TO":GOSUB1210
910 A$="START EACH SHIP AND IN WHICH DIRECTION":GOSUB1210
920 A$="IT SHOULD POINT.  FOR EXAMPLE:":GOSUB1210
930 PRINTTAB(10)" ABCDEF":PRINTTAB(10)"1[154][167][167][167][167][167][167]":PRINTTAB(10)"[155]2[154][167][167][167][167][167][167]"
940 PRINTTAB(10)"[155]3[154][167][167][167][167][167][167]":PRINTTAB(10)"[155]4[154][167][167][167][167][167][167]":PRINTTAB(10)"[155]5[154][167][167][167][167][167][167]"
950 PRINT"[145][145][145][145][145][145]":PRINTTAB(20)"[155]CARRIER:"
960 PRINTTAB(21)"START ON A1[155]"
970 PRINTTAB(21)"POINT RIGHT[155]"
980 FORY=1TO500:NEXTY:PRINT"[145][145][145][145]":PRINTTAB(11)"[210][211][212][213][214]"
990 PRINT"":GOSUB1220:PRINT"[145][145][145][145][145][145][145][145]":PRINTTAB(20)"BATTLESHIP:"
1000 PRINTTAB(21)"START ON C2[155]":PRINTTAB(21)"POINT DOWN[155] ":FORY=1TO500:NEXTY
1010 PRINT"[145][145][145]":PRINTTAB(13)"[198][157][199][157][200][157][201]":GOSUB1220
1020 A$="[147]    ONCE YOUR SHIPS ARE POSITIONED,":GOSUB1210
1030 A$="INCLUDING 1 CARRIER, 1 BATTLESHIP, 2":GOSUB1210
1040 A$="DESTROYERS, 2 SUBS, AND 2 PT BOATS,":GOSUB1210
1050 A$="IT IS TIME TO DO BATTLE.  SIMPLY TELL":GOSUB1210
1060 A$="THE COMPUTER WHICH SECTOR TO ATTACK,":GOSUB1210
1070 A$="SUCH AS A1, G5, O3, ETC.  BUT DO NOT":GOSUB1210
1080 A$="EXPECT THE ENEMY TO SIT BACK AND WATCH,":GOSUB1210
1090 A$="THEY WILL BE ATTACKING, TOO.":GOSUB1210:GOSUB1220
1091 A$="[147]    WHEN YOU MISS, A BLUE [164][155] WILL":GOSUB1210
1092 A$="APPEAR AND WHEN YOU HIT, A RED [164][155] WILL":GOSUB1210
1093 A$="APPEAR.  THE COMPUTER KEEPS TRACK OF":GOSUB1210
1094 A$="HITS, SUNK SHIPS, AND WILL TELL YOU":GOSUB1210
1095 A$="WHEN A FLEET IS DEFEATED.":GOSUB1210
1096 A$="    AT THE SIDE OF EACH GRID IS A ROW":GOSUB1210
1097 A$="OF EIGHT PEGS.  AS EACH SHIP GETS":GOSUB1210
1098 A$="SUNK, A PEG WILL BE REPLACED WITH AN":GOSUB1210
1099 A$="RED X.":GOSUB1210:GOSUB1220
1100 A$="[147]    WHEN PLAYING WITH TWO PLAYERS,":GOSUB1210
1110 A$="PLAYER 1 IS THE ALLIES FLEET AND PLAYER":GOSUB1210
1120 A$="2 IS THE ENEMIES FLEET.  WHEN CHOOSING":GOSUB1210
1130 A$="YOUR SHIP LOCATIONS, THE OTHER PLAYER":GOSUB1210
1140 A$="WILL BE INSTRUCTED TO LOOK AWAY.  AFTER":GOSUB1210
1150 A$="THE LOCATIONS ARE IN THE COMPUTER, THE":GOSUB1210
1160 A$="GRID WILL CLEAR AND THE OTHER PLAYER":GOSUB1210
1170 A$="CAN ENTER THEIR LOCALS.":GOSUB1210:FORT=1TO500:NEXTT
1180 A$="    CAN YOU WIN?":GOSUB1210:FORT=1TO500:NEXT
1190 A$="    MAYBE...":GOSUB1210:GOSUB1220
1200 GOTO1280
1210 FORT=1TOLEN(A$):PRINTMID$(A$,T,1);:FORY=1TO30:NEXT:NEXT:PRINT:PRINT:RETURN
1220 PRINT"PRESS S TO SKIP OR SPACEBAR TO CONTINUE[155]"
1230 GETZ$
1232 IF Z$="[140]" THEN 490
1234 IF Z$="S" THEN 1280
1236 IF Z$<>" " THEN 1230
1240 RETURN
1250 REM
1260 REM    *** LOAD BATTLESHIP ***
1270 REM
1280 OPEN15,8,15,"I0"
1290 PRINT"[147]        LOADING [\]]^_!#$% &'(":PRINT
1300 OPEN1,8,2,"0:BATTLESHIP.EXE":GOSUB1330
1305 IFE=1THENE=0:GOSUB1380:CLOSE1:CLOSE15:GOTO1280
1310 CLOSE1:CLOSE15
1311 PRINT"[144]LOAD"+CHR$(34)+"BATTLESHIP.EXE"+CHR$(34)+",8"
1312 PRINT"RUN:RUN:
1314 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[162]
1320 [143]
1330 [143]      DISK ERROR TRAP
1340 [143]
1350 [132]15,A$,B$:[139][197](A$)[177]19[167]E[178]1
1360 [142]
1370 [143]
1380 [143]      ERROR MESSAGE
1390 [143]
1400 [153]"LOAD"[163]15)"LISTDISK ERROR"
1405 [153]" PLEASE MAKE SURE ALL OF THE FOLLOWING"
1410 [153][163]15)"ARE OKAY:"
1420 [153]:[153]"   DISK DRIVE IS ON"
1430 [153]"   DOOR IS CLOSED"
1440 [153]"   CABLE IS SECURE"
1470 [153][163]10)"PRESS SPACE TO RETRY"
1471 [153][163]12)"OR F8 FOR UPTIMESTOP"
1472 [161]A$
1473 [139] A$[178]"RESTORE" [167] [158] 8[172]4096[170]4
1474 [139]A$[179][177][199](32)[167]1472
1480 [142]