~Kipiv {v.1912.10}

~Kipiv Update to v.1912.10 - Use "Lbl" - More lite
O3IL · Dec 9, 2019 · cc66316 · cc66316
1 parent 0ba0c46
commit cc66316
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 16 deletions.
diff --git a/Modules/Kipiv/Kipiv.8xp b/Modules/Kipiv/Kipiv.8xp
diff --git a/Modules/Kipiv/Kipiv.txt b/Modules/Kipiv/Kipiv.txt
@@ -1,3 +1,5 @@
+0→A
+Lbl 0
 EffÉcran
 Disp "","
 Disp "         --------
@@ -6,46 +8,56 @@ Disp "       { Electro. }
 Disp "        { .O3IL. }
 Disp "         --------
 Disp "
-Wait 3
+Wait 2
+A+1→A
+If A<2
+Then
+Goto 1
+Else
+EffÉcran
+Stop
+End
+Lbl 1
 EffÉcran
 Disp "","","","
 Disp "          {00.0}
-Wait 0.5
+Wait 0.25
+EffÉcran
+Disp "","","","
+Disp "*         {07.0}
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**        {14.2}
-Wait 0.5
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "******    {30.4}
-Wait 0.5
+Wait 0.25
+EffÉcran
+Disp "","","","
+Disp "********  {43.0}
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**********{51.6}
-Wait 0.5
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**********{62.4}**
-Wait 0.5
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**********{70.1}****
-Wait 0.5
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**********{98.0}*********
-Wait 0.5
+Wait 0.25
 EffÉcran
 Disp "","","","
 Disp "**********{100.}**********
 Disp "","","
 Wait 0.7
 EffÉcran
-Disp "","
-Disp "         --------
-Disp "        { .O3IL. }
-Disp "       { Electro. }
-Disp "        { .O3IL. }
-Disp "         --------
-Wait 1
-EffÉcran
+Goto 0