%%HP: T(1)A(D)F(.);
DIR
  RPN
     OBJ
      IF OVER
      THEN  n f
         1 n
          FOR i
            IF DUP
TYPE 9 SAME
            THEN
RPN
            END n
ROLLD
          NEXT
          IF DUP
TYPE 5 
          THEN 1
LIST
          END
          IF n 1 >
          THEN 2 n
            START +
            NEXT
          END f +
        
      ELSE 1 LIST
SWAP DROP
      END
    
  tf '10000_Pa'
  kgF '100000_Pa'
  S4
GROB 131 64 0000000000000000200000000000000000000000000000000020000000000000000002000000000000007000000000000000000200000000000008A000000000000000000200000000000004210000000000000000CF100000000000022200000000000000000200000000000001240000000000000000020000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000080780000000000000000000000000000008028000000000000000000000000000000012800000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000174000000000000000000000000000000022200000000000000000000000000000002220000000000000000000000000000000422000000000000000000000000000000042100000000000000000000000000000008A000000000000000000000000000000008A00000000000000000000000000000000070000000000000000000000000000000007000000000000000000208002080020800208002080020800200FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70020800208002083070E0020800208002000000000000000700700700000000000000000000000000E008A008100000000000000000000000081008210060000000000000000000000006000421008100000000000000000000000100022200060000000000000000000000800002220008000000000000000000000040000124000010000000000000000000002000C02810002000000000000000000000100030702000400000000000000000000010080020C00080000000000000000000080004002001008000000000000000000008000300200200800000000000000000000800C000200C00800000000000000000000800300020003080000000000000000000003C00002000C06000000000000000000000C3000020000F10000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000070000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000200000200000000000000000
  S3
GROB 131 64 00000000000000002000000000000000000000000000000000200000000000000000000000000000000070000000000000000000000000000000002000000000000000000000000000000C702000000000000000000000000000000280200000000000000000000000000000010120000000000000000000000000000001022000000000000000000000000000000104200000000000000000000000000000010820000000000000000000000000000001082000000000000000000000000000000100300000000000000000000000000000010070000000000000000000000000000002003000000000000000000000000000000200300000000000000000000000000000020030000000000000000000000000000002002000000000000000000000000000000400200000000000000000000000000000040020000000000000000000000000000004002000000000000000000000000000000800200000000000000000000000000000080020000000000000000000000000000000107000000000000000000000000000000020600000000000000000000000000000004060000000000000000000000000000000806000000000000000000000000000000001600000000000000000000000000000000160000000000000000000000000000000022000000000000000000000000000000004200F1000000000000000000000000000082CF0EF0000000000000208002080020800B38002380020800200FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70020800208002080C6080020900208002000000000000000003B0000002000000000000000000000000C033000004000000000000000000000000203C00000800000000000000000000000818203000080000000000000000000000040820C00004000000000000000000000002082003000200000000000000000000008104200C30C1000000000000000000000040042000CF3000000000000000000000002004700000000000000000000000000000100220000000000000000000000000000010022000000000000000000000000000080002200000000000000000000000000008000120000000000000000000000000000400802000000000000000000000000000040040200000000000000000000000000002004020000000000000000000000000000200202000000000000000000000000000020010200000000000000000000000000001080070000000000000000000000000000204002000000000000000000000000000020200200000000000000000000000000004C10020000000000000000000000000000830002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000000000200000000000000000
  S2
