5748235 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n dec.bas
   1: s$ = "C:\DDEC"
   2: SHELL "COPY " + s$ + " BACKUP.DAT"
   3: OPEN "FIRSTLIN.E" FOR INPUT AS #2
   4: LINE INPUT #2, LookFor$
   5: CLOSE 2
   6: FOR q# = 0 TO 2000000
   7: SHELL "CIPHER " + LTRIM$(RTRIM$(STR$(q#))) + " " + s$
   8: OPEN s$ FOR INPUT AS #1
   9: LINE INPUT #1, TmpH$
  10: CLOSE 1
  11: IF TmpH$ = LookFor$ THEN PRINT q#: END: EXIT FOR
  12: SHELL "CIPHER " + LTRIM$(RTRIM$(STR$(q#))) + " " + s$
  13: 
  14: NEXT q#
  15:
5748236 [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:01:39