home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #6 / Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64 / kamu7 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  123 lines
  1. 5 sys64789:sys65409
  2. 6 poke53280,6
  3. 9 dimc$(40),d$(40)
  4. 10 goto100
  5. 39 rem ** pieniksi kirjaimiksi.
  6. 40 d=0:fore=1toc:d$(e)="":next
  7. 41 d=d+1:ifc$(d)="."andd=cthend$(c)=".":return
  8. 42 e=0
  9. 43 e=e+1:d$=mid$(c$(d),e,1):ifd$<chr$(193)then45
  10. 44 d$=chr$(asc(d$)-128)
  11. 45 d$(d)=d$(d)+d$:ife=len(d$(d))+1then41
  12. 46 goto43
  13. 49 rem ** funktiot.
  14. 50 ifa$="[133]"thengosub3000
  15. 51 ifa$="[137]"thengosub3010
  16. 58 goto81
  17. 59 rem ** jaa lause sanoihin.
  18. 60 b=0:c=1:iflen(b$)=0thenc$(c)=".":return
  19. 61 b=b+1:ifb=len(b$)+1thenc$(c)=".":return
  20. 62 ifmid$(b$,b,1)=chr$(32)then61
  21. 63 goto66
  22. 64 b=b+1:ifmid$(b$,b,1)<>chr$(32)then66
  23. 65 c=c+1:goto61
  24. 66 c$(c)=c$(c)+mid$(b$,b,1)
  25. 67 iflen(b$)=bthenc=c+1:c$(c)=".":return
  26. 68 goto64
  27. 69 rem ** tyhjenn[ sanapuskuri.
  28. 70 ford=1toc:c$(d)="":next:return
  29. 79 rem ** kerro asiasi.
  30. 80 gosub95:print"[206]yt on sinun vuorosi!"
  31. 81 b$="":gosub95
  32. 82 a$="":poke198,0:poke204,0:wait198,1:poke204,1:geta$
  33. 83 ifa$=chr$(13)then96
  34. 84 ifa$>chr$(132)anda$<chr$(142)then50
  35. 85 ifa$=chr$(20)then97
  36. 86 ifa$>chr$(31)anda$<chr$(96)then90
  37. 87 ifa$>chr$(192)anda$<chr$(222)then90
  38. 88 goto82
  39. 90 printa$;:b$=b$+a$:iflen(b$)<78then82
  40. 91 gosub96:gosub95:print"[206]yt riitt[[. [197]nemp[[ en pysty k[sitte-"
  41. 92 print"lem[[n (jos t[t[k[[n)...":return
  42. 95 print:print">[154]";:return
  43. 96 print".":return
  44. 97 iflen(b$)=0then82
  45. 98 print" [157][157] [157]";:b$=mid$(b$,1,len(b$)-1):goto82
  46. 99 print:print"[214]irhe ohjelmassa!":return98
  47. 100 print"[147][154][211]illoin, kun sinulla ei ole mit[[n teke-";
  48. 101 print"mist[, lataa minut ja saat minusta"
  49. 102 print"keskustelukumppanin.":print"[205]uista kuitenkin, ett[ olen vain kone,"
  50. 103 print"enk[ osaa l[hesk[[n aina olla viisas."
  51. 104 print"[204]is[ksi minut tehnyt tyyppi, [212]oni [204]uode,";
  52. 105 print"ei varmastikaan ole ottanut kaikkea"
  53. 106 print"huomioon. [211]it[ paitsi olen 64:n sis[ss[,";
  54. 107 print"johon ei muutenkaan liikaa tavaraa"
  55. 108 print"mahdu. [219]l[ kuitenkaan nyt masennu, ett["
  56. 109 print"olisin aivan surkea, sill[ kyll[ min["
  57. 110 print"aina jotain osaan."
  58. 120 b1$=b$:gosub80:gosub60
  59. 121 gosub1000
  60. 122 gosub70:goto120
  61. 999 rem ** parserini sanasto.
  62. 1000 :
  63. 1009 ifb$=b1$then2018
  64. 1010 ifc$(1)="."then2000
  65. 1011 iflen(c$(1))=1andc=2then2020
  66. 1020 gosub40
  67. 1021 ifd$(1)="pois"then2010
  68. 1022 ifd$(1)="quit"thengosub2019:goto2010
  69. 1023 gosub2030
  70. 1040 ifd$(1)="kuka"ord$(1)="mik["then1900
  71. 1100 goto2026
  72. 1900 ifleft$(d$(2),4)="olet"then3100
  73. 1901 goto2026
  74. 2000 x=int(rnd(1)*6)+1:onxgoto2001,2002,2003,2004,2005,2006
  75. 2001 print"[200]aluatko apua? [208]aina siin[ tapauksessa  [198]1:st[.":return
  76. 2002 print"[212]oivoisin, ett[ keskustelisit hieman    j[rkev[mmin.":return
  77. 2003 print"[207]nko tuo nyt noin hauskaa?":return
  78. 2004 print"[202]os et halua keskustella, vaan leikki[, tee se muualla!":return
  79. 2005 print"[208]ois p[[set kirjoittamalla 'pois'.":return
  80. 2006 print"[200]aluatko lopettaa [203]/[197] ??";:gosub81:va$=left$(b$,1):goto2011
  81. 2010 print"[200]aluatko tosiaan pois [203]/[197] ?";:gosub81:va$=left$(b$,1)
  82. 2011 ifva$="k"orva$="[203]"thenend
  83. 2012 return
  84. 2015 print"[202]os viel[ toistat tuon, alan min[kin    toistaa itse[ni.":return
  85. 2016 print"[210]ajoita riemuasi.":return
  86. 2017 print"[219]l[ viitsi toistaa itse[si.":return
  87. 2018 x=int(rnd(1)*4)+1:onxgoto2017,2016,2015,2004
  88. 2019 print"[214]oi minulle puhua suomeksikin.":return
  89. 2020 x=int(rnd(1)*6)+1:onxgoto2021,2022,2023,2024,2002,2004
  90. 2021 print"[197]n nyt oikein tajua, mit[ haluat.":goto2024
  91. 2022 print"[217]hden kirjaimen sanoja ei suomessa ole!":return
  92. 2023 print"[212]urha yritt[[. [197]n tajua."
  93. 2024 print"[211]elit[ tarkemmin.":return
  94. 2025 print"[212][h??? [206]yt en ymm[rr[.":return
  95. 2026 x=int(rnd(1)*5)+1:onxgoto2021,2023,2024,2025,2027
  96. 2027 print"[197]n saa selv[[. [203]okeile sanoa se toisin.":return
  97. 2030 e=0:f=0
  98. 2031 e=e+1:ifleft$(d$(e),4)="toni"thenf=1:goto2034
  99. 2032 ife=cthenreturn
  100. 2033 goto2031
  101. 2034 ife=cthenprint"[212]oni [204]uode on muuten mahtava tyyppi.":return
  102. 2035 e=e+1:ifleft$(d$(e),5)="luode"thenprint"[212]unnetko tyypin? [205]in[ tunnen."
  103. 2036 print"[212]oni on tosi kiva tyyppi.":return
  104. 2999 rem ** f1.
  105. 3000 print"[147]"spc(10)"[212][ss[ hiukan apua."
  106. 3001 print"[197]nsinn[kin: [203]okeile [198]2:sta [198]4:[[n, niin tulee lis[[ hjelppiruutuja."
  107. 3002 print"'[211]anasto'-k[sky[ ei minusta l\ydy, koskajos jotain ymm[rr[n, niin"
  108. 3003 print"n[et sen kyll[."
  109. 3004 print"[212]eksti[ voit kirjoittaa n[pp[imist\lt[  ihan niin kuin miss[ tahansa
  110. 3005 [153]"tekstipeliss[. valrona on vain se, ett[   min[ val(NULL) ole tekstipeli,"
  111. 3006 [153]"vaan aivan jotain mahtavaa ja sen sem-  moista. vali t[ss[ nyt sitte";
  112. 3007 [153]"n muuta.":[142]
  113. 3009 [143] ** f2.
  114. 3010 [153]"load"[166]10)"...ja lis[[ apua..."
  115. 3011 [153]"(NULL)oit my\s kysy[ minulta jotain. (NULL)saan   ehk[ jopa vastatakin..."
  116. 3012 [153]"valsim. >cont(NULL)it[ on 1+1?"
  117. 3013 [153]"(NULL)oit my\s 'k[ske[' minua tekem[[n jota- kin, esim. >cont(NULL)aske 1+1."
  118. 3014 [153]"mid$os haluat pois t[st[ (NULL)right$right$(NULL)(NULL)(NULL)right$(NULL)atn(NULL)(NULL)atn kes- kusteluohjelmasta, kirjoita"
  119. 3015 [153]"zimppelisti >contpois.":[142]
  120. 3100 [153]"load(NULL)len keskusteluohjelma. (NULL)inun kanssani"
  121. 3101 [153]"voi hyvin tuhlata kallista aikaansa     esim. l[ksyjen lukemisen s";
  122. 3102 [153]"ijaan.":[142]
  123.