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