start tok64 d64-SE6mip 0 PRINT"{clear}" 10 ti$="{0*6}":se=110 20 PRINTCHR$(14)"waiting:" 30 IFPEEK(44)<32THENPRINT"poke 44,32:poke 8192,0 {.*3} then reload":STOP 40 ml=2048:DIMd(25) 50 FORt=16TO25:READd(t):NEXT 60 DATA32,207,,169,255,201,240,208,76,133 70 k=0:READa$:IFa$="@"THEN190 80 FORi=0TO1:k=k+1 90 GOSUB140 100 POKEml,p:ml=ml+1 110 NEXT 120 IFtt$<>ti$THENse=se-1:PRINT"{home}{down}"se"{left} seconds{space*2}":tt$=ti$ 130 GOTO70 140 a=ASC(MID$(a$,k,1))-65 150 IFa>15THENa=d(a):b=0:GOTO170 160 b=ASC(MID$(a$,k+1,1))-65:k=k+1 170 p=a+b*16 180 RETURN 190 INPUT"{clear}Carriage return";cr$ 200 INPUT"Filetype (0/1)";f$ 210 POKE2905,VAL(cr$):POKE2900,VAL(f$) 211 REM **** patch by mr.p/softwolves this patch enables the load of swedish 212 REM"{141}{up}characters as well as the use of screensthat are not at $0400 213 INPUT"Do you wish the program to load swedish characters (y/n)";sw$ 214 IFsw$="y"THENPOKE2419,94:POKE2427,222 215 INPUT"Dou you wish the program to use a screenother than $0400 (y/n)";sc$ 216 ON-(sc$="n")GOTO219:INPUT"Screen high-byte";hb 217 POKE2083,hb:POKE2101,hb:POKE2104,hb+1:POKE2107,hb+2:POKE2111,hb+3 218 POKE3011,hb:POKE3078,hb:POKE3200,hb 219 REM **** end of patch by mr.p 1993 220 PRINT"{clear}Put pub disk in drive and press S" 230 GETa$:IFa$<>"s"THEN230 240 OPEN1,8,1,"bookdisk 64" 250 POKE780,251:POKE251,1:POKE252,8 260 POKE781,54:POKE782,16 270 SYS65496:CLOSE1 280 POKE44,8 290 END 300 DATAsla,iaka,soj,cdad,gdbd,ss,sck,laoi 310 DATAqx,ts,nibc,xni,dpr,ckpb,njao,rkm 320 DATAxkp,tim,niop,rt,oani,oor,qcn,uak 330 DATAst,akjj,sim,jjs,vjj,skm,jjs,lmim 340 DATAxbp,qfo,maq,dgma,qml,kaq,foma,qmn 350 DATAmaq,icka,qeo,uw,lpv,bbw,dbv,bjw 360 DATAfcv,nbw,ebv,njw,cdv,dbw,boy,kmia 370 DATAokeo,rmk,for,yph,iaok,cor,mkdo,rgi 380 DATAljei,mjy,bfia,ckca,qak,iav,mpw,dakm 390 DATAxgp,golj,xca,gomj,ybf,iack,jby,iiia 400 DATAaks,idfk,ljjo,baal,cagm,mjz,ljbl,ljv 410 DATAkpaj,poag,fklj,niep,rfk,mjni,fpr,agnk 420 DATAepr,zlj,nkfp,rz,mjag,vz,wmb,vji 430 DATAwnd,vgi,wkb,vki,wdc,vhi,whf,vli 440 DATAwfe,vii,wgc,vmi,wic,qpb,may,bfia 450 DATAfklj,niip,rfk,mjni,jpr,yid,jank,jpr 460 DATAwoo,zmj,nkip,rz,ljy,bfia,yma,nay 470 DATAnaia,tjj,akoa,qob,lkq,eou,wlp,vjf 480 DATAxgb,tdj,ycn,uoo,dpr,nkdp,rjc,pani 490 DATAbcx,ybf,iaoo,oor,nkoo,rjc,pani,oor 500 DATAqfo,may,bfia,qmn,mat,sni,jor,ckca 510 DATAqgm,uq,ru,nmio,rx,kat,sni,aor 520 DATAtop,yz,jaok,hor,xlb,vq,ajed,vbe 530 DATAajdb,vlf,ajna,vbm,ajic,vln,alec,jcph 540 DATAyz,jajc,pdz,fkq,flja,qfp,jafk,fkni 550 DATApor,aks,bjlj,golj,xia,gomj,fkmj,vak 560 DATAwea,fkaj,wnk,tu,bjlj,ckba,qgm,ut 570 DATAcaq,dmu,agoo,aor,vq,xmb,nmpo,rw 580 DATAhbck,daop,kor,nlko,rv,kax,iat,snj 590 DATAkor,kmab,ooq,jnja,agck,sib,nlko,rjg 600 DATAalmk,gor,xga,njdc,eay,poja,njad,faio 610 DATAaoea,xho,agnk,aor,vkc,ajlc,fklj,zoj 620 DATAfkmj,zpj,aks,cks,ioid,fkoj,joba,alca 630 DATAgmpj,zoj,bloj,vq,wea,vnc,xko,aks 640 DATAtnp,bjoj,oiao,rag,tic,zoj,tea,zpj 650 DATAqel,iat,sni,aor,nibo,rak,sbl,ljgo 660 DATAljx,cago,mjv,uw,cev,opw,dbv,npw 670 DATApav,lpw,lamk,aor,bjoj,ooao,ry,ldka 680 DATAqjj,kank,bor,vba,xma,iefk,ljni,eor 690 DATAfkmj,nifo,rig,vib,wda,yld,kafk,ljni 700 DATAcor,fkmj,nido,rq,plia,agok,bor,qjj 710 DATAkaio,aoib,xip,yhi,kamk,aor,tq,amic 720 DATAalga,bjoj,imy,ojka,ibfk,ojjg,icz,ojaj 730 DATAcago,pjt,sni,aor,oobo,rag,aks,miw 740 DATArck,soi,bpr,qij,laq,agla,qeo,uw 750 DATAlpok,bpr,mku,rv,bbw,pav,bjw,ecv 760 DATAnaw,adv,pfw,lcy,mmka,mmcp,rw,nnio 770 DATAimao,maaj,fack,smi,wr,oibp,rmi,ur 780 DATAygm,kaam,sw,fmkm,iiao,ux,nock,sy 790 DATAhpka,agt,ogak,oaq,oblk,akka,cks,ibq 800 DATAwu,aks,fkhk,ninp,rfk,ikni,opr,blhk 810 DATAvao,wia,qcn,uim,amab,xcp,eilj,tca 820 DATAckia,akca,qkl,ufk,ljgk,hkek,ikq,nlu 830 DATAqam,ut,sni,hor,tkl,niio,ry,geja 840 DATAibnk,bpr,jgha,zfk,tma,zgk,qlf,maib 850 DATAnkw,rie,ngbp,rni,wr,qba,maig,niw 860 DATArt,cjq,cnu,aks,blhk,qcn,uim,amab 870 DATAxgp,tcb,qcn,uag,tga,zfk,tla,zgk 880 DATAqlf,mat,cmak,oaq,oblk,tha,zfk,qba 890 DATAmat,sni,jor,qlf,maq,bpla,aks,blhk 900 DATAqcn,uim,amab,xgp,qbp,laq,dbma,gofk 910 DATAoojo,rok,jor,aoma,xmn,qlf,mat,hnak 920 DATAoaq,oblk,gofk,qlf,mat,loak,oaq,oblk 930 DATAagt,pbq,cnu,tq,qcn,ut,ljq,cnu 940 DATAagt,sz,hkt,imz,ikok,wr,qdb,makm 950 DATAabkp,agib,fkhk,jgab,zhk,ajca,goik,agt 960 DATAgaz,fkt,laz,gkt,uak,oaz,lpei,mpq 970 DATAlfma,fklp,ekmp,qob,lkgo,lpx,cago,mpii 980 DATAabhp,gofk,fkfk,vfb,xfo,oogo,rq,jnja 990 DATAomgo,rq,eou,wlp,yfo,maek,gkgk,fkib 1000 DATAyw,uak,smi,cpr,tca,ckia,qkl,ut 1010 DATAdack,obak,oaq,nlu,qam,ut,sz,ojt 1020 DATAimz,pjck,caq,gmu,aks,qfn,max,fdki 1030 DATAvcc,xgp,qfn,max,lcki,vs,wmo,vcc 1040 DATAwfa,bjoj,imx,noam,abw,iat,aobj,ojim 1050 DATAyhk,maib,fkoj,jgab,zoj,ajca,gopj,oocp 1060 DATAry,iima,ckba,qgm,ut,caq,dmu,omcp 1070 DATArom,cpr,agq,ru,kky,hlu,tdd,zlj 1080 DATAtab,zmj,agok,oor,nlbc,abq,cnu,thc 1090 DATAakoa,qob,lkak,snk,npr,zhk,nkop,rz 1100 DATAikbl,hkq,cnu,imam,abx,gpag,tok,akoa 1110 DATAqob,lkt,eack,eaak,haq,klu,ts,zlp 1120 DATAzmp,znp,gmmp,qnl,uq,amu,ckea,qv 1130 DATAual,faq,hlu,abpa,tde,akoa,qob,lkq 1140 DATAeou,wlp,yim,naq,mnma,qdn,naq,dboa 1150 DATAfknp,xea,tmb,znp,aks,bllj,imv,uw 1160 DATAhgv,opal,ldv,npal,cbv,aeal,jav,qal 1170 DATAmaja,aey,nhna,jaai,ynh,nat,qz,opq 1180 DATAcnu,qeo,uv,pfw,pdam,kdaj,nmfk,opv 1190 DATAqw,nav,ncw,jaam,ceaj,plt,ncq,cnu 1200 DATAtna,qcn,uq,cnu,gmnp,xfa,ckka,qfn 1210 DATAnaq,dboa,bllj,vq,xba,imib,ijfg,ljaj 1220 DATAcago,mjz,ljy,afna,tea,qdm,uq,mmu 1230 DATAyle,iack,fat,naq,cnu,aoia,xdc,ckec 1240 DATAtq,qcn,ukm,xip,tbc,akoa,qob,lkfk 1250 DATAlpw,fajg,adq,cnu,fkmp,jgad,qcn,uck 1260 DATAiakm,xbn,gomp,fkmp,vka,xga,golp,ts 1270 DATAzmp,agck,kat,qq,cnu,kmx,ipag,eckd 1280 DATAkcx,behe,feq,sdj,cbhj,qcm,pepe,leem 1290 DATAjedf,leq,qq,qq,qq,qq,qgm,jey 1300 DATAfekd,sdb,faq,xcf,jeoe,effe,cfq,afcf 1310 DATApece,yfe,nedf,qnc,ncq,xcf,fedf,dfq 1320 DATAefpe,qde,peoe,efje,oeff,feoc,qs,dbhj 1330 DATAmmpe,beee,jeoe,heoc,ococ,qq,qq,qq 1340 DATAqq,qq,qq,qq,qq,qdc,hnpe,cfee 1350 DATAdfoc,ocq,qq,qq,sdb,fabm,cffe,qjf 1360 DATApeff,qdf,ffcf,fepd,qjn,pcom,ljs,dbfa 1370 DATAxcf,fedf,dfq,pfq,efpe,qfe,dfde,beaf 1380 DATAfes,pben,bece,yfe,qpe,geq,dmpe,oeef 1390 DATAfeoe,efdf,qlj,spb,dmcf,dfcf,nccn,feef 1400 DATAffcf,oeq,ype,beee,dfq,spb,bmcf,cfpe 1410 DATAhfq,icpf,jcq,fedf,debe,affe,dfq,slj 1420 DATAcbq,qq,qq,imq,feq,yq,afq,qq 1430 DATAqq,qs,faq,qhn,pecf,eeq,depe,ffoe 1440 DATAefq,qq,qq,qs,qkc,dmff,cfdf,pecf 1450 DATAncff,afpc,eepe,hfoe,qq,sq,qdf,decf 1460 DATApey,ydf,qef,feif,efq,qq,qs,qkc 1470 DATAdmff,cfdf,pecf,ncy,fege,efpc,cfef,qq 1480 DATAsq,qke,ffne,afdf,qdf,decf,fefe,oedf 1490 DATAqq,qs,qkc,impe,nefe,qef,peq,dfef 1500 DATAbecf,efq,qq,slj,qgm,bdq,imfe,yaf 1510 DATAqq,qq,qq,qq,qq,sq,gmcd,qmm 1520 DATApebe,eeq,deie,beaf,effe,cfq,qs,qgm 1530 DATAddq,dnfe,efq,cepe,pele,nebe,cfle,qq 1540 DATAsq,gmed,qhm,feef,qce,pepe,lene,becf 1550 DATAleq,qs,qgm,fdpc,gdq,dmjf,dey,feq 1560 DATAdepe,ype,cfq,sq,gmhd,qx,cfje,oeef 1570 DATAqde,iebe,afef,fecf,qs,qgm,idq,fmif 1580 DATAjeef,qaf,cfpe,hecf,bene,qq,sfa,ncnc 1590 DATAxcf,fedf,dfq,beoe,jfq,lefe,jfnc,ncnc 1600 DATAsaj,famb,pjmj,obpb,ojbi,fjgj,hjij,jjkj 1610 DATAljs,mps,@ stop tok64 (bastext 1.0)