diff options
| author | William Harrington <kb0iic@berzerkula.org> | 2019-11-25 15:33:42 -0600 |
|---|---|---|
| committer | William Harrington <kb0iic@berzerkula.org> | 2019-11-25 15:33:42 -0600 |
| commit | 36f8fb77eadcc71667cd3b8188fd59608e167f60 (patch) | |
| tree | 4ffd0ac52670d9eced27cb57f5a5f0d34667c5b8 | |
| parent | 271dfffba272b1babb01b254be8bf95bbb97c2b7 (diff) | |
Fix some message issues.
| -rw-r--r-- | sc126/BASIC/MESSAGES.BAS | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sc126/BASIC/MESSAGES.BAS b/sc126/BASIC/MESSAGES.BAS index 8d23d28..4daeb14 100644 --- a/sc126/BASIC/MESSAGES.BAS +++ b/sc126/BASIC/MESSAGES.BAS @@ -20,7 +20,7 @@ 53 IF (X AND 4) = 4 THEN GOSUB 1200 54 IF (X AND 8) = 8 THEN GOSUB 1300 55 IF (X AND 16) = 16 THEN GOSUB 1400 -56 IF (X AND 32) = 32 THEN GOSUB 1400 +56 IF (X AND 32) = 32 THEN GOSUB 1500 57 IF (X AND 64) = 64 THEN GOSUB 1600 58 IF (X AND 128) = 128 THEN PRINT "NO MESSAGE" 100 FOR Z = 0 TO DELAY : NEXT Z @@ -40,7 +40,7 @@ 1400 OUT &H20, &HDE : OUT &H21, &HAD : OUT &H22, &HBE : OUT &H23, &HA7 1410 GOSUB 2000 1420 RETURN -1500 OUT &H20, &HF0 : OUT &H21, &H5 : OUT &H22, &HBA : OUT &H23, &H11 +1500 OUT &H20, &HF0 : OUT &H21, &H07 : OUT &H22, &HBA : OUT &H23, &H11 1510 GOSUB 2000 1520 RETURN 1600 OUT &H20, &HEA : OUT &H21, &H75 : OUT &H22, &HF0 : OUT &H23, &HD |