GROB 131 64 0000000000000000200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000830002000000000000000000000000000044000200000000000000000000000000002810020000000000000000000000000000206002000000000000000000000000000010800700000000000000000000000000002001020000000000000000000000000000200202000000000000000000000000000020040200000000000000000000000000004004020000000000000000000000000000400802000000000000000000000000000080001200000000000000000000000000008000220000000000000000000000000000010022000000000000000000000000000001002200000000000000000000000000000200470000000000000000000000000000040042000CF3000000000000000000000008004200030C100000000000000000000000108200E00020000000000000000000000060820C100040000000000000000000000081820300008000000000000000000000000203C000008000000000000000000000000C03300000400000000000000000000000003B00000020000000000020800208002080C608002090020800200FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF700208002080020800B3800238002080020000000000000000082CF0EF0000000000000000000000000004200F100000000000000000000000000002200000000000000000000000000000000160000000000000000000000000000000016000000000000000000000000000000080600000000000000000000000000000004060000000000000000000000000000000206000000000000000000000000000000010700000000000000000000000000000080020000000000000000000000000000008002000000000000000000000000000000400200000000000000000000000000000040020000000000000000000000000000004002000000000000000000000000000000200200000000000000000000000000000020030000000000000000000000000000002003000000000000000000000000000000200300000000000000000000000000000010070000000000000000000000000000001003000000000000000000000000000000108200000000000000000000000000000010820000000000000000000000000000001042000000000000000000000000000000102200000000000000000000000000000010120000000000000000000000000000002802000000000000000000000000000000C70200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000000000200000000000000000
  S1
GROB 131 64 0000000000000000200000000000000000000000000000000020000000000000000000000000000000007000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000200000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000000000700000000000000000000000000000000020000000000000000000000000000000002000000000000000000000000000C3000020000F10000000000000000000003C00002000C06000000000000000000008003000200030800000000000000000000800C000200C0080000000000000000000080003002002008000000000000000000008000400200100800000000000000000000010080020C000800000000000000000000010003070200040000000000000000000002000C028100020000000000000000000004000012C00003000000000000000000000400002260008100000000000000000000081000222000600000000000000000000000600042100810000000000000000000000081008210060000000000000000000000000E008A008100000000000000000000000000700700700000000000000020800208002083070E002080020800200FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF700208002080020800208002080020800200000000000000000070000000000000000000000000000000007000000000000000000000000000000008A000000000000000000000000000000008A00000000000000000000000000000000421000000000000000000000000000000042200000000000000000000000000000002220000000000000000000000000000000222000000000000000000000000000000017400000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000128000000000000000000000000000000802800000000000000000000000000000080780000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000124000000000000000000000000000000012400000000000000000000000000000001240000000000000000000000000000000222000000000000000000000000000000042100000000000000000000000000000008A0000000000000000000000000000000007000000000000000000000000000000000200000000000000000
  MPa '1000000_Pa'
  TXT
    
"TEXT TO SHOW
IN CUCOO"
    
  PROG1
    
"YOU PRESSED
PROG1"
    
  PROG2
    
"YOU PRESSED
PROG2"
    
  PROG3
    
"YOU PRESSED
PROG3"
    
  PROG4
    
"YOU PRESSED
PROG4"
    
  PROG5
    
"YOU PRESSED
PROG5"
    
  MGRAPH
    
      WHILE DUP 10
CHR POS
      REPEAT
LASTARG DUP2 1 - 1
SWAP SUB 3 ROLLD 1
+ OVER SIZE SUB
      END
      IFERR
        IF DEPTH 1
==
        THEN DUP
SIZE 4 * RB 64 RB
PDIM
        ELSE DEPTH
DUPN DEPTH 2 / 1
          FOR j
SIZE j ROLLD -1
          STEP
DEPTH 2 / 1 - 1
SWAP
          START MAX
          NEXT 4 *
RB DEPTH 6 * 7 -
RB PDIM DEPTH 1
SWAP
          FOR j j
