[hackeroid] hscool ONLINE: PITON-80 Sutra 
    

10 'Mallard PITON-80.BAS  hscool sutra
20 DEFINT A-Z:MX=90:MY=31:DIM PX(255),PY(255),S(MX,MY):DEF FNXY$(X,Y)=CHR$(27)+"Y"+CHR$(31
+Y)+CHR$(31+X):PRINT CHR$(27)"H"CHR$(27)"J":X=(MX+1)/2:Y=(MY-1)/2:C=32:PX(0)=2:PY(0)=2:DX=
1
30 PRINT FNXY$(X-4,Y)"P I":FOR I=2 TO MY-1:PRINT FNXY$(1,1+MY-I)CHR$(149)FNXY$(MX,I)CHR$(1
49);:S(1,I)=2:S(MX,I)=2:NEXT
40 PRINT FNXY$(X,Y)"T O":FOR I=2 TO MX-1:PRINT FNXY$(I,1)CHR$(154):PRINT FNXY$(1+MX-I,MY)C
HR$(154);:S(I,1)=2:S(I,MY)=2:NEXT:PRINT FNXY$(X+4,Y)"N":X=(MX-19)/2
50 PRINT FNXY$(X,Y+2)"P R E S S   S P A C E":PRINT FNXY$(X,Y+2)SPC(21):IF" "<>INKEY$THEN 5
0 ELSE PRINT FNXY$(X,Y)SPC(15):GOSUB 210
100 PRINT FNXY$(PX(PH),PY(PH))"0":I=255 AND(PH+1):PX(I)=PX(PH)+DX:PY(I)=PY(PH)+DY:IF S(PX(
I),PY(I))THEN 990 ELSE IF X=PX(I)AND Y=PY(I)THEN GOSUB 200
120 PRINT FNXY$(PX(I),PY(I))"1":S(PX(I),PY(I))=1:PH=I:IF DT THEN DT=0:PRINT FNXY$(5,MY)C"=
"HEX$(C)"h*"255 AND(PH-PT);ELSE PRINT FNXY$(PX(PT),PY(PT))" ":S(PX(PT),PY(PT))=0:PT=255 AN
D(PT+1)
140 I=INSTR(" "+CHR$(1)+CHR$(31)+CHR$(30)+CHR$(6),INKEY$):IF I>1 THEN DX=FIX(I-3.5):DY=2*I
-7-3*DX
150 GOTO 100
200 X=2+(MX-3)*RND(1):Y=2+(MY-3)*RND(1):IF S(X,Y)THEN 200
210 C=32+(C-31)MOD 224:PRINT FNXY$(X,Y)CHR$(C):DT=1:RETURN
990 PRINT FNXY$((MX-21)/2,(MY+1)/2);:PRINT"  G A M E   0 V E R  "FNXY$(PX(I),PY(I));
995 K$=INPUT$(1):IF" "=K$THEN RUN ELSE IF K$<>CHR$(27)THEN 995

E-mail: hscool@netclub.ru