home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 June / 64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64 / rechenraetsel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  530 b   |  17 lines
  1. 10 poke53280,0:poke53281,6:print"[147][158]":forv=1to4:print" ";v;"[157].zahl : ";
  2. 20 poke19,1:inputz(v):print:poke19,0:next:poke19,1:input" ergebnis : ";e
  3. 30 poke19,0
  4. 40 goto60
  5. 50 e(1)=z(1)/z(2)/z(3)/z(4):return
  6. 60 forn1=1to4:forn2=1to4:forn3=1to4:poke2187,169+n1:poke2192,169+n2
  7. 70 poke2197,169+n3:gosub50:ife(1)=ethen100
  8. 80 next n3,n2,n1
  9. 90 print:print" nicht loesbar. ":goto140
  10. 100 c(1)=2187:c(2)=2192:c(3)=2197:forj=1to3:fort=1to4:ready$
  11. 110 ifpeek(c(j))=169+tthenu$(j)=y$:t=4
  12. 120 next t:restore:nextj
  13. 130 print:print" ";z(1);u$(1);z(2);u$(2);z(3);u$(3);z(4);"=";e
  14. 140 print:print" taste = noch einmal":wait198,1:getr$:run
  15. 150 data +,-,*,/
  16. 160 (c) 1990 by k.timmen
  17.