caranmegil/retrocoding
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Default FAFNIR to a specific randomized seed

Browse Source
This commit is contained in:
William Moore 2023-08-02 11:10:29 -05:00
parent 25e4e13e41
commit 311b3d627a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/altair8800/FAFNIR.bas
View File

@ -14,7 +14,7 @@
14 REM You should have received a copy of the GNU General Public License 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/>. 15 REM along with this program. If not, see <http://www.gnu.org/licenses/>.
20 DIM D(6),H(6) 20 DIM D(6),H(6)
30 RANDOMIZE 30 RANDOMIZE(0)
40 D(1)=0:D(2)=0:D(3)=0:D(4)=0:D(5)=0:D(6)=0 40 D(1)=0:D(2)=0:D(3)=0:D(4)=0:D(5)=0:D(6)=0
50 T=0:T1=0 50 T=0:T1=0
60 PRINT "PRESS ANY KEY TO CONTINUE..." 60 PRINT "PRESS ANY KEY TO CONTINUE..."