home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SPIDER-RACE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  5 lines
  1. 1 M=((M<>0)+1)*100+M:PRINT"[147]HAVE$"M:INPUT"SPIDER";W:INPUT"BET";B:B=((B>M)+1)*B:PRINT"[147]"
  2. 2 FORX=1TO4:S(X)=985+X*160:POKES(X)-1,X+48:POKES(X),42:NEXT:FORX=1TO15:POKE1102+X*40,66:NEXT
  3. 3 X=1+INT(4*RND(1)):S(X)=S(X)+1:POKES(X)-1,32:POKES(X),42:IFPEEK(S(X)-40)<>66GOTO3
  4. 4 M=M+((X=W)*2+1)*(((X=W)*2-1)*B):FORX=1TO200:PRINT"HAVE$"M:NEXT:GOTO1
  5.