home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / bruchrechnen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  985b  |  21 lines
  1. 1 poke 53281,11:poke53280,11:print"[147][194]ruchrechnungsprogramm[155] von [198]elix [198]ischer"
  2. 2 print"       [194]itte waehlen sie zwischen":printtab(12)"+[146]  -[146]  *[146]  und  :[146] !"
  3. 3 x=0:print"[154]":getw$:ifw$=""then3
  4. 4 ifw$="+"thenq$=" + ":gosub17:x=2:ifn1=n2thene3=z1+z2:n3=n1:goto11
  5. 5 ifx=2thenn3=n1*n2:f1=n3/n1:e1=z1*f1:f2=n3/n2:e2=z2*f2:e3=e1+e2:goto11
  6. 6 ifw$="-"thenq$=" - ":gosub17:x=3:ifn1=n2thene3=z1-z2:n3=n1:goto11:
  7. 7 ifx=3thenn3=n1*n2:f1=n3/n1:e1=z1*f1:f2=n3/n2:e2=z2*f2:e3=e1-e2:goto11
  8. 8 if w$="*"thenq$=" * ":gosub17:e3=z1*z2:n3=n1*n2:goto11
  9. 9 ifw$=":"thenq$=" : ":gosub17:e3=z1*n2:n3=n1*z2:goto11
  10. 10 goto 3
  11. 11 ife3=n3thent$="= 1 ":goto14
  12. 12 ife3>n3theni=n3:gosub19:gosub19:goto14
  13. 13 ifn3>e3theni=e3:gosub19:gosub19
  14. 14 print"[147][192][192][192][192][192][192]"q$"[192][192][192][192][192][192] = [192][192][192][192][192][192]":print""z1""z2""e3;
  15. 15 print""n1""n2""n3"":print""tab(27)""t$:goto2
  16. 16 ifn1 <> 0  and n2 <> 0 then return
  17. 17 print"":print"[147]  [192][192][192][192][192]":input"";z1:input"";n1:print""q$"[192][192][192][192][192]
  18. 18 [133]"";z2:[133]"";n2:[141]16:[142]
  19. 19 [139]n3[173]i[178][181](n3[173]i)[167]c[178]i:[139]e3[173]i[178][181](e3[173]i)[167]v[178]i:[139]c[178]v[167]n3[178]n3[173]c:e3[178]e3[173]v:[142]
  20. 20 i[178]i[171]1:[137]19
  21.