home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #6 / Floppy_Magazine_86-6_1986_Megasystems_Oy_fi_Side_B.d64 / joululaulumenu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  46 lines
  1. 0 ifl=0then6
  2. 1 print"               kuuntele!               "
  3. 2 poke214,l+5:print:print""n$(l)
  4. 3 sys32787
  5. 4 ifpeek(788)=255then4
  6. 5 goto25
  7. 6 poke53280,2:poke53281,15:print"[147][142]"
  8. 7 dimn$(14),l$(14)
  9. 8 forx=1to14:readl$(x),n$(x)
  10. 9 ifn$(x)="-"thenn$(x)=l$(x)
  11. 10 next
  12. 11 data"enkeli taivaan",-
  13. 12 data"joulun kellot",-
  14. 13 data"joulupukki joulu","joulupukki, joulupukki"
  15. 14 data"joulupuu on rakennettu",-
  16. 15 data"jouluy\ juhlay\","jouluy\, juhlay\"
  17. 16 data"kilisee kilisee ","kilisee, kilisee kulkunen"
  18. 17 data"kulkuset",-
  19. 18 data"maa on niin kaunis",-
  20. 19 data"no onkos tullut kes[",-
  21. 20 data"porsaita [idin",-
  22. 21 data"sylvian joululaulu",-
  23. 22 data"tonttujen jouluy\",-
  24. 23 data"valkea joulu",-
  25. 24 data"varpunen jouluaamuna",-
  26. 25 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][146]";
  27. 26 print"       floppiksen  joululaulumenu
  28. 27 [153]"       --------------------------
  29. 28 print"      ere lievonen  15.-17.11.1986
  30. 29 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  31. 30 [153]" valitse painamalla  kyseist[ n[pp[int[
  32. 31 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":poke1303,64:poke55575,2
  33. 32 forx=1to14:printspc(6)chr$(64+x)") "n$(x):next
  34. 33 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  35. 34 print"     p) k[ynnist[ joululaulupotkuri
  36. 35 [153]"               q) lopeta            "
  37. 36 [153]"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrewait";:[151]2023,248:[151]56295,2
  38. 37 [146]198,1:[161]x$:[139]x$[179]"a"[176]x$[178]"o"[176]x$[177]"q"[167]37
  39. 38 [139]x$[178]"p"[167]44
  40. 39 [139]x$[178]"q"[167][153]"load":[128]
  41. 40 [139]x$[178]s$[167]1
  42. 41 [153]"          lataan joululaulua...        "
  43. 42 s$[178]x$:l[178][198](x$)[171]64:[147]l$(l),8,1
  44. 43 [128]
  45. 44 [153]"load      lataan joululaulupotkuria...":[147]"potkuri",8
  46.