Compucolor.org – Virtual Media

Listing of file='MONEX.BAS;01' on disk='vmedia/nsw_ug_1-sideB-sector.ccvf'

20 REM  ********** CURRENCY CONVERSION PROGRAM ************
30 REM  *************** PROCESSING AREA *******************
40 PRINT "ENTER EXCHANGE RATE,CURRENCY TYPE(I.E.,2.65,MARKS)"
50 INPUT R,T$
60 PRINT "ENTER THE RANGE OF VALUES (IN $) TO PRINT (I.E.,5,10)"
70 PRINT
80 INPUT S,F
90 PRINT
100 PRINT
110 PRINT
120 PRINT "DOLLARS     ";T$
130 PRINT "-------     ----------"
140 FOR I= STO F
150 PRINT I;TAB( 5);".......";I* R
160 NEXT I
170 REM  ********** PROGRAM TERMINATION POINT *****************
180 PRINT
190 PRINT
200 PRINT
210 GOTO 20