home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #6 / Floppy_Magazine_86-6_1986_Megasystems_Oy_fi_Side_B.d64 / potkuri (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 0 ifs=0then5
  2. 1 print"[145][145][145]"tab((40-len(n$(s)))/2)n$(s)""
  3. 2 sys32787
  4. 3 ifpeek(788)=255then3
  5. 4 goto24
  6. 5 poke53280,2:poke53281,2:print"[147][142]":clr
  7. 6 dimn$(14),l$(14)
  8. 7 forx=1to14:readl$(x),n$(x)
  9. 8 ifn$(x)="-"thenn$(x)=l$(x)
  10. 9 next
  11. 10 data"enkeli taivaan",-
  12. 11 data"jouluy\ juhlay\","jouluy\, juhlay\"
  13. 12 data"maa on niin kaunis",-
  14. 13 data"no onkos tullut kes[",-
  15. 14 data"joulun kellot","joulun  kellot"
  16. 15 data"sylvian joululaulu",-
  17. 16 data"joulupukki joulu","joulupukki, joulupukki"
  18. 17 data"varpunen jouluaamuna",-
  19. 18 data"joulupuu on rakennettu",-
  20. 19 data"tonttujen jouluy","tonttujen  jouluy\"
  21. 20 data"kulkuset",-
  22. 21 data"kilisee kilisee ","kilisee,kilisee kulkunen"
  23. 22 data"valkea joulu",-
  24. 23 data"porsaita [idin",-
  25. 24 print"   [176][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][174]
  26. 25 [153]"   (NULL)                                (NULL)
  27. 26 print"   [221]  floppiksen joululaulupotkuri  [221]
  28. 27 [153]"   (NULL)                                (NULL)
  29. 28 print"   [171][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][179]
  30. 29 [153]"   (NULL)                                (NULL)
  31. 30 print"   [221]    sovittanut  ere lievonen    [221]
  32. 31 [153]"   (NULL)         15.-16.11.1986         (NULL)
  33. 32 print"   [221]                                [221]
  34. 33 [153]"   -tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<
  35. 34 print"   [221]                                [221]
  36. 35 [153]"   (NULL)                                (NULL)
  37. 36 print"   [221]                                [221]
  38. 37 [153]"   /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  39. 38 s=s+1:ifs=15thens=1
  40. 39 loadl$(s),8,1
  41.