Session end : 11h59m57s | Hide picture Sexe : OFF | Donations 2024 : 920.48 € |
409 RANDOMIZE TIME*1.01020304
2509 RANDOMIZE TIME*1.01020304
2000 LOCATE 15,15:PRINT SPACE$(20):LOCATE 15,13:PEN 1:PRINT"AMSTRAD'S HAND ":FOR I=1 TO NCCDS:COL=4*I-3:ROW=14:CDRAW=CHAND(I):GOSUB 1000:NEXT
2000 LOCATE 1,20:PRINT CHR$(18):LOCATE 1,22:PRINT CHR$(18):LOCATE 1,15:PRINT CHR$(18):LOCATE 15,13:PEN 1:PRINT"AMSTRAD'S HAND ":FOR I=1 TO NCCDS:COL=4*I-3:ROW=14:CDRAW=CHAND(I):GOSUB 1000:NEXT
470 LOCATE 1,20:INPUT"Initial bet ";X$:MBET=VAL(X$)
470 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"Initial bet ";X$:GOSUB 4000:IF X$="" THEN 470 ELSE MBET=VAL(X$)
520 LOCATE 1,20:INPUT"HOW MUCH TO ADD TO YOUR BET";X$:MBET=MBET+VAL(X$)
520 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"HOW MUCH TO ADD TO YOUR BET";X$:GOSUB 4000:IF X$="" THEN 520 ELSE MBET=MBET+VAL(X$)
4000 IF X$="" THEN X$="0" ELSE IF VAL(X$)<0 THEN X$=""
4010 RETURN
509 RANDOMIZE TIME*1.01020304
799 RANDOMIZE TIME*1.01020304
720 LOCATE 1,22:PRINT SPACE$(30):LOCATE 15,15:PRINT SPACE$(20):LOCATE 15,13:PEN 1:PRINT"MANO DE AMSTRAD":FOR I=1 TO NCO:COL=4*I-3:FIL=14:DIB=MANO(I):GOSUB 660:NEXT
par la ligne
720 LOCATE 1,20:PRINT CHR$(18):LOCATE 1,22:PRINT CHR$(18):LOCATE 1,15:PRINT CHR$(18):LOCATE 15,13:PEN 1:PRINT"MANO DE AMSTRAD":FOR I=1 TO NCO:COL=4*I-3:FIL=14:DIB=MANO(I):GOSUB 660:NEXT
570 LOCATE 1,20:INPUT"Apuesta inicial";X$:APSTA=VAL(X$)
570 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"Apuesta inicial";X$:GOSUB 900:IF X$="" THEN 570 ELSE APSTA=VAL(X$)
630 LOCATE 1,20:INPUT"CUANTO QUIERES ANADIR A TU APUESTA";X$:APSTA=APSTA+VAL(X$)
630 LOCATE 1,20:PRINT CHR$(18);CHR$(13);:INPUT"CUANTO QUIERES ANADIR A TU APUESTA";X$:GOSUB 900:IF X$="" THEN 630 ELSE APSTA=APSTA+VAL(X$)
900 IF X$="" THEN X$="0" ELSE IF VAL(X$)<0 THEN X$=""
910 RETURN