Initial commit
This commit is contained in:
parent
9083bd4a47
commit
2027f533b6
132
src/1802mc/SCC.bas
Normal file
132
src/1802mc/SCC.bas
Normal file
@ -0,0 +1,132 @@
|
|||||||
|
1 REM SCC.bas
|
||||||
|
2 REM Copyright (C) 2023 William R. Moore
|
||||||
|
3 REM
|
||||||
|
4 REM This program is free software: you can redistribute it and/or modify
|
||||||
|
5 REM it under the terms of the GNU General Public License as published by
|
||||||
|
6 REM the Free Software Foundation, either version 3 of the License, or
|
||||||
|
7 REM (at your option) any later version.
|
||||||
|
8 REM
|
||||||
|
9 REM This program is distributed in the hope that it will be useful,
|
||||||
|
10 REM but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
11 REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
12 REM GNU General Public License for more details.
|
||||||
|
13 REM
|
||||||
|
14 REM You should have received a copy of the GNU General Public License
|
||||||
|
15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
20 REM R, S, T, U, V ARE DIFF DICE
|
||||||
|
21 DEFINT R
|
||||||
|
22 DEFINT S
|
||||||
|
23 DEFINT T
|
||||||
|
24 DEFINT U
|
||||||
|
25 DEFINT V
|
||||||
|
30 REM H, C, D ARE
|
||||||
|
31 REM SHIP, CAPT, CREW
|
||||||
|
32 OUT(0,4,0)
|
||||||
|
40 H=0:C=0:D=0
|
||||||
|
50 REM I IS INP, G IS TURNS
|
||||||
|
60 I=0:R=0:S=0:T=0:U=0:V=0:G=0:E=0:J=0
|
||||||
|
100 REM INPUT LOOP
|
||||||
|
110 I=INP(0,4)
|
||||||
|
120 IF I <> 128 GOTO 110
|
||||||
|
121 GOSUB 7000
|
||||||
|
130 I=INP(0,4)
|
||||||
|
140 IF I=2 E=1:J=0:GOSUB 3000
|
||||||
|
141 IF I=3 J=1:GOSUB 3000
|
||||||
|
150 IF I=1 IF G<3 J=0:GOSUB 2000:G=G+1
|
||||||
|
160 IF G=3 E=1:J=0:GOSUB 3000
|
||||||
|
161 IF I=128 GOTO 40
|
||||||
|
170 WAIT(200)
|
||||||
|
180 GOTO 130
|
||||||
|
1000 IF H=0 GOSUB 6000:GOSUB 5000
|
||||||
|
1001 IF H=0 RETURN
|
||||||
|
1010 IF H=1 GOSUB 1040
|
||||||
|
1020 IF C=0 RETURN
|
||||||
|
1030 IF D=0 RETURN
|
||||||
|
1040 RETURN
|
||||||
|
1050 IF C=0 GOSUB 6050:GOSUB 5060
|
||||||
|
1060 IF C=0 RETURN
|
||||||
|
1070 IF C=1 IF D=0 GOSUB 6100:GOSUB 5120
|
||||||
|
1080 RETURN
|
||||||
|
2000 GOSUB 1000
|
||||||
|
2010 IF R > -1 R = RND(6)
|
||||||
|
2020 IF S > -1 S = RND(6)
|
||||||
|
2030 IF T > -1 T = RND(6)
|
||||||
|
2040 IF U > -1 U = RND(6)
|
||||||
|
2050 IF V > -1 V = RND(6)
|
||||||
|
2060 GOSUB 4000
|
||||||
|
2070 RETURN
|
||||||
|
3000 IF J=0 GOSUB 4000
|
||||||
|
3010 OUT(0, 4, O)
|
||||||
|
3020 IF I=0 IF G=3 GOTO 40
|
||||||
|
3021 RETURN
|
||||||
|
4000 L=0
|
||||||
|
4001 IF H = 1 L = L + 4
|
||||||
|
4002 IF C = 1 L = L + 2
|
||||||
|
4003 IF D = 1 L = L + 1
|
||||||
|
4010 IF J=0 O=0
|
||||||
|
4020 IF R >= 0 O = O + R
|
||||||
|
4030 IF S >= 0 O = O + S
|
||||||
|
4040 IF T >= 0 O = O + T
|
||||||
|
4050 IF U >= 0 O = O + U
|
||||||
|
4060 IF V >= 0 O = O + V
|
||||||
|
4061 IF E=1 IF L=7 O=O+128
|
||||||
|
4070 IF L<8 IF I=2 O = 64
|
||||||
|
4080 IF L<8 IF G=3 O = 64
|
||||||
|
4081 IF J=0 IF E=0 IF I<>3 OUT(0, 4, L)
|
||||||
|
4082 IF J=0 IF E=0 IF I<>3 OUT(0, 4, L)
|
||||||
|
4090 RETURN
|
||||||
|
5000 IF R = 5 R = -1:RETURN
|
||||||
|
5010 IF S = 5 S = -1:RETURN
|
||||||
|
5020 IF T = 5 T = -1:RETURN
|
||||||
|
5030 IF U = 5 U = -1:RETURN
|
||||||
|
5040 IF V = 5 V = -1:RETURN
|
||||||
|
5050 RETURN
|
||||||
|
5060 IF R = 4 R = -1:RETURN
|
||||||
|
5070 IF S = 4 S = -1:RETURN
|
||||||
|
5080 IF T = 4 T = -1:RETURN
|
||||||
|
5090 IF U = 4 U = -1:RETURN
|
||||||
|
5100 IF V = 4 V = -1:RETURN
|
||||||
|
5110 RETURN
|
||||||
|
5120 IF R = 3 R = -1:RETURN
|
||||||
|
5130 IF S = 3 S = -1:RETURN
|
||||||
|
5140 IF T = 3 T = -1:RETURN
|
||||||
|
5150 IF U = 3 U = -1:RETURN
|
||||||
|
5160 IF V = 3 V = -1:RETURN
|
||||||
|
5170 RETURN
|
||||||
|
6000 IF R=5 H=1:RETURN
|
||||||
|
6010 IF S=5 H=1:RETURN
|
||||||
|
6020 IF T=5 H=1:RETURN
|
||||||
|
6030 IF U=5 H=1:RETURN
|
||||||
|
6040 IF V=5 H=1:RETURN
|
||||||
|
6041 RETURN
|
||||||
|
6050 IF R=4 C=1:RETURN
|
||||||
|
6060 IF S=4 C=1:RETURN
|
||||||
|
6070 IF T=4 C=1:RETURN
|
||||||
|
6080 IF U=4 C=1:RETURN
|
||||||
|
6090 IF V=4 C=1:RETURN
|
||||||
|
6091 RETURN
|
||||||
|
6100 IF R=3 D=1:RETURN
|
||||||
|
6110 IF S=3 D=1:RETURN
|
||||||
|
6120 IF T=3 D=1:RETURN
|
||||||
|
6130 IF U=3 D=1:RETURN
|
||||||
|
6140 IF V=3 D=1:RETURN
|
||||||
|
7000 N=129
|
||||||
|
7010 OUT (0,4,N)
|
||||||
|
7020 WAIT(8)
|
||||||
|
7030 N=66
|
||||||
|
7040 OUT (0,4,N)
|
||||||
|
7050 WAIT(8)
|
||||||
|
7060 N=36
|
||||||
|
7070 OUT (0,4,N)
|
||||||
|
7080 WAIT(8)
|
||||||
|
7090 N=24
|
||||||
|
7100 OUT (0,4,N)
|
||||||
|
7110 WAIT(8)
|
||||||
|
7120 N=36
|
||||||
|
7130 OUT (0,4,N)
|
||||||
|
7140 WAIT(8)
|
||||||
|
7150 N=66
|
||||||
|
7160 OUT (0,4,N)
|
||||||
|
7170 WAIT(8)
|
||||||
|
7180 OUT (0,4,0)
|
||||||
|
7190 RETURN
|
||||||
41
src/altair8800/FAFNIR.bas
Normal file
41
src/altair8800/FAFNIR.bas
Normal file
@ -0,0 +1,41 @@
|
|||||||
|
1 REM FAFNIR.bas
|
||||||
|
2 REM Copyright (C) 2023 William R. Moore
|
||||||
|
3 REM
|
||||||
|
4 REM This program is free software: you can redistribute it and/or modify
|
||||||
|
5 REM it under the terms of the GNU General Public License as published by
|
||||||
|
6 REM the Free Software Foundation, either version 3 of the License, or
|
||||||
|
7 REM (at your option) any later version.
|
||||||
|
8 REM
|
||||||
|
9 REM This program is distributed in the hope that it will be useful,
|
||||||
|
10 REM but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
11 REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
12 REM GNU General Public License for more details.
|
||||||
|
13 REM
|
||||||
|
14 REM You should have received a copy of the GNU General Public License
|
||||||
|
15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
20 DIM D(6),H(6)
|
||||||
|
30 RANDOMIZE
|
||||||
|
40 D(1)=0:D(2)=0:D(3)=0:D(4)=0:D(5)=0:D(6)=0
|
||||||
|
50 T=0:T1=0
|
||||||
|
60 PRINT "PRESS ANY KEY TO CONTINUE..."
|
||||||
|
70 X$ = INPUT$(1)
|
||||||
|
80 H(1)=0:H(2)=0:H(3)=0:H(4)=0:H(5)=0:H(6)=0
|
||||||
|
90 I=INP(255)
|
||||||
|
100 IF I AND 1 THEN H(1)=1
|
||||||
|
101 IF I AND 2 THEN H(2)=1
|
||||||
|
102 IF I AND 4 THEN H(3)=1
|
||||||
|
103 IF I AND 8 THEN H(4)=1
|
||||||
|
104 IF I AND 16 THEN H(5)=1
|
||||||
|
105 IF I AND 32 THEN H(6)=1
|
||||||
|
110 T1=T1+1
|
||||||
|
115 IF T1 = 3 THEN GOTO 180
|
||||||
|
120 FOR P=1 TO 6
|
||||||
|
130 IF D(P) = 0 OR H(P) = 0 THEN D(P) = INT(6*RND(6)+1)
|
||||||
|
135 T=T+D(P)
|
||||||
|
140 NEXT P
|
||||||
|
150 PRINT "DICE FACES:"
|
||||||
|
155 PRINT D(1), D(2), D(3), D(4), D(5), D(6)
|
||||||
|
160 IF H(1)=1 AND H(2)=1 AND H(3)=1 AND H(4)=1 AND H(5)=1 AND H(6)=1 THEN GOTO 180
|
||||||
|
170 GOTO 50
|
||||||
|
180 PRINT "GAME OVER!"
|
||||||
|
190 END
|
||||||
86
src/altair8800/SCC.bas
Normal file
86
src/altair8800/SCC.bas
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
1 REM SCC.bas
|
||||||
|
2 REM Copyright (C) 2023 William R. Moore
|
||||||
|
3 REM
|
||||||
|
4 REM This program is free software: you can redistribute it and/or modify
|
||||||
|
5 REM it under the terms of the GNU General Public License as published by
|
||||||
|
6 REM the Free Software Foundation, either version 3 of the License, or
|
||||||
|
7 REM (at your option) any later version.
|
||||||
|
8 REM
|
||||||
|
9 REM This program is distributed in the hope that it will be useful,
|
||||||
|
10 REM but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
11 REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
12 REM GNU General Public License for more details.
|
||||||
|
13 REM
|
||||||
|
14 REM You should have received a copy of the GNU General Public License
|
||||||
|
15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
20 REM R, S, T, U, V ARE DIFF DICE
|
||||||
|
30 REM H, C, D ARE
|
||||||
|
31 REM SHIP, CAPT, CREW
|
||||||
|
40 RANDOMIZE(0)
|
||||||
|
50 DIM D(5)
|
||||||
|
55 H=0:C=0:D=0
|
||||||
|
50 REM I IS INP, G IS TURNS
|
||||||
|
60 I=0:D(1)=0:D(2)=0:D(3)=0:D(4)=0:D(5)=0:G=0:E=0:J=0:B=0
|
||||||
|
100 REM INPUT LOOP
|
||||||
|
110 PRINT "PRESS ANY KEY TO CONTINUE..."
|
||||||
|
120 X$ = INPUT$(1)
|
||||||
|
130 I=INP(255)
|
||||||
|
140 IF I AND 1 THEN GOSUB 2000:G=G+1
|
||||||
|
150 IF H=1 AND C=1 AND D=1 THEN B=0:GOSUB 7000
|
||||||
|
160 IF I AND 2 OR G=3 THEN PRINT "GAME OVER! YOU SCORED: ", B:GOTO 55
|
||||||
|
170 GOTO 110
|
||||||
|
1000 IF H=0 THEN GOSUB 6000:GOSUB 5000
|
||||||
|
1001 IF H=0 THEN RETURN
|
||||||
|
1010 IF H=1 THEN GOSUB 1050
|
||||||
|
1020 IF C=0 THEN RETURN
|
||||||
|
1030 IF D=0 THEN RETURN
|
||||||
|
1040 RETURN
|
||||||
|
1050 IF C=0 THEN GOSUB 6050:GOSUB 5060
|
||||||
|
1060 IF C=0 THEN RETURN
|
||||||
|
1070 IF C=1 AND D=0 THEN GOSUB 6100:GOSUB 5120
|
||||||
|
1080 RETURN
|
||||||
|
2000 FOR P=1 TO 5
|
||||||
|
2010 IF D(P) > -1 THEN D(P)=INT(6*RND(6)+1)
|
||||||
|
2020 NEXT P
|
||||||
|
2030 GOSUB 1000
|
||||||
|
2040 GOSUB 4000
|
||||||
|
2050 RETURN
|
||||||
|
4000 L=0
|
||||||
|
4001 IF H = 1 THEN PRINT "SHIP"
|
||||||
|
4002 IF C = 1 THEN PRINT "CAPTAIN"
|
||||||
|
4003 IF D = 1 THEN PRINT "CREW"
|
||||||
|
4010 O=0
|
||||||
|
4020 FOR P=1 TO 5
|
||||||
|
4030 IF D(P) > -1 THEN O=O+D(P)
|
||||||
|
4040 NEXT P
|
||||||
|
4050 PRINT "TOTAL: ", O
|
||||||
|
4060 RETURN
|
||||||
|
5000 FOR P=1 TO 5
|
||||||
|
5010 IF D(P)=5 THEN D(P)=-1:RETURN
|
||||||
|
5020 NEXT P
|
||||||
|
5050 RETURN
|
||||||
|
5060 FOR P=1 TO 5
|
||||||
|
5070 IF D(P)=4 THEN D(P)=-1:RETURN
|
||||||
|
5080 NEXT P
|
||||||
|
5090 RETURN
|
||||||
|
5120 FOR P=1 TO 5
|
||||||
|
5130 IF D(P)=3 THEN D(P)=-1:RETURN
|
||||||
|
5140 NEXT P
|
||||||
|
5150 RETURN
|
||||||
|
6000 FOR P=1 TO 5
|
||||||
|
6010 IF D(P)=5 THEN H=1:RETURN
|
||||||
|
6020 NEXT P
|
||||||
|
6030 RETURN
|
||||||
|
6050 FOR P=1 TO 5
|
||||||
|
6060 IF D(P)=4 THEN C=1:RETURN
|
||||||
|
6070 NEXT P
|
||||||
|
6080 RETURN
|
||||||
|
6100 FOR P=1 TO 5
|
||||||
|
6120 IF D(P)=3 THEN D=1:RETURN
|
||||||
|
6130 NEXT P
|
||||||
|
6140 RETURN
|
||||||
|
7000 B=0
|
||||||
|
7010 FOR P=1 TO 5
|
||||||
|
7020 IF D(P)>=0 THEN B=B+D(P)
|
||||||
|
7030 NEXT P
|
||||||
|
7040 RETURN
|
||||||
Loading…
Reference in New Issue
Block a user