Listing of file='3741101A' on disk='vmedia/3741_util.wvd.zip'
# Sector 215, program filename = '3741101A' 0010 REM 3741101A,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);,"COPY/VERIFY 3741 DISK" : PRINT "MOUNT DISK PLATTERS." : GOSUB '254 : PRINT HEX(03);,"COPY/VERIFY 3741 DISK" : GOSUB '200("1","2",1,0,"SELECT OPTION: 1 = FR, 2 = RF",1) : D=Q9 3100 GOSUB '200("8","1950",4,0,"ENTER LAST SECTOR TO BE COPIED",1) : L=Q9+16383 : GOSUB '248(1,0,3) : PRINT HEX(0A0A0A);,"MOUNT DISKS" : IF D=2THEN 3180 : PRINT ,"FIXED TO REMOVABLE" : SELECT #3B10 : GOTO 3200 3180 PRINT ,"REMOVABLE TO FIXED" : SELECT #3310 3200 PRINT ,"COPYING THROUGH SECTOR";L-16383 : GOSUB '254 : IF D=2THEN 3250 : COPY #3,FR(16391,L) : GOTO 3260 3250 COPY #3,RF(16391,L) 3260 PRINT HEX(010A0A0A0A0A0A);,"VERIFYING THROUGH SECTOR";L-16383 : VERIFY T#3,(16391,L) : PRINT HEX(03);,"COPY/VERIFY 3741 DISK" 3310 GOSUB '200(" "," ",1,0,"DO YOU WANT TO RERUN THIS PROGRAM? (Y/N)",2) : IF Q6$="Y"THEN 3020 : IF Q6$="N"THEN 3370 : GOSUB '255 : GOTO 3310 3370 DEFFN'31 3380 PRINT HEX(030A);"MOUNT SYSTEM PLATTER" : GOSUB '254 : GOSUB '229(1,"3741020A") : IF R=1THEN 3430 : GOTO 3380 3430 PRINT HEX(03);"SYSTEM NOW LOADING - SYSTEM MENU" : LOAD DC T#1,"3741020A"3000,6990