Currency Converter ( SubRoutine Program )

10 cls
20 rem ***to convert currency***
30 print "1.Dollar To Rupees - 2.Rupees To Dollar"
40 Input ; a
50 on a goto 60,70
60 if a=1 then gosub 80 : goto 20
70 if a=2 then gosub 140   : goto 20
80 rem ***Dollar  To  Rupees***
90 print " Enter Dollars: "
100 input ; c
110 let rupees=c/100
120 print "Rupees: " rupees
130 return
140 Rem ***Rupees To Dollars***
150 print "Enter Rupees: "
160 Input ; c
170 let dollars=c*100
180 print "Dollars: " dollars
190 return

Programmed By: Muhammad Abbas

The Directory :-)

Disclaimer:  The following links are from registered website and has been placed here with licensed permission of producer.

Note: Use ctrl + f to find your required material. Tip:Watch top right for the finder box.

User's Reference

ABS Function
ASC Function
ATN Function
AUTO Command

BEEP Statement
BLOAD Command
BSAVE Command

CALL Statement
CDBL Function
CHAIN Statement
CHDIR Command
CHR$ Function
CINT Function
CIRCLE Statement
CLEAR Command
CLOSE Statement
CLS Statement
COLOR Statement
COM(n) Statement
COMMON Statement
CONT Command
COS Function
CSNG Function
CSRLIN Variable
CVD Function
CVI Function
CVS Function

DATA Statement
DATE$ Statement
DEF FN Statement
DEFINT Statement
DEFDBL Statement
DEFSNG Statement
DEFSTR Statement
DEF SEG Statement
DEF USR Statement
DELETE Command
DIM Statement
DRAW Statement

EDIT Command
END Statement
ENVIRON Statement
ENVIRON$ Function
EOF Function
ERASE Statement
ERDEV($) Variables
ERL Variable
ERR Variable
ERROR Statement
EXP Function
EXTERR Function

FIELD Statement
FILES Command
FIX Function
FOR Statement
FRE Function

GET Statement (Files)
GET Statement (Graphics)
GOSUB-RETURN Statement
GOTO Statement

HEX$ Function

IF Statement
INKEY$ Variable
INP Function
INPUT Statement
INPUT# Statement
INPUT$ Function
INSTR Function
INT Function
IOCTL Statement
IOCTL$ Function

KEY Statement
KEY(n) Statement
KILL Command

LEFT$ Function
LEN Function
LET Statement
LINE Statement
LINE INPUT Statement
LINE INPUT# Statement
LIST Command
LLIST Command
LOAD Command
LOC Function
LOCATE Statement
LOCK Statement
LOF Function
LOG Function
LPOS Function
LPRINT Statement
LPRINT USING Statement
LSET Statement

MERGE Command
MID$ Function
MID$ Statement
MKDIR Command
MKD$ Function
MKI$ Function
MKS$ Function

NAME Command
NEW Command
NEXT Statement

OCT$ Function
ON COM(n) Statement
ON KEY(n) Statement
ON PEN Statement
ON PLAY(n) Statement
ON STRIG(n) Statement
ON TIMER(n) Statement
ON ERROR GOTO Statement
ON-GOSUB Statement
ON-GOTO Statement
OPEN Statement
OPEN "COM(n) Statement
OPTION BASE Statement
OUT Statement

PAINT Statement
PALETTE Statement
PALETTE USING Statement
PCOPY Command
PEEK Function
PEN Statement and Function
PLAY Statement
PLAY(n) Function
PMAP Function
POINT Function
POKE Statement
POS Function
PRESET Statement
PSET Statement
PRINT Statement
PRINT USING Statement
PRINT# Statement
PRINT# USING Statement
PUT Statement (Files)
PUT Statement (Graphics)

RANDOMIZE Statement
READ Statement
REM Statement
RENUM Command
RESET Command
RESTORE Statement
RESUME Statement
RETURN Statement
RIGHT$ Function
RMDIR Command
RND Function
RSET Statement
RUN Command

SAVE Command
SCREEN Function
SCREEN Statement
SGN Function
SHELL Statement
SIN Function
SOUND Statement
SPACE$ Function
SPC Function
SQR Function
STICK Function
STOP Statement
STR$ Function
STRIG Statement
STRIG(n) Statement
STRING$ Function
SWAP Statement
SYSTEM Command

TAB Function
TAN Function
TIME$ Statement
TIMER Function
TROFF Command
TRON Command

UNLOCK Statement
USR Function

VAL Function
VARPTR Function
VARPTR$ Function
VIEW Statement
VIEW PRINT Statement

WAIT Statement
WHILE-WEND Statement
WIDTH Statement
WINDOW Statement
WRITE Statement
WRITE# Statement

To Draw A Triangle

Program:
10    CLS
20     SCREEN 2
30     LINE  (110,50)- (160,100)
40     LINE  (60,100)- (160,100)
50     LINE  (110,50)- (60,100)
60     END

Algorithm
Step 1      START
Step 2       PRINT SCREEN 2
Step 3       OUTPUT       LINE (110, 50) - (160,100)
                                 LINE (60,100) - (160,100)
                                 LINE (110, 50) - (60,100)

Step 4            END

Programmed By:- Mohammad Abbas

To Find Out The Perimeter Of Rectangle

Practical: 11: Write a program that can calculate the perimeter of the rectangular.

Program:
10    CLS
20     INPUT “Length …=”;L
30     INPUT  “Width …=”; W
40     PERIMETER=  2* ( L+W)
50     PRINT “ PERIMETER….. =”; PERIMETER
60     END
Algorithm

Step 1  START
Step 2  INPUT      L , W
Step 3  COMPUTE   PERIMETER = 2* ( L+W)
Step 4    PRINT   PERIMETER
Step 5  END

To Print A Series Of Even Number From 1 to 40

 Write a Program to Print even numbers from 1 to 40.
  

Program:

10       CLS

20      FOR B = 2 TO 40 STEP 2

      30      PRINT B

      40      NEXT  B

      50      END

Algorithm

Step 1  START

Step 2  STORAGE    B=2

Step 3  DECISION    IS B<= 40 IF

NOT THEN GO TO STEP 7

Step 4  COMPUTE    B=B+2

Step 5   PRINT

STEP 6  GOTO STEP 3

Step 7 END