home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02057 / linear.tbc (.txt) < prev    next >
Turbo Basic Chain module  |  1990-09-15  |  20KB  |  20 lines
  1. F:9F2~
  2. F.;F6
  3. F.;F6
  4. F:9F2~
  5. F>9F8~
  6. WHILE GoodDate% = %False
  7.       CharToRet$ = " "
  8.       CALL GetAny(TermSet$,8,(PosX%),(PosY%),"##/##/##",RetString$,CharToRet$,_
  9.          
  10.        %True)
  11. ?THEN
  12.         DIE DATEN WERDEN JETZT IN  TEXTDATEI 'LINEAR.TXT' GESPEICHERT           LINEAR.TXTo PROGRAMM RECHNET NUR BIS ZU EINER NUTZUNGSDAUER VON 30 JAHREN-BITTE KORREKTUR   L= L
  13. SCHEN DER BESTEHENDEN DATEN       S = SPEICHERN IN TEXTDATEI 'LINEAR.TXT'    ENDE DER EINGABE MIT F1    -    ABBRUCH UND R
  14. CKKEHR ZUM HAUPTMEN
  15.  MIT ESC   ##/##/##0.##00. #0123456789ILN-0123456789.-0123456789RQOGHPMKDCBA@?>=<; - BITTE DR
  16. CKEN SIE ZUM NEUSTART DIE RETURNTASTE     ###    FEHLER NR. ====== >       BITTE DEN DRUCKER BEREITMACHEN UND DANN DIE RETURNTASTE DR
  17. CKEN       SLWOLLEN SIE NOCH EINE BERECHNUNG ? (J/N)--------------------------------------------------nNjJWOLLEN SIE EINEN AUSDRUCK ?    (J/N)####  ##########,.##  ##########,.##JAHR    ABSCHREIBUNG        BUCHWERTERGEBNISSE############,.##VORGABEN (Programm Lineare Abschreibung)DIE ERFORDERLICHEN ANFANGSWERTE EINBITTE GEBEN SIE JETZTSCHROTTWERT DES GUTES   : NUTZUNGSDAUER IN JAHREN : ANSCHAFFUNGSWERT        : NACH DER LINEAREN METHODE.SCHREIBUNGSRATEN EINES WIRTSCHAFTSGUTESDIESES PROGRAMM BERECHNET DIE AB-
  18. IFARBEN.DATzinsen.exe:
  19. lankInt%,Char;
  20.