Gw-Basic Program # 3 "You Are A Railway Manager...!"

10 CLS
20 INPUT "CURRENT STATION:" , S
30 INPUT "DESTINATION:" , D
40 INPUT "PASSANGERS:" , P  
50 INPUT "TOTAL AMOUNT GIVEN:" , G
60 IF P>2 THEN GOTO 130 ELSE GOTO 70
70 LET F=20 * P : LET C= G - F
80 PRINT "CURRENT STATION:" S
90 PRINT "DESTINATION:" D
100 PRINT "PASSANGERS:" P
110 PRINT "TOTAL FARE:" F
120 PRINT "CHANGE:" C : END
130 LET TF= 20 * P : LET DF= TF * 0.9 : LET CF = G - DF
140 PRINT "CURRENT STATION:" S
150 PRINT "DESTINATION:" D
160 PRINT "PASSANGERS:" P
170 PRINT "TOTAL FARE (WITH DISCOUNT):" DF
180 PRINT "CHANGE:" CF
190 END

Program Made By:- Muhammed Abbas

Gw-Basic Program # 2 "Let The PC Guess Largest Number"

                ++++++++++++++++++++++++++++++++++++
                +         Program Made By:                                       +
                +         Muhammed Abbas                                       +
                ++++++++++++++++++++++++++++++++++++  
Ok 
LIST
10 CLS
20 FOR A=1 TO 5
30 INPUT; NUM(A)
40 NEXT A : CLS
50 IF NUM(1)<NUM(2) THEN NUM(1)=NUM(2) ELSE NUM(1)=NUM(1)
60 IF NUM(1)<NUM(3) THEN NUM(1)=NUM(3) ELSE NUM(1)=NUM(1)
70 IF NUM(1)<NUM(4) THEN NUM(1)=NUM(4) ELSE NUM(1)=NUM(1)
80 IF NUM(1)<NUM(5) THEN NUM(1)=NUM(5) ELSE NUM(1)=NUM(1)
90 PRINT NUM(1)
Ok 

Gw-Basic Program #1 "CALCULATOR"

10 cls
20 print tab(25) "Calculator"
30 input "enter first value:" , a
40 input "enter second value:" , b
50 cls
60 print "Select Operation:"
70 input "1.Divide - 2.Multiply - 3.Add - 4.Subtract" ; n
80 on n goto 90,100,110,120
90 if n=1 then print "answer: " a/b else goto 130
100 if n=2 then print "answer: " a*b else goto 130
110 if n=3 then print "answer: " a+b else goto 130 
120 if n=4 then print "answer: " a-b else goto 130
130 end

Programming By: Muhammed Abbas