5748468 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n look.bas
   1: DIM Pw$(1 TO 100)
   2: OPEN "TB2.INF" FOR INPUT AS #1
   3: CLS
   4: LINE INPUT #1, Pw$(1)
   5: Pw$(1) = "MAIN: " + Pw$(1)
   6: mx = 2
   7: FOR q = 1 TO 6
   8: LINE INPUT #1, g$
   9: NEXT q
  10: DO UNTIL EOF(1)
  11: FOR q = 1 TO 4
  12: LINE INPUT #1, ag$
  13: IF q = 1 THEN dd$ = ag$
  14: NEXT q
  15: LINE INPUT #1, Pw$(mx)
  16: Pw$(mx) = UCASE$(dd$) + ": " + Pw$(mx)
  17: mx = mx + 1
  18: FOR q = 1 TO 5
  19: LINE INPUT #1, g$
  20: NEXT q
  21: LOOP
  22: FOR q2 = 1 TO mx - 1
  23: z = z + 1
  24: LOCATE z, 1: PRINT Pw$(q2)
  25: IF z = 24 THEN SLEEP: z = 1: CLS
  26: NEXT q2
  27:
5748469 [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:04:38