Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/klad20_rev.b20
There are no other files named klad20_rev.b20 in the archive.
00010 REM KLAD20_REV.B20 JANUARY 8,1987 LESLIE MCCONNELL
00020 REM
00030 PRINT "THIS PROGRAM IS USED TO ENTER THE NEW KLAD20 PACK REVISION INTO"
00040 PRINT "THE CONFIG PROGRAM."
00050 REM
00060 REM VARIABLES USED:
00070 REM
00080 REM KLREV$ = THE REVISION OF THE KLAD20 RELEASE
00090 REM KLAD20.REV = NAME OF THE FILE CONTAINING THE RELEASE NAME
00095 REM YN$ = ANSWER TO IS INFORMATION CORRECT
00100 REM
00110 INPUT "TYPE IN THE NEW KLAD20 DESIGNATION";KLREV$
00120 PRINT " "
00130 PRINT " "
00140 PRINT KLREV$
00150 PRINT" "
00160 INPUT "IS THIS INFORMATION CORRECT? ENTER Y OR N";YN$
00170 PRINT " "
00180 IF YN$="Y" or YN$="y" THEN 220
190 IF YN$= "N" OR YN$="n" THEN 110
200 PRINT "THIS IN AN UNRECOGNIZED RESPONSE PLEASE ENTER (Y) OR (N)"
210 GOTO 160
220 OPEN "<UTILITIES>KLAD20.REV" FOR OUTPUT AS FILE #1
230 PRINT #1,KLREV$
240 CLOSE #1