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