rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2025-02-20 23:47:22 -05:00
Code

Fixed HEX.BAS

Browse Source 
(cherry picked from commit 408a346a5947421106c11d893d0514b569f51bd8)
This commit is contained in:
ssolle 2025-02-13 18:20:02 +02:00 committed by Renaud Fivet
parent d07728fc17
commit 2cede82f52
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dec/HEX.BAS
View File

@ -42,7 +42,7 @@
PRINT "YOU WIN.": GOTO 500
300 P%=P%+2% ! COMPUTER'S MOVE
310 FOR C%=1% TO Q%: C$=P$(C%): IF VAL(LEFT(C$,1%))=P% AND
MID(C$,2%,9%)=P$ THEN M$=RIGHT(C$,11%) GOTO 400
MID(C$,2%,9%)=P$ THEN M$=RIGHT(C$,11%): GOTO 400
320 NEXT C%: Q$="*": D%=1%: GOSUB 2000: C%=Q%:
IF M$="" THEN PRINT "I CAN'T MOVE, YOU WIN.": GOTO 500
400 IF M$="" THEN PRINT "I RESIGN.": GOTO 500
@ -60,7 +60,7 @@
& "I HAVE WON" W1% "AND YOU HAVE WON" W2% "OF" W1%+W2% "GAMES"
530 INPUT "ANOTHER GAME"; C$: IF C$="NO" THEN 9999 ELSE 120
900 ! DATA**= <- OF MOVE IN GAME><POSITION><LIST OF MOVES>
IN <POSITION>, -=BLANK, *=COMPUTER'S PAWN, O=PLAYERS'S PAWN
IN <POSITION>, -=BLANK, *=COMPUTER'S PAWN, O=PLAYER'S PAWN
<LIST OF MOVES> IS <- MOVE FROM><- MOVE TO><LIST OF MOVES>
2000 M$=""
2010 FOR J%=1% TO 9%: IF MID(P$,J%,1%)<>Q$ THEN 2050
@ -73,7 +73,7 @@
2030 IF INSTR(1%,Q$+"-",MID(P$,T%,1%))=0% THEN
M$=M$+FNN$(J%)+FNN$(T%)
2035 T%=J%+D%*4%: IF T%<1% OR T%>9% OR J%=3% OR J%=7% THEN 2050
2040 IF INSTR(1%,Q$+"-", MID(P$,T%,1%))=0% THEN
2040 IF INSTR(1%,Q$+"-",MID(P$,T%,1%))=0% THEN
M$=M$+FNN$(J%)+FNN$(T%)
2050 NEXT J%: IF D%=1% AND M$<>"" THEN Q%=Q%+1%: P$(Q%)=FNN$(P%)+P$+M$
2060 RETURN