A couple of weeks before I was born, something else was too. Happy 50th BASIC (and its this programs 30th). 10 ******* STARTREK for the IBM PC ********** (C) Graham Wheeler 1984 20 REM====================================================================== 30 REM 40 REM 50 RANDOMIZE TIMER:OPTION BASE 0:SND=0 Init randomizer, set array subscript base to zero and deselect sound 60 REM------------------------------------------------------------------- 70 REM 80 REM Define functions for random number generation and code extraction 90 REM 100 DEF FNSETUP(X)=-(RND>X) 110 DEF FNUM(X)=RND*X+1 120 DEF FNCOOR=INT(FNUM(8)) 130 DEF FNEXA(X)=X MOD 10 140 DEF FNEXB(X)=INT((X MOD 100)/10) 150 DEF FNEXC(X)=INT((X MOD 1000)/100) 160 DEF FNEXD(X)=INT(X/1000) 170 DEF FNEXE(X)=INT(X/100) 180 DEF FNR(X)=INT(X+.5) 190 REM 200 REM -------------------------------------------------------------------- 210 REM Set up data arrays 220 REM 230 DIM GALAXY(8,8,2),DAMAGE(8),QUADRANT(9,9),PLANET(8,8,4) 240 DIM DAM$(8),INFO$(8),SEC$(7),PLAN$(10),PLBN$(10) 250 RESTORE 260 FOR I=1 TO 8:READ DAM$(I):NEXT 270 DATA WARP DRIVES,S.R. SENSORS,L.R. SENSORS,PHASERS,PHOTON TUBES,SUBSPACE RADIO,SHIELDS,TELEPORTER 280 FOR I=1 TO 8:READ INFO$(I):NEXT 290 DATA STARDATE,ENERGY,SHIELDS,TORPEDOES,KLINGONS,STATUS,QUADRANT,SECTOR 300 FOR I=1 TO 7:READ SEC$(I):NEXT 310 DATA KLINGON,ASTEROID,BLACK HOLE,K. BASE,STARBASE,PLANET,STAR 320 FOR I=1 TO 10:READ PLAN$(I),PLBN$(I):NEXT I 330 DATA ARCTURUS,MAJOR,SIRIUS,MINOR,CORONUS,ALPHA,PHAEDRUS,BETA,BETELGUESE,DELTA,APHRAXIS,GAMMA,DARIUS,OMEGA,JUXUS,I,CRYTON,II,GESSERIT,IV 340 REM 350 REM--------------------------------------------------------------------- 360 REM 370 REM Get player name, display instructions and set up galaxy 380 REM 390 GOSUB 3950 400 ENERGY=4000:TORPS=15:QUADX=FNCOOR:QUADY=FNCOOR:SECX=FNCOOR:SECY=FNCOOR:KLG=0:KLB=0:STB=0:SHIELD=0:CREW=357:INJUR=0:MORALE=10:SUPPLIES=100 410 FOR I=1 TO 8:FOR J=1 TO 8 420 KL=-INT(LOG(RND+.000001)*.8+.001):KLG=KLG+KL 430 KB=FNSETUP(.94):KLB=KLB+KB 440 SB=FNSETUP(.94):STB=STB+SB 450 ST=FNCOOR 460 BH=FNSETUP(.96):AS=FNSETUP(.6):PL=FNSETUP(.75) 470 PLANET(I,J,1)=INT(FNUM(10)):PLANET(I,J,2)=INT(FNUM(10)):PLANET(I,J,3)=FNSETUP(.5):PLANET(I,J,4)=FNSETUP(.5) 480 GALAXY(I,J,1)=1000*PL+100*AS+10*BH+ST 490 GALAXY(I,J,2)=100*KL+10*KB+SB 500 NEXT J:NEXT I 510 YEARS=INT(KLG*(1.5+RND*.8)):DATE=100*INT(20+RND*20) 520 IF STB=0 THEN STB=1:I=FNCOOR:J=FNCOOR:GALAXY(I,J,2)=GALAXY(I,J,2)+1 530 IF KLB=0 THEN KLB=1:I=FNCOOR:J=FNCOOR:GALAXY(I,J,2)=GALAXY(I,J,2)+10 540 REM 550 REM----------------------------------------------------------------------- 560 REM 570 REM Confirm configuration with player 580 REM 590 CLS:COLOR 2,4:PRINTCONFIGURATION:PRINT 600 COLOR 2,0:PRINT STARDATE ;DATE; KLINGONS ;KLG 610 PRINT KLINGON BASES ;KLB; STARBASES ;STB; YEARS ;YEARS 620 PRINT QUADRANT ;QUADX;-;QUADY; SECTOR ;SECX;-;SECY:PRINT 630 COLOR 4,0:INPUT DO YOU WANT A DIFFERENT CONFIGURATION Y/N;A$ 640 IF A$=Y THEN GOTO 400 ELSE COLOR 7:CLS 650 REM 660 REM----------------------------------------------------------------------- 670 REM 680 REM Set up quadrant 690 REM 700 IF QUADX>0 AND QUADX0 AND QUADY0 THEN FOR I=1 TO ST:GOSUB 4010:QUADRANT(X,Y)=299:NEXT 830 IF BH>0 THEN GOSUB 4010:QUADRANT(X,Y)=295 840 IF AS>0 THEN GOSUB 4010:QUADRANT(X,Y)=294 850 IF PL>0 THEN GOSUB 4010:QUADRANT(X,Y)=298 860 RANDOMIZE(RANDUM) 870 IF KL>0 THEN FOR I=1 TO KL:GOSUB 4010:QUADRANT(X,Y)=INT(150+RND*70-50*(KB>0)):NEXT 880 IF KB>0 THEN GOSUB 4010:QUADRANT(X,Y)=296 890 IF SB>0 THEN GOSUB 4010:QUADRANT(X,Y)=297 900 ATTACK=-1 910 REM 920 REM---------------------------------------------------------------------- 930 REM 940 REM Short Range Scan 950 REM 960 IF ATTACK THEN GOSUB 3530 970 I=SECX-1:STATU$=GREEN:CL=18:NOB=-1 980 J=SECY-1 990 IF QUADRANT(I,J)=297 THEN STATU$=DOCKED:ENERGY=4000:CL=23:TORPS=15:SHIELD=0:MORALE=10:CREW=CREW+INT(RND*(357-CREW)):INJUR=0:SUPPLIES=100:GOTO 1070 1000 IF QUADRANT(I,J)=298 THEN STATU$=ORBITING:CL=22:NOB=0 1010 IF J
Posted on: Sat, 03 May 2014 21:48:05 +0000
Trending Topics
Recently Viewed Topics
© 2015