home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9006a.d64 / rechenraetsel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  530b  |  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.