home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kaufmann / kaufmann.bas next >
BASIC Source File  |  1997-10-09  |  2KB  |  34 lines
  1. 1 WIDTH 80: COLOR 15,0,0
  2. 10 GOTO 100
  3. 15 LOCATE 20,1: PRINT STRING$(79,205)
  4. 16 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  5. 17 LOCATE 21,25: PRINT "PROGRAMM WIRD GELADEN.BITTE WARTEN": COLOR 15,0
  6. 18 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  7. 19 GOSUB 15: RUN "MENUE"
  8. 60 CLS: LOCATE 2,1: PRINT STRING$(79,205)
  9. 61 LOCATE 3,1: COLOR 0,15: PRINT SPACE$(79): LOCATE 3,30: PRINT "KAUFMÄNNISCHES  RECHNEN": LOCATE 4,1: PRINT SPACE$(79)
  10. 62 LOCATE 4,30: PRINT "(C) BY SIEGFRIED HÜBNER"
  11. 64 COLOR 15,0: LOCATE 5,1: PRINT STRING$(79,205): RETURN
  12. 70 LOCATE 20,1: PRINT STRING$(79,205)
  13. 71 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  14. 72 LOCATE 21,29: PRINT "BELIEBIGE TASTE DRÜCKEN": COLOR 15,0
  15. 73 LOCATE 22,1: PRINT STRING$(79,205)
  16. 75 E$=INKEY$: IF E$="" THEN 75
  17. 76 IF E$=CHR$(27) THEN 19
  18. 77 RETURN
  19. 90 LOCATE 20,1: PRINT STRING$(79,205)
  20. 91 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  21. 92 LOCATE 21,34: PRINT "FALSCHE EINGABE": COLOR 15,0
  22. 93 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  23. 95 FOR T=1 TO 4: LOCATE 19+T,1: PRINT SPACE$(79): NEXT: RETURN
  24. 100 GOSUB 60
  25. 101 LOCATE 9,5: PRINT "MIT DIESEM PROGRAMM KÖNNEN SIE KAUFMÄNNISCHE PROGRAMME IM"
  26. 102 LOCATE 10,5: PRINT "EINZELNEN KENNENLERNEN. NEBEN EINFÜHRENDEN WORTEN WIRD DAS"
  27. 103 LOCATE 11,5: PRINT "ENTSPRECHENDE PROGRAMMBEISPIEL AUSGEGEBEN SOWIE DAS DAZU-"
  28. 104 LOCATE 12,5: PRINT "GEHÖRIGE PROGRAMM-LISTING. DEN AUSDRUCK DER LISTINGS KÖNNEN"
  29. 105 LOCATE 13,5: PRINT "SIE MIT DEN TASTEN ALTERNATE+HELP VORNEHMEN."
  30. 106 LOCATE 14,5: PRINT "BEI JEDEM TASTENDRUCK KÖNNEN SIE DIE EINZELNEN PROGRAMME"
  31. 107 LOCATE 15,5: PRINT "MIT  ESC  UNTERBRECHEN UND DABEI SOFORT DAS PROGRAMM-MENÜ"
  32. 108 LOCATE 16,5: PRINT "LADEN. ALLE PROGRAMMTEILE WERDEN ÜBER DIESES MENÜ GEWÄHLT.": GOSUB 70: GOTO 19
  33.  
  34.