home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / finanzmath.menue (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.