![[hackeroid]](../../pic/Hackeroid_x8o.gif)
hscool ONLINE: PITON ][ Sutra
10 REM PITON][.BAS HSCOOL SUTRA
20 MX% = 40:MY% = 24: DIM PX%(255
),PY%(255),S%(MX%,MY%):A$ =
"0123456789ABCDEF": HOME :X%
= (MX% + 1) / 2:Y% = (MY% -
1) / 2:C% = 32:PX%(0) = 2:PY
%(0) = 2:DX% = 1
30 HTAB X% - 4: VTAB Y%: PRINT "
P I": FOR I = 2 TO MY% - 1: HTAB
1: VTAB 1 + MY% - I: PRINT "
!";: HTAB MX%: VTAB I: PRINT
"!";:S%(1,I) = 2:S%(MX%,I) =
2: NEXT
40 HTAB X%: VTAB Y%: PRINT "T O"
: FOR I = 2 TO MX% - 1: HTAB
I: VTAB 1: PRINT "-": HTAB 1
+ MX% - I: VTAB MY%: PRINT
"-";:S%(I,1) = 2:S%(I,MY%) =
2: NEXT : HTAB X% + 4: VTAB
Y%:X% = (MX% - 19) / 2:K% =
PEEK ( - 16384): PRINT "N
50 HTAB X%: VTAB Y% + 2: PRINT "
P R E S S S P A C E";: HTAB
X%: PRINT SPC( 21);: IF PEEK
( - 16384) = K% THEN 50
60 HTAB X%: VTAB Y%: PRINT SPC(
15): GOSUB 210
100 HTAB PX%(PH%): VTAB PY%(PH%)
: PRINT "0":I% = PH% + 1 - 2
56 * (PH% = 255):PX%(I%) = P
X%(PH%) + DX%:PY%(I%) = PY%(
PH%) + DY%: IF S%(PX%(I%),PY
%(I%)) THEN 990
110 IF X% = PX%(I%) AND Y% = PY%
(I%) THEN GOSUB 200
120 HTAB PX%(I%): VTAB PY%(I%): PRINT
"1":PH% = I%:S%(PX%(I%),PY%(
I%)) = 1: IF DT% THEN DT% =
DT% - 1: HTAB 5: VTAB MY%: PRINT
C%"=" MID$ (A$,1 + INT (C% /
16),1) MID$ (A$,1 + C% - INT
(C% / 16) * 16,1)"H*"PH% - P
T% + 256 * (PH% < PT%);: GOTO
140
130 HTAB PX%(PT%): VTAB PY%(PT%)
: PRINT " ":S%(PX%(PT%),PY%(
PT%)) = 0:PT% = PT% + 1 - 25
6 * (PT% = 255)
140 K% = PEEK ( - 16384): IF K% =
193 OR K% > 206 AND K% < 210
THEN DX% = (K% = 208) - (K%
= 207): DY% = (K% = 193) - (
K% = 209)
150 GOTO 100
200 X% = 2 + (MX% - 3) * RND (1)
:Y% = 2 + (MY% - 3) * RND (
1): IF S%(X%,Y%) THEN 200
210 C% = C% + 1 - 63 * (C% = 95):
HTAB X%: VTAB Y%: PRINT CHR$
(C%):DT% = 1: RETURN
990 HTAB (MX% - 21) / 2: VTAB (M
Y% + 1) / 2: PRINT " G A M
E 0 V E R ";: HTAB (MX% -
( - 1 < PEEK ( - 16368))) /
2
995 GET K$: IF " " = K$ THEN RUN
999 IF K$ < > CHR$ (27) THEN 9
95
:
hscool@netclub.ru
