home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 15 / Dimension_64_Nr.15_19xx_-_de_Side_B.d64 / kniffel (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  26 lines
  1. 1 rem"(c) 1989 by werner w. and frank k."(NULL)
  2. 10 poke53280,0:poke53281,0:s=54272:pokes+24,15:print"[147]"
  3. 11 read a:b=b+1:ifa=-1then100
  4. 12 printchr$(a);:pokes+8,50:pokes+7,5:pokes+11,17
  5. 13 pokes+8,0:pokes+7,0:pokes+11,0
  6. 14 goto11
  7. 15 data142,29,29,29,29,29,29,29,29,29,29,29,29,29,8,5,83,84,65,82,32,83,79,70
  8. 16 data84,87,65,82,69,13,159,13,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,80
  9. 17 data82,69,83,69,78,84,83,13,13,29,29,29,29,29,29,29,29,29,29,29,29,29
  10. 18 data29,29,29,150,75,78,73,70,70,69,76
  11. 19 data13,13,30,29,29,40,67,41,32,49,57,56,57,32,66,89,32,87,69,82,78
  12. 20 data69,82,32,87,46,32,65,78,68,32,70,82,65,78,75,32,75,46,13,13,129,29,29,29
  13. 21 data29,29,80,82,69,83,83,32,83,80,65,67,69,32,84,79,32,76,79,65,68,32,77,65
  14. 22 data73,78,80,65,82,84,-1
  15. 100 getz$:ifz$=" "then102
  16. 101 goto100
  17. 102 read a:b=b+1:ifa=-1then200
  18. 103 printchr$(a);:pokes+8,50:pokes+7,5:pokes+11,17
  19. 104 pokes+8,0:pokes+7,0:pokes+11,0
  20. 105 goto102
  21. 106 data19,13,13,13,13,13,13,13,13,13,32,32,32,32,32,32,32,32,32,32,32,32,32,32
  22. 107 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,-1
  23. 200 a$=chr$(34):print"[144]load"a$"kniffel"a$",8:"
  24. 201 print"run:"
  25. 202 poke198,0:fora=0to4:poke631+a,13:next:poke198,10
  26.