FreeBasic-Operating-System/fbterm.bas at main · YuraAgent/FreeBasic-Operating-System · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
rem FbText terminal assing by the Cshell os
rem It's not for QuickBasic!
width 50,20
sub commandShow
     print ">";
end sub
sub ifaprograms
     print "*>";
end sub

print "Welcome to FBterm"
do
     screenlock
     dim as string cmd,prog,opr
     dim as integer num1, num2, result, proc
     outofcmd:
     for i as integer = 0 to 15
          print "*";
     next i
     print
     commandShow
     input cmd
     if cmd = "about version" then
          print
          print "FreeBasic Terminal by SkyFerest"
          print "Version v0_0.2"
          print
     elseif cmd = "exit" then
          end
     elseif cmd = "sys" then
          shell ".\main.exe"
     elseif cmd = "echo" then
          input "Write to copy text:",cmd
          print cmd
     elseif cmd = "time" then
          print time
     elseif cmd = "proccess" then
          print proc & ". term"
     elseif cmd = "calc" then
          ifaprograms
          clc_try_again:
          input num1
          ifaprograms
          input opr
          ifaprograms
          input num2
          select case opr
          case "+"
               result=num1+num2
          case "-"
               result=num1-num2
          case "*"
               result=num1*num2
          case else
               color 4
               print "E:"
               color 15
               print "Wrong operation! Try again.";
               goto clc_try_again
          end select
          print result
     else
          print "command not found"
     end if

     screenunlock
     sleep 100,1
loop