home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / RANDOM.TEST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  472b  |  14 lines
  1. 10  REM   ************************
  2. 20  REM   * RANDOM.TEST          *
  3. 30  REM   * BY STEVE MCLENDON    *
  4. 40  REM   * COPYRIGHT(C) 1990    *
  5. 50  REM   * MINDCRAFT PUBL. CORP.*
  6. 60  REM   * CONCORD, MA. 01742   *
  7. 70  REM   ************************
  8. 80  PRINT  CHR$(4);"BLOAD RANDOM.GEN"
  9. 90  HOME 
  10. 100  POKE 34,2: PRINT "PRESS RETURN TO GET A NEW RANDOM NUMBER": PRINT 
  11. 110  CALL 24583
  12. 120 X =  PEEK(24580): PRINT X" ";
  13. 130  GET A$: IF A$ =  CHR$(13)  THEN 110
  14. 140  TEXT : END