Listing of file='3741100A' on disk='vmedia/3741_util.wvd.zip'
# Sector 207, program filename = '3741100A'
0010 REM 3741100A,02.00(12/1/78),THIS PROGRAM IS A PRODUCT OF WANG LABS.INC.
3000 % THIS MUST BE STATEMENT 3000
3010 DEFFN'15
3020 PRINT HEX(030D);,"INITIALIZE 3741 DISK FOR WANG 2200"
: PRINT "MOUNT DISK TO BE INITIALIZE"
: GOSUB '254
: PRINT HEX(03);,"INITIALIZE 3741 DISK FOR WANG 2200"
3070 PRINT HEX(030D);,"INITIALIZING 3741 DISK FOR WANG 2200"
: DATA LOAD BA T#6,(16391,N)Z0$()
: STR(Z0$(1),1,1)=HEX(C4)
: STR(Z0$(3),1,1)=HEX(F8)
: DATA SAVE BA T#6,(16391,N)Z0$()
: PRINT HEX(03);,"INITIALIZE 3741 DISK FOR WANG 2200"
3150 GOSUB '200(" "," ",1,0,"DO YOU WANT TO RERUN THIS PROGRAM? (Y/N)",2)
: IF Q6$="Y"THEN 3020
: IF Q6$="N"THEN 3220
: GOSUB '255
: GOTO 3150
3210 DEFFN'31
3220 GOSUB '229(1,"3741020A")
: IF R=1THEN 3270
: PRINT HEX(030A);"MOUNT SYSTEM PLATTER."
: GOSUB '254
: GOTO 3210
3270 PRINT HEX(030A);"SYSTEM NOW LOADING - SYSTEM MENU"
: LOAD DC T#1,"3741020A"3000,6990