Listing of file='609POPTB' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2503, program filename = '609POPTB' 1000 %"609POPTB" 1020 DATA "001","120","0002","002","002","50","66","01","1","2","10" : DATA 3,0,0,HEX(09) : DATA 4,4,0,"Document Id:" : DATA 4,5,0,"Document Name:" : DATA 4,8,0,"Print From Page:" : DATA 4,8,26,"Print thru Page:" : DATA 4,8,52,"Starting as Page No.:" : DATA 4,9,0,"First Header Page:" 1120 DATA 4,9,26,"First Footer Page:" : DATA 4,9,52,"Footer Begins on Line:" : DATA 4,11,0,"Paper Length:" : DATA 4,11,26,"No. of Originals:" : DATA 4,11,52,"Character Set Number:" : DATA 4,12,0,"Printer Number:" : DATA 4,12,26,"Left Margin:" : DATA 4,15,0,"Please select one from each column:" 1200 DATA 4,17,0,"DEVICE" : DATA 4,17,14,"PITCH" : DATA 4,17,21,"FORMAT" : DATA 4,17,37,"FORMS" : DATA 4,17,52,"STYLE" : DATA 4,17,62,"SUMMARY" : DATA 4,17,74,"DELETE" : DATA 2,8,19,3," " : DATA 2,8,46,3," " : DATA 2,8,75,4," " : DATA 2,9,19,3," " : DATA 2,9,46,3," " : DATA 2,9,75,2," " : DATA 2,11,19,2," " : DATA 2,11,46,2," " 1350 DATA 2,11,75,1," " : DATA 2,12,19,1," " : DATA 2,12,46,2," " : DATA 1,19,0,1,"CRT Image","\DE" : DATA 1,19,14,1,"10","12","15","\DE" : DATA 1,19,21,1,"Unjustified","Justified","With Notes","\DE" : DATA 1,19,37,1,"Single","\DE" : DATA 1,19,52,1,"Final","\DE" : DATA 1,19,62,1,"Display","Omit","\DE" 1440 DATA 1,19,74,1,"No","\DE" : DATA 0 1460 DEFFN'36 : IF C1$="L"THEN PRINT AT(0,30);"PRINT LIBRARY DOCUMENT" : ELSE PRINT AT(0,30);"PRINT ARCHIVE DOCUMENT" : RETURN