image of READY prompt

Wang2200.org

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