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