5748214 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n numbers.bas
   1: DECLARE SUB SLEEPA (T!)
   2: DECLARE SUB PAUSE ()
   3: CLS
   4: PRINT "START ON 12 THEN PICK A NUMBER BETWEEN 1 AND 12 COUNT THEN NUMBER OF "
   5: PRINT "LETERS OF THE NUMBER EXAMPLE FOR SIX IT WOULD LOOK LIKE THIS: "
   6: LOCATE 3, 1: PRINT "                                 12"
   7: LOCATE 4, 1: PRINT "                            11    S컴컴1 "
   8: LOCATE 5, 1: PRINT "                       10                 2 "
   9: LOCATE 6, 1: PRINT "                    9                         3"
  10: LOCATE 7, 1: PRINT "                         8                4 "
  11: LOCATE 8, 1: PRINT "                             7        5 "
  12: LOCATE 9, 1: PRINT "                                 6"
  13: SLEEPA .4
  14: LOCATE 3, 1: PRINT "                                 12"
  15: LOCATE 4, 1: PRINT "                            11         1 "
  16: LOCATE 5, 1: PRINT "                       10            I컴컴2 "
  17: LOCATE 6, 1: PRINT "                    9                         3"
  18: LOCATE 7, 1: PRINT "                         8                4 "
  19: LOCATE 8, 1: PRINT "                             7        5 "
  20: LOCATE 9, 1: PRINT "                                 6"
  21: SLEEPA .4
  22: LOCATE 3, 1: PRINT "                                 12"
  23: LOCATE 4, 1: PRINT "                            11         1 "
  24: LOCATE 5, 1: PRINT "                       10                 2 "
  25: LOCATE 6, 1: PRINT "                    9                   X컴컴�3"
  26: LOCATE 7, 1: PRINT "                         8                4 "
  27: LOCATE 8, 1: PRINT "                             7        5 "
  28: LOCATE 9, 1: PRINT "                                 6"
  29: SLEEPA .4
  30: LOCATE 3, 1: PRINT "                                 12"
  31: LOCATE 4, 1: PRINT "                            11         1 "
  32: LOCATE 5, 1: PRINT "                       10                 2 "
  33: LOCATE 6, 1: PRINT "                    9                         3"
  34: LOCATE 7, 1: PRINT "                         8                4 "
  35: LOCATE 8, 1: PRINT "                             7        5 "
  36: LOCATE 9, 1: PRINT "                                 6"
  37: PAUSE
  38: CLS
  39: PRINT "SPELL THE NUMBER YOUR ON NOW"
  40: LOCATE 3, 1: PRINT "                                 12"
  41: LOCATE 4, 1: PRINT "                            11         1 "
  42: LOCATE 5, 1: PRINT "                       10                 2 "
  43: LOCATE 6, 1: PRINT "                    9                         3"
  44: LOCATE 7, 1: PRINT "                         8                4 "
  45: LOCATE 8, 1: PRINT "                             7        5 "
  46: LOCATE 9, 1: PRINT "                                 6"
  47: PAUSE
  48: CLS
  49: LOCATE 3, 1: PRINT "                                 12"
  50: LOCATE 4, 1: PRINT "                            11           "
  51: LOCATE 5, 1: PRINT "                                          2 "
  52: LOCATE 6, 1: PRINT "                    9                         3"
  53: LOCATE 7, 1: PRINT "                         8                4 "
  54: LOCATE 8, 1: PRINT "                             7        5 "
  55: LOCATE 9, 1: PRINT "                                 6"
  56: PAUSE
  57: CLS
  58: LOCATE 3, 1: PRINT "                                 12"
  59: LOCATE 4, 1: PRINT "                            11           "
  60: LOCATE 5, 1: PRINT "                                          2 "
  61: LOCATE 6, 1: PRINT "                    9                         3"
  62: LOCATE 7, 1: PRINT "                         8                4 "
  63: LOCATE 8, 1: PRINT "                             7        5 "
  64: LOCATE 9, 1: PRINT "                                 6"
  65: PAUSE
  66: CLS
  67: LOCATE 3, 1: PRINT "                                 12"
  68: LOCATE 4, 1: PRINT "                            11           "
  69: LOCATE 5, 1: PRINT "                                          2 "
  70: LOCATE 6, 1: PRINT "                    9                         3"
  71: LOCATE 7, 1: PRINT "                         8                4 "
  72: LOCATE 8, 1: PRINT "                             7        5 "
  73: LOCATE 9, 1: PRINT "                                 6"
  74: 
  75: SUB PAUSE
  76: PRINT "Press any key to continue..."
  77: SLEEP
  78: END SUB
  79: 
  80: SUB SLEEPA (T)
  81: A = TIMER + T
  82: 9 B = TIMER
  83: IF B > A THEN GOTO 10 ELSE GOTO 9
  84: 10 END SUB
  85:
5748215 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:06:43