RetroRepos/Atari
RetroRepos
/
Atari
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

not-equals brackets must be consecutive

This commit is contained in:
Greg Gauthier 2023-07-07 20:48:23 +01:00
parent 0bccdf37b9
commit 232a3a16d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
HDISK/BASIC/MEMTEST.BAS
View File

@ -8,7 +8,7 @@
299 REM READ IN THE MACHINE LANGUAGE PROGRAM
300 GOSUB 2900
399 REM GET LOW AND HIGH MEMORY BOUNDS
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)< >NO THEN L = L + N256
400 L = PEEK(15) * N256 : H = PEEK(742) * N256 : IF PEEK(14)<>NO THEN L = L + N256
499 REM DISPLAY BOUNDS AND GET REPLY
500 ? CHR$(125); S$; "ATARI MEMORY TEST PROGRAM"; CHR$(155); S$; "MEMORY BOUNDS ARE"
600 ? S$; "LOW = "; L : ? S$; "HIGH = "; H
@ -38,7 +38,7 @@
2200 PASS = PASS + N1 : ? " GOOD PASS NUMBER "; PASS : SOUND NO, PASS, 10, 8
2300 FOR I = N1 TO 5 : NEXT I : SOUND NO, NO, NO, NO
2399 REM STOP AND DISPLAY STUFF IF KEY IS PRESSED
2400 IF PEEK(764)< >N255 THEN 2600
2400 IF PEEK(764)<>N255 THEN 2600
2499 REM CONTINUE WITH NEXT PASS
2500 GOTO 1100
2600 POKE 764, N255