1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-09-04 11:10:15 +00:00
qb64/programs/samples/pete/diceit.bas
SMcNeill 6e01fc8dce Altered string compare routines (<,<=,>,>=) so they don't give false results with CHR$(0).
Added new _STRCMP and _STRICMP commands for quick string comparisons.
Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders.
Altered UCASE and LCASE routines to be faster in some situations for us.
2014-09-22 08:19:03 -04:00

21 lines
438 B
QBasic

'This is a very simple dice game. I am still new at Qb so please humor me.
'Also, Thank You for downloading this!
REM Created 8/27/04
CLS
RANDOMIZE TIMER
PRINT "Version 1.5"
PRINT
Dice = INT(RND(1) * 6) + 1
PRINT "Your dice throws came up as numbers "; Dice;
Dice = INT(RND(1) * 6) + 1
PRINT " and "; Dice
PRINT
PRINT "(C) 2004 John Mendoza"
PRINT "ALL RIGHTS RESERVED"
END
' Email me at falconboy16@hotmail.com