0 REM  LOADSTAR IS NOT PUBLIC DOMAIN!!
9 REM
10 REM *** INITIALIZATION ***
11 REM
99 REM
100 REM *** TITLE SCREEN ***
101 GOSUB 6000
120 C=55296:V=1024:Y(1)=0:Y(2)=20:Y(3)=11:Y(4)=10
125 X(1)=19:X(2)=19:X(3)=1:X(4)=39
150 C(1)=10:C(2)=14:C(3)=13:C(4)=15
499 REM
500 REM *** # OF PLAYERS ***
501 REM
502 POKE648,192:PRINT"[152][147]":POKE648,4
503 PRINT""
504 PRINT"[153]                     "
505 PRINT"[153]  HOW MANY PLAYERS?  [144][206]"
506 PRINT"[153]                     [144][205]"
507 PRINT"[153]    (2, 3, OR 4)     [144][206]"
508 PRINT"[153]                     [144][205]"
509 PRINT"[144][206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [144][206]"
520 GET A$:IF A$<"2" OR A$>"4" THEN 520
530 PL=VAL(A$)
540 C(PL+1)=251:C(PL+2)=251
999 REM
1000 REM *** SCREEN SET UP ***
1001 REM
1005 POKE648,240/4:PRINT"[147]":POKE53272,(PEEK(53272)AND15)OR240
1006 PRINT"           PLEASE WAIT..."
1007 POKE648,4
1010 PRINT"[147][144]";
1060 FOR X=1 TO 10
1070 PRINT"[206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205][160]";
1071 PRINT"[205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183]";
1080 NEXT:
1081 PRINT"[206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205] [206][183][205][160]";
1082 PRINT""
1120 FOR CC=55296 TO 56135
1130 RN=INT(RND(0)*10)+1
1140 IF RN>7 THEN PC=7:GOTO 1155
1150 PC=0
1155 POKE CC,PC:NEXT CC  :POKE53272,(PEEK(53272)AND15)OR16
1223 FORX=1TO4 : REM POKE THOSE CHARS ON THE BOARD (PLAYING CHARS)
1225 POKEC+X(X)+40*Y(X),C(X):POKEV+X(X)+40*Y(X),81
1227 NEXT
1228 FORX=217TO242:POKEX,PEEK(X)OR128:NEXT: REM RESET LINE LINKS DUE TO PRINT
1230 POKE214,20:PRINT:PRINT "         M=MOVE        F=FIRE"
1250 PRINT"  E=NORTHWEST   R=NORTH   T=NORTHEAST"
1260 PRINT"  C=SOUTHWEST   V=SOUTH   B=SOUTHEAST"
2000 REM *** GAME PLAY ***
2001 REM
2005 FOR PT=1 TO PL
2007 G$="":P=0:PC=0
2010 PRINT""CHR$(C(PT)+140):POKE214,23:PRINT:PRINT"       YOUR PLAY (M OR F)     [157][157][157][157]";
2020 GETA$:IFA$=CHR$(13) THEN GOSUB 7000:GOTO2010
2021 IF A$<>"M" AND A$<>"F" THEN 2020
2030 PRINTA$;
2035 POKE214,23:PRINT:PRINT"             DIRECTION?  ";
2040 G$=G$+A$
2050 GETA$ : IF A$=CHR$(13) THEN GOSUB 7000:GOTO 2010
2055 IFA$<>"E"ANDA$<>"R"ANDA$<>"T"ANDA$<>"C"ANDA$<>"V"ANDA$<>"B"THEN2050
2060 PRINT" "A$;:FORT=0TO800:NEXT
2070 G$=G$+A$
2080 IF LEFT$(G$,1)="M" THEN 2100
2090 GOTO 2500
2099 REM
2100 REM *** PLAYER MOVE ***
2101 REM
2105 POKE V+X(PT)+40*Y(PT),32
2110 G$=RIGHT$(G$,1)
2120 IF G$="E" THEN G=1
2121 IF G$="R" THEN G=2
2122 IF G$="T" THEN G=3
2123 IF G$="C" THEN G=4
2124 IF G$="V" THEN G=5
2125 IF G$="B" THEN G=6
2130 ON G GOTO 2135,2140,2150,2160,2170,2180
2135 IFY(PT)=0ORX(PT)=1OR(PEEK(C+(X(PT)-1)+(Y(PT)-1)*40)AND15)=7THEN2190
2137 X(PT)=X(PT)-2:Y(PT)=Y(PT)-1:GOTO 2190
2140 IF Y(PT)<2 OR (PEEK(C+X(PT)+(Y(PT)-1)*40)AND15)=7  THEN 2190
2145 Y(PT)=Y(PT)-2:GOTO 2190
2150 IFX(PT)=39ORY(PT)=0OR(PEEK(C+(X(PT)+1)+(Y(PT)-1)*40)AND15)=7THEN2190
2155 Y(PT)=Y(PT)-1:X(PT)=X(PT)+2:GOTO 2190
2160 IFX(PT)=1ORY(PT)=20OR(PEEK(C+(X(PT)-1)+Y(PT)*40)AND15)=7THEN2190
2165 Y(PT)=Y(PT)+1:X(PT)=X(PT)-2:GOTO 2190
2170 IF Y(PT)>18 OR (PEEK(C+X(PT)+(Y(PT)+1)*40)AND15)=7 THEN 2190
2175 Y(PT)=Y(PT)+2:GOTO 2190
2180 IFX(PT)=39ORY(PT)=20OR(PEEK(C+(X(PT)+1)+Y(PT)*40)AND15)=7THEN2190
2185 Y(PT)=Y(PT)+1:X(PT)=X(PT)+2:GOTO 2190
2190 POKE C+X(PT)+Y(PT)*40,C(PT):POKE V+X(PT)+Y(PT)*40,81
2195 IF Y(1)=20 THEN W=1:GOTO 4000
2200 IF Y(2)=0 THEN W=2:GOTO 4000
2210 IF X(3)=39 THEN W=3:GOTO 4000
2220 IF X(4)=1 THEN W=4:GOTO 4000
2230 GOTO 2960
2499 REM
2500 REM *** PLAYER FIRE ***
2501 REM
2510 G$=RIGHT$(G$,1)
2520 IF G$="E" THEN A=1
2540 IF G$="R" THEN A=2
2550 IF G$="T" THEN A=3
2560 IF G$="C" THEN A=4
2570 IF G$="V" THEN A=5
2580 IF G$="B" THEN A=6
2590 ON A GOTO 2600,2650,2700,2750,2800,2850
2600 X=X(PT):Y=Y(PT)
2602 IF X<2 OR Y=0 THEN 2900
2605 X=X-1:Y=Y-1
2610 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB 7200:GOTO 2900
2615 X=X-1
2620 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2625 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2626 IF PC>1 THEN NEXT LO
2630 IF PC=0 OR PC=1 THEN 2602
2635 GOTO 2900
2650 X=X(PT):Y=Y(PT)
2652 IF Y<2 THEN 2900
2655 Y=Y-1
2660 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB 7200:GOTO 2900
2665 Y=Y-1
2670 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2675 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2676 IF PC>1 THEN NEXT LO
2680 IF PC=0 OR PC=1 THEN 2652
2685 GOTO 2900
2700 X=X(PT):Y=Y(PT)
2702 IF X>38 OR Y=0 THEN 2900
2705 X=X+1:Y=Y-1
2710 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB7200:GOTO 2900
2715 X=X+1
2720 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2725 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2726 IF PC>1 THEN NEXT LO
2730 IF PC=0 OR PC=1 THEN 2702
2735 GOTO 2900
2750 X=X(PT):Y=Y(PT)
2752 IF X<2 OR Y=20 THEN 2900
2755 X=X-1
2760 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB 7200:GOTO 2900
2765 X=X-1:Y=Y+1
2770 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2772 IF PC=0 THEN 2752
2775 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2776 IF PC>1 THEN NEXT LO
2780 IF PC=0 OR PC=1 THEN 2752
2785 GOTO 2900
2800 X=X(PT):Y=Y(PT)
2802 IF Y>19 THEN 2900
2805 Y=Y+1
2810 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB7200:GOTO 2900
2815 Y=Y+1
2820 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2825 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2826 IF PC>1 THEN NEXT LO
2830 IF PC=0 OR PC=1 THEN 2802
2835 GOTO 2900
2850 X=X(PT):Y=Y(PT)
2852 IF Y>19 OR X=39 THEN 2900
2855 X=X+1
2860 IF (PEEK(C+X+Y*40)AND15)=7 THEN GOSUB7200:GOTO 2900
2865 X=X+1:Y=Y+1
2870 IF PEEK(V+X+Y*40)=81 THEN PC=(PEEK(C+X+Y*40) AND 15)
2875 IF PC>1 THEN FOR LO=1 TO PL:IF PC=C(LO) THEN P=LO
2876 IF PC>1 THEN NEXT LO
2880 IF PC=0 OR PC=1 THEN 2852
2885 GOTO 2900
2900 IF P=0 THEN 2960
2902 POKE V+X(P)+Y(P)*40,32
2905 ON P GOTO 2920,2930,2940,2950
2920 X(P)=19:Y(P)=0:POKE V+X(P)+Y(P)*40,81:POKE C+X(P)+Y(P)*40,C(P)
2925 GOTO 2960
2930 X(P)=19:Y(P)=20:POKE V+X(P)+Y(P)*40,81:POKE C+X(P)+Y(P)*40,C(P)
2935 GOTO 2960
2940 X(P)=1:Y(P)=11:POKE V+X(P)+Y(P)*40,81:POKE C+X(P)+Y(P)*40,C(P)
2945 GOTO 2960
2950 X(P)=39:Y(P)=10:POKE V+X(P)+Y(P)*40,81:POKE C+X(P)+Y(P)*40,C(P)
2960 IF PT=PL THEN 2000
2970 NEXT PT
4000 PRINT "[147]       [159]CONGRATULATIONS, PLAYER";W
4010 PRINT "[158]          YOU ARE THE WINNER"
4020 PRINT"[153]       PLAY ANOTHER GAME (Y/N)"
4030 GET A$:IF A$="" THEN 4030
4040 IF A$="N" THEN GOSUB 7000:GOTO1000
4050 IF A$="Y" THEN 120
4060 GOTO 4030
6000 POKE53280, 0:POKE53281,11:PRINT"[147][142]";:POKE53265,PEEK(53265)AND239
6001 PRINT"[144]n[183][154]                                    [146][144]m"
6002 PRINT"m[154]  [153]                               [154]   [146][144]n[158][183][144]n[158][183][154]  [153]    [158]  LOADSTAR ";
6003 PRINT"PRESENTS   [153]      [154]  [146][144]m"
6004 PRINT"[158]m[154]  [153]                                [154]  [146][158]n[144][183][158]n[144][183][154]  [153]  STRATAHEX  ";
6005 PRINT"BY  MIKE L LEWIS[153]   [154]  [146][158]m"
6006 PRINT"[144]m[154]  [153]                                [154]  [146][144]n[158][183]n[183][154]                  ";
6007 PRINT"                [154]  [146][144]m"
6008 PRINT"m[154]                                    [146][144]n[183]n[183][158]m[144]n[158][183]m[144]n[183]mn[183]m[158]n[183]m[144]n[183]";
6009 PRINT"[158]m[144]n[158][183][144]mn[183]mn[158][183][144]mn[183][158]m"
6010 PRINT"[144]mn[158][183]m[144]n[183]mn[183]mn[183]mn[183]m[158]n[183][144]mn[158][183][144]mn[158][183][144]m[158]n[144][183]m[158]n[144][183]n[183]mn[158][183][144]mn[183][158]m[144]n[183]m";
6011 PRINT"n[158][183]mn[144][183]mn[183]mn[158][183][144]mn[183][158]m[144]n[183]m"
6012 PRINT"[158]m[144]n[158][183]m[144]n[158][183][144]mn[158][183][144]m[158]n[183]mn[183]mn[144][183][158]mn[144][183]mn[183][158]m[144]n[183]mn[158][183][144]n[158][183][144]m[158]n[144][183][158]mn[144][183]";
6013 PRINT"mn[183]mq[158]n[144][183]mn[183][158]m[144]n[183]mn[158][183][144]mn[183]m[150]q[144]n[158][183][144]m"
6014 PRINT"m[153]q[158]n[144][183]mn[158][183][144]mn[183]mn[158][183]m[144]n[158][183][144]mn[183]m[158]n[183][144]mn[183]mn[183][158]m[144]n[158][183][144]n[158][183][144]mn[183]m[158]n[144][183]mn";
6015 PRINT"[158][183]m[144]n[183][158]m[144]n[183]mn[183]mn[183]mn[183][158]mn[183]m"
6016 PRINT"mn[183][144]m[158]n[183][144]mn[183]mn[158][183][144]mn[183]mn[183]m[158]n[144][183]mn[183][158]mn[144][183][158]m[144]n[183]n[158][183]m[144]n[183]mn[183]mn[183]mn[183]m";
6017 PRINT"[158]n[144][183]m[158]n[144][183]mn[158][183]m[144]n[183][158]m[144]n[183][158]m"
6018 PRINT"[144]mn[158][183][144]m[158]n[144][183][158]m[144]n[183][158]m[144]n[183]m[158]n[183][144]m[158]n[183][144]m[159]q[158]n[144][183]mn[183][158]m[144]n[183]m[158]n[144][183]n[183]mn[183]mn[158][183][144]";
6019 PRINT"mn[183]mn[158][183][144]mn[158][183][144]mn[183]mn[183][158]mn[183][144]m[158]n[144][183][158]m"
6020 PRINT"[144]mn[183]m[158]n[144][183][158]m[144]n[158][183][144]m[158]n[144][183][158]m[144]n[183]m[158]n[144][183]m[158]n[144][183][158]mn[144][183]m[158]n[144][183]mn[183]n[183]mn[158][183][144]mC[144]n";
6021 PRINT"[158][183]mP[158]n[144][183]mR[144]n[183][158]mG[144]n[183][158]mT[144]n[158][183]m1[144]n[183][158]m8[144]n[158][183][144]mn[183]m"
6022 PRINT"m[158]n[144][183]m[158]n[183][144]mO[144]n[183]mY[144]n[158][183][144]mI[144]n[183]mH[144]n[183]mn[183]m9[144]n[158][183][144]m8[158]n[144][183]mn[183][172]        ";
6023 PRINT"                              [146][187]  [159] PRESS SPACE WHEN READY TO CONTINUE ";
6024 PRINT"[187] [146][188] [188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190]"
6025 POKE2023,126:POKE56295,1:POKE53265,PEEK(53265)OR16
6030 GETA$:IFA$<>" "THEN 6030
6035 RETURN
7000 PRINT"     [158]QUIT TO LOADSTAR ? (Y OR N)"
7001 GETA$:IFA$=""THEN 7001
7002 IFA$="Y"ORA$="[217]"THEN 7050
7003 IFA$="N"ORA$="[206]"THEN 7025
7005 GOTO 7001
7025 PRINT"                                ":RETURN
7050 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
7051 IFER<>63 THEN PRINT"[147]":END
7055 LOAD"HELLO CONNECT",8
7200 PRINT"<<<<BLOCKED>>>>[146]"
7210 FORD=1TO500:NEXT:RETURN