home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / finanzmath.menue (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  38 lines
  1. 70 REM (C) BY KLAUS KLOEKER
  2. 80 GOTO100
  3. 90 POKE214,Z:POKE211,S:SYS58732:RETURN
  4. 100 REM * MENUE *
  5. 110 PRINT"[147]":POKE53280,0:POKE53281,0:POKE53272,23:POKE788,52:GOSUB900
  6. 200 PRINT"    [198][160][201][160][206][160][193][160][206][160][218][160][205][160][193][160][212][160][200][160][197][160][205][160][193][160][212] [201][160][203]    [146]"
  7. 210 Z=4:S=6:GOSUB90:PRINT"[205]ENUE :":Z=5:GOSUB90:PRINT"-------"
  8. 220 Z=7:S=0:Y=1:FORI=1TO5:GOSUB90:PRINTNA$(I);NB$(I)
  9. 230 Z=Z+2:Y=Y+1:NEXT
  10. 240 Z=18:GOSUB90:PRINT"     [146]  [215]AEHLEN [211]IE MIT  [198]3 [146] UND  [198]5 [146] !"
  11. 250 Z=20:S=7:GOSUB90:PRINT"[196]RUECKEN [211]IE DANN ' [210][197][212][213][210][206][160]' [160]!"
  12. 260 Z=23:S=0:GOSUB90:PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  13. 300 REM * AUSWAHLROUTINE *
  14. 310 Z=7:Y=1
  15. 320 GOSUB90:PRINT"     [146]":FORI=1TO75:NEXT
  16. 330 PRINT"[145]";NA$(Y):FORI=1TO125:NEXT
  17. 340 GETG$:IFG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN320
  18. 350 IFG$=CHR$(13)THENGOSUB90:PRINT">[146]";:GOTO400
  19. 355 IFG$=CHR$(135)THEN380
  20. 360 Z=Z+2:Y=Y+1:IFZ>15THENZ=7:Y=1
  21. 370 GOTO320
  22. 380 Z=Z-2:Y=Y-1:IFZ<7THENZ=15:Y=5
  23. 390 GOTO320
  24. 400 ONYGOTO500,510,520,530,540
  25. 410 END
  26. 500 LOADNB$(1),8
  27. 510 LOADNB$(2),8
  28. 520 LOADNB$(3),8
  29. 530 LOADNB$(4),8
  30. 540 PRINT"[147]":POKE53272,21:POKE788,49:END
  31. 900 REM * VARIABLEN *
  32. 910 NA$(1)="- 1 -[146] ":NA$(2)="- 2 -[146] ":NA$(3)="- 3 -[146] "
  33. 920 NA$(4)="- 4 -[146] ":NA$(5)="- 5 -[146] "
  34. 930 NB$(1)="[218]INSRECHNUNG":NB$(2)="[218]INSESZINSRECHNUNG"
  35. 940 NB$(3)="[196]ISKONTIEREN EINES [203]APITALS"
  36. 950 NB$(4)="[197]RSTELLEN EINES [212]ILGUNGSPLAENES":NB$(5)="[208]ROGRAMMENDE"
  37. 960 RETURN
  38.