%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1783
File Name:BASECNV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"BASE CONVERSION"
"2\<=BASE\<=36"
\Lbl 0
"BASE OF INPUT="?\->\r
\r<2\ Or \r>36\ Or \Int \r\<>\r\=>\Goto0
\Lbl 1
"BASE OF OUTPUT="?\->\theta
\theta<2\ Or \theta>36\ Or \Int \theta\<>\theta\=>\Goto1
\Lbl 2
10\->A:11\->B:12\->C:13\->D:14\->E:15\->F:16\->G:17\->H:18\->I:19\->J:20\->K:21\->L:22\->M:23\->N:24\->O:25\->P:26\->Q:27\->R:28\->S:29\->T:30\->U:31\->V:32\->W:33\->X:34\->Y:35\->Z
"ENTER VALUE IN {}"
"WITH , BETWEEN DIGITS"
"INPUT VALUE="?\->\List 6
\Dim \List 6\->L
\For 1\->N \To L
\List 6[N]\>=\r\=>\Goto2
\Next 
0\->I
\For 0\->N \To L-1
I+\List 6[L-N]*\r^N\->I
\Next 
\Lbl 4
0\->M
\While I\>=\theta^M
\Isz M
\WhileEnd
M\->\Dim \List 5
I\->O
\For 0\->N \To M-1
O-\theta\Int (O/\theta)\->\List 5[M-N]
\Int (O/\theta)\->O
\Next 
\ClrText
\For 1\->N \To L
\List 6[N]\<=9\=>\Locate N,2,\List 6[N]
\List 6[N]=10\=>\Locate N,2,"A"
\List 6[N]=11\=>\Locate N,2,"B"
\List 6[N]=12\=>\Locate N,2,"C"
\List 6[N]=13\=>\Locate N,2,"D"
\List 6[N]=14\=>\Locate N,2,"E"
\List 6[N]=15\=>\Locate N,2,"F"
\List 6[N]=16\=>\Locate N,2,"G"
\List 6[N]=17\=>\Locate N,2,"H"
\List 6[N]=18\=>\Locate N,2,"I"
\List 6[N]=19\=>\Locate N,2,"J"
\List 6[N]=20\=>\Locate N,2,"K"
\List 6[N]=21\=>\Locate N,2,"L"
\List 6[N]=22\=>\Locate N,2,"M"
\List 6[N]=23\=>\Locate N,2,"N"
\List 6[N]=24\=>\Locate N,2,"O"
\List 6[N]=25\=>\Locate N,2,"P"
\List 6[N]=26\=>\Locate N,2,"Q"
\List 6[N]=27\=>\Locate N,2,"R"
\List 6[N]=28\=>\Locate N,2,"S"
\List 6[N]=29\=>\Locate N,2,"T"
\List 6[N]=30\=>\Locate N,2,"U"
\List 6[N]=31\=>\Locate N,2,"V"
\List 6[N]=32\=>\Locate N,2,"W"
\List 6[N]=33\=>\Locate N,2,"X"
\List 6[N]=34\=>\Locate N,2,"Y"
\List 6[N]=35\=>\Locate N,2,"Z"
\Next 
\Locate 1,3,"BASE"
\Locate 6,3,\r
\Locate 1,4,"IS"
\For 1\->N \To M
\List 5[N]\<=9\=>\Locate N,5,\List 5[N]
\List 5[N]=10\=>\Locate N,5,"A"
\List 5[N]=11\=>\Locate N,5,"B"
\List 5[N]=12\=>\Locate N,5,"C"
\List 5[N]=13\=>\Locate N,5,"D"
\List 5[N]=14\=>\Locate N,5,"E"
\List 5[N]=15\=>\Locate N,5,"F"
\List 5[N]=16\=>\Locate N,5,"G"
\List 5[N]=17\=>\Locate N,5,"H"
\List 5[N]=18\=>\Locate N,5,"I"
\List 5[N]=19\=>\Locate N,5,"J"
\List 5[N]=20\=>\Locate N,5,"K"
\List 5[N]=21\=>\Locate N,5,"L"
\List 5[N]=22\=>\Locate N,5,"M"
\List 5[N]=23\=>\Locate N,5,"N"
\List 5[N]=24\=>\Locate N,5,"O"
\List 5[N]=25\=>\Locate N,5,"P"
\List 5[N]=26\=>\Locate N,5,"Q"
\List 5[N]=27\=>\Locate N,5,"R"
\List 5[N]=28\=>\Locate N,5,"S"
\List 5[N]=29\=>\Locate N,5,"T"
\List 5[N]=30\=>\Locate N,5,"U"
\List 5[N]=31\=>\Locate N,5,"V"
\List 5[N]=32\=>\Locate N,5,"W"
\List 5[N]=33\=>\Locate N,5,"X"
\List 5[N]=34\=>\Locate N,5,"Y"
\List 5[N]=35\=>\Locate N,5,"Z"
\Next 
\Locate 1,6,"BASE"
\Locate 6,6,\theta\Disp\ClrText
"(1)CHANGE TO ANOTHER BASE"
"(2)CHANGE NEW VALUE"
"(3)START OVER"
"(4)DONE"
"CHOICE="?\->C
\If C=1
\Then \Lbl 3
"BASE OF OUTPUT="?\->\theta
\theta<2\ Or \theta>36\ Or \Int \theta\<>\theta\=>\Goto3
\Goto4
\IfEnd
C=2\=>\Goto2
C=3\=>\Goto0
%End