Update for more games\!
This commit is contained in:
parent
839633d18f
commit
1e971436ed
69
src/1802mc/BEETLE.bas
Normal file
69
src/1802mc/BEETLE.bas
Normal file
@ -0,0 +1,69 @@
|
|||||||
|
1 REM BEETLE.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 GOSUB 9000
|
||||||
|
30 W=0
|
||||||
|
40 DIM B(6)
|
||||||
|
50 FOR P=1 TO 6
|
||||||
|
60 B(P)=0
|
||||||
|
70 NEXT P
|
||||||
|
80 PRINT "TOGGLE ANY SWITCH TO END (OR NONE TO KEEP PLAYING) AND ENTER ANY KEY TO CONTINUE..."
|
||||||
|
90 INPUT X$
|
||||||
|
100 I=INP(0,4)
|
||||||
|
110 IF I>1 GOTO 1000
|
||||||
|
120 IF I=1 PRINT "THANKS FOR PLAYING THIS ROUND!":GOTO 20
|
||||||
|
130 GOSUB 200
|
||||||
|
140 IF W=1 GOTO 1000
|
||||||
|
150 IF W=0 GOTO 80
|
||||||
|
200 DEFINT D
|
||||||
|
210 D=RND(6)+1
|
||||||
|
220 IF D=1 IF B(1)<2 B(1)=B(1)+1
|
||||||
|
230 IF D=2 IF B(2)<2 B(2)=B(2)+1
|
||||||
|
240 IF D=3 IF B(3)<6 B(3)=B(3)+1
|
||||||
|
250 IF D=4 IF B(4)<2 B(4)=B(4)+1
|
||||||
|
260 IF D=5 IF B(5)<1 B(5)=1
|
||||||
|
270 IF D=6 IF B(6)<1 B(6)=1
|
||||||
|
280 PRINT "YOUR BEETLE PARTS SO FAR:"
|
||||||
|
290 PRINT "EYES (MAX 2):", B(1)
|
||||||
|
300 PRINT "ANTENNA (MAX 2):", B(2)
|
||||||
|
310 PRINT "LEG (MAX 6):", B(3)
|
||||||
|
320 PRINT "WING (MAX 2):", B(4)
|
||||||
|
330 PRINT "HEAD (MAX 1):", B(5)
|
||||||
|
340 PRINT "BODY (MAX 1):", B(6)
|
||||||
|
350 C=B(1)+B(2)+B(3)+B(4)+B(5)+B(6)
|
||||||
|
360 IF INT(C)=14 W=1:PRINT "YOU'VE MADE A BEETLE!"
|
||||||
|
370 RETURN
|
||||||
|
1000 PRINT "THANK YOU FOR YOUR TIME!"
|
||||||
|
1010 END
|
||||||
|
9000 N=129
|
||||||
|
9010 OUT (0,4,N)
|
||||||
|
9020 WAIT(8)
|
||||||
|
9030 N=66
|
||||||
|
9040 OUT (0,4,N)
|
||||||
|
9050 WAIT(8)
|
||||||
|
9060 N=36
|
||||||
|
9070 OUT (0,4,N)
|
||||||
|
9080 WAIT(8)
|
||||||
|
9090 N=24
|
||||||
|
9100 OUT (0,4,N)
|
||||||
|
9110 WAIT(8)
|
||||||
|
9120 N=36
|
||||||
|
9130 OUT (0,4,N)
|
||||||
|
9140 WAIT(8)
|
||||||
|
9150 N=66
|
||||||
|
9160 OUT (0,4,N)
|
||||||
|
9170 WAIT(8)
|
||||||
|
9180 OUT (0,4,0)
|
||||||
|
9190 RETURN
|
||||||
79
src/altair8800/FORTUNE.bas
Normal file
79
src/altair8800/FORTUNE.bas
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
1 REM FORTUNE.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 RANDOMIZE(0)
|
||||||
|
22 DIM F(8), N(8)
|
||||||
|
31 F$(1)="YOU WILL BITE YOUR TONGUE."
|
||||||
|
32 F$(2)="YOU WILL FIND YOURSELF STINKING BADLY."
|
||||||
|
33 F$(3)="YOU WILL BE A DONKEY TO ALL PEOPLES."
|
||||||
|
34 F$(4)="YOU WILL FIND TRUE LOVE."
|
||||||
|
35 F$(5)="YOU WILL CONTROL A LUNATIC."
|
||||||
|
36 F$(6)="YOU WILL BE DEEP FRIED."
|
||||||
|
37 F$(7)="YOU WILL FIND YOURSELF IN A PIT OF DESPAIR"
|
||||||
|
38 F$(8)="YOU WILL BE HATLESS."
|
||||||
|
40 PRINT "1 - ORANGE"
|
||||||
|
41 PRINT "2 - YELLOW"
|
||||||
|
42 PRINT "3 - GREEN"
|
||||||
|
43 PRINT "4 - RED"
|
||||||
|
44 PRINT "TOGGLE ONE OF FIRST 4 SWITCHES (OR NONE TO END) AND ENTER ANY KEY TO CONTINUE..."
|
||||||
|
45 X$ = INPUT$(1)
|
||||||
|
46 I=INP(255)
|
||||||
|
47 IF I AND 1 THEN GOSUB 100
|
||||||
|
48 IF I AND 2 THEN GOSUB 100
|
||||||
|
49 IF I AND 4 THEN GOSUB 100
|
||||||
|
50 IF I AND 8 THEN GOSUB 100
|
||||||
|
51 IF I=0 THEN GOTO 1000
|
||||||
|
52 GOSUB 40
|
||||||
|
100 FOR P=1 TO 8
|
||||||
|
110 N(P) = -1
|
||||||
|
120 NEXT P
|
||||||
|
130 FOR P=0 TO 4
|
||||||
|
140 K=INT(8*RND(8)+1)
|
||||||
|
150 IF N(K)=-1 THEN N(K)=0:PRINT K
|
||||||
|
160 NEXT P
|
||||||
|
170 PRINT "TOGGLE ONE OF THE FIRST FOUR SWITCHES AND ENTER ANY KEY TO ENTER TO CONTINUE..."
|
||||||
|
180 X$ = INPUT$(1)
|
||||||
|
190 C=INP(255)
|
||||||
|
200 IF C=0 THEN GOTO 1000
|
||||||
|
210 IF C AND 1 THEN GOTO 260
|
||||||
|
220 IF C AND 2 THEN GOTO 260
|
||||||
|
230 IF C AND 4 THEN GOTO 260
|
||||||
|
240 IF C AND 8 THEN GOTO 260
|
||||||
|
250 GOTO 100
|
||||||
|
260 FOR P=1 TO 8
|
||||||
|
270 N(P) = -1
|
||||||
|
280 NEXT P
|
||||||
|
290 FOR P=0 TO 4
|
||||||
|
300 K=INT(8*RND(8)+1)
|
||||||
|
310 IF N(K)=-1 THEN N(K)=0:PRINT K
|
||||||
|
320 NEXT P
|
||||||
|
330 PRINT "TOGGLE ONE OF THE FIRST FOUR SWITCHES AND ENTER ANY KEY TO ENTER"
|
||||||
|
340 PRINT "AND RECEIVE YOUR FORTUNE..."
|
||||||
|
350 X$ = INPUT$(1)
|
||||||
|
360 C=INP(255)
|
||||||
|
370 IF C=0 GOTO 1000
|
||||||
|
380 IF C AND 1 THEN L=1:GOTO 430
|
||||||
|
390 IF C AND 2 THEN L=2:GOTO 430
|
||||||
|
400 IF C AND 4 THEN L=3:GOTO 430
|
||||||
|
410 IF C AND 8 THEN L=4:GOTO 430
|
||||||
|
420 GOTO 260
|
||||||
|
430 M=1
|
||||||
|
440 FOR P=1 TO 8
|
||||||
|
450 IF N(P)=0 AND M=L THEN PRINT F$(P):GOTO 480
|
||||||
|
460 IF N(P)=0 AND M<>L THEN M=M+1
|
||||||
|
470 NEXT P
|
||||||
|
480 RETURN
|
||||||
|
1000 PRINT "THANK YOU FOR YOUR TIME!"
|
||||||
|
1010 END
|
||||||
Loading…
Reference in New Issue
Block a user