Prgm1:sub.exe
:ClrHome
:Disp " YOUR MISSION"
:Disp " ---------------------"
:Disp "KILL ENEMY SUBS"
:Disp "TIME....20 DAYS"
:Disp "TORPEDOS......5"
:Disp "ENEMIES.......2"
:Pause
:ClrDraw
:0->Xmin                  -> =  (Sto)
:95->Xmax
:0->Xscl
:0->Ymin
:63->Ymax
:0->Yscl
:0->G
:1->D
:0->Z
:10->X
:5->Q
:0->V
:0->W
:0->G
:Int (Rand*61+2)->Y
:85->A
:Int (Rand*61+2)->B
:Lbl 1
:Prgm8
:Pause
:ClrHome
:Disp "DAY"
:Disp D
:If D=20
:Prgm7
:Disp "1-MOVE"
:Disp "2-FIRE"
:Disp "3-VIEW SEA"
:Input J
:If J=1
:Prgm2
:If J=2
:Prgm3
:If J=3 DispGraph
:Goto 1

Prgm2:MOVE.SUB
:0->U
:D+1->D
:ClrHome
:ClrDraw
:Disp "1-UP"
:Disp "2-DOWN"
:Input C
:Disp "HOW FAR"
:Input E
:If E>62
:62->E
:If E<2
:2->E
:If E=0 
:End
:Int (Rand*2+1)->R
:Lbl 1
:PT-Off(x,y
:PT-Off(x-1,y
:PT-Off(x-2,y
:PT-Off(x+1,y
:PT-Off(x+2,y
:PT-Off(x+1,y+1
:PT-Off(a,b
:PT-Off(a+1,b
:PT-Off(a+2,b
:PT-Off(a-1,b
:PT-Off(a-2,b
:PT-Off(a-1,b+1
:If C=1
:Y+1->Y
:If C=2
:Y-1->Y
:If Y>62
:62->Y
:If Y<2
:2->Y
:U+1->U
:If (U=E)+(Y=2)+(Y=62)
:Goto 2
:PT-On(x,y
:PT-On(x-1,y
:PT-On(x-2,y
:PT-On(x+1,y
:PT-On(x+2,y
:PT-On(x+1,y+1
:If R=1
:B+1->B
:If R=2
:B-1->B
:If B>62
:62->B
:If B<2
:2->B
:PT-On(a,b
:PT-On(a-1,b
:PT-On(a-2,b
:PT-On(a+1,b
:PT-On(a+2,b
:PT-On(a-1,b+1
:Goto 1
:Lbl 2
:Y-B->L
:abs L->L
:Int (Rand *2+1)->M
:If (L<5)(M=1)
:Prgm4

Prgm4:FIRE.SUB
:ClrHome
:Disp "TORPEDOS LEFT"
:Disp Q
:If Q=0
:2->P
:If Q=0
:Prgm5
:Disp "FIRE"
:Disp "1-YES 2-NO"
:Input C
:If C=2
:End
:D+1->D
:Q-1->Q
:X+3->S
:Lbl 1
:PT-On(S,Y
:PT-On(S-1,Y
:1->I
:Lbl 2
:IS>(I,5
:Goto 2
:If S>95
:End
:If (S=A)(Y=B)+(S=A)(Y=B+1)
:Goto 3
:Goto1
:Lbl 3
:ClrHome
:Disp "DIRECT HIT"
:Pause
:V+1->V
:If V=2
:Prgm5
:Prgm6

Prgm4:FIR2.SUB
:Prgm8
:A-3->T
:Lbl 1
:PT-On(T,B
:PT-On(T-1,B
:T-1->T
:PT-Off(T+1,B
:1->I
:Lbl 2
:IS>(I,5
:Goto 2
:If T<0
:End
:If (T=X)(B=Y)+(T=X)(B=Y+1)
:Goto 3
:Goto 1
:Lbl 3
:ClrHome
:Disp "YOU HAVE BEEN    HIT"
:Pause
:W+1->W
:If W=2
:Prgm5
:Prgm6

Prmg5:WIN.SUB
:ClrHome
:If V=2
:Disp "YOU HAVE        DESTORYED THE   ENEMY"
:If V=2 
:Disp "AND STOPPED WW3"
:If W=2
:Disp "YOU HAVE BEEN   DESTROYED" 
:Stop

Prgm6:RDRW.SUB
:ClrDraw
:If (W=1)(Z=0)
:Goto 5
:Line(x-2,y,x+2,y
:Pt-On(x+1,y+1
:If (V=1)(G=0)
:Goto D
:Lbl C
:Int (Rand*62+2)->B
:96->A
:Lbl 1
:PT-On(A,B
:PT-On(A-1,B
:PT-On(A-2,B
:PT-On(A+1,B
:PT-On(A+2,B
:PT-On(A-1,B+1
:1->I
:Lbl A
:IS>(I,10
:Goto A
:PT-Off(A,B
:PT-Off(A-1,B
:PT-Off(A-2,B
:PT-Off(A+1,B
:PT-Off(A+2,B
:PT-Off(A-1,B+1
:A-1->A
:If A=85
:Goto 3
:Goto 1
:Lbl 3
:Prgm8
:End
:Lbl 5
:1->Z
:Line(A-1,B,A+2,B
:PT-On(a-1,b,a+2,b
:PT-Off(x,y
:PT-Off(x-1,y
:PT-Off(x-2,y
:PT-Off(x+1,y
:PT-Off(x+2,y
:PT-Off(x+1,y+1
:Y-1->Y
:If Y=2
:Goto 9
:PT-On(x,y
:PT-On(x+1,y
:PT-On(x+2,y
:PT-On(x-1,y
:PT-On(x-2,y
:PT-On(x+1,y+1
:1->I
:Lbl @                                             @ =  (Theta)
:IS>(I,5
:Goto @
:Goto 5
:Lbl 9
:Prgm8
:End
:Lbl D
:PT-Off(a,b
:PT-Off(a+1,b
:PT-Off(a+2,b
:PT-Off(a-1,b
:PT-Off(a-2,b
:PT-Off(a-1,b+1
:1->I
:Lbl I
:IS>(I,5
:Goto I
:B-1->B
:PT-On(a,b
:PT-On(a+1,b
:PT-On(a+2,b
:PT-On(a-1,b
:PT-On(a-2,b
:PT-On(a-1,b+1
:If B=1
:Goto X
:Goto D
:Lbl X
:PT-Off(a,b
:PT-Off(a+1,b
:PT-Off(a+2,b
:PT-Off(a-1,b
:PT-Off(a-2,b
:PT-Off(a-1,b+1
:Line(a-1,b,a-5,b+2
:Line(a+1,b,a+5,b+2
:Line(a,b,a-2,b+4
:Line(a,b,a+2,b+4
:1->Goto C

Prgm7:LONG.SUB
:ClrHome
:A-3->A
:Lbl 1
:A-1->A
:Pt-On(a,b
:Pt-On(a+1,b
:If A<47
:Goto 7
:Pt-Off(A+1,B
:1->I
:Lbl 3
:IS>(I,10
:Goto 3
:Goto 1
:Lbl 7
:PT-Off(a,b
:PT-Off(A+1,B+1
:Lbl 2
:A-1->A
:B+1->B
:PT-On(A,B
:PT-On(A-1,B+1
:If (A<0)(B>64)
:Goto 4
:PT-Off(A,B
:1->I
:Lbl 5
:IS>(I,5
:Goto 5
:Goto 2
:Lbl 4
:ClrHome 
:Disp ""
:Disp "    KABOOM!"
:1->I
:Lbl A
:IS>(I,100
:Goto A
:ClrHome
:Disp "YOU DIDNT STOP NUCLEAR WW3"
:Disp "YOU LOSE"
:Stop

Prgm8:DRAW.SUB
:ClrDraw
:Line(x-2,y,x+2,y
:Pt-On(x+1,y+1
:Line(a-2,b,a+2,b
:Pt-On(a-1,b+1

copy this program as much as you like