home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / vitsit (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  72 lines
  1. 10 poke53281,6:poke53280,6:fori=0to24:aa$=aa$+"":a3$=a3$+"[166][166]":next
  2. 100 print"[147][158][142]":a$="gurlauspommi uskaltaa panna":a=len(a$):b=5:gosub1000
  3. 101 a$="ruotsalaisia halvalla vaikka":a=len(a$):b=6:gosub1000
  4. 102 a$="se onkin vaarallista naina":a=len(a$):b=7:gosub1000
  5. 103 a$="aidsin aikoina.":a=len(a$):b=8:gosub1000:gosub900
  6. 110 print"[147]":a$="nama vitsit ovat useimmat ala-arvoisia, ":b=5:gosub1005
  7. 111 fori=0to999:next:a$="aivan kuten ruotsalaisetkin. ":b=6:gosub1005:gosub900
  8. 120 print"[147]":a$="ruotsin poliisi vaittaa":b=5:gosub1010
  9. 121 a$="loytavansa palmen murhaajan.":b=6:gosub1010:gosub900
  10. 130 print"[147]":a$="ruotsalais (ilo)tytto ammatistaan:":a=len(a$):b=5:gosub1030
  11. 131 a$="minulla on se, myyn sen ":a=len(a$):b=6:gosub1030
  12. 132 a$="ja yha minulla on se! ":a=len(a$):b=7:gosub1030:gosub900
  13. 140 print"[147]":a$="ruotsalaispariskunta paatti opetella":a=len(a$):b=5:gosub1040
  14. 141 a$="vietnamia adoptoimalla vietnamilaisen":a=len(a$):b=6:gosub1040
  15. 142 a$="lapsen ja odottamalla etta se oppii":a=len(a$):b=7:gosub1040
  16. 143 a$="puhumaan.":a=len(a$):b=8:gosub1040:gosub900
  17. 150 print"[147]":a$="jos haluat etta ruotsalaisella on":b=7:gosub1050
  18. 151 a$="hauskaa vanhana, kerro hanelle":b=8:gosub1050
  19. 152 a$="vitsi kun han on nuori.":b=9:gosub1050:gosub900
  20. 160 print"[147]":a$="  jos ruotsista lahtisi siirtolaiset  ":a=len(a$):b=6:gosub1060
  21. 161 a$=" ei sinne jaisi ketaan tekemaan toita. ":a=len(a$):b=7:gosub1060:gosub900
  22. 170 print"[147]":a$="ero ruotsalaisten haiden ja hautajaistenvalilla on yksi humalainen"
  23. 171 a$=a$+" ruotsalainen.":print""left$(aa$,5)a$"[158]":b=5:gosub1070
  24. 172 b=6:gosub1070:gosub900
  25. 180 print"[147]":a$="  ruotsalaiset poliisit kulkevat aina"
  26. 181 a1$="  kolmen ryhmissa. yksi osaa lukea,  "
  27. 182 a2$="  toinen kirjoittaa ja kolmas haluaa ":a=len(a$)
  28. 183 a3$="  olla alykkaiden seurassa.          ":b=5:gosub1080:gosub900
  29. 190 print"[147]":a$="ruotsalainen kavi sukupuolenvaihdos-":a=len(a$):b=6:gosub1090
  30. 191 a$="leikkauksessa voidakseen naida itsensa":b=7:a=len(a$):gosub1090:gosub900
  31. 200 print"[147]":a$="ruotsalaiset olivat pilkilla ja ihmette-":printa$;
  32. 201 a$="livat miten lahella pilkkiva suomalainen":printa$;
  33. 202 a$="sai jatkuvasti kalaa heidan jaadessa il-":printa$;
  34. 203 a$="man. viimein toinen paatti menna katso-":printa$
  35. 204 a$="maan mista tama johtuu. pian han sai sen":printa$;
  36. 205 a$="selville. suomalainen oli porannut rei-":printa$
  37. 206 a$="jan jaahan.":printa$:gosub900
  38. 210 print"[147]":a$=" ruotsi.":a=len(a$):b=10:gosub1000:gosub900
  39. 220 print"[147]":a$="haha":fori=0to99:printtab(2*(sin(i)+1))a$"   "a$"   "a$"   "a$;
  40. 221 print"   "a$:forj=0to10:next:next:fori=0to25:printa$a$a$a$a$a$a$a$a$a$;:next
  41. 222 fori=0to3000:next:poke203,51
  42. 900 geta$:ifa$=""then900
  43. 901 return
  44. 1000 fori=1toa:b$=mid$(a$,i,1):forj=0tob:print""left$(aa$,j)spc(37)b$"[145][157] ":next
  45. 1001 printspc(37)" [145]"
  46. 1002 forj=37toi+5step-1:printspc(j)"[145]"b$" ":next:next:return
  47. 1005 fori=38to0step-1:print""left$(aa$,b)spc(i)left$(a$,40-i):forj=0to9:next
  48. 1006 next:return
  49. 1010 fori=23tobstep-1:print""left$(aa$,i)a$:poke781,i+1:sys59903
  50. 1011 forj=0to19:next:next:return
  51. 1030 c=a/2:fori=1toc:print""left$(aa$,b)spc(20-i)left$(a$,i)right$(a$,i)
  52. 1031 forj=0to30:next:next:return
  53. 1040 fori=1toa:print""left$(aa$,b)spc(i)mid$(a$,i,1):forj=0to25:next
  54. 1041 next:return
  55. 1050 fori=1to6:print""left$(aa$,i)spc(3)a$:poke781,i-1:sys59903:gosub1059:next
  56. 1051 ifb=7thenprint""left$(aa$,i)spc(3)a$:poke781,6:sys59903:a1$=a$:gosub1059:return
  57. 1052 ifb=8then1057
  58. 1053 print""left$(aa$,i)spc(3)left$(a3$,len(a$)):poke781,6:sys59903:gosub1059
  59. 1054 print""left$(aa$,i)spc(3)a1$:printspc(3)left$(a3$,len(a$)):gosub1059
  60. 1055 print""left$(aa$,i+1)spc(3)a2$:printspc(3)a$:gosub1059:return
  61. 1057 print""left$(aa$,i)spc(3)left$(a3$,len(a$)):poke781,6:sys59903:gosub1059
  62. 1058 print""left$(aa$,i)spc(3)a1$:printspc(3)a$:gosub1059:a2$=a$:return
  63. 1059 forj=0to75:next:return
  64. 1060 c=a/2:fori=1toc:print""left$(aa$,b)mid$(a$,c-i+1,i)spc(39-2*i)mid$(a$,c+1,i)
  65. 1061 next:print""left$(aa$,b)a$:return
  66. 1070 fori=0to80:a=int(40*rnd(1))+55296+40*b:pokea,7:forj=0to20:next:next
  67. 1071 fori=55296+40*bto55335+40*b:pokei,7:forj=0to20:next:next:return
  68. 1080 fori=3toa:print""left$(aa$,b)left$(a$,i):printleft$(a1$,i):printleft$(a2$,i)
  69. 1081 printleft$(a3$,i):forj=0to50:next:next:return
  70. 1090 fori=1toa:forj=22tobstep-1:print""left$(aa$,j)spc(i)mid$(a$,i,1)"[157] ":next
  71. 1091 next:return
  72.