IDEA: SCRIPTS ON HP-PRIME

[compsystems]

Is true, ti-92, ti-92+, ti-v200 are very thick, their screen is somewhat small, but their CAS (1995) is very good, it is still present in the ti-nspire [CX] CAS (2017)

The scripts is the first step, to start in the computer program, the scripts of the ti68k summarize a code because it pauses sentence by sentence, it avoids to print the entry

Demonstration

Script source code

PHP Code:

C:ClrHome
C:setFold(scripts1)
C:splitsch() ©"split LCD script:home"
C:DelVar eqs, eq1, eq2,answer, slnsX, slnX1, slnX2, slnY1, slnY2, test1, test2
C:DelVar x,y
C:©"solve the following system of equations"
C:©"and check their solutions."
C:{ y = x^2, y = 2*x + 3 }→eqs
C:eqs[1]→eq1
C:eqs[2]→eq2
C:(eq2|eq1)→answer
C:answer - (2*x + 3)→answer
C:factor(answer)→answer
C:{ part(left(answer),1)=0,part(left(answer),2)=0 }→answer
C:{ answer[1]+3, answer[2]-1 }→slnsX
C:slnsX[1]→slnX1
C:slnsX[2]→slnX2
C:(eqs[1]|slnX1)→slnY1
C:(eqs[1]|slnX2)→slnY2
C:(eqs[1]|(slnX1 and slnY1))→test1
C:(eqs[1]|(slnX2 and slnY2))→test2
C:test1 and test2
C:"Solns: ("&string(slnX1)&","&string(slnY1)&") ("&string(slnX2)&","&string(slnY2)&")"
C:DispHome:done 


ported as program

PHP Code:

script1()
()
Prgm
  ClrIO
  setFold(scripts1)
  ©splitsch() ©"split LCD script:home"
  DelVar eqs,eq1,eq2,answer,slnsx,slnx1,slnx2,slny1,slny2,test1,test2
  DelVar x,y
  Disp "Solve the following system of equations"
  Disp "and check their solutions."
  Disp "▪{y=x^2,y=2*x+3}→eqs"
  {y=x^2,y=2*x+3}→eqs
  Disp eqs
  Pause
  Disp "▪eqs[1]→eq1"
  eqs[1]→eq1
  Disp eq1
  Pause
  Disp "▪eqs[2]→eq2"
  eqs[2]→eq2
  Disp eq2
  Pause
  Disp "▪(eq2|eq1)→answer"
  eq2|eq1→answer
  Disp answer
  Pause
  Disp "▪answer-(2*x+3)→answer"
  answer-(2*x+3)→answer
  Disp answer
  Pause
  Disp "▪factor(answer)→answer"
  factor(answer)→answer
  Disp answer
  Pause
  Disp "▪{part(left(answer),1)=0,part(left(answer),2)=0}→answer"
  {part(left(answer),1)=0,part(left(answer),2)=0}→answer
  Pause
  Disp "▪{answer[1]+3,answer[2]-1}→slnsx"
  {answer[1]+3,answer[2]-1}→slnsx
  Disp slnsx
  Pause
  Disp "▪slnsx[1]→slnx1"
  slnsx[1]→slnx1
  Disp slnx1
  Pause
  Disp "▪slnsx[2]→slnx2"
  slnsx[2]→slnx2
  Disp slnx2
  Pause
  Disp "▪(eqs[1]|slnx1)→slny"
  eqs[1]|slnx1→slny1
  Disp slny1
  Pause
  Disp "▪(eqs[1]|slnx2)→slny2"
  eqs[1]|slnx2→slny2
  Disp slny2
  Pause
  Disp "▪eqs[1]|(slnx1 and slny1)→test1"
  eqs[1]|slnx1 and slny1→test1
  Disp test1
  Pause
  Disp "▪eqs[1]|(slnx2 and slny2)→test2"
  eqs[1]|slnx2 and slny2→test2
  Disp test2
  Pause
  Disp "▪test1 and test2→answer"
  test1 and test2→answer
  Disp answer
  Pause
 "Solns: ("&string(slnx1)&","&string(slny1)&") ("&string(slnx2)&","&string(slny2)&")"→answer
  Disp answer
  Pause
EndPrgm 


More than double the instructions to do the same

Then it is important or not the scripts?
The CASIO classPAD has something similar to execute all the history