image of READY prompt

Wang2200.org

Listing of file='609POPTB' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 95, 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","BIN("
   : DATA 1,19,14,1,"10","12","15","BIN("
   : DATA 1,19,21,1,"Unjustified","Justified","With Notes","BIN("
   : DATA 1,19,37,1,"Single","BIN("
   : DATA 1,19,52,1,"Final","BIN("
   : DATA 1,19,62,1,"Display","Omit","BIN("
1440 DATA 1,19,74,1,"No","BIN("
   : 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