Apple-2-SW/Apple-II_DOND
1
0
Fork 0
mirror of https://github.com/SweepingDeveloper/Apple-II_DOND.git synced 2024-12-21 19:29:17 +00:00
Code Issues Projects Releases Wiki Activity

Update code.txt

Browse Source 
Allowed the player to counter-offer in subsequent games, before, once you used the counter-offer, you couldn't use it again in subsequent games.

Cleared an extra line because the counter-offer prompts took four lines of text.
This commit is contained in:
SweepingDeveloper 2024-10-11 17:00:57 -05:00 committed by GitHub
parent ea506d7b5c
commit e01df9c709
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code.txt
View File

@ -99,7 +99,7 @@
945 IF PAK$ = "C" AND CO = 1 THEN GOTO 4000
950 R = R + 1
955 IF R = 10 THEN GOTO 2000
960 FOR A = 17 TO 20: VTAB A: HTAB 1: FOR B = 1 TO 40: PRINT " ";: NEXT B: NEXT A
960 FOR A = 17 TO 21:VTAB A: HTAB 1: FOR B = 1 TO 40: PRINT " ";: NEXT B: NEXT A
970 GOTO 520
1000 DATA 1,2,5,10,25,50,75,100,200,300,400,500,750,1000,5000,10000,25000,50000,75000,100000,200000,300000,400000,500000,750000,1000000
1010 DATA 6,5,4,3,2,1,1,1,1
@ -156,6 +156,7 @@
3250 RS = 1
3260 CTG(0) = 6:CTG(1) = 5:CTG(2) = 4:CTG(3) = 3:CTG(4) = 2
3270 FOR A = 5 TO 8:CTG(A) = 1: NEXT A
3275 CO = 1
3280 GOTO 70
4000 REM *** COUNTER OFFER ***
4005 IF CO = 1 THEN CO = 0