OS 2.43 Validation
(account deleted) 25 Sep 2020 21:48
I am planning for future programs to work on OS 2.43 instead of 2.53MP+. I am trying to make. a program to check whether programs have commands in OS 2.53MP+, but this doesn't work.
:"OS 2.43 Validator
ClrHome
If det([[1:Then
Disp "Please Install","Celtic III.
Pause
ClrHome:Return
End:FnOff :PlotsOff :AxesOff:ZStandard:ZInteger:0→Xmin:1→X
ClrDraw
real(7,0
Text(0,16,"OS 2.43 VALIDATOR
real(12,8,0,0,95,6,1
Text(8,1,"PREPARING ...
det(4,3
expr(sub(Ans,1,1)+"."+sub(Ans,3,2→O
If O<2.43:Then //Checks if OS is less than 2.43
Text(8,1,"PLEASE UPGRADE
Text(15,1,"YOUR OS VERSION
Text(22,1,"TO CONTINUE.
Pause
ClrDraw
ClrHome:Return
End
SetUpEditor E
ClrList ⌊E
For(I,1,19
"EF3B
If I=2:"EF38
If I=3:"EF3C
If I=4:"EF31
If I=5:"EF3D
If I=6:"EF34
If I=7:"EF37
If I=8:"EF2E
If I=9:"EF30
If I=10:"EF35
If I=11:"EF32
If I=12:"EF33
If I=13:"EF2F
If I=14:"EF18
If I=15:"EF19
If I=16:"EF1A
If I=17:"EF1B
If I=18:"EF1C
If I=19:"EF1D
det(28,Ans→⌊E(1+dim(⌊E //Converts Hex code to decimal
End
"rowSwap(Name→Str9
For(I,4,5
det(0,I,Str9 //Formats the appvar Name
End
For(I,1,27
det(32,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZθ",I,1→Str1
If Ans≠".NULLVAR" and Ans≠".P:NT:FN
Then
DelVar G0
Repeat G=length(Str1
sub(Str1,Ans+1,inString(Str1," ",Ans+1)-Ans-1 //This routine separates names from a space-delimited string of program names. For example, if a string containing 'A' names is "ASCII ARCHUDEL AMAZE ", it will extract the names and not the spaces.
det(6,Str9,Ans,det(5,Str9 //Writes the result name to the appvar
inString(Str1," ",G+1→G
End:End
int(ᴇ2I/27
int(Ans%95
real(12,0,0,62,Ans,62,1
End
"OSERROR→Str7
1→O
Lbl SP
For(I,4,5
det(0,I,Str7
End
det(5,Str9)-1→R
real(12,7,0,8,95,63,1
Text(8,1,"SELECT A PROGRAM TO
Text(15,1,"VALIDATE FOR OS.
Text(57,1,"PROGRAMS: ",R
Repeat max(K={45,22,105
Text(1,23,5,sub(" bolduparrow",1+(O>1),1:Text(1,37,5,sub(" bolddownarrow",1+(O<R),1
Text(30,1,det(5,Str9,O
Repeat Ans
getKey //Program selection
End:Ans→K
real(12,7,0,29,47,35,1
max(1,min(R,O+(K=34)-(K=25→O
End
Lbl Q
If K≠105:Then
ClrDraw
ClrHome
det(0,4,Str9
DelVar Str2DelVar Str8DelVar Str1DelVar Str7DelVar Str9Return
End:real(12,7,0,8,95,63,1
det(5,Str9,O→Str8:det(5,Str8→R:0→E
9+length(Str8)+expr(sub(det(0,7,Str8),4,5→S //Calculates EXACT program size
det(6,Str7,"prgm"+Str8,1
det(6,Str7,"Errors:0",2
Text(8,1,"VALIDATING THE
Text(15,1,"PROGRAM "+Str8+" ...
Text(29,1,"SIZE: ",S
Text(36,1,"LINES: ",R
For(I,1,R
det(5,Str8,I→Str2
If Str2≠".NULLINE
Then
For(J,1,length(Str2
det(28,sub(Str2,J,1
If max(Ans=⌊E:Then
Ans→θ:E+1→E:det(6,Str7,"E:L"+det(1,I)+",C"+det(1,J)+" #"+det(29,θ,1 //Writes what token is on what line and what column it is on.
End:End:End
int(ᴇ2I/R
int(Ans%95
real(12,0,0,62,Ans,62,1
End
real(12,7,0,8,95,63,1
If E:Then
det(8,Str7,"Errors:"+det(1,E),2
Text(8,1,"ERROR! THIS PROGRAM
Text(15,1,"IS NOT COMPATIBLE
Text(22,1,"THIS OS.
Text(29,1,"REFER TO
Text(36,1,"prgmOSERROR FOR
Text(43,1,"MORE DETAILS.
Else
Text(8,1,"VALIDATION SUCCESS!
Text(15,1,"prgm"+Str8+" SHOULD
Text(22,1,"RUN WITH NO
Text(29,1,"PROBLEMS.
Pause
45→K:Goto Q
Every time this is run on OS 2.43 with a program that has 2.53MP commands, it always says "Success!" No matter what bad tokens are in them. What can change for a solution to this? This program is intended to look for you if a program is compatible or not (so you don't have to run a program with a VERSION error with no goto).
Hewwo, my name is Achak Claw. I was formerly BioHazard.
