rewrote screen-flash in asm, save a few bytes

4 files changed, 1915 insertions, 48 deletions

diff --git a/Makefile b/Makefile
index 319e67d..b40ed3c 100644
--- a/Makefile
+++ b/Makefile
@@ -89,7 +89,7 @@ XEX=taipan.xex
 # All the C and asm sources for taimain.xex:
 TAIMAIN_HDRS=sounds.h
 TAIMAIN_C_SRC=taipan.c
-TAIMAIN_ASM_SRC=rand.s draw_lorcha.s timed_getch.s portstat.s clrtobot.s ultostr.s soundasm.s
+TAIMAIN_ASM_SRC=rand.s draw_lorcha.s timed_getch.s portstat.s clrtobot.s ultostr.s soundasm.s explosion.s
 
 # Comment these lines out to build without big number support.
 # This will stop being possible at some point.
diff --git a/explosion.s b/explosion.s
new file mode 100644
index 0000000..581e987
--- /dev/null
+++ b/explosion.s
@@ -0,0 +1,66 @@
+; explosion seen when we're hit by enemy fire.
+; currently just flashes the screen. the apple version is
+; kinda funky-looking, best way I can describe it is that it
+; looks like TV static. would be hard to imitate that on the
+; atari. maybe there should be screen-shaking going on?
+
+; original code was in C, and looked like:
+;; for(i = 0; i < 3; i++) {
+;; 	unsigned char color = PEEK(710) & 0xf0;
+;; 	unsigned char textcolor = PEEK(709);
+;; 	POKE(709,0);
+;; 	POKE(710, color | 0x0c);
+;; 	jsleep(10);
+;; 	POKE(710, color & 0xf0);
+;; 	jsleep(10);
+;; 	POKE(709,textcolor);
+;; }
+
+ .export _explosion
+ .include "atari.inc"
+ .importzp tmp1, tmp2
+ .import _jsleep
+
+color1save = tmp1
+color2save = tmp2
+
+; extern void explosion(void);
+_explosion:
+; {
+ ; save original colors (don't hardcode, they can be changed on the title screen)
+ lda COLOR1
+ sta color1save
+ lda COLOR2
+ sta color2save
+
+ ; dark text
+ lda #0
+ sta COLOR1
+
+ ldy #3 ; loop counter, counts 3 2 1
+
+;   {
+@loop:
+ lda color2save
+ ora #$0c   ; embrighten text background (without changing the hue)
+ sta COLOR2
+
+ ldx #0      ;\
+ lda #$0a    ; | jsleep(10);
+ jsr _jsleep ;/
+
+ lda color2save ; put text bg back like it was...
+ sta COLOR2
+
+ ldx #0         ; ...and jsleep(10) again
+ lda #$0a
+ jsr _jsleep
+
+ dey
+ bne @loop ; we're done if Y==0
+;   }
+
+ lda color1save ; restore text color
+ sta COLOR1
+ rts
+; }
diff --git a/taipan-applesoft-annotated.txt b/taipan-applesoft-annotated.txt
new file mode 100644
index 0000000..a6d0b97
--- /dev/null
+++ b/taipan-applesoft-annotated.txt
@@ -0,0 +1,1826 @@
+# annotated applesoft source for apple II taipan.
+# this code isn't executable, due to having these comments
+# interspersed. rather, it's meant to be human-readable.
+
+# I'm no expert on the Apple II, and I'm more interested in the game
+# logic than I am the lower level details (e.g.  graphics, sound), so
+# the annotation isn't going to be 100% detailed. Also, anywhere you see
+# a CALL or USR, that's a call to a machine language subroutine. Means
+# that this BASIC code isn't the complete game. And I haven't tried to
+# disassemble the ML routines, though I at least know what some of them
+# are for.
+
+# variable names are all one or two characters.
+# not all of them are listed here (yet?), only "major" ones.
+
+# CA - cash on hand
+# BA - amount in bank
+# DW - debt
+# W - used as input for printing "fancy" numbers
+# WW$ - "fancy" number output (e.g. "1.2 Million")
+# IV$ - const, character that turns on inverse video
+# NV$ - const, character that turns off inverse video
+# CH$ - choices (see line 100)
+# CH% - index into CH$ (see line 100)
+# T - const, 300, used for timed input loops
+# T$ - const, the string "Taipan", used in prompts
+# LO$ - const, array, the names of the ports (and "At sea")
+# LO - current location (port), index into LO$
+# D - destination (port). LO is set to this at the end of the turn.
+# DM - ship damage. ranges from 0 to SC.
+# SC - ship capacity (hold + guns * 10)
+# MW - hold (free space, not adjusted for guns)
+# GN - guns
+# H$ - firm name. probably so named because of the trs-80 version
+#      which used the word "Hong" to mean "Firm".
+# ED - "extra damage", starts at 0.5, increments by 0.5
+       every game-year.
+# EC - used to calculate enemy ship hitpoints. increases by 10 every year.
+# YE - current game-year, starts at 1860
+# MO - current game-month, ranges 1 to 12
+# R1% - true if player entered "A" for "All" at a number prompt
+# ST$ - const, array, ship status names (Poor, Fair, Prime, etc)
+# BP% - base prices at each port. Increased at end-of-year (inflation).
+#       2d array, indices are (location, item)
+
+# FN R(X) is a function that returns a random integer
+# from 0 to X-1.
+
+10  CLEAR:
+    WK$ = "*":
+    CH$ = "*":
+    CH% = 0:
+    WU% = 0:
+    R1% = 0:
+    I = 0:
+    J = 0:
+    K = 0:
+    II = 0:
+    IJ = 0:
+    IK = 0:
+    T = 300:
+    LT =  LOG (10):
+    T$ = "Taipan":
+    GOTO 10000
+
+# timed keyboard input. the for loops abort when a key
+# is pressed. Note that this "function" is actually
+# entered at 3 different places (lines 92, 94, 96)
+# for 3 different lengths of delay.
+# {
+92  FOR II = 1 TO T:
+      II = II + ( PEEK ( -16384) > 127) * 9999:
+    NEXT II
+
+94  FOR II = 1 TO T / 2:
+      II = II + ( PEEK ( -16384) > 127) * 9999:
+    NEXT II
+
+96  FOR II = 1 TO T / 2:
+      II = II + ( PEEK ( -16384) > 127) * 9999:
+    NEXT II
+
+# ack the keystroke
+98  POKE -16368,0:
+    RETURN 
+# }
+
+# gets one character of input, restricted to the set defined
+# by CH$, and sets CH% to the index into CH$. E.g. CH$="YN":
+# GOSUB 100 will set CH% to 1 for Y or 2 for N.
+# {
+100  CALL 2560:
+     RETURN 
+# }
+
+# numeric input. R1% set if A for All, otherwise amount
+# is in W.
+# {
+150 WK$ = "" + "         ":
+    CALL 2680:
+    W = VAL(WK$):
+    R1% = LEFT$(WK$,1) = "A":
+    RETURN 
+# }
+
+# 200 is entry point for printing the static part of
+# the port status screen.
+# don't yet know what the USR and ampersand vectors are
+# being used for here.
+# {
+200  REM
+
+210  PRINT FS$;HM$;CS$; SPC( 12 - LEN (H$) / 2):
+     PRINT "Firm: ";CA$;H$;CS$;", ";:
+     X =  USR (1):
+     PRINT
+
+220  VTAB 2:
+     PRINT CG$;"[";:
+     & 45,26:
+     PRINT "]":
+     FOR II = 1 TO 5:
+       PRINT "!"; TAB( 28);"!":
+     NEXT II:
+     PRINT "(";: & 61,26:
+     PRINT ")":
+     FOR II = 1 TO 5:
+       PRINT "!"; TAB( 28);"!":
+     NEXT II:
+     PRINT "<";:
+     & 58,26:
+     PRINT ">";CS$
+    
+230  VTAB 3:
+     HTAB 2:X =  USR (1) +  USR (2):
+     VTAB 4:
+     HTAB 21:
+     PRINT "In use:":
+     VTAB 6:
+     HTAB 21:
+     PRINT "Vacant:":
+     VTAB 9:
+     HTAB 2:
+     PRINT "Hold        Guns";
+
+240  FOR II = 3 TO 9 STEP 6:
+       FOR IJ = 1 TO 4:
+         VTAB II + IJ:
+         HTAB 5:
+         PRINT  LEFT$ (CO$(IJ),7);:
+     NEXT IJ,II
+
+250  VTAB 3:
+     HTAB 33:
+     PRINT "Date":
+     VTAB 6:
+     HTAB 31:
+     X =  USR(3):
+     VTAB 9:
+     HTAB 33:
+     PRINT "Debt":
+     VTAB 12:
+     HTAB 29:
+     PRINT " Ship status"
+
+260  VTAB 16:
+     HTAB 1:
+     PRINT CG$;:
+     & 45,40:
+     PRINT CS$
+
+270  RETURN 
+# }
+
+# 300 is the entry point for printing the dynamic part of
+# the status screen
+# {
+300  REM 
+310  VTAB 4:
+ HTAB 30:
+ PRINT "15 ";YE:
+ VTAB 4:
+ HTAB 33:
+ PRINT IV$; MID$ ("JanFebMarAprMayJunJulAugSepOctNovDec",(MO - 1) * 3 + 1,3);NV$
+
+311  VTAB 7:
+     HTAB 31:
+     PRINT "   ":
+     VTAB 7:
+     HTAB 35 -  LEN (LO$(LO)) / 2 + .5:
+     PRINT IV $;LO$(LO);NV$
+
+312  VTAB 10:
+     HTAB 29:
+     PRINT "  ":
+     VTAB 10:
+     WW = DW:
+     GOSUB 600:
+     HTAB 35 -  LEN(WW$) / 2:
+     PRINT IV$;WW$;NV$
+    
+# calculate ship status (percentage)
+313 WW = 100 -  INT (DM / SC * 100 + .5):
+    WW = WW * (WW > 0):
+    W =  INT (WW / 20):
+    VTAB 13:
+    HTAB 30:
+    IF W < 2 THEN  PRINT IV$;
+
+314  PRINT ST$(W);":";WW;:
+     IF PEEK(36) > 30 THEN
+       PRINT  TAB(40);" ";
+
+315  PRINT NV$;
+
+316  VTAB 5:
+     HTAB 22:
+     PRINT "   ";:
+     HTAB 22:
+     PRINT WS:
+     VTAB 7:
+     HTAB 22:
+     PRINT "     ";:
+     HTAB 22:
+     PRINT WC - WS
+
+320  POKE 32,12:
+     FOR II = 1 TO 2:
+       POKE 33,(II - 1) * 9 + 6:IK = II * 6 - 3:
+       POKE 34,IK:
+       POKE 35,IK + 4:
+       PRINT HM$:
+       FOR IJ = 1 TO 4:
+         VTAB IK + IJ:
+         HTAB 1:
+         PRINT ST(II,IJ);:
+     NEXT IJ,II
+
+330  PRINT FS$:
+     VTAB 15:
+     HTAB 1:
+     WW = CA:
+     GOSUB 600:
+     PRINT "Cash: ";WW$; TAB( 21);:
+     WW = BA:
+     GOSUB 600:
+     PRINT "Bank: ";WW$; TAB( 40);" ":
+     VTAB 9:
+     HTAB 22:
+     PRINT GN;:
+     HTAB 7:
+     PRINT "        ";:
+     HTAB 7
+
+340  IF MW < 0 THEN
+       PRINT IV$;"Overload";NV$
+
+350  IF MW >  = 0 THEN
+       PRINT MW;
+
+360  RETURN 
+# }
+
+# 400 prints a prompt of some kind. HM$ is ASCII code 16,
+# not sure what that does on the A2.
+# {
+400  REM 
+
+# {
+410  POKE 32,0:
+     POKE 33,40:
+     POKE 34,18:
+     POKE 35,24:
+     PRINT HM$;:
+     RETURN 
+# }
+
+# {
+480  VTAB 17:
+     HTAB 1:
+     X =  USR (4):
+     RETURN 
+# }
+
+490  VTAB 17:
+     HTAB 1:
+     X =  USR (5):
+     RETURN 
+# }
+
+# 500 seems to be for bank deposit
+# {
+500  REM 
+
+510  GOSUB 400:
+     X =  USR (6):
+     GOSUB 150:
+     IF R1% THEN
+       W = CA
+
+530  IF CA >  = W THEN
+       CA = CA - W:
+       BA = BA + W:
+       GOSUB 300:
+       GOTO 550
+
+540  PRINT :
+     PRINT :
+     PRINT T$;:
+     X =  USR (8):
+     PRINT CA:
+     PRINT "in cash.":
+     CALL 2518:
+     GOSUB 94:
+     GOTO 510
+
+# 550 is bank withdrawal (?)
+550  GOSUB 400:
+     X =  USR (7):
+     GOSUB 150:
+     IF R1% THEN
+       W = BA
+
+570  IF BA >  = W THEN
+       BA = BA - W:
+       CA = CA + W:
+       GOSUB 300:
+       GOTO 590
+
+580  PRINT :
+     PRINT :
+     PRINT T$;:
+     X =  USR (8):
+     PRINT BA:
+     PRINT "in the bank.":
+     CALL 2518:
+     GOSUB 94:
+     GOTO 550
+
+590  RETURN 
+# }
+
+# fancy_numbers
+# {
+600  IF WW < 1E6 THEN
+       WW$ =  STR$( INT (WW)):
+       RETURN 
+
+610 II =  INT ( LOG (WW) / LT):
+    IJ =  INT (II / 3) * 3:
+    IK = 10 ^ (II - 2):
+    WW$ =  LEFT$ ( STR$( INT (WW / IK + .5) * IK / 10 ^ IJ),4) + " "
+
+620  IF IJ = 3 THEN
+       W$ = "Thousand"
+
+630  IF IJ = 6 THEN
+       W$ = "Million"
+
+640  IF IJ = 9 THEN
+       W$ = "Billion"
+
+650  IF IJ = 12 THEN
+       W$ = "Trillion"
+
+680 WW$ = WW$ + W$
+
+690  RETURN 
+# }
+
+# This is the main loop of the game.
+1000  REM
+
+# bank and debt interest
+1010  IF D <> 0 THEN
+        GOSUB 490:
+        GOSUB 400:
+        X =  USR (9):
+        PRINT LO$(D):
+        GOSUB 96:
+        BA =  INT (BA + BA * .005):
+        DW =  INT (DW + DW * .1):
+        TI = TI + 1:
+        MO = MO + 1:
+        LO = D
+
+# end-of-year
+1020  IF MO > 12 THEN
+        YE = YE + 1:
+        MO = 1:
+        EC = EC + 10:
+        ED = ED + .5:
+        FOR I = 1 TO 7:
+           FOR J = 1 TO 4:
+              BP%(I,J) = BP%(I,J) +  FN R(2):
+        NEXT J,I
+
+# decide whether to do li's extortion
+1030  GOSUB 400:
+      GOSUB 480:
+      GOSUB 300:
+      IF LO <> 1 THEN 1500
+
+# don't do it if the player's broke
+1040  IF LI <> 0 OR CA = 0 THEN 1120
+
+1050 WW = 0:
+     W = 1.8:
+     IF TI > 12 THEN
+       WW =  FN R(1000 * TI) + 1000 * TI:
+       W = 1
+
+# "will you pay?"
+1060 I =  FN R(CA / W) + WW:
+     WW = I:
+     GOSUB 600:
+     GOSUB 400:
+     X = USR (10):
+     PRINT WW$;" ";:
+     X = USR (11):
+     CH$ = "NY":
+     GOSUB 100:
+     IF CH% <> 2 THEN 1120
+    
+# yes, deduct cash and offer a loan if there's not enough
+1065 LI = 1:
+     CA = CA - I:
+     IF CA > 0 THEN 1100
+
+# want wu to make up the difference?
+1070  GOSUB 400:
+      PRINT T$;:
+      X =  USR (12):
+      CALL 2512:
+      PRINT :
+      PRINT :
+      X =  USR (13):
+      CH$ = "YN":
+      GOSUB 100
+
+# yes
+1080  IF CH% = 1 THEN
+      DW = DW - CA:
+      CA = 0:
+      GOSUB 400:
+      X =  USR (14):
+      CALL 2521:
+      GOSUB 94
+
+# no
+1090  IF CH% = 2 THEN CA = 0:
+      LI = 0:
+      GOSUB 400:
+      X =  USR (15):
+      PRINT T$;".":
+      CALL 2518:
+      GOSUB 94
+
+1100  GOSUB 300
+
+1120  IF DM = 0 THEN 1210
+
+# mchenry
+1130  GOSUB 400:
+      PRINT T$;:
+      X =  USR (16):
+      CH$ = "YN":
+      GOSUB 100:
+      IF CH% = 2 THEN 1210
+
+1140 BR =  INT (( FN R(60 * (TI + 3) / 4) + 25 * (TI + 3) / 4) * SC / 50)
+
+1142 WW =  INT (DM / SC * 100 + .5)
+
+1145  GOSUB 400:
+      X =  USR (17):
+      PRINT WW;"% damaged.":
+      PRINT :
+      WW = BR * DM + 1:
+      GOSUB 600:
+      X =  USR (18):
+      PRINT WW$;","
+
+1150 X =  USR (19):
+     GOSUB 150:
+     IF R1% = 1 THEN
+       W = BR * DM + 1:
+       IF CA < W THEN
+         W = CA
+
+1155 IF CA < W THEN
+        GOSUB 400:
+        PRINT T$;:
+        X =  USR (12):
+        GOSUB 96:
+        GOTO 1142
+
+1160 WW =  INT (W / BR + .5):
+     DM = DM - WW:
+     CA = CA - W:
+     DM =  INT (DM * (DM > 0)):
+     GOSUB 300:
+     GOSUB 400
+
+1210 IF DW < 10000 OR WN OR D = 0 THEN 1300
+
+# wu's warning
+1220  GOSUB 400:
+      PRINT "Elder Brother Wu has sent "; FN R(100) + 50;" braves":
+      PRINT "to escort you to the Wu mansion, ";T$;".":
+      WN = 1:
+      GOSUB 94
+
+1230  GOSUB 400:
+      X =  USR (20):
+      GOSUB 92
+
+1240  GOSUB 400:
+      X =  USR (21):
+      PRINT T$;".";:
+      GOSUB 92
+
+1300  REM 
+
+# do you have business with wu?
+1310  GOSUB 400:
+      X =  USR (22):
+      CH$ = "NY":
+      WU% = 1:
+      GOSUB 100:
+      WU% = 0:
+      IF CH% <> 2 THEN 1500
+
+# check for player being out of money/guns/cargo
+1320 W = 0:
+     FOR I = 1 TO 2:
+       FOR J = 1 TO 4:
+         W = W + ST(I,J):
+     NEXT J,I:
+     IF CA OR BA OR W OR GN THEN 1360
+
+1330 BL% = BL% + 1:
+     I =  INT ( FN R(1500) + 500):
+     J =  FN R(2000) * BL% + 1500:
+     GOSUB 400:
+     PRINT "Elder Brother is aware of your plight,  ";T$;
+       ".  He is willing to loan you an   additional ";I;
+       " if you will pay back"
+
+1340  PRINT J;". Are you willing, ";T$;"? ";:
+      CH$ = "YN":
+      GOSUB 100:
+      IF CH% = 2 THEN
+        GOSUB 400:
+        PRINT :
+        PRINT "Very well, Taipan, the game is over!":
+        CALL 2512:
+        GOTO 2698
+
+1350 CA = CA + I:
+     DW = DW + J:
+     GOSUB 400:
+     PRINT "Very well, ";T$;".  Good joss!!":
+     CALL 2521:
+     GOSUB 300:
+     GOSUB 96:
+     GOTO 1500
+
+1360  IF DW = 0 OR CA = 0 THEN 1400
+
+1370  GOSUB 400:
+      X =  USR (23):
+      GOSUB 150:
+      IF R1% THEN
+        W = CA:
+        IF CA > DW THEN
+          W = DW
+
+1380  IF CA >= W THEN
+        CA = CA - W:
+        DW = DW - W:
+        GOSUB 300: GOTO 1400
+
+1390  PRINT :
+      PRINT :
+      PRINT T$;", you have only ";CA:
+      PRINT "in cash.":
+      CALL 2518:
+      GOSUB 94:
+      GOTO 1370
+
+1400  GOSUB 400:
+      X =  USR (24):
+      GOSUB 150:
+      IF R1% THEN
+        W = 2 * CA
+
+1420  IF CA * 2 >= W THEN
+        CA = CA + W:
+        DW = DW + W:
+        GOSUB 300:
+        GOTO 1450
+
+1430  PRINT :
+      PRINT :
+      PRINT "He won't loan you so much, ";T$;"!":
+      CALL 2518:
+      GOSUB 94:
+      GOTO 1400
+
+1450  REM 
+
+1460  IF DW > 20000 AND  NOT ( FN R(5)) THEN
+        GOSUB 400:
+        PRINT "Bad joss!!":
+        PRINT  FN R(3) + 1;" of your bodyguards have been killed":
+        PRINT "by cutthroats and you have been robbed  of all your cash, ";T$;"!!":
+        CALL 2512:
+        CA = 0:
+        GOSUB 300:
+        GOSUB 94
+
+# offer ship upgrade
+1500  REM 
+
+1610 I =  INT (1000 +  FN R(1000 * (TI + 5) / 6)) * ( INT (SC / 50) * (DM > 0) + 1):
+     IF CA < I OR  FN R(4) THEN 1700
+    
+1615 W$ =  CHR$ (15) +  CHR$ (15) + "damaged_______" +
+       CHR$ (15) + CHR$ (16) + "fine":
+     WW = I:
+     GOSUB 600
+
+1620  GOSUB 400:
+      PRINT "Do you wish to trade in your "; MID$(W$,(DM = 0) * 25 + 1,25):
+      PRINT "ship for one with 50 more capacity by   paying an additional ";WW$;
+        ", ";T$;"? ";
+
+1630 CH$ = "YN":
+     GOSUB 100:
+     IF CH% = 1 THEN
+       CA = CA - I:
+       MW = MW + 50:
+       SC = SC + 50:
+       DM = 0:
+       GOSUB 300
+
+# offer gun
+1700  REM 
+
+1710 I =  INT ( FN R(1000 * (TI + 5) / 6) + 500):
+     IF CA < I OR FN R(3) THEN 1900
+
+1720 WW = I:
+     GOSUB 600:
+     GOSUB 400:
+     PRINT "Do you wish to buy a ship's gun":
+     PRINT "for ";WW$;", ";T$;"? ";:
+     CH$ = "NY":
+     GOSUB 100:
+     IF CH% = 1 THEN 1900
+
+1730  IF MW >= 10 THEN
+        CA = CA - I:
+        GN = GN + 1:
+        MW = MW - 10:
+        GOSUB 300:
+        GOTO 1900
+
+1740  PRINT :
+      PRINT :
+      PRINT "Your ship would be overburdened, ";T$;"!":
+      CALL 2518:
+      GOSUB 94
+
+1900  IF ST(2,1) = 0 OR LO = 1 OR FN R(18) THEN 2000
+
+# I think this is where you get your opium seized.
+1910 I =  FN R(CA / 1.8):
+     WW = I:
+     GOSUB 600:
+     GOSUB 400:
+     CALL 2512:
+     X =  USR (25) +  USR (26):
+     PRINT WW$;", ";T$;"!":
+     MW = MW + ST(2,1):
+     ST(2,1) = 0:
+     CA = CA - I:
+     GOSUB 300:
+     GOSUB 94
+
+2000 W = 0:
+     FOR J = 1 TO 4:
+       W = W + ST(1,J):
+     NEXT J:
+     IF W = 0 OR  FN R(50) THEN 2100
+
+2030 GOSUB 400:
+     CALL 2512:
+     X =  USR(25) +  USR(27):
+     PRINT T$;"!":
+     FOR J = 1 TO 4:
+       W = ST(1, J):
+       WW =  FN R(W / 1.8):
+       WS = WS - W + WW:
+       ST(1,J) = WW:
+     NEXT J:
+     GOSUB 300:
+     GOSUB 96
+
+# set prices
+2100  FOR I = 1 TO 4:
+        CP(I) = BP%(LO,I) / 2 * ( FN R(3) + 1) * 10 ^ (4 - I):
+      NEXT I
+
+2310 LI = LI AND  FN R(20):
+     IF LI = 0 AND LI% > 0 THEN
+       LI% = LI% + 1:
+       IF LI% > 4 THEN
+         LI% = 0
+
+2330  IF LI = 0 AND LO <> 1 AND FN R(4) THEN
+        GOSUB 400:X = USR (28):
+        CALL 2521:
+        GOSUB 94
+
+2410  IF  FN R(9) THEN 2500
+
+2420  GOSUB 400:
+      I =  FN R(4) + 1:
+      J =  FN R(2):
+      K =  FN R(2) * 5:
+      PRINT T$;"!!  The price of ";CO$(I)
+
+2430  IF J = 0 THEN
+        CP(I) =  INT(CP(I) / 5):
+        PRINT "has dropped to ";CP(I);"!!":
+        CALL 2518
+
+2440  IF J = 1 THEN
+        CP(I) = CP(I) * ( FN R(5) + 5):
+        WW = CP(I):
+        GOSUB 600:
+        PRINT "has risen to ";WW$;"!!":
+        CALL 2518
+
+2450  GOSUB 94
+
+2500  REM 
+
+2501  GOSUB 400:
+      IF CA > 25000 AND NOT ( FN R(20)) THEN
+        I =  FN R(CA / 1.4):
+        WW = I:
+        GOSUB 60 0:
+        X =  USR (25):
+        PRINT "You' ve been beaten up and robbed of":
+        PRINT WW$;" in cash, " ;T$;"!!":
+        CALL 2512:
+        CA = CA - I:
+        GOSUB 300:
+        GOSUB 94:
+        VTAB 22:
+        HTAB 1:
+        PRINT CE$
+
+2510  GOSUB 400:
+      PRINT T$;:
+      X =  USR (29)
+
+2515  FOR I = 1 TO 3 STEP 2:
+        PRINT TAB( 4); LEFT$ (CO$(I),7);" : ";
+          CP(I); TAB( 18); LEFT$ ( CO$(I + 1),7);": ";CP(I + 1) :
+      NEXT I
+
+2520 I = CA + BA - DW:
+     VTAB 22:
+     HTAB 1:
+     PRINT CE$
+
+2522  IF LO <> 1 THEN
+        X =  USR (30):CH$ = "BSQ"
+
+2524  IF LO = 1 AND I < 1E6 THEN
+        X =  USR (31) +  USR (32):
+        CH$ = "BSQTV"
+
+2526  IF LO = 1 AND I >= 1E6 THEN 
+        X =  USR (31) +  USR (33):
+        CH$ = "BSQTVR"
+
+2528  GOSUB 100:
+      ON CH% GOTO 2530,2570,2700,2620,2680,2695
+
+2530  VTAB 23:
+      HTAB 1:
+      PRINT CE$;"What do you wish me to buy, ";T$;"? ";:
+      CH$ = "OSAG":
+      GOSUB 100:
+      CO$ = CO$(CH%):
+      CP = CP(CH%)
+
+2540  VTAB 22:
+      HTAB 1:
+      PRINT CE$,IV$;:
+      HTAB 31:
+      PRINT " You can ";:
+      VTAB 23:
+      HTAB 31:
+      PRINT "  afford ";:
+      VTAB 24:
+      HTAB 31:
+      PRINT "         ";:
+      W =  INT(CA / CP):
+      IF W > 1E9 THEN
+        W = 1E9 - 1
+
+2542  HTAB 36 -  LEN ( STR$ (W)) / 2:
+      PRINT W;NV$;:
+      VTAB 23:
+      HTAB 1:
+      PRINT "How much ";CO$;" shall":
+      PRINT "I buy, ";T$;"? ";:
+      GOSUB 150:
+      IF R1% THEN
+      W =  INT (CA / CP):
+      IF W > 1E9 THEN
+        W = 1E9 - 1
+
+2550  IF W < 0 OR CA < W * CP THEN 
+        CALL 2524:
+        GOTO 2540
+
+2560 MW = MW - W:
+     CA = CA - W * CP:
+     ST(2,CH%) = ST(2,CH%) + W:
+     GOSUB 300:
+     VTAB 22:
+     HTAB 1:
+     CALL -958:
+     GOTO 2520
+
+2570 VTAB 23:
+     HTAB 1:
+     PRINT CE$ ;"What do you wish me to sell, ";T$;"? ";:
+     CH$ = "OSAG":
+     GOSUB 100:
+     CO$ = CO$(CH%):
+     CP = CP(CH%)
+
+2580 VTAB 22:
+     HTAB 1:
+     PRINT CE$:
+     PRINT "How much ";CO$;" shall":
+     PRINT "I sell, ";T$;"? ";:
+     GOSUB 150:
+     IF R1% THEN
+       W = ST(2,CH%)
+
+2590  IF W < 0 OR ST(2,CH%) < W THEN 
+        CALL 2524:
+        GOTO 2580
+
+2600 MW = MW + W:
+     CA = CA + W * CP:
+     ST(2,CH%) = ST(2,CH%) - W:
+     GOSUB 300:
+     VTAB 22:
+     HTAB 1:
+     PRINT CE$;:
+     GOTO 2520
+
+2620  REM 
+
+2622 W = 0:
+     FOR I = 1 TO 2:
+       FOR J = 1 TO 4:
+         W = W + ST(I,J):
+     NEXT J,I:
+     IF W = 0 THEN
+       VTAB 22:
+       HTAB 1:
+       PRINT CE$;"You have no cargo, ";T$;".":
+       CALL 2518:
+       GOSUB 94:
+       GOTO 2520
+
+2624  FOR J = 1 TO 4:
+        FOR K = 1 TO 2:
+          I = 3 - K:
+          IF ST(I,J) = 0 THEN 2634
+
+2626  GOSUB 400:
+      PRINT "How much ";CO$(J);" shall I move":
+      PRINT MID$ ("to the warehouseaboard ship",K * 16 - 15,16);", ";T$;"? ";:
+      GOSUB 150:
+      IF R1% THEN
+        W = ST(I,J):
+        IF W > (WC - WS) AND K = 1 THEN
+          W = (WC - WS)
+
+2627  IF K = 2 THEN 2630
+
+2628  IF W > 0 AND WS = WC THEN
+        PRINT :
+        PRINT :
+        PRINT "Your warehouse is full, ";T$;"!":
+        CALL 2518:
+        GOSUB 94:
+        GOTO 2626
+
+2629  IF W > (WC - WS) THEN
+        PRINT :
+        PRINT :
+        PRINT "Your warehouse will only hold an":
+        PRINT "additional ";WC - WS;", ";T$;"!";:
+        CALL 2518:
+        GOSUB 94:
+        GOTO 2626
+
+2630  IF W > ST(I,J) THEN
+        PRINT :
+        PRINT :
+        PRINT "You have only ";ST(I,J);", ";T$;".":
+        CALL 2518:
+        GOSUB 94:
+        GOTO 2626
+
+2632 ST(I,J) = ST(I,J) - W:
+     ST(K, J) = ST(K,J) + W:
+     MW = MW +  SGN (I - K) * W:
+     WS = WS +  SGN (I - K) * W:
+     GOSUB 300
+
+2634 NEXT K,J:
+     GOTO 2500
+
+2680  REM 
+
+2690 GOSUB 500:
+     GOTO 2500
+
+2695 OK = 16
+
+2696 GOSUB 400:
+     PRINT IV$; TAB(26):
+     PRINT :
+     PRINT " Y o u ' r e    a"; TAB( 26):
+     PRINT :
+     PRINT  TAB( 26):
+     PRINT :
+     PRINT " M I L L I O N A I R E ! ":
+     PRINT  TAB( 26):
+     PRINT NV$:
+     GOSUB 96
+
+2698 : GOSUB 20000
+
+2699  PRINT "Play again? ";:
+      CH$ = "NY":
+      GOSUB 100:
+      ON CH% GOTO 63999:
+      RUN 
+
+2700  REM 
+
+2810  IF MW < 0 THEN
+      GOSUB 400:
+      PRINT "You're ship is overloaded, ";T$;"!!":
+      CALL 2518:
+      GOSUB 94:
+      GOTO 2500
+
+3010  GOSUB 400:
+      PRINT T$;", do you wish to go to: ":
+      PRINT "1) Hong Kong, 2) Shanghai, 3) Nagasaki, 4) Saigon, 5) Manila, 6) Singapore, or  7) Batavia ? ";
+
+3020  CH$ = "1234567":
+      GOSUB 100:
+      D = CH%:
+      IF D = LO THEN
+        PRINT :
+        PRINT :
+        PRINT "You're already here, ";T$;".";:
+        CALL 2518:
+        GOSUB 94:
+        GOTO 3010
+
+3030 LO = 0:
+     GOSUB 300:
+     GOSUB 400:
+     GOSUB 490
+
+3100  REM 
+
+3110 IF  FN R(BP) THEN 3200
+
+3120 SN =  FN R(SC / 10 + GN) + 1:
+     GOSUB 400:
+     CALL 2512:
+     PRINT SN;" hostile ship"; MID$ ("s",(SN = 1) + 1,1);" approaching, ";T$;"!!":
+     GOSUB 96:
+     F1 = 1:
+     GOTO 5000
+
+3200  REM 
+
+3210 IF  FN R(4 + 8 * LI) THEN 3300
+
+3220 GOSUB 400:
+     PRINT "Li Yuen's pirates, ";T$;"!!":
+     CALL 2521:
+     GOSUB 94:
+     IF LI THEN  PRINT :
+       PRINT "Good joss!! They let us be!!":
+       CALL 2521:
+       GOSUB 94:
+       GOTO 3300
+
+3230 SN =  FN R(SC / 5 + GN) + 5:
+     GOSUB 400:
+     PRINT SN;" ships of Li Yuen's pirate":
+     PRINT "fleet, ";T$;"!!":
+     CALL 2512:
+     GOSUB 94:
+     F1 = 2:
+     GOTO 5000
+    
+3300  REM 
+
+3310  IF  FN R(10) THEN 3350
+
+3320 GOSUB 400:
+     PRINT "Storm, ";T$;"!!":
+     CALL 2521:
+     GOSUB 94:
+     IF  NOT ( FN R(30)) THEN PRINT :
+       PRINT "   I think we're going down!!":
+       CALL 2521:
+       GOSUB 94:
+       IF  FN R(DM / SC * 3) THEN  PRINT :
+         PRINT "We're going down, Taipan!!":
+         CALL 2512:
+         OK = 1:
+         GOTO 2698
+    
+3330  PRINT :
+      PRINT "    We made it!!":
+      CALL 2521:
+      GOSUB 94:
+      IF  FN R(3) THEN 3350
+
+3340 LO =  FN R(7) + 1:
+     ON (LO = D) GOTO 3340:
+     GOSUB 400:
+     PRINT "We've been blown off course":
+     PRINT "to ";LO$(LO):
+     D = LO:
+     GOSUB 94
+
+3350 LO = D:
+     GOTO 1000
+
+5000  REM 
+
+5030 LC = 0:
+     CMD = 0:
+     PRINT FS$;HM$
+
+5050 VTAB 1:
+     HTAB 1:
+     PRINT "   ships attacking, ";T$;"!":
+     VTAB 1:
+     HTAB 32:
+     PRINT CG$;"!":
+     VTAB 2:
+     HTAB 32:
+     PRINT "!":
+     VTAB 3:
+     HTAB 32:
+     PRINT "<::::::::";CS$:
+     VTAB 2:
+     HTAB 37:
+     PRINT "guns":
+     VTAB 1:
+     HTAB 34:
+     PRINT "We have";
+
+5060  PRINT "Your orders are to: "
+
+5080 FOR I = 0 TO 9:
+       AM%(I,0) = 0:
+       AM%(I,1) = 0:
+     NEXT I:
+     SA = SN:
+     S0 = SN:
+     BT =  FN R(TI / 4 * 1000 * SN ^ 1.05) +  FN R(1000) + 250:
+     SS = 0
+
+5090  REM 
+
+5100 GOSUB 5760:
+     GOSUB 5700:
+     LC = CMD:
+     VTAB 12:
+     HTAB 40:
+     PRINT MID$ ("+ ", NOT (SA) + 1,1)
+
+5160 DM =  INT (DM):
+     WW = 100 -  INT (DM / SC * 100):
+     IF WW < 0 THEN
+       WW = 0
+
+5162 VTAB 4:
+     PRINT "Current seaworthiness:";
+       ST$( INT (WW / 20));" (";WW;"%)":
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$
+
+5165 IF WW = 0 THEN
+       OK = 0:
+       GOTO 5900
+
+5175  GOSUB 5600
+
+5180  ON CMD GOTO 5200,5300,5400
+ 
+5190 VTAB 4:
+     PRINT T$;", what shall we do??":
+     CALL 2512:
+     GOSUB 5600:
+     ON (CMD = 0) + 1 GOTO 5500,5180
+
+5200  REM 
+
+5205 VTAB 4:
+     HTAB 1:
+     PRINT CL$:
+     VTAB 4:
+     PRINT "Aye, we'll run, ";T$;"!":
+     GOSUB 96:
+     VTAB 4:
+     PRINT CL$
+
+5207 IF LC = 1 OR LC = 3 THEN
+       OK = OK + IK:
+       IK = IK + 1
+
+5208 IF LC = 0 OR LC = 2 THEN
+       OK = 3:
+       IK = 1
+
+5210 IF  FN R(OK) >  FN R(SN) THEN 
+       VTAB 4:
+       PRINT "We got away from 'em, ";T$;"!!":
+       CALL 2518:
+       GOSUB 96:
+       VTAB 4:
+       PRINT CL$:
+       OK = 3:
+       GOTO 5900
+
+5220 VTAB 4:
+     PRINT "Can't lose 'em!!":
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$
+
+5230 IF SN > 2 AND  FN R(5) = 0 THEN
+       W =  FN R(SN / 2) + 1:
+       SN = SN - W:
+       SA = SA - W:
+       GOSUB 5680:
+       GOSUB 5750:
+       VTAB 4:
+       PRINT "But we escaped from ";W;" of 'em, ";T$;"!":
+       GOSUB 5600:
+       VTAB 4:
+       PRINT CL$
+
+5240  GOTO 5500
+
+5300  REM 
+
+5302 IF GN = 0 THEN
+       VTAB 4:
+       HTAB 1:
+       PRINT "We have no guns, " ;T$;"!!":
+       GOSUB 5600:
+       VTAB 4 :
+       PRINT CL$:
+       GOTO 5500
+
+5305 VTAB 4:
+     HTAB 1:
+     PRINT CL$:
+     VTAB 4:
+     PRINT "Aye, we'll fight 'em, ";T$;"!":
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$
+
+5310 SK = 0:
+     VTAB 4:
+     PRINT "We're firing on 'em, ";T$;"!":
+     FOR K = 1 TO GN:
+     IF SN = 0 THEN 5340
+
+5320 I =  FN R(10):
+     IF AM%(I,0) = 0 THEN 5320
+
+5330 GOSUB 5840:
+     AM%(I,1) = AM%(I,1) +  FN R(30) + 10:
+     IF AM%(I,1) > AM%(I,0) THEN
+       AM%(I ,0) = 0:
+       AM%(I,1) = 0:
+       GOSUB 5860:
+       GOSUB 5820:
+       SK = SK + 1 :
+       SN = SN - 1:
+       SS = SS - 1:
+       GOSUB 5750:
+       IF SS = 0 THEN
+         GOSUB 5700
+
+5340 NEXT K:
+     IF SK > 0 THEN
+       VTAB 4:
+       HTAB 1:
+       PRINT "Sunk ";SK;" of the buggers, ";T$;"!":
+       CALL 2521:
+       GOSUB 5600:
+       VTAB 4:
+       PRINT CL$
+
+5350 IF SK = 0 THEN
+       VTAB 4:
+       HTAB 1:
+       PRINT "Hit 'em, but didn't sink 'em, ";T$;"!":
+       GOSUB 5600:
+       VTAB 4:
+       PRINT CL$
+
+5360 IF FN R(S0) < SN * .6 / F 1
+       OR SN = 0
+       OR SN = S0
+       OR SN < 3
+       THEN 5500
+
+5362 W =  FN R(SN / 3 / F1) + 1:
+     SN = SN - W:
+     SA = SA - W:
+     GOSUB 5680
+
+5390 VTAB 4:
+     PRINT W;" ran away, ";T$;"!":
+     GOSUB 5750:
+     CALL 2521:
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$:
+     GOTO 5500
+
+# throw cargo
+5400  REM 
+
+5410 GOSUB 400:
+     PRINT "You have the following on board, ";T$;": ";:
+     FOR J = 1 TO 4:
+       VTAB 20 + (J = 3 OR J = 4):
+       HTAB 1 + 19 * (J = 2 OR J = 4):
+       PRINT RIGHT$ ("         " +  LEFT$(CO$(J),7),9);": ";ST(2,J):
+     NEXT J
+
+5420 VTAB 4:
+     PRINT "What shall I throw overboard, ";T$;"? ";:
+     CH$ = "OSAG*":
+     GOSUB 100:
+     VTAB 4:
+     HTAB 1:
+     PRINT CL$
+
+5430 IF CH% = 5 THEN
+       II = 1:
+       IJ = 4:
+       IK = 1E9:
+       GOTO 5450
+
+5440 VTAB 4:
+     PRINT "How much, ";T$;"? ";:
+     GOSUB 150:
+     II = CH%:
+     IJ = CH%:
+     IF R1% THEN
+       W = ST(2,II)
+
+5450 WW = 0:
+     FOR J = II TO IJ:
+       IK = ST(2,J):
+       IF W > IK THEN
+         W = IK
+
+5460    ST(2,J) = ST(2,J) - W:
+        WW = WW + W:
+        MW = MW + W:
+     NEXT J:
+     VTAB 4:
+     HTAB 1:
+     PRINT CL$
+
+5470 IF WW = 0 THEN
+     VTAB 4:
+     PRINT "There's nothing there, ";T$ ;"!":
+     CALL 2518:
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$
+
+5480 GOSUB 400:
+     IF WW > 0 THEN
+       RF = RF + WW / 3:
+       OK = OK + W W / 10:
+       VTAB 4:
+       PRINT "Let's hope we lose 'em, ";T$;"!":
+       CALL 2521:
+       GOSUB 5600:
+       VTAB 4:
+       PRINT CL$:
+       GOTO 5210
+
+5500  REM 
+
+5505 IF SN = 0 THEN
+       VTAB 4:
+       PRINT "We got 'em all, ";T$;"!!":
+       CALL 2521:
+       GOSUB 5600:
+       OK = 1:
+       GOTO 5900
+
+5510 VTAB 4:
+     PRINT "They're firing on us, ";T$;"!":
+     GOSUB 5600:
+     VTAB 4:
+     PRINT CL$
+
+5540 FOR I = 1 TO 10:
+       POKE -16298,0:
+       POKE -16299,0:
+       POKE -16297,0:
+       POKE -16300,0:
+       FOR J = 1 TO 10:
+     NEXT J,I
+
+5542 VTAB 4:
+     PRINT "We've been hit, ";T$;"!!":
+     CALL 2512
+
+5545 I = SN:
+     IF I > 15 THEN
+       I = 15
+
+5550 IF GN THEN
+       IF FN R(100) < (DM / SC) * 100
+         OR (DM / SC) * 100 > 80 THEN
+           I = 1:
+           GOSUB 5600:
+           VTAB 4:
+           PRINT CL$:
+           VTAB 4:
+           PRINT "The buggers hit a gun, ";T$;"!!":
+           CALL 2512:
+           GN = GN - 1:
+           MW = MW + 10:
+           GOSUB 5600:
+           VTAB 4:
+           PRINT CL$
+
+5555 DM = DM +  FN R(ED * I * F1) + I / 2
+
+5560 IF  NOT ( FN R(20)) AND F1 = 1 THEN
+       OK = 2:
+       GOTO 5900
+
+5590 GOTO 5090
+
+5600 VTAB 2:
+     HTAB 21:
+     FOR II = 1 TO T / 3
+
+5610   W = PEEK (-16384):
+       IF W < 128 THEN
+         NEXT II:
+         PRINT:
+         RETURN 
+ 
+5620 IF W = 210 THEN
+       CMD = 1:
+       PRINT "Run        "
+
+5630 IF W = 198 THEN
+       CMD = 2:
+       PRINT "Fight      "
+
+5640 IF W = 212 THEN
+       CMD = 3:
+       PRINT "Throw cargo"
+
+5650 POKE  -16368,0:
+     PRINT 
+
+5670 RETURN 
+
+5680 IF SA >  = 0 THEN
+       RETURN 
+ 
+5681 I = 9:
+     FOR IJ = SA TO  - 1
+
+5682   IF AM%(I,0) = 0 THEN
+         I = I - 1:
+         GOTO 5682
+
+5683   AM%(I,0) = 0:
+       AM%(I,1) = 0:
+       GOSUB 5880:
+       GOSUB 5820:
+       I = I - 1:SS = SS - 1:
+     NEXT IJ:
+     RETURN 
+ 
+5700  REM 
+
+5710 FOR I = 0 TO 9:
+       IF AM%(I,0) THEN 5740
+
+5720   SA = SA - 1:
+       IF SA < 0 THEN 
+         SA = 0:
+         RETURN 
+
+5730   AM%(I,0) =  FN R(EC) + 20:
+       AM%(I,1) = 0:
+       GOSUB 5800:SS = SS + 1
+
+5740 NEXT I:
+     RETURN 
+
+5750  REM 
+
+5760 VTAB 1:
+     HTAB 1:
+     PRINT  RIGHT$("    " +  STR$ (SN),4)
+
+5770 VTAB 2:
+     HTAB 33:
+     PRINT  RIGHT$("   " +  STR$ (GN),3):
+     RETURN 
+
+5800 GOSUB 5880:
+     HTAB X:
+     VTAB Y :
+     PRINT SH$:
+     RETURN 
+
+5820 GOSUB 5880:
+     HTAB X:
+     VTAB Y :
+     PRINT SB$:
+     RETURN 
+
+5840 GOSUB 5880:
+     POKE 2493,(Y + 4) * 8 - 1:
+     POKE 2494,X - 1:
+     FOR J = 0 TO 1:
+       IJ =  FN R(6):
+       II = DL%(IJ,J):
+       HTAB X +  INT(II / 10):
+       VTAB Y + II -  INT(II / 10) * 10:
+       PRINT DM$(IJ,J):
+     NEXT J:
+     CALL 2368:
+     RETURN 
+
+5860 GOSUB 5880:
+     POKE 2361,(Y + 4) * 8 - 1:
+     POKE 2362,X - 1:
+     POKE 2300, FN R( FN R(192)) :
+     CALL 2224:
+     RETURN 
+
+5880 X = (I -  INT (I / 5) * 5) * 8 + 1:
+     Y =  INT (I / 5) * 6 + 7:
+     RETURN 
+
+5900 GOSUB 200:
+     GOSUB 300:
+     GOSUB 400
+
+5910 IF OK = 0 THEN
+     PRINT "The buggers got us, ";T$;"!!!":
+     PRINT "It's all over, now!!!":
+     OK = 1:
+     GOTO 2698
+
+5920 IF OK = 1 THEN
+     GOSUB 400:
+     PRINT "We've captured some booty":
+     WW = BT:
+     GOSUB 600:
+     PRINT "It's worth ";WW$;"!":
+     CALL 2518:
+     CA = CA + BT:
+     GOSUB 96:
+     GOTO 3300
+
+5930 IF OK = 2 THEN
+     PRINT "Li Yuen's fleet drove them off!":
+     GOSUB 96:
+     GOTO 3220
+
+5940 IF OK = 3 THEN
+     PRINT "We made it, ";T$;"!":
+     CALL 2518 :
+     GOSUB 96:
+     GOTO 3300
+
+# initialization stuff
+10000  REM  
+
+10010 CALL 6147:
+      POKE 1013,76:
+      POKE 1014,224:
+      POKE 1015,9:
+      POKE 10,76:
+      POKE 11,16:
+      POKE 12,11:
+      POKE 1010,102:
+      POKE 1011,213:
+      POKE 1012,112:
+      DIM LO$(7),CO$(4),CP(4),BP%(7,4),ST(2,4),AM%(9,1),DM$(5,1),DL%(5,1),ST$(5)
+
+10020 DEF  FN R(X) =  INT (USR (0) * X)
+
+10040 HM$ =  CHR$(16):
+      CS$ =  CHR$(1) + "0":
+      CA$ =  CHR$(1) + "1":
+      CG$ =  CHR$(1) + "2":
+      BD$ =  CHR$(2):
+      CD$ =  CHR$(3):
+      DD$ =  CHR$(4):
+      IV$ =  CHR$(9):
+      NV$ =  CHR$(14):
+      FS$ =  CHR$(25):
+      CE$ =  CHR$(6):
+      CL$ =  CHR$(5)
+
+10045 IF PEEK (2367) = 236 THEN 10070
+
+10050 POKE -16368,0
+
+# USR(0) is used for random numbers. I suspect this loop is
+# intended to randomize things by iterating the PRNG until
+# the user presses a key.
+10060 FOR I = 1 TO 400:
+      CH% = PEEK(-16384):
+      X = USR(0):
+      IF CH% < 128 THEN
+      NEXT 
+
+# pretty obviously flashes the 'ESC' on the title screen.
+10062 VTAB 20:
+      HTAB 31:
+      PRINT IV$;CA$;"'ESC'";:
+        FOR I = 1 TO 20:
+        X =  USR (0):
+        IF PEEK (-16384) <> 155 THEN
+          NEXT :
+          VTAB 20:
+          HTAB 31:
+          PRINT NV$;CA$ + "'ESC'";:
+          FOR I = 1 TO 20:
+            X =  USR (0):
+            IF PEEK (-16384) <> 155 THEN
+              NEXT :
+              GOTO 10062
+
+10070 POKE 2367,236:
+      POKE -16368,0:
+      PRINT NV$;FS$;HM$
+
+10110 VTAB 8:
+      HTAB 1:
+      PRINT CG$;"[";:
+      & 45,38:
+      PRINT "]";:
+      FOR I = 1 TO 8:
+        PRINT "!"; TAB(40);"!";:
+      NEXT I:
+      PRINT "<";:
+      & 58,38:
+      PRINT ">";CS$
+
+10120 VTAB 10:
+      HTAB 7:
+      PRINT CS$;T$;",":
+      VTAB 12:
+      HTAB 3:
+      PRINT "What will you name your":
+      VTAB 15:
+      HTAB 13:
+      & 45,22:
+      VTAB 14:
+      HTAB 7:
+      PRINT "Firm:
+      ";CA$;:
+      & 32,27:
+      VTAB 14:
+      HTAB 13:
+      POKE 33,39:
+      CALL 2200:
+      POKE 33,40:
+      WK$ =  MID$ (WK$,1):
+      IF WK$ = "" THEN
+        CALL 2521:
+        GOTO 10120
+
+10130 IF LEN (WK$) > 22 THEN
+        PRINT :
+        VTAB 18:
+        PRINT IV$;:
+        & 32,42:
+        PRINT "Please limit your Firm's name to 22     chara cters or less.";:
+        & 32,59:
+        PRINT NV$:
+        CALL 2518:
+        GOSUB 92:
+        VTAB 18:
+        PRINT CE$:
+        GOTO 10120
+
+10140 H$ = WK$:
+      PRINT HM$;CS$:
+      VTAB 6:
+      PRINT "Do you want to start . . .":
+      PRINT :
+      PRINT :
+      PRINT "  1) With cash (and a debt)":
+      PRINT :
+      PRINT :
+      PRINT ,">> or <<":
+      PRINT :
+      PRINT :
+      PRINT "  2) With five guns and no cash":
+      PRINT ,"(But no debt!)"
+
+10150 PRINT :
+      PRINT :
+      PRINT  TAB(10);" ?";:
+      CH$ = "12":
+      GOSUB 100:
+      MO = 1:
+      YE = 1860:
+      SC = 60 :
+      BA = 0:
+      LO = 1:
+      TI = 1:
+      WC = 10000:
+      WS = 0
+
+10160 IF CH% = 1 THEN
+        DW = 5000 :
+        CA = 400:
+        MW = 60:
+        GN = 0:
+        BP = 10
+
+10170 IF CH% = 2 THEN
+        DW = 0:
+        CA = 0:
+        MW = 10:
+        GN = 5:
+        BP = 7
+
+10180 FOR I = 0 TO 7:
+        READ LO$(I):
+      NEXT I:
+      DATA At sea,Hong Kong,Shanghai,Nagasaki,Saigon,Manila,Singapore,Batavia
+
+10190 FOR I = 1 TO 4:
+        READ CO$(I):
+          FOR J = 1 TO 7:
+            READ BP%(J,I):
+      NEXT J,I
+
+10200 DATA Opium,11,16,15,14,12,10,13,
+           Silk,11,14,15,16,10,13,12,
+           Arms,12,16,10,11,13,14,15,
+           General Cargo,10,11,12,13,14,15,16
+
+10210 FOR I = 0 TO 5:
+        READ ST$(I):
+      NEXT I:
+      DATA "Critical", "  Poor","  Fair","  Good"," Prime","Perfect" 
+
+10250 SH$ = BD$ + CG$ + "ABCDEFG" +
+            CD$ + "HIJKLMN" +
+            CD$ + "OIJKLPQ" +
+            CD$ + "RSTUVWX" +
+            CD$ + "YJJJJJZ" + DD$
+
+10260 SB$ = BD$:
+      FOR II = 1 TO 5:
+        SB$ = SB$ + "       " + CD$:
+      NEXT II:
+      SB$ = SB$ + DD$
+
+10270 FOR I = 0 TO 5:
+        FOR J = 0 TO 1:
+          CH$ = BD$ + CG$
+
+10280      READ WK$:
+           CH$ = CH$ + WK$:
+           IF RIGHT$ (CH$,1) = "*" THEN
+             CH$=MID$(CH$,1,LEN(CH$) - 1) + CD$:
+             GOTO 10280
+
+10290        DM$(I,J) = CH$ + DD$: READ DL%(I,J):
+        NEXT J,I
+
+10300 DATA cde,20,r,3,fg*,mn,50,tu,23,ij,11,vw,43,0,22,x*,z,63,kl,32,12,14,pq,52,345,34
+ 
+10310 EC = 20:
+      ED = .5
+
+10990 GOSUB 200: GOTO 1000
+
+# final stats
+20000 REM 
+
+20010 WW = CA + BA - DW:
+      GOSUB 600:
+      WW =  INT ((CA + BA - DW) / 100 / TI ^ 1.1)
+
+20020 PRINT FS$;HM$;CS$;:
+      PRINT "Your final status: ":
+      PRINT :
+      PRINT "Net Cash: ";WW$:
+      PRINT :
+      PRINT "Ship size: ";SC;" units with ";GN;" guns":
+      PRINT 
+ 
+20030 PRINT "You traded for ";
+            INT(TI / 12);" year";
+            MID$ ("s",(TI > 11 AND TI < 24) + 1,1);
+            " and ";TI -  INT (TI / 12) * 12;" month";
+            MID$ ("s",((TI -  INT (TI / 12) * 12) = 1) + 1,1):
+      PRINT :
+      PRINT IV$;"Your score is ";WW;".";NV$
+ 
+20040 VTAB 14:
+      PRINT "Your Rating: ":
+      PRINT CG$;"[";:
+      & 45,31:
+      PRINT "]":
+      FOR I = 1 TO 5 :
+        PRINT "!";:
+        HTAB 33:
+        PRINT "!":
+      NEXT I:
+      PRINT "<";:
+      & 5 8,31:
+      PRINT ">";CS$:
+      VTAB 16
+
+20050 HTAB 2:
+      IF WW > 49999 THEN 
+        PRINT IV$;
+
+20060 PRINT "Ma Tsu";NV$;"     50,000 and over "
+
+20070 HTAB 2:
+      IF WW < 50000 AND WW > 7999 THEN
+        PRINT IV$;
+
+20080 PRINT "Master ";T$;NV$;" 
+	8,000 to 49,999"
+
+20090 HTAB 2:
+      IF WW < 8000 AND WW > 999 THEN
+        PRINT IV$;
+
+20100 PRINT T$;NV$;"          1,000 to  7,999"
+
+20110 HTAB 2:
+      IF WW < 1000 AND WW > 499 THEN
+        PRINT IV$;
+
+20120 PRINT "Compradore";NV$;" 500 to    999"
+
+20130 HTAB 2:
+      IF WW < 500 THEN
+        PRINT IV$;
+
+20140 PRINT "Galley Hand";NV$;" less than 500"
+
+20170  VTAB 11
+
+20180 IF WW < 99 AND WW >= 0 THEN 
+        PRINT "Have you considered a land based job?":
+        PRINT 
+
+20190 IF WW < 0 THEN
+        PRINT "The crew has requested that you stay on shore for their safety!!":
+        PRINT 
+
+20900 VTAB 23:
+      RETURN 
+
+63999 PRINT FS$;HM$:
+      TEXT :
+      HOME :
+      POKE 103,1:
+      POKE 104,8:
+      END 
diff --git a/taipan.c b/taipan.c
index 9173803..440b1cd 100644
--- a/taipan.c
+++ b/taipan.c
@@ -72,6 +72,9 @@ extern unsigned char __fastcall__ yngetc(char dflt);
 /* sleep for j jiffies (no PAL adjustment at the moment) */
 extern void __fastcall__ jsleep(unsigned int j);
 
+/* flash screen when we're hit in combat */
+extern void explosion(void);
+
 #define flushinp() (POKE(764,255))
 
 /* Atari-specific random number functions from rand.s.
@@ -679,7 +682,7 @@ void update_guns() {
 }
 
 void fight_stats(int ships, int orders) {
-	cursor(0);
+	// cursor(0);
    gotoxy(0, 0);
 
 	justify_int(ships);
@@ -750,8 +753,7 @@ int sea_battle(int id, int num_ships) {
    }
 
    clrscr();
-	cursor(0);
-   // flushinp();
+	// cursor(0);
 
 /* the static part of "we have N guns" display, gets printed
 	only once per battle. Bloats the code by 30-odd bytes, but
@@ -1103,30 +1105,10 @@ int sea_battle(int id, int num_ships) {
          cputs("They're firing on us, Taipan!");
 
          timed_getch();
-
-			/* screen flash doesn't change the hue bit of
-				COLOR2 register, since we now support changing
-				it on the title screen. */
-			for(i = 0; i < 3; i++) {
-				unsigned char color = PEEK(710) & 0xf0;
-				unsigned char textcolor = PEEK(709);
-				POKE(709,0);
-				POKE(710, color | 0x0c);
-				jsleep(10);
-				POKE(710, color & 0xf0);
-				jsleep(10);
-				POKE(709,textcolor);
-			}
+			hide_cursor();
+			explosion();
 
          fight_stats(num_ships, orders);
-			/* XXX: I don't think this is needed at all!
-         for(i = 0; i <= 9; i++) {
-            if(ships_on_screen[i] > 0) {
-					draw_lorcha(i);
-            }
-         }
-			*/
-
 			plus_or_space(num_ships > num_on_screen);
 
          gotoxy(0, 3);
@@ -1230,8 +1212,8 @@ unsigned long get_num(void) {
 	unsigned char count = 0;
    char input;
 
-	cursor(1);
-	cblank(1);
+	// cursor(1);
+	// cblank(1);
 
    while((input = numgetc()) != '\n') {
 		if(count >= 10) continue;
@@ -1242,7 +1224,7 @@ unsigned long get_num(void) {
          count--;
 		} else if(input == 'a') {
 			if(!count) {
-				cursor(0);
+				// cursor(0);
 				return UINT32_MAX;
 			}
 		} else if(input == 'k' || input == 'm') {
@@ -1263,7 +1245,7 @@ unsigned long get_num(void) {
          num_buf[count++] = input;
 		}
 	}
-	cursor(0);
+	// cursor(0);
 	num_buf[count] = '\0';
 	return strtoul(num_buf, (char **)NULL, 10);
 }
@@ -1283,10 +1265,10 @@ void cash_or_guns(void)
    while ((choice != '1') && (choice != '2'))
    {
       gotoxy(10, 10);
-		cursor(1);
+		// cursor(1);
 		cputc('?');
       choice = get_one();
-		cursor(0);
+		// cursor(0);
    }
 
 	cputc(choice);
@@ -1400,17 +1382,13 @@ void port_stats(void)
 
 	if(port_stat_dirty) {
 		void *p = (void *)(PEEK(88) + 256 * PEEK(89));
-		/* don't update the top of the screen while ANTIC is
-			reading from it (prevents tearing)... but it doesn't work :( */
-		// waitvcount(84);
 		memcpy(p, &port_stat_screen, 640);
 		port_stat_dirty = 0;
 	}
 #endif
 
 	/* dynamic stuff: */
-	// waitvcount(84);
-	cursor(0);
+	// cursor(0);
 	gotoxy(firmpos, 0);
 	cputs("Firm: ");
 	cputs(firm);
@@ -1604,7 +1582,7 @@ void aire(void) {
 #endif
 
 void retire(void) {
-	cursor(0);
+	// cursor(0);
 	compradores_report();
 	revers(1);
 	retire_blanks();
@@ -2552,7 +2530,7 @@ int port_choices(void) {
 
 	gotoxy(0, 22);
 	clrtobot();
-	cursor(0);
+	// cursor(0);
 
 #ifdef BIGNUM
 	// TODO: make this smaller!
@@ -2579,7 +2557,7 @@ int port_choices(void) {
 	if(!retire_ok) cputs("or ");
 	cputs("Quit trading");
 	if(retire_ok) cputs(", or Retire");
-	cursor(1);
+	// cursor(1);
 	cputs("? ");
 
 	for(;;) {
@@ -2593,7 +2571,7 @@ int port_choices(void) {
 				break;
 		}
 	}
-	cursor(0);
+	// cursor(0);
    return choice;
 }
 
@@ -2601,7 +2579,7 @@ int port_choices(void) {
 void name_firm(void) {
 	unsigned char input, firmlen = 0;
 
-	cursor(0);
+	// cursor(0);
    clrscr();
 
 	chlinexy(1, 7, 38);
@@ -2618,7 +2596,7 @@ void name_firm(void) {
 	gotoxy(2, 11);
 	cputs("What will you name your");
 	gotoxy(6, 13);
-	cursor(1);
+	// cursor(1);
 	cputs("Firm:");
 	chlinexy(12, 14, 22);
 
@@ -2641,7 +2619,7 @@ void name_firm(void) {
 		}
 	}
 
-	cursor(0);
+	// cursor(0);
    firm[firmlen] = '\0';
 	firmpos = 12 - firmlen / 2;
    return;
@@ -2956,6 +2934,7 @@ int main(void) {
 #endif
 
 	atari_text_setup();
+	cursor(0);
 
 #ifdef BIGNUM_TEST
 	bignum_test();
@@ -3020,8 +2999,6 @@ int main(void) {
          timed_getch();
 
 			clear_msg_window();
-         // gotoxy(0, 18);
-         // clrtobot();
          cputs("Elder Brother Wu reminds you of the\r\n");
          cputs("Confucian ideal of personal worthiness,\r\n");
          cputs("and how this applies to paying one's\r\n");
@@ -3030,8 +3007,6 @@ int main(void) {
          timed_getch();
 
 			clear_msg_window();
-         // gotoxy(0, 18);
-         // clrtobot();
          cputs("He is reminded of a fabled barbarian\r\n");
          cputs("who came to a bad end, after not caring\r\n");
          cputs("for his obligations.\r\n\r\n");