rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-18 16:16:32 -05:00
Code

Fixed some typos (note that these typos are not present in the original book) (#1)

Browse Source 
* Update BLKJAC.BAS

* Update BULCOW.BAS
This commit is contained in:
ssolle 2024-11-19 03:03:17 +02:00 committed by GitHub
parent a049b93325
commit c1c3ab9037
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dec/BLKJAC.BAS
View File

@ -161,7 +161,7 @@
825 GOTO 660 825 GOTO 660
830 IF V(1)<>2 THEN 855 830 IF V(1)<>2 THEN 855
835 IF V(3)=2 THEN 850 835 IF V(3)=2 THEN 850
840 PRINT"TOO LATE TO DOUBLE, VHARLIE." 840 PRINT"TOO LATE TO DOUBLE, CHARLIE."
845 GOTO 660 845 GOTO 660
850 LET W(P)=2*W(P) 850 LET W(P)=2*W(P)
855 IF V(1)>0 THEN 430 855 IF V(1)>0 THEN 430

2
dec/BULCOW.BAS
View File

@ -32,7 +32,7 @@
220 FORI=0TOP-1:IFD(A,I)=D(A,P)GOTO210 220 FORI=0TOP-1:IFD(A,I)=D(A,P)GOTO210
230 NEXTI 230 NEXTI
240 NEXTP 240 NEXTP
250 IFA=0GGOTO30 250 IFA=0GOTO30
260 LETJ=1:GOTO70 260 LETJ=1:GOTO70
300 LETV=0:LETW=0 300 LETV=0:LETW=0
310 FORI=0TOP:IFD(A,I)=G(I)THENLETV=V+1 310 FORI=0TOP:IFD(A,I)=G(I)THENLETV=V+1