Listing of file='2229TENS' on disk='vmedia/2229_diagnostics.wvd.zip'
# Sector 378, program filename = '2229TENS'
0010 COM F9$8
: F9$="2229TENS"
: LOAD T"2229STRT"
0020 REM % "2229TENS" - part of 2229 utilities package
0025 REM % COPYRIGHT WANG LABORATORIES, INC., 1986,1987
0030 REM % Perform tape tensioning procedure -- ST 01/21/1983
0040 DIM R$16,T$30,M$40
: T$="TENSION TAPE CARTRIDGE"
: GOSUB '151
: $OPEN #4
0050 PRINT AT(2,5);"This program will rewind, then unwind a tape cartridge in
order to"
0055 PRINT AT(3,5);"establish a uniform tape tension."
0060 PRINT AT(5,0);" This procedure should be run whenever :"
0070 PRINT AT(7,10);"1 - A new cartridge is to be used"
0080 PRINT AT(8,10);"2 - A cartridge has unrecoverable read errors"
0090 PRINT AT(9,10);"3 - A cartridge has been subjected to extreme environment
al conditions"
0100 PRINT AT(14,0);"Insert cartridge"
: GOSUB '152
0120 PRINT HEX(06),AT(2,0,);
: GOSUB '104
: REM LOAD TAPE
0130 GOSUB '105
: REM UNLOAD TAPE
0140 GOSUB '104
0150 GOSUB '105
0160 PRINT AT(2,0,);AT(10,0);"DONE";HEX(07)
: $CLOSE#4
: GOSUB '153
: STOP
: GOTO 10
5250 DEFFN'104
: REM % LOAD TAPE
5260 PRINT HEX(020404000E)
: M$="Loading Tape"
: GOSUB '160
: $GIO#4(4404 8701,R$)
: PRINT HEX(0F)
: GOSUB '222
: REM GET ERROR
: IF E=0THEN RETURN
: IF E<>3THEN 7540
5275 GOSUB '208
: GOTO 5260
5300 DEFFN'105
: REM % UNLOAD TAPE
5305 PRINT HEX(020404000E)
: M$="Unloading tape"
: GOSUB '160
5310 $GIO#4(4405 8701,R$)
: STR(R$,1,1)=HEX(00)
: PRINT HEX(0F)
: GOSUB '222
5315 IF E=0THEN RETURN
: IF E<>3THEN 7540
: GOSUB '208
: GOTO 5305
6500 DEFFN'160
: REM PRINT OUT MESSAGE
: PRINT HEX(06),AT(10,0,320);M$
: RETURN
7510 DEFFN'222
: REM % Check error return
: E=VAL(STR(R$,1,1))
: IF E=0THEN RETURN
: RESTORE LINE7520,E
: READ E$
: IF E=2THEN C3=1
: REM SET OUT OF TAPE FLAG
: RETURN
7520 DATA "ILLEGAL COMMAND","OUT OF TAPE","TAPE NOT READY","WRITE PROTECTED","
RESULTS PENDING","DATA ERROR","FILE MARK FOUND","TAPE FAULT"
7530 REM % Errors
7540 PRINT "Error ";E;" - ";E$
: STOP
7560 DEFFN'152
: REM % WAIT FOR RETURN KEY
7565 PRINT
: PRINT "Press RETURN"
7570 DEFFN'154
: KEYIN K$
7580 KEYIN K$,7580,7580
: RETURN
: REM FLUSH EXTRA KEYSTROKES
8500 DEFFN'208
: REM % ERROR MESSAGE FOR TAPE UNIT NOT READY
8510 M$="Tape drive is not ready "
: GOSUB '160
: E=VAL(STR(S$,10,1))
: GOSUB '152
: RETURN
8567 DEFFN'151
: PRINT HEX(03);AT(0,40-(LEN(T$)/2));HEX(020402040E);T$;HEX(0F)
: RETURN
8700 DEFFN'126
: RETURN CLEAR ALL
: GOTO 20
8710 DEFFN'127
: RETURN CLEAR ALL
: $PSTAT=".2229"
: F$=".2229"
: LOAD RUN
8720 DEFFN'153
: PRINT AT(18,0);"Press FN/TAB to restart current utility"
: PRINT "Press Shift FN/TAB to return to menu"
: RETURN