image of READY prompt

Wang2200.org

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