QBASIC PROGRAM TO CONVERT PAISA INTO RUPEES

CLS
 INPUT Enter paisa ; P
 RS = P / 100
 PRINT Rupees value = ; RS
 END

USING SUB

DECLARE SUB PRS(P)
 CLS
 INPUT Enter paisa ; P
 CALL PRS(P)
 END
 
 SUB PRS(P)
 RS = P / 100
 PRINT Rupees value = ; RS
 END SUB