start tok64 d64-g2TlEN 0 GOTO8 1 **************** mats **************** 2 * * 3 * dots * 4 * * 5 * ezzmae software (c) 84 * 6 * * 7 ************** holmberg ************** 8 POKE53281,0:POKE53280,0:GOSUB2000 9 PRINT"{clear}":INPUT"vad heter du";name$ 10 PRINT"{black}{reverse on}{clear}{down*2}"SPC(17)"dots" 20 PRINT"{down*2}{space*15}{white}joystick{down}{left*5}or{down}{left*7}keyboard(j/k){sh space}?"; 25 GETa$:IFa$<>"j"ANDa$<>"k"THEN25 26 PRINTa$ 30 jk=-1:IFa$="k"THENjk=0 40 INPUT"{down*3}{right}sva{up}{left}W{down}righetsgrad(0-10)";sk:IFsk<0ORsk>10THEN40 50 sk=(10-sk)/10:ts=200-200*sk:dt=ts+25 60 sc=1024:co=13*4096+8*256 70 GOSUB1010:PRINT"{home}":FORi=1TO10:PRINT"{blue} Q{right}Q{right}Q{right}Q{right}Q{right}Q{right}Q{right}Q{right}Q{right}Q{down}":NEXT 80 ys=0:vs=0:PRINT"{yellow}"name$":"ys"{space*4}{light green}{reverse on}c64:"vs 90 DEFFNbx(lc)=(PEEK(lc+40)<>32)+(PEEK(lc-c+1)<>32)+(PEEK(lc-40)<>32)+(PEEK(lc-1)<>32) 100 DEFFNvh(lc)=lc<>2*INT(lc/2) 110 sl=sc+450:cl=co+450:x=10:y=11:cc=PEEK(sl):cr=PEEK(cl) 120 POKEsl,160:POKEcl,7:f=0 130 IFjkTHEN150 140 GOSUB930:GOTO160 150 GOSUB860:IFpc=0THEN150 160 x=x+j:y=y+k:IFx<1ORx>19ORy<1ORy>19THENx=x-j:y=y-k:GOTO130 170 IFpc=99THEN200 180 POKEsl,cc:POKEcl,cr:sl=sl+pc:cl=cl+pc:cc=PEEK(sl):POKEsl,160 190 cr=PEEK(cl):POKEcl,7:GOTO130 200 l=(PEEK(sl+1)=81)+(PEEK(sl-1)=81)+(PEEK(sl+40)=81)+(PEEK(sl-40)=81) 210 IFl+(cc=32)=-3THEN230 220 i=128:GOSUB710:GOTO130 230 wh=1:ml=sl:GOSUB650:IFNOTFNvh(sl)THEN280 240 IFx>1ANDFNbx(sl-1)=-4THENbx=sl-1:GOSUB720:f=-1 250 IFx<19ANDFNbx(sl+1)=-4THENbx=sl+1:GOSUB720:GOTO110 260 IFfTHEN110 270 GOTO310 280 IFy>1ANDFNbx(sl-40)=-4THENbx=sl-40:GOSUB720:f=-1 290 IFy<19ANDFNbx(sl+40)=-4THENbx=sl+40:GOSUB720:GOTO110 300 IFfTHEN110 310 wh=2:f=0:cn=0:IFRND(0)32THENi=i+1:GOTO600 380 IFPEEK(i+1)<>32THENi=i-1:GOTO600 390 i=INT(INT(RND(0)*20)*40+21*RND(0)+sc+41):cn=cn+1:IFPEEK(i)<>32THEN390 400 IFNOT((PEEK(i+1)=81ANDPEEK(i-1)=81)OR(PEEK(i+40)=81ANDPEEK(i-40)=81))THEN390 410 IFsk>.6ORcn>tsTHEN470 420 IFFNvh(i)THEN450 430 IFFNbx(i-40)=-2ORFNbx(i+40)=-2THEN390 440 GOTO540 450 IFFNbx(i-1)=-2ORFNbx(i+1)=-2THEN390 460 GOTO600 470 IFFNvh(i)THEN510 480 IFsk>.6ORcn>dtTHEN540 490 IFFNbx(i+40)=-2ANDFNbx(i-40)=-2THEN390 500 GOTO540 510 IFsk>.6ORcn>dtTHEN600 520 IFFNbx(i+1)=-2ANDFNbx(i-1)=-2THEN390 530 GOTO600 540 ml=i:GOSUB650 550 IFFNbx(ml-40)=-4THENbx=ml-40:GOSUB720:f=-1 560 IFFNbx(ml+40)=-4THENbx=ml+40:GOSUB720:GOTO310 570 IFfTHEN310 580 GOTO110 590 IFNOT(PEEK(i-40)=81ANDPEEK(i+40)=81)THEN390 600 ml=i:GOSUB650 610 IFFNbx(ml-1)=-4THENbx=ml-1:GOSUB720:f=-1 620 IFFNbx(ml+1)=-4THENbx=ml+1:GOSUB720:GOTO310 630 IFfTHEN310 640 GOTO110 650 cl=co+ml-sc 660 POKEml,67 670 IFFNvh(ml)THENPOKEml,93 680 i=185:IFwh=2THENi=150 690 FORj=1TOwh:POKEcl,6:GOSUB710:POKEcl,1 700 FORl=1TO200:NEXT:POKEcl,6:NEXT 710 FORk=1TO200:NEXT:RETURN 720 ys=ys+1:j=9:i=200:cl=co+bx-sc:IFwh=2THENj=5:i=150:ys=ys-1:vs=vs+1 730 POKEbx,160:POKEcl,1 740 FORl=1TO3:POKEcl,j:GOSUB710:POKEcl,1:FORk=1TO200:NEXT:i=i+18:POKEcl,j:NEXT 750 PRINT"{home}{down*21}{yellow}"name$":"ys"{space*4}{light green}{reverse on}c64:"vs 760 IFys+vs<81THENRETURN 770 PRINT"{home}{down*19}":IFys>vsTHEN800 780 PRINT"{gray}kaenn dig besegrad {!*3}" 790 GOTO850 800 PRINT"du vann {!*4}" 810 FORx=1TO128:POKE53280,x:POKE53281,x:FORc=1TO5:NEXTc:NEXTx 850 GOTO3000 860 j=0:k=0:pc=0 870 i=PEEK(56321) 880 IF(iAND1 )=0THENpc=-40:k=-1:RETURN 885 IF(iAND8 )=0THENj=1:pc=1:RETURN 890 IF(iAND2 )=0THENpc=40:k=1:RETURN 900 IF(iAND4 )=0THENpc=-1:j=-1:RETURN 910 IF(iAND16)=0THENpc=99 920 RETURN 930 j=0:k=0:pc=0 940 GETa$:IFa$=""THEN940 950 IFa$="{up}"THENpc=-40:k=-1:RETURN 960 IFa$="{right}"THENj=1:pc=1:RETURN 970 IFa$="{down}"THENk=1:pc=40:RETURN 980 IFa$="{left}"THENj=-1:pc=-1:RETURN 990 IFASC(a$)=13THENpc=99 1000 RETURN 1010 PRINT"{clear}"TAB(20)"{red}{space*4}d o t s" 1020 PRINTTAB(20)"{space*4}{=*7}" 1030 PRINTTAB(20)"{down}spelet gaar ut paa" 1040 PRINTTAB(20)"att ringa in olika " 1050 PRINTTAB(20)"rutor.den som faar " 1060 PRINTTAB(20)"hoegst poaeng har{space*2}" 1070 PRINTTAB(20)"vunnit spelet.{down*6}{left*10}(c) ezzmae " 1080 RETURN 2000 PRINT"{clear}{blue}{down*3}" 2010 PRINT"{space*2}{cm +*4}{space*6}{cm +*5}{space*4}{cm +*5}{space*5}{cm +*5} 2020 PRINT"{space*2}{cm +}{sh space*3}{cm +}{sh space*5}{cm +}{sh space*3}{cm +}{sh space*6}{cm +}{sh space*7}{cm +} 2030 PRINT"{sh space*2}{cm +}{sh space*3}{cm +}{sh space*5}{cm +}{sh space*3}{cm +}{sh space*6}{cm +}{sh space*7}{cm +*5} 2040 PRINT"{sh space*2}{cm +}{sh space*3}{cm +}{sh space*5}{cm +}{sh space*3}{cm +}{sh space*6}{cm +}{sh space*11}{cm +} 2050 PRINT"{space*2}{cm +*4}{sh space*6}{cm +*5}{sh space*6}{cm +}{sh space*7}{cm +*5} 2070 PRINT"{down*3}{space*16}{yellow}ezzmaesoft 2071 PRINT"{down*5}" 2072 PRINT"{space*17}ezzmae" 2073 PRINT"{space*17}z{space*4}z" 2074 PRINT"{space*17}z{blue} mh{yellow} z" 2075 PRINT"{space*17}m{red} 84{yellow} m" 2076 PRINT"{space*17}a{space*4}a" 2077 PRINT"{space*17}ezzmae" 2079 FORa=1TO5000:NEXT 2080 RETURN 3000 PRINT"{down*2}en ga{up}{left}W{down}ng till?" 3010 GETa$:IFa$=""THEN3010 3020 IFa$="j"ORa$="y"THENRUN 3030 IFa$="n"THENSYS64760 3040 GOTO3010 3050 REM programmet ins[nt av 3060 REM mats holmberg 3070 REM rubinv[gen 14 3080 REM 541 42 sk{pound}vde 3090 REM datorernas v[rld stop tok64 (bastext 1.0)