home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / _newprogs / parprint.amos / parprint.amosSourceCode < prev    next >
AMOS Source Code  |  1994-03-12  |  3KB  |  128 lines
  1. Set Buffer 100
  2.  
  3. Dim BEF$(37),CODE$(37)
  4. Global BEF$(),CODE$()
  5.  
  6. MAIN
  7.  
  8. Procedure INIT
  9.    Restore BEF
  10.    For X=1 To 37
  11.       Read BEF$(X),CODE$(X)
  12.    Next 
  13.  
  14.    BEF:
  15.    Data "reset",Chr$(27)+"E"+Chr$(0)
  16.    Data "lf",Chr$(13)+Chr$(10)+Chr$(0)
  17.    Data "reverse lf",Chr$(27)+"&a-1R"+Chr$(0)
  18.    Data "char",Chr$(27)+"&d"+Chr$(0)+Chr$(27)+"(s0B"+Chr$(0)
  19.    Data "underline",Chr$(27)+"&d1D"+Chr$(0)
  20.    Data "underline off",Chr$(27)+"&d@"+Chr$(0)
  21.    Data "bold",Chr$(27)+"(s5B"+Chr$(0)
  22.    Data "bold off",Chr$(27)+"(sB"+Chr$(0)
  23.    Data "normal",Chr$(27)+"(s10h1T"+Chr$(0)
  24.    Data "elite",Chr$(27)+"(s12h2T"+Chr$(0)
  25.    Data "pica",Chr$(27)+"(s10h1T"+Chr$(0)
  26.    Data "fine",Chr$(27)+"(s15H"+Chr$(0)
  27.    Data "fine off",Chr$(27)+"(s10H"+Chr$(0)
  28.    Data "italics",Chr$(27)+"(s1S"+Chr$(0)
  29.    Data "italics off",Chr$(27)+"(s0S"+Chr$(0)
  30.    Data "shadow",Chr$(27)+"(s7B"+Chr$(0)
  31.    Data "shadow off",Chr$(27)+"(s0B"+Chr$(0)
  32.    Data "doublestrike",Chr$(27)+"(s3B"+Chr$(0)
  33.    Data "doublestrike off",Chr$(27)+"(s0B"+Chr$(0)
  34.    Data "nlq",Chr$(27)+"(s2Q"+Chr$(0)
  35.    Data "nlq off",Chr$(27)+"(s0Q"+Chr$(0)
  36.    Data "partial line up",Chr$(27)+"&a-.5R"+Chr$(0)
  37.    Data "partial line down",Chr$(27)+"="+Chr$(0)
  38.    Data "prop on",Chr$(27)+"(s1P"+Chr$(0)
  39.    Data "prop off",Chr$(27)+"(s0P"+Chr$(0)
  40.    Data "double underline",Chr$(27)+"&d2D"+Chr$(0)
  41.    Data "portrait",Chr$(27)+"&l0O"+Chr$(0)
  42.    Data "landscape",Chr$(27)+"&l1O"+Chr$(0)
  43.    Data "linespace 8",Chr$(27)+"&l8D"+Chr$(0)
  44.    Data "linespace 6",Chr$(27)+"&l6D"+Chr$(0)
  45.    Data "clear margins",Chr$(27)+Chr$(9)+Chr$(15)+Chr$(0)
  46.    Data "ff",Chr$(12)+Chr$(0)
  47.    Data "micro",Chr$(27)+"(s9V"+Chr$(27)+"(s15H"+Chr$(0)
  48.    Data "superscript",Chr$(27)+"(s9V"+Chr$(27)+"(s15H"+Chr$(27)+"&a-.5R"+Chr$(0)
  49.    Data "subscript",Chr$(27)+"(s9V"+Chr$(27)+"(s15H"+Chr$(0)
  50.    Data "superscript off",Chr$(27)+"="+Chr$(27)+"(s10V"+Chr$(27)+"(s10H"+Chr$(0)
  51.    Data "subscript off",Chr$(27)+"(s10V"+Chr$(27)+"(s10H"+Chr$(0)
  52.  
  53. End Proc
  54. Procedure MAIN
  55.    F$=Fsel$("","","")
  56.    If Exist(F$)=0 Then End 
  57.  
  58.    INIT
  59.  
  60.    Set Input 10,-1
  61.    Open In 1,F$
  62.    Open Out 2,"PAR:"
  63.  
  64.    While Eof(1)=0
  65.       Line Input #1,A$
  66.       A$= Extension_22_0870(A$,8)
  67.       LOP:
  68.       S=Instr(A$,"{") : E=Instr(A$,"}")
  69.       If S=0 or E=0 Then Goto SKIP
  70.       BE$=Lower$(Mid$(A$,S+1,E-S-1))
  71.       K=0
  72.       For X=1 To 37
  73.          If BE$=BEF$(X) Then K=X : X=37
  74.       Next 
  75.       If K=0 Then Goto SKIP
  76.       O$= Extension_22_006C(A$,"{"+BE$+"}",CODE$(K))
  77.       A$=O$ : O$="" : Goto LOP
  78.       SKIP:
  79.       Print #2,A$;Chr$(13)
  80.    Wend 
  81.    Print #2,Chr$(12)
  82.    Close 1
  83.    Close 2
  84. End Proc
  85.  
  86. ' ---------------------------    
  87. ' |   unterst�tze Befehle   |  
  88. ' ---------------------------    
  89. ' | f�r den HP DeskJet 500C |  
  90. ' ---------------------------  
  91. ' reset  
  92. ' lf   
  93. ' reverse lf   
  94. ' char     
  95. ' underline  
  96. ' underline off  
  97. ' bold     
  98. ' bold off     
  99. ' normal   
  100. ' elite    
  101. ' pica     
  102. ' fine     
  103. ' fine off     
  104. ' italics  
  105. ' italics off  
  106. ' shadow 
  107. ' shadow off   
  108. ' doublestrike   
  109. ' doublestrike off   
  110. ' nlq  
  111. ' nlq off  
  112. ' partial line up  
  113. ' partial line down  
  114. ' prop on  
  115. ' prop off   
  116. ' double underline   
  117. ' portrait   
  118. ' landscape  
  119. ' linespace 8  
  120. ' linespace 6  
  121. ' clear margins  
  122. ' ff   
  123. ' micro  
  124. ' superscript  
  125. ' subscript  
  126. ' superscript off  
  127. ' subscript off  
  128. ' ---------------------------