From b2df149fb318d77bd00756f77e469846e758212d Mon Sep 17 00:00:00 2001
From: Steven Hugg <hugg@fasterlight.com>
Date: Fri, 21 Aug 2020 17:42:38 -0500
Subject: [PATCH] basic: fixed css, star trader fixes

---
 css/ui.css                   |  5 ++++-
 presets/basic/hello.bas      |  2 +-
 presets/basic/startrader.bas | 21 +++++++++++----------
 3 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/css/ui.css b/css/ui.css
index 396b60d5..ab0c3fc2 100644
--- a/css/ui.css
+++ b/css/ui.css
@@ -29,7 +29,10 @@
   color: #ffee33;
 }
 .mark-error {
-  text-decoration: underline wavy 1px #ff6666;
+  text-decoration-line: underline;
+  text-decoration-style: wavy;
+  text-decoration-color: #ff6666;
+  text-decoration-thickness: 1px;
 }
 .tooltipbox {
     position: relative;
diff --git a/presets/basic/hello.bas b/presets/basic/hello.bas
index 9f7f7c5a..8713489f 100644
--- a/presets/basic/hello.bas
+++ b/presets/basic/hello.bas
@@ -71,7 +71,7 @@ OPTION DIALECT DARTMOUTH
 370 LET J = INT(15*RND)
 380 PRINT "MY FAVORITE SONG IS '";T$(J);"'"
 390 PRINT "BY ";A$(J);", DO YOU KNOW IT?"
-400 PRINT "IT SPENT";W(J);"WEEKS ON THE CHARTS."
+400 PRINT "IT SPENT";W(J);"WEEKS ATOP THE CHARTS."
 410 PRINT
 890 ' HERE'S THE DATA WE READ EARLIER
 891 ' WE CAN USE NUMBERS, QUOTED OR UNQUOTED STRINGS
diff --git a/presets/basic/startrader.bas b/presets/basic/startrader.bas
index 735d09d3..58da6ce5 100644
--- a/presets/basic/startrader.bas
+++ b/presets/basic/startrader.bas
@@ -3,6 +3,7 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
 1 REM***STAR TRADER FROM
 2 REM***http://www.dunnington.info/public/basicgames/
 3 REM***2 chain files merged and ported to 8bitworkshop
+10000 RANDOMIZE
 10010 DIM S[12,15],T[12,12],T$[72],B[3,12]
 10020 REM COM W,D9,K9,X9,D1,X1,P9,T9,S9,Y9,H
 10030 DIM M[6,3],C[6,3]:REM COM Y1,R9,G9,Q
@@ -285,8 +286,8 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
 20120 REM SET UP CALENDAR AND STAR SYSTEM NAMES
 20130 DIM C$[36],S$[60]
 20140 LET C$="JANFEBMARAPRMIYJUNJULAUGSEPOCTNOVDEC"
-20150 LET S$="SOL YORKBOYDIVANREEFHOOKSTANTASKSINKSANDQUINGAOLKIRK"
-20160 LET S$[53]="KRISFATE"
+20150 LET S$="SOL YORKBOYDIVANREEFHOOKSTANTASKSINKSANDQUINGAOLKIRKKRISFATE"
+20160 REM SEH: removed LET S$[53]="KRISFATE" b/c append doesn't work
 20170 REM S IS THE STAR SYSTEM INFO ARRAY
 20180 REM T IS THE TRADING SHIP INFO ARRAY
 20190 REM T$ IS THE TRADING SHIP NAME STRING (6 CHARS PER SHIP)
@@ -400,10 +401,10 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
 21090 PRINT "$ ON BOARD";N$;"  NET WT"
 21100 REM PRINT USING "DDXDDDXDDD,7(4X,2D)";T[11,T1],T[1,T1],T[2,T1],T[3,T1],T[4,T1],T[5,T1],T[6,T1],T[7,T1]
 21105 PRINT NFORMAT$(T[11,T1],10);
-21106 PRINT NFORMAT$(T[1,T1],4);:PRINT NFORMAT$(T[2,T1],4);
-21107 PRINT NFORMAT$(T[3,T1],4);:PRINT NFORMAT$(T[4,T1],4);
-21108 PRINT NFORMAT$(T[5,T1],4);:PRINT NFORMAT$(T[6,T1],4);
-21109 PRINT NFORMAT$(T[7,T1],4)
+21106 PRINT NFORMAT$(T[1,T1],6);:PRINT NFORMAT$(T[2,T1],6);
+21107 PRINT NFORMAT$(T[3,T1],6);:PRINT NFORMAT$(T[4,T1],6);
+21108 PRINT NFORMAT$(T[5,T1],6);:PRINT NFORMAT$(T[6,T1],6);
+21109 PRINT NFORMAT$(T[7,T1],6)
 21110 REM IMAGE  
 21120 REM *** BLOCK #7
 21130 GOSUB 23870
@@ -667,15 +668,15 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
 23540 NEXT I
 23550 GOSUB 24580
 23560 REM PRINT USING "#,4A,2X";S$[S[8,S1],S[8,S1]+3]
-23561 PRINT S$[S[8,S1],S[8,S1]+3]
+23561 PRINT S$[S[8,S1],S[8,S1]+3],
 23570 REM PRINT USING "5A,6(S5D)";D$,P[1],P[2],P[3],P[4],P[5],P[6]
-23571 PRINT D$,
+23571 PRINT D$;
 23572 PRINT NFORMAT$(P[1],6);
 23573 PRINT NFORMAT$(P[2],6);
 23574 PRINT NFORMAT$(P[3],6);
 23575 PRINT NFORMAT$(P[4],6);
 23576 PRINT NFORMAT$(P[5],6);
-23577 PRINT NFORMAT$(P[6],6);
+23577 PRINT NFORMAT$(P[6],6)
 23580 IF S1/2 <> INT(S1/2) THEN 23600
 23590 PRINT 
 23600 NEXT S1
@@ -686,7 +687,7 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
 23650 PRINT TAB(22);"CAPTAINS"
 23660 PRINT 
 23670 PRINT 
-23680 PRINT "NUMBER  $ ON SHIPS   $ IN BANK     CARGOES      TOTALS"
+23680 PRINT "NUMBER","$ ON SHIPS","$ IN BANK","CARGOES","TOTALS"
 23690 FOR B1=1 TO P9
 23700 GOSUB 24380
 23710 NEXT B1