0| PROGRAM PRGNAM,87.10A(15)
0| ON ERROR GOTO ABORT
3| NOEXPAND
!**%Missing '=' [USAMUS.BAS] - NOEXPAND
3| RANDOMIZE
4| MAP1 KLINGON,F,6 ! number of klingons
4| MAP1 A$,S,2
4| MAP1 B$,S,1
4| MAP1 KKIILLEEDD,F,6 ! number killed in Phaser routine
4| MAP1 CD,F
4| MAP1 KM,F ! Kilometers distance Phaser routine
4| MAP1 BR,F ! Bearing Phaser routine
4| MAP1 EV,F ! Elevation Phaser routine
4| MAP1 DAMAGER,F ! Damage to enemy Phaser routine
4| MAP1 FQ,F
4| MAP1 FX,F ! phaser row
4| MAP1 FY,F ! phaser column
4| MAP1 FZ,F
4| MAP1 X,F
4| MAP1 Y,F
4| MAP1 A9,F ! phaser action determinator
4| MAP1 FL$,S,1
4| MAP1 DM$,S,1
4| MAP1 RECORD
4| MAP2 CAPTAIN,S,15
4| MAP2 LAST'SCORE,F
4| MAP2 LAST'LEVEL,B,1
4| MAP2 LAST'REC,B,1
4| MAP2 REC'FIL,X,9
4| MAP1 C$,S,6 ! combat status condition
4| MAP1 SHORTRANGESCREEN ! main view screen
4| MAP2 ROW(8)
4| MAP3 COL(8),S,1
4| MAP4 SECTOR,S,3
4| MAP1 DEVICE(8),S,10 ! devices
4| DEVICE(1)="1 IMPULSE" : DEVICE(2)="2 WARP "
40| DEVICE(3)="3 SENSORS" : DEVICE(4)="4 PHASERS"
78| DEVICE(5)="5 PHOTONS" : DEVICE(6)="6 SHIELDS"
116| DEVICE(7)="7 LR SCAN ": DEVICE(8)="8 COMPUTER"
156| MAP1 DAMAGE(8),F,6 ! damage status of devices
156| MAP1 HLP,S,80
156| MAP1 FAM,S,24,": #ZZ : #ZZ : #ZZ : "
186| MAP1 FRM,S,50," #ZZ #ZZ #ZZ #ZZ #ZZ #ZZ #ZZ #ZZ"
240| MAP1 VAR1,B,1,1
247| MAP1 VARA,S,1
247| MAP1 FILL'1
247| MAP2 COMMAND,F
247| MAP2 ACOURSE,F
247| MAP2 LAG,S,77
247| MAP1 PHOTON'POWER,F,6 ! power draw for photon usage
247| MAP1 PHASER'POWER,F,6 ! power draw for phaser usage
247| MAP1 ACTION,F,6 ! speed of action
247| CALL OPEN'BEGIN
250| ? TAB(24,11);:INPUT "Do You need INSTRUCTIONS on Ship Operations? ",A$
319| IF UCS(A$[1,1])="Y" THEN CALL HELP'US
338| ENTRY:
338| ? TAB(-1,0);
353| ? TAB(3,10);:INPUT "Please Enter Your Last Name ",CAPTAIN
405| CAPTAIN=UCS(CAPTAIN)
412| IF CAPTAIN="" THEN GOTO GIVE'CAP
424| CALL LEVEL
427| START:
427| ? TAB(-1,0);
442| DIM GALAXY(8,8),C(10,2),K(3,3),N(3),Z(8,8)
486| BEGIN:
486| T0=INT(RND(0)*20+20)*100 ! set up start up values
507| STARTIME=T0 : T9=30 : D0=0
529| E0=4000 : ENERGY=4000 : P0=10 : PHOTON=10
557| S9=200 : SHIELD=0 : H8=0
578| Q1=INT(RND(0)*8+1):Q2=INT(RND(0)*8+1) ! starting quadrant
612| S1=INT(RND(0)*8+1):S2=INT(RND(0)*8+1) ! starting sector
646| C(1,1)=1:C(1,2)=-1 : C(2,1)=1:C(2,2)=0
703| C(3,1)=1:C(3,2)=1 : C(4,1)=0:C(4,2)=-1
760| C(5,1)=0:C(5,2)=0 : C(6,1)=0:C(6,2)=1
816| C(7,1)=-1:C(7,2)=-1: C(8,1)=-1:C(8,2)=0
875| C(9,1)=-1:C(9,2)=1 : C(10,1)=1:C(10,2)=-1
933| FOR I=1 TO 8 ! clear damage status
948| DAMAGE(I)=0
960| NEX
