So basically this program is designed for nooby basic coders that are moving into a bit of Hybrid Basic and xLib functions. It makes it easier for total on calc coding which means your commute times will not be wasted (unless you drive yourself, seriously thats like texting and driving, I seriously wouldn't suggest it but I am not responsible for any injury caused by this program).
The program is really simple, all in basic, coded in a very nooby fashion because I am kind of lazy to use my brain.
The user selects a function they want and the program stores it into a string.
I really liked the idea of LibHelper but I wanted to expand on it and allow a user to easily use the functions.
Code:
Source Code tada!
I don't even know if it works yet, I have not tested it.
Also, what is the max amount of characters that can be stored to a string?
The program is really simple, all in basic, coded in a very nooby fashion because I am kind of lazy to use my brain.
The user selects a function they want and the program stores it into a string.
I really liked the idea of LibHelper but I wanted to expand on it and allow a user to easily use the functions.
Code:
ClrHome
DelVar K
Output(1,1,"Welcome to EASYLIB"
Output(2,1,"By: APotato"
Repeat getKey
End
While 1
ClrHome
Output(1,1,"1) Basic Header"
Output(2,1,"2) xLIBC Libraries"
Repeat K=92 or K=93 or K=22
getKey->K
End
ClrHome
If K=22
Return
If K=93
"DERP
If K=92
Goto B
Output(1,1,"1) 16x16 Icon"
Output(2,1,"2) Hybrid TI Basic"
Output(3,1,"3) Ignore Program"
DelVar K
Repeat K=92 or K=93 or K=94 or K=22
getKey->K
End
If K=92
"::DCS :256-Char_hex_icon :ProgramCode"->Str1
If K=93
"::DCS :256-char_hex_icon :If 80>det([[20 :Then :Disp Get Doors CSE to run this:,http://dcs.cemetech.net :Return :End"->Str1
If K=94
":rand :Program code"->Str1
End
Lbl L
ClrHome
Output1,1,"1) xLibC
ClrHome
Output(1,1,"1) GetXLIBCVersion"
Output(2,1,"2) Enable/Disable Halfres"
Output(3,1,"3) Set Speed"
Output(4,1,"4) Toggle Inverted Colors"
Output(5,1,"5) Restore Colors"
Output(6,1,"6) Fill Screen with Color"
Output(7,1,"7) Color Offset"
Repeat K=22 or K=92 or K=93 or K=94 or K=82 or K=83 or K=84 or K=72
getKey->K
End
If K=92
"real(0,0)"->Str1
If K=93
"real(0,1,1) to enable real(0,1,0,REDRAW_STATUS) or real(0,1,0,1 to reset"->Str1
If K=94
"real(0,2,0) to disable real(0,2,1) to enable"->Str1
If K=82
"real(0,3,2"->Str1
If K=83
"real(0,3,3"->Str1
If K=84
"real(0,3,4,COLOUR,UPDATELCD"->Str1
If K=72
"real(0,3,5,VALUE"->Str1
If K=73
EndSource Code tada!
I don't even know if it works yet, I have not tested it.
Also, what is the max amount of characters that can be stored to a string?
