GOTO90

COLOR6,6:

COLOR5,2:

PRINT"{clear}{ct b}{ct n} C o n n e c t r i s {130}":

RETURN

PRINT"{down}{light blue}{ct n}"a$" {black}vs {red}"
b$"{black}.{down}":

RETURN

PRINT"{142}{white} a b c d e f g h

FORy=.TO7:

 FORx=.TO7:

  PRINT"{black}{sh -}";:

  COLOR5,p(x,y):

  PRINT"●";:

 NEXT:

 PRINT"{black}{sh -}":

NEXT

PRINT"{cm z}{sh asterisk}{cm e}{sh asterisk}{cm e}{sh asterisk}
{cm e}{sh asterisk}{cm e}{sh asterisk}{cm e}{sh asterisk}{cm e}
{sh asterisk}{cm e}{sh asterisk}{cm x}":

RETURN

DO:

 DO:

  COLOR5,c:

  PRINT"{down}{ct n}"c$", your move? {142}{black}";:

  GETKEYx$:

  x=ASC(x$)-65:

  PRINTx$:

 LOOPWHILEx<.ORx>7:

LOOPWHILEp(x,.)<>6:

PRINT"ok

FORy=7TO.STEP-1:

 IFp(x,y)<>6THEN

  NEXT

p(x,y)=c:

FORx=.TO7:

 IFp(x,7)<>6THEN

  NEXT:

  GOSUB30:

  RETURN

GOSUB40:

RETURN

FORx=.TO7:

 FORy=7TO1STEP-1:

  p(x,y)=p(x,y-1):

 NEXT:

 p(x,.)=6:

NEXT:

RETURN

FORy=.TO7:

 FORx=.TO4:

  IFp(x,y)+p(x+1,y)+p(x+2,y)+p(x+3,y)=c*4THEN50

 NEXT:

NEXT:

FORx=.TO7:

 FORy=.TO4:

  IFx<5THEN

   IFp(x,y)+p(x,y+1)+p(x,y+2)+p(x,y+3)=c*4OR
     p(x,y)+p(x+1,y+1)+p(x+2,y+2)+p(x+3,y+3)=c*4THEN50

  IFx>2THEN

   IFp(x,y)+p(x-1,y+1)+p(x-2,y+2)+p(x-3,y+3)=c*4THEN50

 NEXT:

NEXT:

RETURN

GOSUB2:

COLOR5,c:

PRINT"{down}{ct n}You win, "c$:

PRINT:

GOSUB10:

GETKEYz$:

RUN

PRINT"{down}{ct n}What's your name, "n$;:

INPUT" player";c$:

RETURN

IFINT(.1+.9)<>1THEN

 PRINT"{reverse on} c128 mode ":

 END

IFRGR(0)<>5THEN

 PRINT"{reverse on} switch to 80 columns ":

 GRAPHIC5:

 GETKEYz$

FAST:

GOSUB2

n$="blue":

DO:

 COLOR5,15:

 GOSUB60:

LOOPWHILEc$="":

a$=c$

n$="red":

DO:

COLOR5,3:

GOSUB60:

LOOPWHILEc$=""ORc$=a$:

b$=c$

DIMp(7,7):

FORx=.TO7:

 FORy=.TO7:

  p(x,y)=6:

 NEXT:

NEXT

c=3:

DO:

 ONc/8+1GOSUB210,220:

 GOSUB2:

 GOSUB3:

 GOSUB10:

 GOSUB20:

LOOP

c=15:

c$=a$:

RETURN

c=3:

c$=b$:

RETURN

GRAPHIC1,1:

FAST:

DEFFNr(x)=INT(RND(.)*x):

DEFFNn(x)=x+1+zz*(x=z):

GOTO10

LOCATEx(h),y(h):

IFRDOT(2)THEN100

GETa$:

IFa$<>""THENGOSUB9

DRAW1:

DRAW.,x(t),y(t):

t=FNn(t):

IFti>pTHENGOSUB93

RETURN

r=4*((a$="4")-(a$="6")):

d=2*((a$="8")-(a$="2")):

RETURN

COLOR0,7:

COLOR1,4:

COLOR4,9:

WIDTH2

CIRCLE,40,40,8:

PAINT,40,40:

SSHAPEt$,32,32,55,53:

GRAPHIC1,1:

SPRSAVt$,1

