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