\START82\
\COMMENT= file dated 01/02/97, 17:33
\NAME=SHOOTERS
\FILE=C:\WINLINK\UNGROUP\SHOOTERS.82P
:prgmZDJ
:prgmZSTS
:Lbl 1
:ClrHome
:8\->\A:8\->\B:0\->\D:1\->\E:0\->\F:0\->\G:8\->\H:0\->\I:9\->\Y:9\->\Z:\#\
9\->\J:9.5\->\L:9\->\M
:Menu("SPACE SHOOTERS","PLAY VS. CALC.",U,"PLAY LINKED",4,"HELP",H,"CRE\#\
DITS",6,"QUIT",7
:Lbl 6
:prgmZCRDTS
:Goto 1
:Lbl H
:Disp "THE OBJECT OF","THE GAME IS TO","SHOOT THE OTHER","SHIP UNTIL","\#\
IT HAS BEEN","DESTROYED."
:Pause 
:ClrHome
:Disp "USE < AND >","TO MOVE YOUR","SHIP IN THAT","DIRECTION."
:Pause 
:ClrHome
:Disp "PRESS 2\n\d TO","SHOOT MISSLES AT","THE OTHER SHIP.","YOU CAN ON\#\
LY","SHOOT 1 MISSLE","AT A TIME."
:Pause 
:ClrHome
:Disp "PLAYER 1'S SHIP","IS ALWAYS AT THE","TOP, AND PLAYER","2'S (OR T\#\
HE","CALC'S) SHIP IS","ALWAYS ON THE","BOTTOM."
:Pause 
:ClrHome
:Disp "THE NUMBER ON","THE LEFT OF EACH","SHIP SHOWS THAT","SHIP'S ENER\#\
GY","LEVEL."
:Pause 
:ClrHome
:Disp "EACH TIME A SHIP","IS HIT BY A","MISSLE FROM THE","OTHER SHIP, T\#\
HAT","SHIP'S ENERGY","LEVEL DECREASES","BY ONE."
:Pause 
:ClrHome
:Disp "THE FIRST PERSON","TO GET THE OTHER","SHIP'S ENERGY","LEVEL DOWN\#\
 TO 0","IS THE WINNER."
:Pause 
:ClrHome
:Disp "DURING THE GAME,","A TIMER ON THE","LEFT COUNTS","DOWN FROM 99."\#\
:Pause 
:ClrHome
:Disp "IF IT REACHES 0,","THE GAME ENDS,","AND THE SHIP","WITH THE HIGH\#\
EST","ENERGY LEVEL","IS THE WINNER."
:Pause 
:ClrHome
:Disp "YOU CAN CONSIDER","YOURSELF A PRO","IF YOU WIN","BEFORE TIME","R\#\
UNS OUT."
:Pause 
:ClrHome
:Disp "IF BOTH PLAYERS","HAVE THE SAME","ENERGY LEVEL,","THE RESULT IS"\#\
,"A TIE."
:Pause 
:ClrHome
:Disp "YOU CAN HIT","ENTER TO PAUSE","AT ANY TIME.","YOU CAN ALSO HIT",\#\
"CLEAR TO QUIT AT","ANY TIME."
:Pause 
:Goto 1
:Lbl U
:1\->\N
:1\->\P
:Lbl K
:Output(3,1,"T"
:Output(4,1,"-"
:Output(5,1,J
:Output(6,1,M
:Output(1,1,Y
:Output(1,2,"---------------"
:Output(1,A,"V"
:Output(8,1,Z
:Output(8,2,"---------------"
:Output(8,B,"^"
:If D=1:Then
:Output(E,F,":"
:If E>2
:Output(E-1,F," "
:If E=8 and B=F
:Then
:Output(E,F,"*"
:Z-1\->\Z
:Output(8,1,Z
:End:End
:If G=1:Then
:Output(H,I,"'"
:If H<7
:Output(H+1,I," "
:If H=1 and A=I
:Then
:Output(H,I,"*"
:Y-1\->\Y
:Output(1,1,Y
:End:End
:If Y=0 or Z=0
:Goto E
:If J=0 and L=0
:Goto E
:getKey\->\K
:If K=24 and A>2:Then
:If P=1
:A-1\->\A
:If P=2
:B-1\->\B
:End
:If K=26 and A<16:Then
:If P=1
:A+1\->\A
:If P=2
:B+1\->\B
:End
:If P=1:Then
:If K=21 and D=0:Then
:1\->\D:A\->\F:End
:If D=1:E+1\->\E
:If E=9:Then
:1\->\E:0\->\D
:End:End
:If P=2:Then
:If K=21 and G=0:Then
:1\->\G:B\->\I:End
:If G=1:H-1\->\H
:If H=0:Then
:8\->\H:0\->\G
:End:End
:If K=105:Then
:Output(4,5,"*PAUSED*"
:Pause 
:Output(4,5,"        "
:End
:If K=45:Goto E
:int 7rand-1\->\C
:If P=1:Then
:If (C=\(-)\1 and B>2) or C=0 or (C=1 and B<16):Then
:B+C\->\B
:Else:If G=0
:Then:1\->\G:B\->\I
:End:End
:If G=1:H-1\->\H
:If H=0:Then
:8\->\H:0\->\G
:End:End
:If P=2:Then
:If (C=\(-)\1 and A>2) or C=0 or (C=1 and A<16):Then
:A+C\->\A
:Else:If D=0
:Then:1\->\D:A\->\F
:End:End
:If D=1:E+1\->\E
:If E=9:Then
:1\->\E:0\->\D
:End:End
:L-.5\->\L
:int L\->\M
:If M=\(-)\1:Then
:9\->\M:9.5\->\L
:J-1\->\J:End
:Goto K
:Lbl E
:If N=2:Then
:If P=1
:Y+(9-Z)\->\Y
:If P=2
:Z+(10-Y)\->\Z
:Output(3,2,"HIT ENTER WHEN"
:Output(4,3,"BOTH PLAYERS"
:Output(5,2,"HAVE FINISHED."
:Pause 
:Output(3,2,"              "
:Output(4,3,"            "
:Output(5,2,"              "
:If P=1
:Get(Z
:If P=2
:Get(Y
:End
:If Y\<>\Z
:Then
:If Y>Z
:Output(4,5,"V"
:If Y<Z
:Output(4,5,"^"
:Output(4,7,"WINS!!"
:Else
:Output(4,3,"IT'S A TIE!!
:End
:If J=0 and L=0
:Output(5,3,"(TIME IS UP)"
:Pause 
:Lbl 3
:ClrHome
:Menu("PLAY AGAIN?","YES",1,"NO",7
:Lbl 4
:2\->\N
:Disp "MAKE SURE THE 2","CALC'S ARE","FIRMLY LINKED,","AND THEN PRESS",\#\
"ENTER."
:Pause 
:ClrHome
:Menu("WHO WILL YOU BE?","PLAYER 1",P,"PLAYER 2",Q,"< TO MAIN MENU",1
:Lbl P
:1\->\P
:Goto R
:Lbl Q
:2\->\P
:Lbl R
:P\->\Q
:P\->\R
:Disp "WHEN BOTH","CALC'S SHOW","THIS SCREEN:","PLAYER 1: PRESS","ENTER\#\
 1ST,","PLAYER 2: PRESS","ENTER 2ND."
:Pause 
:ClrHome
:If P=1
:Get(Q
:If P=2
:Get(R
:Disp "YOU HAVE CHOSEN","TO BE PLAYER  .","PRESS ENTER."
:Output(2,14,P
:Pause 
:ClrHome
:If (P=1 and P=Q) or (P=2 and P=R):Then
:Disp "EITHER BOTH","CALC'S CHOSE","PLAYER  , OR THE","TWO CALC'S ARE",\#\
"NOT LINKED UP","PROPERLY!!","PRESS ENTER."
:Output(3,8,P
:Pause 
:ClrHome
:Goto 4
:End
:Goto K
:Lbl 7
:Menu("QUIT NOW?","NO WAY!!",1,"RIGHT AWAY!!",2
:Lbl 2
:prgmZDF
:AxesOn
:Output(8,8," "
\STOP82\

\START82\
\COMMENT= file dated 01/02/97, 17:33
\NAME=ZSTS
\FILE=C:\WINLINK\UNGROUP\ZSTS.82P
:ClrHome
:Output(1,1,"----------------"
:Output(8,1,"----------------"
:Output(1,1,"V"
:For(W,1,50
:End
:Output(1,1,"-V"
:For(W,1,50
:End
:Output(1,2,"-V"
:For(W,1,50
:End
:Output(1,3,"-V"
:For(W,1,50
:End
:Output(2,4,"S"
:For(W,1,25
:End
:Output(2,4," "
:Output(3,4,"S"
:For(W,1,25
:End
:Output(1,4,"-V"
:For(W,1,50
:End
:Output(2,5,"P"
:For(W,1,25
:End
:Output(2,5," "
:Output(3,5,"P"
:For(W,1,25
:End
:Output(1,5,"-V"
:For(W,1,50
:End
:Output(2,6,"A"
:For(W,1,25
:End
:Output(2,6," "
:Output(3,6,"A"
:For(W,1,25
:End
:Output(1,6,"-V"
:For(W,1,50
:End
:Output(2,7,"C"
:For(W,1,25
:End
:Output(2,7," "
:Output(3,7,"C"
:For(W,1,25
:End
:Output(1,7,"-V"
:For(W,1,50
:End
:Output(2,8,"E"
:For(W,1,25
:End
:Output(2,8," "
:Output(3,8,"E"
:For(W,1,25
:End
:Output(8,1,"^"
:For(W,1,50
:End
:Output(8,1,"-^"
:For(W,1,50
:End
:Output(8,2,"-^"
:For(W,1,50
:End
:Output(8,3,"-^"
:For(W,1,50
:End
:Output(8,4,"-^"
:For(W,1,50
:End
:Output(8,5,"-^"
:For(W,1,50
:End
:Output(7,6,"S"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,6," "
:Output(W,6,"S"
:For(X,1,25
:End:End
:Output(8,6,"-^"
:For(W,1,50
:End
:Output(7,7,"H"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,7," "
:Output(W,7,"H"
:For(X,1,25
:End:End
:Output(8,7,"-^"
:For(W,1,50
:End
:Output(7,8,"O"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,8," "
:Output(W,8,"O"
:For(X,1,25
:End:End
:Output(8,8,"-^"
:For(W,1,50
:End
:Output(7,9,"O"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,9," "
:Output(W,9,"O"
:For(X,1,25
:End:End
:Output(8,9,"-^"
:For(W,1,50
:End
:Output(7,10,"T"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,10," "
:Output(W,10,"T"
:For(X,1,25
:End:End
:Output(8,10,"-^"
:For(W,1,50
:End
:Output(7,11,"E"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,11," "
:Output(W,11,"E"
:For(X,1,25
:End:End
:Output(8,11,"-^"
:For(W,1,50
:End
:Output(7,12,"R"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,12," "
:Output(W,12,"R"
:For(X,1,25
:End:End
:Output(8,12,"-^"
:For(W,1,50
:End
:Output(7,13,"S"
:For(W,1,25
:End
:For(W,6,4,\(-)\1
:Output(W+1,13," "
:Output(W,13,"S"
:For(X,1,25
:End:End
:For(W,1,250
:End
:Output(6,8,"**"
:For(W,1,50
:End
:Output(6,7,"*BL*"
:For(W,1,50
:End
:Output(6,6,"*BYaL*"
:For(W,1,50
:End
:Output(6,5,"*BY KaL*"
:For(W,1,50
:End
:Output(6,4,"*BY DcKaL*"
:For(W,1,50
:End
:Output(6,3,"*BY D.acKaL*"
:For(W,1,50
:End
:Output(6,2,"*BY D. JacKaL*"
:Pause 
\STOP82\

\START82\
\COMMENT= file dated 01/02/97, 17:33
\NAME=ZDJ
\FILE=C:\WINLINK\UNGROUP\ZDJ.82P
:prgmZDF
:0\->\Xmin:94\->\Xmax
:0\->\Ymin:62\->\Ymax
:Text(26,30,"D"
:For(I,1,100
:End
:ClrDraw
:Text(20,26,"DD"
:Text(26,26,"D    D"
:Text(32,26,"DD"
:For(I,1,100
:End
:ClrDraw
:Text(14,22,"DDD"
:Text(20,26,"D    D
:Text(26,26,"D        D"
:Text(32,26,"D    D"
:Text(38,22,"DDD"
:For(I,1,100
:End
:ClrDraw
:Text(8,18,"DDDDD"
:Text(14,26,"D        D"
:Text(20,26,"D            D"
:Text(26,26,"D            D"
:Text(32,26,"D            D"
:Text(38,26,"D        D"
:Text(44,18,"DDDDD"
:Text(45,46,"\deg\"
:For(I,1,250
:End
:For(C,29,32
:Text(26,C," L"
:For(I,1,10
:End
:End
:For(C,29,32
:Text(26,C," aL"
:For(I,1,10
:End
:End
:For(C,29,32
:Text(26,C," KaL"
:For(I,1,10
:End
:End
:For(C,29,32
:Text(26,C," cKaL"
:For(I,1,10
:End
:End
:For(C,29,32
:Text(26,C," acKaL"
:For(I,1,10
:End
:End
:For(C,29,35
:Text(26,C," JacKaL"
:For(I,1,10
:End
:End
:For(I,1,250
:End
:Text(55,17,"-    -    -    -     -     -    -    -"
:For(I,1,250
:End
:Text(55,17,"S    -    -    -     -     -    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    -    -     -     -    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    -     -     -    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    T     -     -    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    T    W    -    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    T    W    A    -    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    T    W    A    R    -"
:For(I,1,100
:End
:Text(55,17,"S    O    F    T    W    A    R    E"
:For(I,1,1000
:End
:If getKey:Then:End
:ClrDraw
\STOP82\

\START82\
\COMMENT= file dated 01/02/97, 17:33
\NAME=ZDF
\FILE=C:\WINLINK\UNGROUP\ZDF.82P
:AxesOff
:ClrHome
:Normal
:Float
:Degree
:Func
:Connected
:Sequential
:FullScreen
:RectGC
:CoordOn
:GridOff
:LabelOff
:PlotsOff 
:FnOff 
:ZStandard
:ClrDraw
:ClrList \L1\,\L2\,\L3\,\L4\,\L5\,\L6\
\STOP82\

\START82\
\COMMENT= file dated 01/02/97, 17:33
\NAME=ZCRDTS
\FILE=C:\WINLINK\UNGROUP\ZCRDTS.82P
:ClrHome
:Output(3,8,"BY"
:Output(7,2,"DAVE JAKLITSCH"
:Output(1,5,"CREATED"
:For(I,1,500
:End
:Output(1,5,"DESIGNED"
:For(I,1,500
:End
:Output(1,4,"PROGRAMMED"
:For(I,1,500
:End
:Output(1,4,"  EDITED  "
:For(I,1,500
:End
:Output(1,6,"TESTED"
:For(I,1,500
:End
:Output(1,5,"PRODUCED"
:For(I,1,500
:End
:Output(1,5,"DIRECTED"
:For(I,1,500
:End
:Output(1,4,"PERFECTED"
:For(I,1,500
:End
:Output(1,3,"ALL THE REST"
:For(I,1,500
:End
:Output(1,3," PRESENTED  "
:For(I,1,500
:End
:Output(7,5,"."
:For(I,1,100
:End
:Output(7,4,". "
:For(I,1,100
:End
:Output(7,3,".  JAC"
:For(I,1,100
:End
:Output(7,7,"a"
:For(I,1,100
:End
:Output(7,8,"c"
:For(I,1,100
:End
:For(I,15,11,\(-)\1
:Output(7,I," "
:For(J,1,100
:End:End
:Output(7,10,"AL"
:For(I,1,100
:End
:Output(7,10,"a"
:For(I,1,100
:End
:For(I,2,3
:Output(7,I," D.  JacKaL"
:For(J,1,100
:End:End
:For(I,1,150
:End
:Output(8,1,"T"
:Output(8,16,"W"
:For(I,1,50
:End
:Output(8,1,"FT"
:Output(8,15,"WA"
:For(I,1,50
:End
:Output(8,1,"OFT"
:Output(8,14,"ARE"
:For(I,1,50
:End
:Output(8,1,"SOFT"
:Output(8,13,"WARE"
:For(I,1,50
:End
:For(I,1,4
:Output(8,I," SOFT"
:Output(8,13-I,"WARE "
:For(J,1,50
:End:End
:For(I,1,950
:End
\STOP82\
