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 >
Wrap
Commodore BASIC
|
2022-10-26
|
530b
|
17 lines
10 poke53280,0:poke53281,6:print"[147][158]":forv=1to4:print" ";v;"[157].zahl : ";
20 poke19,1:inputz(v):print:poke19,0:next:poke19,1:input" ergebnis : ";e
30 poke19,0
40 goto60
50 e(1)=z(1)/z(2)/z(3)/z(4):return
60 forn1=1to4:forn2=1to4:forn3=1to4:poke2187,169+n1:poke2192,169+n2
70 poke2197,169+n3:gosub50:ife(1)=ethen100
80 next n3,n2,n1
90 print:print" nicht loesbar. ":goto140
100 c(1)=2187:c(2)=2192:c(3)=2197:forj=1to3:fort=1to4:ready$
110 ifpeek(c(j))=169+tthenu$(j)=y$:t=4
120 next t:restore:nextj
130 print:print" ";z(1);u$(1);z(2);u$(2);z(3);u$(3);z(4);"=";e
140 print:print" taste = noch einmal":wait198,1:getr$:run
150 data +,-,*,/
160 (c) 1990 by k.timmen