Listing of file='TPUT030A' on disk='vmedia/733-1004.wvd.zip'
# Sector 153, program filename = 'TPUT030A'
0012 REM . TPUT030A, 00-00 (04/10/77), 10189A
0020 DIM C$(50)40
: SELECT #107B
: O$="C"
: PRINT HEX(03);"2209A - READ/WRITE DATA UTILITY"
0060 GOSUB '245("KEY 1 TO LOAD PROGRAM, KEY 0 TO STOP",1,0)
: IF Q9>=0THEN 100
0080 GOSUB 9854
: GOTO 60
0100 IF Q9>1THEN 80
: IF Q9=1THEN 140
: GOSUB '248(1,0,4)
0130 LOAD DC F"TPUT030B"12,9120
0140 $IF ON /000,220
0150 LOAD DC F"TPUT030C"150,210
0220 GOSUB 260
: GOSUB '248(1,0,15)
: GOSUB '243("ENTER THE PROGRAM NAME",8)
0250 LOAD DC T#2,Q6$12,9120
0260 GOSUB '248(1,0,4)
: PRINT "SELECT DISK DEVICE ADDRESS"
: PRINT HEX(0A0A0A0A0A0A);
: PRINT TAB(28);"DEVICE ADDRESS"
: PRINT TAB(23);"-----------------------"
: PRINT TAB(25);"1. 310 4. B20"
: PRINT TAB(25);"2. B10 5. 350"
0330 PRINT TAB(25);"3. 320 6. B50"
: PRINT HEX(010A0A);
0350 INPUT Q9
: IF Q9>7THEN 380
: IF Q9>0THEN 420
0380 PRINT "RE-ENTER"
: PRINT HEX(0C0C);TAB(20)
: PRINT HEX(0C)
: GOTO 350
0420 ON Q9GOTO 440,450,460,470,480,490
: GOTO 380
0440 SELECT #2310
: RETURN
0450 SELECT #2B10
: RETURN
0460 SELECT #2320
: RETURN
0470 SELECT #2B20
: RETURN
0480 SELECT #2350
: RETURN
0490 SELECT #2B50
: RETURN
9121 DEFFN'42
: S9=0
: GOSUB 9353
9127 GOSUB '31(6)
: O$="O"
: GOSUB '31(12)
: GOSUB '204(0)
: GOSUB 9391
: IF T9=1THEN 9127
: IF V0$<>"N"THEN 9151
: GOSUB '245("ENTER THE BLOCK SIZE",5,0)
: S9=Q9
: GOSUB '31(6)
: U1=0
: RETURN
9151 GOSUB 9301
: IF T8=1THEN 9127
: 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$,(#####)
: IF STR(C$(2),9,5)<=W5$THEN 9181
9167 GOSUB '208(2,W5$,9,5," * ATTEMPT TO WRITE ON UNEXPIRED TAPE *",0,0)
: IF T9=1THEN 9127
: IF STR(C$(2),14,1)="0"THEN 9181
: GOSUB '248(1,0,8)
: GOSUB '243("ENTER THE DATASET NAME",17)
9177 GOSUB '208(1,Q6$,5,17," * THE DATASET NAMES DO NOT MATCH *",0,1)
: IF T8=1THEN 9127
9181 GOSUB '31(1)
: GOSUB '201(3,0)
: GOSUB '201(5,0)
: CONVERT STR(L$(5),6,5)TO S9
: GOSUB '31(10)
: U1=0
: RETURN
9195 DEFFN'43
: GOSUB 9353
9199 O$="O"
: GOSUB '31(6)
: GOSUB '31(12)
: GOSUB '204(0)
: GOSUB 9391
: IF T9=1THEN 9199
: IF V0$<>"N"THEN 9219
: GOSUB '31(6)
: U1=0
: RETURN
9219 GOSUB '248(1,0,8)
: GOSUB '243("ENTER THE VOLUME SERIAL NO.",6)
: STR(L$(1),5,6)=Q6$
: GOSUB 9301
: IF T8=1THEN 9199
: GOSUB '31(12)
: GOSUB '204(0)
: IF STR(C$(2),14,1)<>"1"THEN 9243
: GOSUB '248(1,0,8)
: GOSUB '243("ENTER THE DATASET NAME",17)
9239 GOSUB '208(1,Q6$,5,17," * THE DATASET NAMES DO NOT MATCH *",0,1)
: IF T8=1THEN 9199
9243 GOSUB '31(12)
: GOSUB '204(0)
: GOSUB '208(1,"F",5,1," * ILLEGAL RECORD FORMAT *",0,1)
: IF T8=1THEN 9199
: GOSUB '31(3)
: U1=0
: 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 9287
: PRINT HEX(010A);"KEY 'C' TO CONTINUE, 'S' TO STOP"
: T9=0
9279 KEYIN Z$,9283,9283
: GOTO 9279
9283 IF Z$="C"THEN 9297
: IF Z$<>"S"THEN 9279
9287 GOSUB '243("REMOVE THE TAPE, KEY (EXEC) TO RESUME",0)
: GOSUB '31(6)
: T9=1
: O$="C"
: GOSUB '243("MOUNT THE TAPE, KEY (EXEC) TO RESUME",0)
9297 GOSUB '248(1,0,8)
: RETURN
9301 GOSUB '208(1,STR(L$(1),5,6),5,6," * THE VSN. DO NOT MATCH *",1,0)
: IF T8=0THEN 9313
: PRINT " ---------------------"
: PRINT " THE INTERNAL VSN. = ";STR(C$(1),5,6)
9309 PRINT " THE EXTERNAL VSN. = ";STR(L$(1),5,6)
: GOSUB 9287
9313 RETURN
9317 DEFFN'44
: S9=0
: GOSUB 9359
: IF V0$="N"THEN 9333
: GOSUB '31(10)
: CONVERT U1TO W6$,(######)
: GOSUB '201(3,1)
: GOSUB '201(5,2)
9333 GOSUB '31(10)
: GOSUB '31(10)
: GOSUB '31(6)
: O$="C"
: RETURN
9343 DEFFN'45
: GOSUB 9359
: O$="C"
: GOSUB '31(6)
: 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 9415
: IF V0$<>"N"THEN 9409
: IF S8<>80THEN 9407
: IF STR(C$(1),1,4)<>"VOL1"THEN 9407
9399 Z6=1
: Z7=0
: Z1$=" * LABEL TYPES ARE NOT IDENTICAL *"
: GOSUB 9263
9407 RETURN
9409 GOSUB '208(1,"VOL1",1,4," * LABEL TYPES ARE NOT IDENTICAL *",0,1)
: IF S8<>80THEN 9399
: RETURN
9415 S8=256*VAL(STR(B$,9,1))+VAL(STR(B$,10,1))
: RETURN