|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »ASEYDV.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
└─ ⟦this⟧ »ASEYDV.BAS«
1 REM PROGRAM ASEYDV.BAS 100 REM *** GAME OF ACEY-DUCEY WRITTEN BY BILL PALMBY 110 REM *** ADLAI STEVENSON HIGH SCHOOL, PRAIRE VIEW, ILL 120 REM *** TRANSLATED TO RSTS/E BY DAVE AHL, DIGITAL 130 RANDOMIZE 140 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER:" 150 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP." 160 PRINT "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING" 170 PRINT "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE" 180 PRINT "A VALUE BETWEEN THE FIRST TWO." 190 PRINT "IF YOU DO NOT WANT TO BET, INPUT A 0." 200 PRINT 210 N=100ØQ=100 220 PRINT "YOU NOW HAVE";Q;"DOLLARS." 230 PRINT 240 GO TO 290 250 Q=Q+M 260 GO TO 220 270 Q=Q-M 280 GO TO 220 290 PRINT "HERE ARE YOUR NEXT TWO CARDS..." 300 A=INT(14*RND)+2 310 IF A<2 THEN 300 320 IF A>14 THEN 300 330 B=INT(14*RND)+2 340 IF B<2 THEN 330 350 IF B>14 THEN 330 360 IF A>=B THEN 300 «eof»