start tok64 d64-f3dWCD
10 DIM a$(5)
20 DIM b$(7,4)
30 FORi=1TO7
40 FORj=1TO4
50 READb$(i,j)
60 NEXTj:NEXTi
80 DATA berlin,turin,wien,aberdeen
90 DATA tyckte,dr{pound}mde,fick f{pound}r sig,trodde
100 DATA fru,fot,katt,kropp
110 DATA var gredelin,stank margarin,var en pingvin,satt i gardin
120 DATA var han vissen, var han skamsen,var han likblek,var han bakis
130 DATA som f],och gr],f{pound}r tv],och s]
140 DATA som ett svin,n]gon gin,terpentin,{pound}l och vin
150 FORi=1TO5
160 READa$(i)
170 NEXTi
180 DATA det var en ung man fr]n,som,hans
190 DATA men dagen d[rp],och han drack aldrig mer
200 a=0:b=0
220 a=a+1
230 IFa=6THEN310
240 PRINTa$(a)
250 b=b+1
260 n=INT(RND(1)*4)+1
270 PRINTb$(b,n)
280 IFb=3THENGOTO250
290 IFb=5THENGOTO250
300 GOTO220
310 PRINT"{down*2}tryck en tangent f{pound}r n[sta sk[mtvers "
320 PRINT"eller tryck 's' f{pound}r stopp."
330 GETa$:IFa$=""THEN330
340 IFa$="s"THENPRINT"slut!":END
350 PRINT"{down*2}":RUN
stop tok64
(bastext 1.0)