mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-05-31 13:41:32 +00:00
basic: fixed css, star trader fixes
This commit is contained in:
parent
eeae662e6b
commit
b2df149fb3
|
@ -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;
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user