FORi=1TO7STEP2:

 BOX1,i*2,i,319-i*2,189-i:

NEXT:

COLOR1,14:

CHAR,0,24,"{ct n}Score: 0

COLOR1,2:

CHAR,20,24,"{ct n}www.softwolves.pp.se":

COLOR1,4

z=1024:

zz=z+1:

DIMx(z),y(z):

FORi=.TO9:

 x(i)=18+i*4:

 y(i)=100:

 DRAW,x(i),100:

NEXT:

h=9:

t=.

GOSUB93:

SLOW:

r=4:

d=.

DO:

 DO:

  o=h:

  h=FNn(h):

  x(h)=x(o)+r:

  IFx(h)<15ORx(h)>304THEN100

  y(h)=y(o):

  GOSUB5

 LOOPWHILEr

 DO:

  o=h:

  h=FNn(h):

  y(h)=y(o)+d:

  IFy(h)<8ORy(h)>181THEN100

  x(h)=x(o):

  GOSUB5

 LOOPWHILEd:

LOOP

COLLISION2:

SPRITE1,1,1:

s=s+BUMP(2):

COLOR1,14:

CHAR,6,24,STR$(s):

COLOR1,4

e=FNr(5)+3:

DO:

 o=h:

 h=FNn(h):

 IFh=tTHEN

  h=o:

  EXIT:

 ELSE

  x(h)=x(o):

  y(h)=y(o):

  e=e-1:

LOOPWHILEe

SPRITE1,.:

MOVSPR1,.,.:

p=30+FNr(60):

GOTO94

x=FNr(269)+42:

y=FNr(156)+59:

MOVSPR1,x,y:

COLLISION2,90:

SPRITE1,1,FNr(5)+2,.,.,.,.:

p=360+FNr(360)

ti$="000000":

RETURN

CHAR,18,24,"{ct n}Game over! Play again?":

GETKEYz$:

IFz$="y"THENRUN

GRAPHIC.:

SPRITE1,.:

COLOR.,1:

COLOR4,1:

PRINT"{clear}{ct n}{white}You caught"s"target";

IFs<>1THENPRINT"s";

DEFFNr(r)=RND(.)*r+1:

GOTO10

IFLEN(z$)<=wTHEN

 PRINTz$;:

 RETURN

FORi=wTO.STEP-1:

 IFMID$(z$,i,1)<>" "THENNEXT

PRINTLEFT$(z$,i):

z$=MID$(z$,i+1):

GOTO1

PRINT"{clear}{down}{left}";:

w=POS(.)

PRINT"{home}{reverse on} none shall pass! {down}":

PRINT" /\/\  {cm m}":

PRINT"/\/\/\ {sh @}":

PRINT"\ \/ /":

PRINT" \  /":

PRINT"  \/{down}

DIMa$(99):

FORi=1TO19:

 READa$(i):

NEXT:

FORi=20TO90STEP10:

 READa$(i):

 FORj=1TO9:

  a$(i+j)=a$(i)+a$(j):

 NEXT:

NEXT

z$="none shall pass unless he answers me right. tell me your age":

GOSUB1

INPUTa%:

IFa%<2ORa%>130THEN90

m=10:

n=m:

IFa%>11THEN

 m=20:

 n=12:

  IFa%>15THEN

   m=99

y$="what is ":

IFa%<8THEN30

f1%=FNr(m):

f2%=FNr(n)

z$=y$+a$(f1%)+" times "+a$(f2%):

GOSUB1:

INPUTp:

IFp<>f1%*f2%THEN90

t1%=FNr(m):

t2%=FNr(t1%):

IFt2%=0THEN30

z$=y$+a$(t2%)+" from "+a$(t1%):

GOSUB1:

INPUTs:

IFs<>t1%-t2%THEN90

a1%=FNr(m):

a2%=FNr(m):

IFa1%+a2%=0THEN35

z$="tell me the sum of "+a$(a1%)+" and "+a$(a2%):

GOSUB1:

INPUTa:

IFa<>a1%+a2%THEN90

z$="you may pass!":

GOSUB1:

END

z$="that's not correct!":

GOSUB1:

END

DATAone,two,three,four,five,six,seven,eight,nine,ten,
    eleven,twelve,thirteen,fourteen,fifteen,sixteen,
    seventeen,eighteen,nineteen

DATAtwenty,thirty,fourty,fifty,sixty,seventy,
    eighty,ninety