Listing of file='TPUT020A' on disk='vmedia/733-1004.wvd.zip'
# Sector 81, program filename = 'TPUT020A' 0012 REM . TPUT020A, 00-00 (04/10/77), 10189A 0029 DIM C$(2)40,W2$40 : SELECT #107B : O$="C" : PRINT HEX(03);"VOLUME LABEL INITIALIZATION PROGRAM" 0060 GOSUB '245("ENTER THE NUMBER OF THE TAPES TO BE INITIALIZED",2,0) : IF Q9>0THEN 100 : GOSUB 9854 : GOTO 60 0100 V0=Q9 0110 S7=S7+1 : IF S7<10THEN 150 : CONVERT S7TO STR(W2$,13,2),(##) : GOTO 160 0150 CONVERT S7TO STR(W2$,14,1),(#) 0160 STR(W2$,1,12)="MOUNT TAPE #" : STR(W2$,15,22)=", KEY (EXEC) TO RESUME" : GOSUB '243(W2$,0) 0180 GOSUB '248(5,0,5) : GOSUB '31(13) : GOSUB '248(1,0,9) 0190 GOSUB '245("ENTER LABEL CONTENTS (1=ENTER LABEL, 0=SKIP)",1,0) : I9=Q9 : T9=0 : IF Q9>=0THEN 220 : GOSUB 9854 : GOTO 190 0220 IF Q9<=1THEN 230 : GOSUB 9854 : GOTO 190 0230 T=0 0240 GOSUB '243("ENTER LABEL TYPE (I=IBM, A=ANSI, N=NO)",1) : V0$=Q6$ : IF Q6$="I"THEN 320 : IF Q6$="A"THEN 330 : IF Q6$="N"THEN 310 : GOSUB 9854 : GOTO 240 0310 L$(1),L$(2),L$(3)=A2$ : GOTO 530 0320 T=1 0330 IF I9=0THEN 530 0340 L$(1),L$(2),L$(3)=A2$ : L$="VOLUME LABEL " : GOSUB '248(1,0,7) : STR(L$(1),1,4)="VOL1" : GOSUB 1045 : PRINT HEX(0A0A0A0A); : GOSUB '206(1,1,4) : GOSUB '243("ENTER THE VOLUME SERIAL NUMBER (REQUIRED)",6) 0420 STR(L$(1),5,6)=Q6$ : GOSUB '206(1,5,10) : GOSUB '243("ENTER THE OWNER NAME & ADDRESS CODE",10) : STR(L$(2),2,10)=Q6$ : GOSUB '206(1,42,51) : GOSUB 1425 0480 KEYIN Z$,500,500 : GOTO 480 0500 GOSUB '209(1) : IF T6=1THEN 340 : PRINT HEX(03);"VOLUME LABEL INITIALIZATION PROGRAM" 0530 GOSUB '243("ENTER TAPE FILE STATUS (O=OLD, N=NEW)",1) : IF Q6$="O"THEN 600 : IF Q6$="N"THEN 580 : GOSUB 9854 : GOTO 530 0580 O$="O" : GOTO 630 0600 GOSUB '42 : IF S6=1THEN 190 : IF T9=1THEN 180 0630 C$(1)=L$(1) : C$(2)=L$(2) : L0=80 : S9=0 : GOSUB '31(6) : GOSUB '204(1) : GOSUB '31(11) : INIT(30)C$() : STR(C$(1),1,4)="HDR1" : GOSUB '204(1) : GOSUB '31(11) : GOSUB '31(10) : GOSUB '31(6) : GOSUB '31(12) : GOSUB '204(0) : IF STR(C$(1),5,6)<>" "THEN 800 0790 STR(C$(1),5,6)="BLANKS" 0800 PRINT HEX(0A0A0A0A);" THE VSN. ON THE TAPE = ";STR(C$(1),5,6) : GOSUB '31(6) : O$="C" : V0=V0-1 : IF V0>0THEN 110 : GOSUB '248(1,0,4) : PRINT "LOAD THE UTILITY MENU" : LOAD DC F"START" 9121 DEFFN'42 : S6=0 : GOSUB 9353 : GOSUB '31(6) : O$="O" : GOSUB '31(12) : GOSUB '204(0) : GOSUB 9391 : IF S6=1THEN 9184 : IF T9=1THEN 9184 : IF V0$<>"N"THEN 9146 : GOSUB '31(6) : RETURN 9146 GOSUB '243("ENTER THE VOLUME SERIAL NUMBER",6) : W3$=Q6$ : GOSUB 9301 : IF T9=1THEN 9184 : IF S6=1THEN 9184 : GOSUB '248(1,0,8) : GOSUB '31(12) : GOSUB '204(0) : GOSUB '245("ENTER TODAY'S DATE IN (YYDDD) FORMAT",5,0) : CONVERT Q9TO W5$,(#####) 9166 IF STR(C$(2),9,5)<=W5$THEN 9184 : GOSUB '208(2,W5$,9,5," * ATTEMPT TO WRITE ON UNEXPIRED TAPE *",0,0) : IF T9=1THEN 9184 : IF STR(C$(2),14,1)="0"THEN 9184 : GOSUB '248(1,0,8) : GOSUB '243("ENTER THE DATASET NAME",17) 9178 GOSUB '208(1,Q6$,5,17," * THE DATASET NAMES DO NOT MATCH *",0,1) 9184 RETURN 9257 DEFFN'208(Z0,Z0$,Z8,Z9,Z1$,Z7,Z6) : T8,T9=0 : IF STR(C$(Z0),Z8,Z9)=Z0$THEN 9271 9263 GOSUB '248(1,0,8) : PRINT HEX(0A0A);Z1$ : T8=1 : IF Z7=0THEN 9273 9271 RETURN 9273 IF Z6=1THEN 9288 9275 PRINT HEX(010A);"KEY 'C' TO CONTINUE, 'S' TO STOP" : T9,S6=0 9279 KEYIN Z$,9283,9283 : GOTO 9279 9283 IF Z$="C"THEN 9297 : IF Z$<>"S"THEN 9279 : GOSUB '248(1,0,8) : GOSUB '31(6) 9288 GOSUB '245("ENTER 1 TO RE-ENTER LABEL, 0 TO MOUNT TAPE",1,0) : S6=Q9 : IF Q9=1THEN 9296 : IF Q9=0THEN 9294 : GOSUB 9854 : GOTO 9288 9294 GOSUB '243("REMOVE THE TAPE, KEY (EXEC) TO RESUME",0) : T9=1 9296 O$="C" 9297 GOSUB '248(1,0,8) : RETURN 9301 GOSUB '208(1,W3$,5,6," * THE VSN. DO NOT MATCH *",1,0) : IF T8=0THEN 9313 : PRINT " ---------------------" : PRINT " THE INTERNAL VSN. = ";STR(C$(1),5,6) : PRINT " THE EXTERNAL VSN. = ";W3$ : GOSUB 9275 9313 RETURN 9353 IF O$="C"THEN 9357 : STOP " * ATTEMPT TO OPEN A NON-CLOSED FILE *" 9357 RETURN 9359 IF O$="O"THEN 9363 : STOP " * ATTEMPT TO CLOSE A CLOSED FILE *" 9363 RETURN 9365 DEFFN'201(Z1,Z2) : C$(1)=L$(Z1) : C$(2)=L$(Z1+1) : L0=80 : IF Z2=0THEN 9385 : IF Z2=2THEN 9383 : STR(C$(1),1,4)="EOF1" : STR(C$(2),15,6)=W6$ : GOTO 9385 9383 STR(C$(1),1,4)="EOF2" 9385 GOSUB '204(1) : GOSUB '31(11) : RETURN 9391 GOSUB 9417 : IF V0$<>"N"THEN 9411 : IF S8<>80THEN 9409 : IF STR(C$(1),1,4)=HEX(E5D6D3F1)THEN 9401 : IF STR(C$(1),1,4)<>"VOL1"THEN 9409 9401 Z6=1 : Z7=0 : Z1$=" * LABEL TYPES ARE NOT IDENTICAL *" : GOSUB 9263 9409 RETURN 9411 GOSUB '208(1,"VOL1",1,4," * LABEL TYPES ARE NOT IDENTICAL *",0,1) : IF S8<>80THEN 9401 : RETURN 9417 S8=256*VAL(STR(B$,9,1))+VAL(STR(B$,10,1)) : RETURN 9420 GOSUB '248(1,0,15) : PRINT " SEARCH & LOAD THE PROGRAM" : RETURN