6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-06-10 06:29:28 +00:00
Code Issues Projects Releases Wiki Activity

basic: fixed css, star trader fixes

Browse Source
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; color: #ffee33;
} }
.mark-error { .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 { .tooltipbox {
position: relative; position: relative;

2
presets/basic/hello.bas
View File

@ -71,7 +71,7 @@ OPTION DIALECT DARTMOUTH
370 LET J = INT(15*RND) 370 LET J = INT(15*RND)
380 PRINT "MY FAVORITE SONG IS '";T$(J);"'" 380 PRINT "MY FAVORITE SONG IS '";T$(J);"'"
390 PRINT "BY ";A$(J);", DO YOU KNOW IT?" 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 410 PRINT
890 ' HERE'S THE DATA WE READ EARLIER 890 ' HERE'S THE DATA WE READ EARLIER
891 ' WE CAN USE NUMBERS, QUOTED OR UNQUOTED STRINGS 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 1 REM***STAR TRADER FROM
2 REM***http://www.dunnington.info/public/basicgames/ 2 REM***http://www.dunnington.info/public/basicgames/
3 REM***2 chain files merged and ported to 8bitworkshop 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] 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 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 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 20120 REM SET UP CALENDAR AND STAR SYSTEM NAMES
20130 DIM C$[36],S$[60] 20130 DIM C$[36],S$[60]
20140 LET C$="JANFEBMARAPRMIYJUNJULAUGSEPOCTNOVDEC" 20140 LET C$="JANFEBMARAPRMIYJUNJULAUGSEPOCTNOVDEC"
20150 LET S$="SOL YORKBOYDIVANREEFHOOKSTANTASKSINKSANDQUINGAOLKIRK" 20150 LET S$="SOL YORKBOYDIVANREEFHOOKSTANTASKSINKSANDQUINGAOLKIRKKRISFATE"
20160 LET S$[53]="KRISFATE" 20160 REM SEH: removed LET S$[53]="KRISFATE" b/c append doesn't work
20170 REM S IS THE STAR SYSTEM INFO ARRAY 20170 REM S IS THE STAR SYSTEM INFO ARRAY
20180 REM T IS THE TRADING SHIP INFO ARRAY 20180 REM T IS THE TRADING SHIP INFO ARRAY
20190 REM T$ IS THE TRADING SHIP NAME STRING (6 CHARS PER SHIP) 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" 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] 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); 21105 PRINT NFORMAT$(T[11,T1],10);
21106 PRINT NFORMAT$(T[1,T1],4);:PRINT NFORMAT$(T[2,T1],4); 21106 PRINT NFORMAT$(T[1,T1],6);:PRINT NFORMAT$(T[2,T1],6);
21107 PRINT NFORMAT$(T[3,T1],4);:PRINT NFORMAT$(T[4,T1],4); 21107 PRINT NFORMAT$(T[3,T1],6);:PRINT NFORMAT$(T[4,T1],6);
21108 PRINT NFORMAT$(T[5,T1],4);:PRINT NFORMAT$(T[6,T1],4); 21108 PRINT NFORMAT$(T[5,T1],6);:PRINT NFORMAT$(T[6,T1],6);
21109 PRINT NFORMAT$(T[7,T1],4) 21109 PRINT NFORMAT$(T[7,T1],6)
21110 REM IMAGE 21110 REM IMAGE
21120 REM *** BLOCK #7 21120 REM *** BLOCK #7
21130 GOSUB 23870 21130 GOSUB 23870
@ -667,15 +668,15 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
23540 NEXT I 23540 NEXT I
23550 GOSUB 24580 23550 GOSUB 24580
23560 REM PRINT USING "#,4A,2X";S$[S[8,S1],S[8,S1]+3] 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] 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); 23572 PRINT NFORMAT$(P[1],6);
23573 PRINT NFORMAT$(P[2],6); 23573 PRINT NFORMAT$(P[2],6);
23574 PRINT NFORMAT$(P[3],6); 23574 PRINT NFORMAT$(P[3],6);
23575 PRINT NFORMAT$(P[4],6); 23575 PRINT NFORMAT$(P[4],6);
23576 PRINT NFORMAT$(P[5],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 23580 IF S1/2 <> INT(S1/2) THEN 23600
23590 PRINT 23590 PRINT
23600 NEXT S1 23600 NEXT S1
@ -686,7 +687,7 @@ OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
23650 PRINT TAB(22);"CAPTAINS" 23650 PRINT TAB(22);"CAPTAINS"
23660 PRINT 23660 PRINT
23670 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 23690 FOR B1=1 TO P9
23700 GOSUB 24380 23700 GOSUB 24380
23710 NEXT B1 23710 NEXT B1