CP/M/CPM_CDROM.iso/mbug/mbug104.arc/RECP15.LQR/PASS.CMD

OS/2 REXX Batch file | 1979-12-31 | 3KB | 104 lines

* File:- PASS.CMD
* PASWORD ENTRY FOR Music Library Files
* DATE:- 13/03/86
* Update:- 22/06/86
SET INTEN OFF
ERASE
@ 1,0 SAY"Sydney   Microbee  User   Group."
@ 1,49 SAY"DBF Files:-   The 45 RPM files"
@ 2,0 SAY"Data Base Files.Drives A: and B:"
@ 2,49 SAY"are on the disk in A:drive,the"
@ 3,0 SAY"RECODED MUSIC LIBRARY.33/45 RPM."
@ 3,49 SAY"33 RPM files  are on  the disk"
@ 4,0 SAY"A:CMD & DBF FILES.  B:DBF FILES."
@ 4,49 SAY"in B:drive.Ver 1.0 for Records"
@ 5,0 SAY"Ver 1.0"
@ 5,49 SAY"with up to  8 tracks per side."
SET INTEN ON
@ 10,30 SAY" Program Written By "
@ 11,30 SAY" >> James L.Read << "
@ 12,30 SAY" Merrylands.    NSW "
SET INTEN OFF
@ 16,0 SAY"NOTE."
@ 16,8 SAY"( REPORTS SET FOR 15 INCH  PRINTER )"
@ 17,4 SAY"To produce a backup copy of your DBF library"
@ 18,4 say"files,return to the CP/M system.  Place disk"
@ 19,4 SAY"containing the master DBF files in A: drive,"
@ 19,66 SAY"James L.Read."
@ 20,4 SAY"reset the system,then place your backup disk"
@ 20,68 SAY"Merrylands."
@ 21,4 SAY"into B:drive,use the copy program to produce"
@ 21,68 SAY"2160.  NSW."
@ 22,4 SAY"your backup copy on the disk in B: drive."
@ 22,66 SAY"March - 1986."
SET CONSOLE OFF
STORE 200 TO DELAY
DO WHILE DELAY >0
STORE DELAY-1 TO DELAY
LOOP
ENDDO
SET CONSOLE ON
@ 10,25
@ 11,25
@ 12,25
@ 10,25 SAY"+===========================+"
@ 11,25 SAY"|"
@ 11,53 SAY"|"
@ 12,25 SAY"+===========================+"
SET INTEN ON
@ 11,27 SAY" ENTER PASSWORD"
SET INTEN OFF
SET CONSOLE OFF
STORE 3 TO GO
DO WHILE GO >0
STORE GO-1 TO GO
ACCEPT TO ENTER
IF ENTER = "PASS".OR.ENTER ="pass"
SET CONSOLE ON
RELEASE ENTER,DELAY,GO
ERASE
@ 11,31 SAY"LOADING FILE "
DO REMEN
ELSE
SET CONSOLE ON
SET INTEN ON
@ 11,42 SAY"  INVALID"
SET INTEN OFF
SET CONSOLE OFF
LOOP
ENDDO
@ 11,27
@ 11,53 SAY"|"
SET INTEN ON
@ 11,27 SAY" >> INVALID PASSWORDS <<"
SET INTEN OFF
SET CONSOLE OFF
STORE 150 TO DELA
DO WHILE DELA >0
STORE DELA-1 TO DELA
LOOP
ENDDO
SET CONSOLE ON
ERASE
ENDIF
RELEASE DELA
QUIT
RETURN




de."
SET INTEN ON
@ 10,30 SAY" Program Written By "
@ 11,30 SAY" >> James L.Read << "
@ 12,30 SAY" Merrylands.    NSW "
SET INTEN OFF
@ 16,0 SAY"NOTE."
@ 16,8 SAY"( REPORTS SET FOR 15 INCH  PRINTER )"
@ 17,4 SAY"To produce a backup copy of your DBF library"
@ 18,4 say"files,return to the CP/M system.  Place disk"
@ 19,4 SAY"containing the master DBF files in A: drive,"
@ 19,66 SAY"James L.Read."
@ 20,4 SAY"reset the system,then place your backup disk"
@ 20,68 SAY"Merryla