ROLL
          NEXT
        END { # 0h
# 0h } PVIEW DEPTH
6 * 1 - 0 SWAP
        FOR j 1
GROB PICT # 0h j
RB 2 LIST 3 ROLL
REPL 6
        STEP { }
PVIEW
      THEN ERRN
DOERR
      END
    
  U15
    
"USING MGRAPH

ENTER YOUR TEXT HERE
AND IT WILL SHOW
THE TEXT IN SMALL FONT.

LIKE THIS

PRESS <CANCEL> TO EXIT"
MGRAPH
    
  U14
     CLEAR
"VIEW PIC
Enter the name
of the picture"
{  } INPUT OBJ 
PIC1
       PIC1 EVAL
PICT STO PICTURE
      
    
  U13
     CLEAR CLLCD
"   SIMPLE ANIMATION

    Press <ENTER>"
3 DISP 0 WAIT S1 S2
S3 S4 { 4 { # 0h
# 0h } .5 0 }
ANIMATE
    
  U12
     { -2 -3 } SF
CLEAR
"Using vars
Enter a b c"
"" INPUT OBJ  a b
c
       'a*b' '(a*
b*c)' 'LN(c)'  d e
f
         'd^2*c/f'
EVAL 'a+2*e' EVAL '
LOG(f)' EVAL
        
      
    
  U11
     CLEAR
"Sum Numbers & Strings
Enter X"
"" INPUT OBJ  X
       CLLCD 'SIN(
X)' EVAL STR
"
 Is the Sino
 of "
X STR + + 1 DISP 0
WAIT
      
    
  U10
     CLEAR
"Algebraic to RPN
Enter Alg expression"
"'" INPUT OBJ RPN
    
  U9
     -3 CF CLEAR
"Evaluating an Equation
Enter equation as f(X)"
"'" INPUT OBJ
"Enter X" "" INPUT
OBJ  E X1
       CLLCD
"f(X) = " E EVAL
STR + 2 DISP .01
WAIT "f(" X1 ") = "
E EVAL X X1 2 LIST
| STR + + + 4 DISP
.01 WAIT
"Press <ENTER> to exit..."
6 DISP 0 WAIT CLEAR
      
    
  U8
     CLEAR CLLCD
"    CLEAN GARBAGE
   
    Press [ENTER]"
3 DISP 0 WAIT { 0 5
9 } TVARS PURGE
CLEAR
    
  U7
     "A=B+C C=D+E"
{ A B C D E } { 'A=
B+C' 'C=D+E' } STEQ
MINIT MITM MSOLVR
    
  U6
     CLEAR CLLCD
"  Converting Units

    Press <ENTER>"
3 DISP 0 WAIT DROP
{ '1_MPa' '1_kgF' '
1_tf' } TMENU
    
  U5
    
      DO CLEAR
"Continuous Play PRG
Calcurus of Sino of X
Enter X"
"" INPUT OBJ  X
         CLLCD '
SIN(X)' EVAL 2 RND
"SINO(" X STR
") = " 'SIN(X)'
EVAL STR + + +
STR 3 DISP .01
WAIT
"    Press <ENTER>"
7 DISP 0 WAIT
        
      UNTIL 1 2 ==
      END
    
  U4
     -40 CF 1 15
      FOR A CLEAR
CLLCD TXT 2 DISP
1104 .101 BEEP .15
WAIT 911 .132 BEEP
.65 WAIT
      NEXT TXT 2
DISP 0 WAIT CLEAR
    
  U3
     CLEAR CLLCD
"SIMPLE TEXT VIWER
PRESS ENTER"
1 DISP 0 WAIT
" FIRST LINE" 1
DISP 0 WAIT
"SECOND LINE" 1
DISP 0 WAIT
"THIRD LINE" 1 DISP
0 WAIT CLEAR
    
  U2
     CLEAR
"USING INFORM" {
" VO" " A" " T" } {
1 1 } { } { }
INFORM DROP EVAL 
VO A T
       "RESULT" {
" VO" " A" " T"
"  V = " } { 1 1 }
{ } VO A T 'VO+A*T'
EVAL 4 LIST INFORM
CLEAR
      
    
  U1
     -40 CF 64
STWS
"     USING CHOOSE"
{ PROG1 PROG2 PROG3
PROG4 PROG5 } 1
CLLCD CHOOSE
      IF 0 ==
      THEN CLEAR
KILL
      END EVAL
    
END
