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