I remember when I made FS2BASIC. I wonder if I still have it...
EDIT:
OPTION NOLET
SET WINDOW 0,1000,0,1000
RANDOMIZE
CALL Read_image("MS BMP",BAD$,"BAD.BMP")
CALL Read_image("MS BMP",BKGRND$,"BKGRND.BMP")
CALL Read_image("MS BMP",SUBF$,"SUBF.BMP")
CALL Read_image("MS BMP",PROMF$,"PROMF.BMP")
CALL Read_image("MS BMP",ROCKF$,"ROCKF.BMP")
CALL Read_image("MS BMP",HRPF$,"HRPF.BMP")
CALL Read_image("MS BMP",DIE$,"DIE.BMP")
CALL Read_image("MS BMP",HIT$,"HIT.BMP")
CALL Read_image("MS BMP",BFIRE$,"BFIRE.BMP")
DO
PRINT " FREESPACE"
PRINT " 1) Ready room"
PRINT " 2) Tech room"
PRINT " 3) Bath room"
PRINT " 4) Airlock"
PRINT
PRINT
PRINT "Where do you want to go? Input #"
INPUT GO
IF GO = 1 THEN
CALL PLAY
ELSE IF GO = 2 THEN
CALL WHAT
ELSE IF GO = 3 THEN
CALL POOP
ELSE IF GO = 4 THEN
STOP
ELSE
PRINT "Pick another number, idiot."
END IF
LOOP
END
!==================================================================
SUB PLAY
CLEAR
PRINT "What laser do you want?"
PRINT " 1) Subach HL-7 (Damage 8)"
PRINT " 2) Prometheus - S (Damage 12)"
PRINT " Input number"
INPUT GUN
CLEAR
PRINT "What missile do you want?"
PRINT " 1) Rockeye (10 missiles) (Damage 30)"
PRINT " 2) Harpoon (6 missiles) (Damage 50)"
PRINT " Input number"
INPUT MISS
PRINT "YOUR WEAPONS:";
IF GUN = 1 THEN
PRINT "Subach HL-7";
ELSE
PRINT "Prometheus - S";
END IF
IF MISS = 1 THEN
PRINT " and Rockeye"
ELSE
PRINT "and Harpoon."
END IF
PRINT
PRINT
PRINT "Press a key when you are ready."
GET KEY PSE
CLEAR
!=============================
PHLTH = 100
DO
BHLTH = 100
A=rnd*800
B=rnd*800
DO
FWB = FWB - 1
FW = FW-1
FWM = FWM-1
!BOX SHOW $ at ,
!32
!122
BOX SHOW BKGRND$ at 0,0
BOX SHOW BAD$ at A,B
GET MOUSE X,Y,S
GET KEY S
IF S=122 THEN
IF GUN = 1 AND FW >= 0 THEN
BOX SHOW SUBF$ at 0,0
ELSE
BOX SHOW PROMF$ at 0,0
END IF
IF X>A AND X<(A+200) AND Y>B AND Y<(B+200) THEN
BOX SHOW HIT$ at A,B
IF GUN = 1 THEN
BHLTH = (BHLTH-8)
FW = 6
ELSE
BHLTH = (BHLTH-12)
FW = 10
END IF
END IF
END IF
IF S=32 THEN
IF MISS = 1 AND FWM >= 0 THEN
BOX SHOW ROCKF$ at 0,0
ELSE
BOX SHOW HRPF$ at 0,0
END IF
IF X>A AND X<(A+200) AND Y>B AND Y<(B+200) THEN
BOX SHOW HIT$ at A,B
IF GUN = 1 THEN
BHLTH = (BHLTH-30)
FWM = 10
ELSE
BHLTH = (BHLTH-50)
FWM = 15
END IF
END IF
END IF
PAUSE 0.1
!PLOT TEXT, at x, y:
IF FWB >= 0 THEN
BOX SHOW BFIRE$ at A,B
PHLTH = PHLTH - (RND*4+6)
BAR =(100 - PHLTH)
SET COLOR "GREEN"
PLOT TEXT, AT BAR,10 : "|"
PLOT TEXT, AT 101,10 : "YOUR DAMAGE"
SET COLOR "BLACK"
FWB = (RND*5+4)
END IF
LOOP UNTIL BHLTH >=0 OR PHLTH >= 0
IF BHLTH >= 0 THEN
KILL = KILL + 1
END IF
IF PHLTH >= 0 THEN
CLEAR
PRINT " YOU SUCK AT THIS GAME! !! YOU LOSE!!"
END IF
LOOP UNTIL KILL = 10 OR PHLTH >= 0
IF KILL = 10 THEN
PRINT "YOU ROCK AT A GAME THAT TAKES NO SKILL WHATSOEVER TO PLAY! !"
END IF
END SUB
!======================================================================
SUB WHAT
PRINT " This is a 'port' of the most basic aspects of the game of Freespace 2 to True basic."
PRINT " When you go into play mode, you get to select guns. Some do more damage than others"
PRINT " Put your mouse pointer on the bad guys. 'Z' shoots your lasers, Spacebar shoots a missile"
PRINT " Click on bad guys to destroy them."
PRINT
PRINT " Back to the main hall! *press key"
GET KEY PSE
CLEAR
END SUB
!=====================================================================
SUB POOP
PRINT " You unzip your pants. Then you remember that this is a game"
PRINT " and you get up from your computer desk and walk to the real"
PRINT " bathroom. Thank goodness! *press key"
GET KEY PSE
CLEAR
END SUB
Unfortunately, I no longer have the pictures.
