6502
/
8bitworkshop
mirror of https://github.com/sehugg/8bitworkshop.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

basic: fixed css, star trader fixes

This commit is contained in:
Steven Hugg 2020-08-21 17:42:38 -05:00
parent eeae662e6b
commit b2df149fb3
3 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
css/ui.css
View File

@ -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;

2
presets/basic/hello.bas
View File

@ -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

21
presets/basic/startrader.bas
View File

@ -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