home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22a.dsk / OCTOBER.1984 / QUITTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  39 lines
  1. 10  REM  ************************
  2. 20  REM  *       QUITTER        *
  3. 30  REM  *    BY PAUL RAYMER    *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : CLEAR 
  9. 90  FOR X = 1 TO 10: READ S$(X): NEXT 
  10. 100 R =  INT(10 * RND(1)) +10:RA =  INT(60 * RND(1)) +1
  11. 110  PRINT "THIS PROGRAM WILL PRINT THE VALUE OF PI TO 5280 DECIMAL PLACES (ACCURATE TO ONLY.001).  IT WILL TAKE APPROXIMATELY ";R: PRINT "HOURS, ";RA;" MINUTES."
  12. 120 T = T +1: IF T = 5  THEN 310
  13. 130  VTAB 5: HTAB 1: CALL  -958: PRINT "DO YOU WANT TO QUIT? (Y/N) ";: GET AN$: PRINT 
  14. 140  IF AN$ = "Y"  THEN 160
  15. 150  VTAB 23: PRINT "THAT'S ";R;" HOURS AND ";RA;" MINUTES!": FOR I = 1 TO 1000: NEXT : GOTO 120
  16. 160  PRINT : PRINT : PRINT S$( INT(10 * RND(1)) +1)
  17. 170  PRINT : PRINT "YES/NO => ";: GET AN$: IF AN$ = "Y"  THEN 190
  18. 180  GOTO 120
  19. 190  PRINT : PRINT : PRINT S$( INT(10 * RND(1)) +1);" ";"Y/N ";: GET AN$: IF AN$ = "Y"  THEN 210
  20. 200  GOTO 120
  21. 210  PRINT : PRINT : PRINT "TO EXIT PROGRAM PLEASE PRESS LETTER "; CHR$( INT(25 * RND(1)) +65)
  22. 220  PRINT : GET AN$: PRINT : VTAB 14: HTAB 37: PRINT  CHR$( ASC(AN$) +1)
  23. 230  PRINT : PRINT AN$;" ";: INVERSE : PRINT " YOU TYPED THE WRONG LETTER! ": NORMAL 
  24. 240  PRINT : PRINT "PROGRAM ABORTED!": GOTO 270
  25. 250  DATA  ARE YOU SURE?,DO YOU MEAN IT?,ARE YOU POSITIVE?,REALLY?,NO KIDDING?
  26. 260  DATA  ARE YOU CONVINCED?,IS THAT A FACT?,IS THAT UNDENIABLE?,IS THAT YOUR ACTUAL REPLY?,ARE YOU FIRM IN THAT OPINION?
  27. 270  PRINT : PRINT "DO YOU WANT TO TRY AGAIN? ";"(Y)ES - (N)O ";: GET A$
  28. 280  PRINT : PRINT : PRINT S$( INT(10 * RND(1)) +1);" ";: GET AN$
  29. 290  IF AN$ = "N"  THEN 80
  30. 300  PRINT : PRINT : PRINT "...END": END 
  31. 310  VTAB 7: HTAB 1: CALL  -958: PRINT "OK, YOU ASKED FOR IT!": PRINT 
  32. 320  PRINT "3.1415";
  33. 330  FOR P = 1 TO 5280
  34. 340  IF P/520 =  INT(P/520)  THEN  GOSUB 370
  35. 350  PRINT  INT(10 * RND(1));: NEXT P
  36. 360  GOTO 80
  37. 370  PRINT : PRINT  CHR$(7);" ==> CONTINUE? (Y/N) ==> ";: GET PR$
  38. 380  IF PR$ = "Y"  THEN  CALL  -998: HTAB 6: RETURN 
  39. 390  GOTO 300