home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / LASTNUMB.PRG < prev    next >
Text File  |  1984-10-24  |  1KB  |  43 lines
  1. NOTE  - EXTENDED COMMAND FILE LSTNUMB.CMD
  2. ERASE
  3. ? 
  4. ? 'PLACE A BLANK, FORMATTED, 5 1/4" DISKETTE IN DRIVE C:'
  5. ? '       PRESS <RETURN> WHEN READY TO BEGIN'
  6. WAIT
  7. ERASE
  8. USE &FILE1
  9. COPY STRUCTURE TO C:REFS
  10. SELECT SECONDARY
  11. USE C:REFS
  12. SELECT PRIMARY
  13. DO WHILE T
  14.      STORE '     ' TO REF
  15.      STORE "BCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHA
  16.      STORE 1 TO A
  17.      ERASE
  18.      DO WHILE A < 26
  19.           STORE $(ALPHA,A,1) TO SEARCH
  20.           FIND &SEARCH
  21.           SKIP -1
  22.           STORE REF:NO TO REF
  23.           SELECT SECONDARY     
  24.           APPEND BLANK
  25.           ? 'REF. NO. :'+REF+':'
  26.           REPLACE REF:NO WITH REF
  27.           SELECT PRIMARY
  28.           STORE A+1 TO A
  29.      ENDDO
  30.      GO BOTTOM
  31.      STORE REF:NO TO REF
  32.      SELECT SECONDARY     
  33.      APPEND BLANK
  34.      ? 'REF. NO. :'+REF+':'
  35.      REPLACE REF:NO WITH REF
  36.      SELECT SECONDARY
  37.      SET TALK ON
  38.      INDEX ON REF:NO TO C:REFNO
  39.      RELEASE REF,SEARCH,ALPHA,A
  40.      SET TALK OFF
  41.      USE
  42.      RETURN
  43. ENDDO