home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
shwtxt19.zip
/
GUESS.ST
< prev
next >
Wrap
Text File
|
1995-03-15
|
555b
|
9 lines
'NUMBER GUESSING GAME
ON INTKEY0 ESC GOTO Q\COPY(GUESS,1)\C@12,16\:N\CLS7,0\WT.5\CSR(12,16,18,65)
%S=[RND1TO50]\COPY(1,0)[RND0TO64]\%Q=1\%L=0\%H=51\:S\ATTR62\P@17,40\!%Q,1
BFILL0(12,16,12,%L+15)ATTR60\BFILL0(12,%H+15,12,65)ATTR60\:I\CSR\WK
IF[.18:16:18:25]N\IF[.18:58:18:65]Q\IF`[.12:16:12:65]I\%G=[.C]-15\ATTR31\CSR OFF
IF %G<=%L|%G>=%H I\IF %G=%S W\IF %Q=5 L\%Q++\IF %G>%S M\%L=%G\GT S\:M\%H=%G
GT S\:W\WINDOW(11,33,15,47)100\P@13,37\!"YOU WIN"\P@14,39\!%S,2Q\:W1\WK\GT N
:L\WINDOW(14,33,18,47)100\P@16,34\!"NUMBER WAS ";\!%S,2Q\GT W1\:Q\EXITC