home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib37b.dsk / MAKE.CARDS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  640b  |  22 lines
  1. 10  REM  MAKE.CARDS
  2. 20 D$ =  CHR$(4): REM  CONTROL-D
  3. 30  HOME : VTAB 7: PRINT "CREATING CARDS FILE..."
  4. 40  PRINT D$;"OPEN CARDS,L17"
  5. 50  FOR N = 1 TO 13
  6. 60  PRINT D$;"WRITE CARDS,R"N
  7. 70  PRINT "RED": PRINT "HEART": PRINT N
  8. 80  NEXT 
  9. 90  FOR N = 14 TO 26
  10. 100  PRINT D$;"WRITE CARDS,R"N
  11. 110  PRINT "BLACK": PRINT "SPADE": PRINT N -13
  12. 120  NEXT 
  13. 130  FOR N = 27 TO 39
  14. 140  PRINT D$;"WRITE CARDS,R"N
  15. 150  PRINT "RED": PRINT "DIAMOND": PRINT N -26
  16. 160  NEXT 
  17. 170  FOR N = 40 TO 52
  18. 180  PRINT D$;"WRITE CARDS,R"N
  19. 190  PRINT "BLACK": PRINT "CLUB": PRINT N -39
  20. 200  NEXT 
  21. 210  PRINT D$;"CLOSE CARDS"
  22. 220  HOME : VTAB 7: PRINT "CARDS FILE COMPLETED"