diff options
Diffstat (limited to 'sc126/BASIC')
| -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 |