image of READY prompt

Wang2200.org

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

# Sector 86, program filename = '609POPTA'
1000 %"609POPTA" - 09/16/80 - USED WITH "609POPT0"
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," "
1380 DATA 1,19,0,1,"Character","Line","CRT Only","\DE"
   : GOTO 1380
1390 DATA 1,19,14,1,"10","12","15","\DE"
   : DATA 1,19,21,1,"Unjustified","Justified","With Notes","\DE"
   : DATA 1,19,37,1,"Standard","Single","Form 1","Form 2","\DE"
   : DATA 1,19,52,1,"Final","Draft","\DE"
   : DATA 1,19,62,1,"Print","Omit","\DE"
   : 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