home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib37b.dsk
/
READ.CARDS.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
492b
|
16 lines
10 REM READ.CARDS
20 D$ = CHR$(4)
30 TEXT : HOME : NORMAL : VTAB 3
40 INPUT "ENTER CARD # (1-52 OR Q TO QUIT): ";A$
50 IF A$ = "Q" THEN HOME : END
60 A = VAL(A$)
70 IF A <1 OR A >52 THEN GOTO 30
80 PRINT D$;"OPEN CARDS,L17"
90 PRINT D$;"READ CARDS,R"A
100 INPUT C$: INPUT S$: INPUT V
110 PRINT D$;"CLOSE CARDS"
120 VTAB 10: PRINT "THE COLOR IS: ";C$
130 PRINT "THE SUIT IS : ";S$
140 PRINT "THE VALUE IS: ";V
150 VTAB 22: INPUT "PRESS RETURN TO CONTINUE";A$
160 GOTO 30