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