home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #3 / Floppy_Magazine_88-3_1988_Megasystems_Oy_fi_Side_B.d64 / kirj.nop.testi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  80 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 gosub1300
  3. 30 print"[152]tehnyt [197].[214]arjo"
  4. 35 print"[159](c) 1987 [198]loppy [205]agazine"
  5. 40 print"[154][208]aina jtkn. n[pp[int[":poke198,0:wait198,1
  6. 70 restore:poke53280,11:poke53281,12:print"[147][144]":clr
  7. 80 dimq$(25):forl=1to25:readq$(l):next
  8. 90 dimw$(25):forl=1to25:readw$(l):next
  9. 100 dime$(25):forl=1to25:reade$(l):next
  10. 110 dimr$(25):forl=1to25:readr$(l):next
  11. 120 a$="":gosub1060:a$=q$(z)
  12. 125 gosub1060:a$=a$+" "+w$(z)
  13. 130 gosub1060:a$=a$+" "+e$(z)
  14. 140 gosub1060:a$=a$+" "+r$(z)+"."
  15. 150 print"[147][203]irjoita lause:"
  16. 160 printa$
  17. 170 p=1144:o=1:gosub1100
  18. 180 ti$="000000":getb$:ifb$<>mid$(a$,o,1)then180
  19. 190 o=o+1:gosub1200
  20. 200 getb$:ifb$<>mid$(a$,o,1)then200
  21. 210 ifb$="."andmid$(a$,o,1)="."thenit$=ti$:goto250
  22. 220 gosub1200:o=o+1:goto200
  23. 250 s=val(right$(it$,2)):m=val(mid$(it$,2,2)):aika=s+(60*m)
  24. 260 poke53280,0:poke53281,0:print"[147][158][203]onekirjoitusnopeutesi on";
  25. 265 tulos=int((1800/aika)*len(a$))
  26. 270 printtulos"merkki[":print"puolessa tunnissa";
  27. 280 iftulos>parasthenprint", joka on uusi enn[tys."
  28. 285 iftulos>parasthenparas=tulos:goto300
  29. 290 iftulos=<parasthenprint"."
  30. 300 print"[154][208][iv[n paras tulos:"paras
  31. 310 print"[152][213]udestaan (k/e) ?"
  32. 315 getv$:ifv$=""then315
  33. 317 ifv$<>"e"then330
  34. 320 print"[147][208]arhaaksi tulokseksi j[i"paras:print"ly\nti[ puolessa tunnissa"
  35. 325 print"":end
  36. 330 poke53281,12:poke53280,11:print"[144][147]":goto120
  37. 1000 rem******* 1.vaihe
  38. 1001 data"[203]aupan t[ti","[212]ri [211]chweitzcher","[208]ikku-[208]ekka","[211]atunnainen ohikulkija"
  39. 1002 data"[207]scar","[216]erxes","[218]eus","[197]ntinen mies","[197]llu-t[ti","[198]rankenstein"
  40. 1003 data"[205]aatalouskosmetologi"
  41. 1004 data"[193]noppi","[202]oulupukki","[206]aapurin set[","[205]ustanaamio","[212]arzan","[210]asputin"
  42. 1006 data"[201]t[-[213]zpekistanilainen kansantanssija","[197]r[s aikamme merkkihenkil\ist["
  43. 1008 data"[211]ylvesteri","[193]nna-[203]aisa","[211]anna-[208]etteri [211]plutterquist"
  44. 1009 data"[201]lpo-set[","[205]uumipappa","[208][[toimittaja"
  45. 1010 rem******* 2.vaihe
  46. 1011 datapyll[hti istumaan,hukkasi tekohampaansa,t\rm[si puhelinpylv[[seen
  47. 1012 datavallan mustaksi muuttui,kimmastui,ihastui ikihyviksi
  48. 1013 datamuutti maalle
  49. 1014 datakiljui riemusta,ihmetteli,ilahtui,pureksi varpaankynsi[[n
  50. 1016 datasoitti palokunnan,kiipesi puuhun,haukkoi henke[[n,osti mopedin
  51. 1018 dataaloitti ankaran dieetin,kutoi kissalleen kaulaliinan,repi kalsarinsa
  52. 1020 datapaheksui,meni pedikyyriin,raivostui,tilasi toisen samanlaisen
  53. 1022 datatanssi ripaskaa,meditoi,lakkasi uskomasta joulupukkiin
  54. 1024 rem******* 3.vaihe
  55. 1025 datatehty[[n muovailuvahasta,pyydetty[[n joululahjaksi
  56. 1026 datasy\ty[[n,voitettuaan,l\ydetty[[n,saatuaan,rei'itetty[[n,tehty[[n
  57. 1027 datahukattuaan perheen ainoan,n[hty[[n puhuvan
  58. 1028 datan[hty[[n unessa,saatuaan lainaksi,annettuaan naapurille lainaksi
  59. 1029 datasy\ty[[n illalliseksi makoisan
  60. 1030 datal\ydetty[[n komerosta,luultuaan n[hneens[,tilattuaan postitse halvan
  61. 1032 datan[hty[[n n[yteikkunassa upean,saatuaan joululahjaksi
  62. 1034 datakerrottuaan kaikille ostaneensa todella monik[ytt\isen
  63. 1036 datapyydystetty[[n mato-ongella,n[hty[[n lent[v[n,saatuaan kaveriltaan
  64. 1038 dataostettuaan osamaksulla,tehty[[n lego-palikoista
  65. 1040 rem******* 4.vaihe
  66. 1041 dataleikkuupuimurin,modeemin,mikrokytkimellisen joystickin,nakkipaketin
  67. 1042 datareik[juuston,vasemman jalan saappaan,pesukoneen,ompelukoneen
  68. 1043 datakahdeksan kilon lohen
  69. 1044 datahilavitkuttimen,stroboskoopin,nukutusnuijan,oman tietokoneen
  70. 1046 datarullalaudan,ruohonleikkurin,laskuvarjon,her[tyskellon,sateenvarjon
  71. 1048 dataautotallin oven,pullasudin,peilikaukoputken,satunnaisgeneraattorin
  72. 1050 datakarttapallon,survival-puukon,tuttipullon
  73. 1060 z=int(rnd(1)*25)+1:return
  74. 1100 pokep,peek(p)+128:p=p+1:return
  75. 1200 pokep-1,peek(p-1)-128:pokep,peek(p)+128:p=p+1:return
  76. 1300 print"[147][158]";:ki$="[203]irjoitusnopeustesti"
  77. 1310 forf=1to20:printmid$(ki$,f,1);:poke54296,5:poke54296,0:g=int(rnd(1)*750)+1
  78. 1320 forh=1tog:next:next
  79. 1330 return
  80.