home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 14 / Digital_Talk_14_1995-06-20_Digital_Talk_de_Side_B.d64 / ....memorix!.... (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  21 lines
  1. 0 poke53280,0:poke53281,2:b$="[176][195][174][157][157][157][194] [194][157][157][157][173][195][189][145][145]":c$="[144][214][157][214][157][214][146][145][145]":r$="23:59:59"
  2. 1 sp=1557:d$="[144][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]":print"[147]"d$"":forx=1to4:print""c$b$b$b$b$c$
  3. 2 next:print""d$:fori=1to15:reada:pokea+1188,i:next:pokesp,46:deffnzz(zz)=int(rnd(.)*4)+133
  4. 3 print"[144]":forfw=1to12:readfw$:printtab(18)fw$:next:poke650,64:w$="000000":d=631:k=198
  5. 4 geta$:ifa$="[133]"ora$="[145]"thenp=120:na=sp+p:zu=zu+1:goto12:data0,3,6,9,120,123,126,129
  6. 5 ifm=.thenpokek,1:poked,fnzz(zz):o=o+1:zu=.:ifo=400thenm=1:poked,0:a$="":wait197,63:ti$=w$
  7. 6 ifa$="[134]"ora$=""thenp=-120:na=sp+p:zu=zu+1:goto12:data240,243,246,249,360,363
  8. 7 ifa$="[136]"ora$=""thenp=-3:na=sp+p:zu=zu+1:goto12:data366,>>>   memorix   <<<
  9. 8 ifa$="[135]"ora$="[157]"thenp=3:na=sp+p:zu=zu+1:goto12:data>> von  f.wagner <<
  10. 9 print""tab(28)zu:ifa$="_"thenrestore:i=1:goto15
  11. 10 gosub14:print""tab(29)r$:on-(m=0)goto4:print""tab(29)t$:goto4
  12. 11 f=peek(sp):g=peek(na):pokena,f:pokesp,g:sp=na:goto4
  13. 12 ifpeek(na)=32thenpokesp,32:na=na-p:zu=zu-1:pokesp,46:goto4
  14. 13 goto11:data> fpw (w)1992 fsz <,"spielzeit: 00:00:00","bestzeit :","zuege    :"
  15. 14 t$=left$(ti$,2)+":"+mid$(ti$,3,2)+":"+right$(ti$,2):return:data"[158]ordnen sie nach dem
  16. 15 [135]a:[139][194](a[170]1188)[178]i[167][139]i[178]15[167][151]650,0:c[178]0:[137]18:[131]mischen die buchsta
  17. 16 [139][194](a[170]1188)[179][177]i[167][151]214,17:[153]:[153]"falsch!!!":[129]w[178]1[164]300:[130]:[153]"on         ":[137]4
  18. 17 i[178]i[170]1:[137]15:[131]ben mit den  cursor,oder f-tasten. sind,sie geordnet dann _
  19. 18 [151]214,17:[153]:[153]"sehr gut,nochmal  ???  j/n":[161]a$:[145][171](a$[178]"")[137]18:[139]t$[179]r$[167]r$[178]t$
  20. 19 [139]a$[178]"j"[167][140]:m[178]0:o[178]0:[137]1:[131]"druecken.viel spass":[143] digital-talk-duran 1995
  21.