Listing of file='3741020A' on disk='vmedia/3741_util.wvd.zip'
# Sector 79, program filename = '3741020A'
0010 REM 3741020A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS. INC.
3000 % THIS MUST BE STATEMENT 3000
3040 DEFFN'15
: PRINT HEX(030A0A0A)
: PRINT TAB(20);"3741-2200 UTILITY SYSTEM"
: PRINT
: PRINT "---------------------------------------------------------------"
3090 PRINT " FN KEY DESCRIPTION FN KEY DESCRIPTION"
: PRINT "---------------------------------------------------------------"
3110 PRINT " 01 - CONVERT 3741 TO TC FORMAT 06 - LIST 3741 CATALOG"
: PRINT " 02 - CONVERT TC FORMAT TO 3741 07 - DUMP 3741 SECTOR(S)"
3130 PRINT " 03 - LIST 3741 FILE 08 - APPLICATION/SUBROUTINES"
: PRINT " 04 - LIST TC FORMAT FILE 09 - CHANGE DISK ADDRESSES"
3150 PRINT " (CONVERTED 3741 FILE) 10 - INITIALIZE 3741 DISK"
: PRINT " 05 - CONVERT 5110 TO TC FORMAT 11 - COPY 3741 DISK"
3170 PRINT " 15 - RESTART UTILITY 31 - RETURN TO START"
: PRINT HEX(01);"PRESS DESIRED FUNCTION KEY ";
3190 A$=" "
: KEYIN A$,3240,3220
: GOTO 3190
3220 ON VAL(A$)GOTO 3280,3320,3360,3400,3440,4020,4060,4100,4230,4330,4370
: IF A$=HEX(1F)THEN 4280
3240 $GIO/005(4007,A$)
: GOTO 3190
3280 PRINT HEX(03);"SYSTEM NOW LOADING - 3741 TO TC FORMAT FILE CONVERSION"
: LOAD DC T#1,"3741030A"3000,6999
3320 PRINT HEX(03);"SYSTEM NOW LOADING - TC FORMAT TO 3741 FILE CONVERSION"
: LOAD DC T#1,"3741040A"3000,6999
3360 PRINT HEX(03);"SYSTEM NOW LOADING - LIST 3741 FILE"
: LOAD DC T#1,"3741050A"3000,6999
3400 PRINT HEX(03);"SYSTEM NOW LOADING - LIST TC FORMAT FILE"
: LOAD DC T#1,"3741060A"3000,6999
3440 PRINT HEX(03);"SYSTEM NOW LOADING - CONVERT 5110 TO TC FORMAT"
: LOAD DC T#1,"3741102A"3000,6990
4020 PRINT HEX(03);"SYSTEM NOW LOADING - LIST 3741 CATALOG"
: LOAD DC T#1,"3741070A"3000,6990
4060 PRINT HEX(03);"SYSTEM NOW LOADING - DUMP 3741 SECTOR(S)"
: LOAD DC T#1,"3741080A"3000,6990
4100 PRINT HEX(03)
: PRINT HEX(010A0A0A0A0A0A);"FILE '3741090A' IS A PRE-PROGRAMMED APPLICATIO
N WHICH ALLOWS"
: PRINT "FOR CONSOLE CONTROLLED ACCESS TO THE 3471 DISK SUBROUTINES."
4130 GOSUB '200(" "," ",8,0,"ENTER THE NAME OF THE APPLICATION PROGRAM.",2)
: A$=Q6$
: GOSUB '229(1,A$)
: IF R=1THEN 4190
: GOSUB '255
: GOTO 4130
4190 PRINT HEX(03);"SYSTEM NOW LOADING - ";A$
: LOAD DC T#1,A$3000
4230 PRINT HEX(03);"SYSTEM NOW LOADING - SELECT DISK ADDRESSES"
: LOAD DC T#1,"3741010A"
4270 DEFFN'31
4280 COM CLEAR
: PRINT HEX(03);"SYSTEM NOW LOADING - START"
: LOAD DC T#1,"START"
4330 PRINT HEX(03);"SYSTEM NOW LOADING - INITIALIZE 3741 DISK"
: LOAD DC T#1,"3741100A"3000,6999
4370 PRINT HEX(03);"SYSTEM NOW LOADING - COPY 3741 DISK"
: LOAD DC T#1,"3741101A"3000,6999