Listing of file='WORM' on disk='vmedia/games-droz00.wvd.zip'
# Sector 336, program filename = 'WORM'
0010 DIM X$(25)2,E$(1)2,X$2,R$(16)1,C$(64)1,W$(16)64,A$2,B$2,C$2
: GOTO 100
0020 I0=I+I1
: J0=J+J1
: IF I0<1THEN 40
: IF I0>16THEN 40
: IF J0<1THEN 40
: IF J0>64THEN 40
: BIN(X$)=I0
: BIN(STR(X$,2))=J0
: MAT SEARCHX$(),=STR(X$,1,2)TO E$()STEP 2
: IF E$(1)>HEX(0000)THEN 40
: I=I0
: J=J0
: RETURN CLEAR
0040 RETURN
0050 GOSUB 20
: I1=-I1
: J1=-J1
: GOSUB 20
: K=I1
: I1=J1
: J1=K
: GOSUB 20
: I1=-I1
: J1=-J1
: GOSUB 20
: BIN(X$)=I
: BIN(STR(X$,2))=J
: RETURN
0060 C$=B$
: B$=A$
: ADDC(A$,C$)
: IF A$>HEX(2000)THEN 50
: K=I1
: I1=J1
: J1=K
: IF A$>HEX(1000)THEN 50
: I1=-I1
: J1=-J1
: GOTO 50
0070 X$=X$(25)
: PRINT AT(VAL(X$)-1,VAL(STR(X$,2))-1);
: $GIO/005(A0004008,I$)W$(VAL(X$))<VAL(STR(X$,2)),1>
: GOSUB 60
: MAT COPY -X$()<1,48>TO -X$()<3,48>
: X$(1)=X$
: PRINT AT(VAL(X$)-1,VAL(STR(X$,2))-1);
: $GIO/005(404F4008,I$)
: GOTO 70
0100 SELECT PRINT 405(200)
: INIT(0A)R$()
: R$(1)=HEX(01)
: INIT(09)C$()
: C$(1)=HEX(0D)
: I1=0
: J1,I,J=1
: PRINT HEX(03)
: INIT(01)X$(),A$,B$
0101 W$(1) = "................................................................
...."
0102 W$(2) = ".....******************************************************.....
...."
0103 W$(3) = "....*......................................................*....
...."
0104 W$(4) = "..*....****........****....***.....***....****...*****......*...
...."
0105 W$(5) = ".*......**..........**....**.**.....**....**...**....**......*..
...."
0106 W$(6) = "*.......**..........**...**...**....***...**..**......**......*.
...."
0107 W$(7) = "*.......**....**....**..**.....**...**.*..**..**..............*.
...."
0108 W$(8) = "*.......**....**....**..*********...**..*.**..**....*****.....*.
...."
0109 W$(9) = "*.......**....**....**..**.....**...**...***..**....*.**......*.
...."
0110 W$(10)= "*........**..****..**...**.....**...**....**..**......**......*.
...."
0111 W$(11)= ".*........****..****....**.....**...**....**...**....**......*..
...."
0112 W$(12)= "..*........**....**....****...****.****...***...*******.....*...
...."
0113 W$(13)= "...*.......................................................*....
...."
0114 W$(14)= "....*.......................H.I.L.D.A.....................*.....
...."
0115 W$(15)= ".....*****************************************************......
...."
0116 W$(16)= "................................................................
...."
0120 GOTO 70