home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
educ
/
retrv_pc.zip
/
LASTNUMB.PRG
< prev
next >
Wrap
Text File
|
1984-10-24
|
1KB
|
43 lines
NOTE - EXTENDED COMMAND FILE LSTNUMB.CMD
ERASE
?
? 'PLACE A BLANK, FORMATTED, 5 1/4" DISKETTE IN DRIVE C:'
? ' PRESS <RETURN> WHEN READY TO BEGIN'
WAIT
ERASE
USE &FILE1
COPY STRUCTURE TO C:REFS
SELECT SECONDARY
USE C:REFS
SELECT PRIMARY
DO WHILE T
STORE ' ' TO REF
STORE "BCDEFGHIJKLMNOPQRSTUVWXYZ" TO ALPHA
STORE 1 TO A
ERASE
DO WHILE A < 26
STORE $(ALPHA,A,1) TO SEARCH
FIND &SEARCH
SKIP -1
STORE REF:NO TO REF
SELECT SECONDARY
APPEND BLANK
? 'REF. NO. :'+REF+':'
REPLACE REF:NO WITH REF
SELECT PRIMARY
STORE A+1 TO A
ENDDO
GO BOTTOM
STORE REF:NO TO REF
SELECT SECONDARY
APPEND BLANK
? 'REF. NO. :'+REF+':'
REPLACE REF:NO WITH REF
SELECT SECONDARY
SET TALK ON
INDEX ON REF:NO TO C:REFNO
RELEASE REF,SEARCH,ALPHA,A
SET TALK OFF
USE
RETURN
ENDDO