%%HP: T(3)A(D)F(.);
\<<
@ Autor: Otto Praxl
@ Das Programm PFMT (Papierformate)kann ohne Berücksichtigung von 
@ Übertragungseinstellungen auf den 
@ HP-Taschenrechner übertragen werden.
@ Der Taschenrechner erkennt am Header 
@    %%HP: T(3)A(D)F(.);
@ wie er die Zeichen übersetzen muss.
  IF DEPTH 1.00 >
  THEN 'ii' STO "" + 'fo' STO
    IF ii TYPE 28.00 == ii TYPE 0.00 == OR
    THEN ii IP R\->I 'ii' STO 2.00 \v/ \v/ \v/ 'c' STO
      IF ii -1.00 > ii 20.00 < AND
      THEN
        CASE fo "A" ==
          THEN ii 4.00 * NEG 2.00 - c SWAP ^ 'b' STO
          END fo "B" ==
          THEN ii 4.00 * NEG c SWAP ^ 'b' STO
          END fo "C" ==
          THEN ii 4.00 * NEG 1.00 - c SWAP ^ 'b' STO
          END fo "D" ==
          THEN ii 4.00 * NEG 3.00 - c SWAP ^ 'b' STO
          END -1.00 IP R\->I 'ii' STO
        END
      END RCLF
      IF ii -1.00 > ii 20.00 < AND
      THEN 2.00 FIX b 2.00 \v/ * 'a' STO "Format " fo + ii \->STR + "
 Lange Seite:
   " + a 1000.00 * \->STR + " mm" + "
 Kurze Seite:
   " + b 1000.00 * \->STR + " mm" +
        \<< { a b c fo ii LOE } PURGE
        \>> 'LOE' STO
      ELSE "Eingabe falsch!
Bitte nur 
 A, B, C oder D
 und Index < 20
eingeben!" { c fo ii } PURGE
      END CLLCD MSGBOX STOF
    ELSE "
Index " ii \->STR + "

    ist falsch!
" + CLLCD MSGBOX { fo ii } PURGE
    END
  ELSE "Papierformat
Eingabe: 
 Format A,B,C,D
 Index  \>= 0
\1692005 Praxelius" CLLCD MSGBOX
  END