home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / money.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  21 lines
  1. 0 'M0NEY.BA JERRY KOHL 
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ' Requires RATES.DO file with up to
  4. 3 '  five exchange rates.
  5. 9 CLEAR1000:MAXFILES=1:E$=CHR$(27):R$=E$+"p":N$=E$+"q":ONERRORGOTO23
  6. 10 CLS:PRINT@10,R$" MONEY CONVERSION "N$:OPEN"rates"FORINPUTAS1
  7. 11 IFEOF(1)THEN14
  8. 12 INPUT#1,A$:IFINSTR(1,A$,"$$")THEN13
  9. 13 G=G+1:D=INSTR(A$,":"):A(G)=VAL(MID$(A$,D+2)):PRINTG"."MID$(A$,3,D-3):PRINT@G*40+22,USING"####.##";A(G):GOTO11
  10. 14 CLOSE1
  11. 15 PRINT@280,R$"Fm:$"N$" "R$"To:$"N$;:PRINT@315,R$"Menu"N$;:KEYON:ONKEYGOSUB18,20,,,,,,22
  12. 16 AA$=INKEY$:GOTO16
  13. 17 LINEINPUT" ";B$:B=VAL(B$):RETURN
  14. 18 PRINT@240,SPACE$(39);:PRINT@240,R$" How many US $ to convert?:"N$;:GOSUB17:IFB<.001THEN18
  15. 19 PRINT@30,R$" From US $"N$;:FORI=1TOG:PRINT@I*40+29,USING"$$######.##";A(I)*B;:NEXT:GOTO15
  16. 20 PRINT@240,SPACE$(39);:PRINT@240,R$" How many FOREIGN $ to convert?:"N$;:GOSUB17:IFB<.001GOTO20
  17. 21 PRINT@30,"  "R$" To US $"N$;:FORI=1TOG:PRINT@I*40+29,USING"$$######.##";B/A(I);:NEXT:GOTO15
  18. 22 MENU
  19. 23 IFERR=52THENPRINT@82,R$" RATES.DO file is required..."N$:D$=INPUT$(1):MENU
  20. 24 IFERRTHENRESUMENEXT
  21.