5 ! RAMTEST
6 INTEGER : EXTEND 
10 COMMON A$=250
15 ; CUR(24,0) YEL 'Avbryt med "RETURN"'+SPACE$(60)
20 OUT 54,128
30 A$=''
40 FOR A=1 TO 90
50   READ X : A$=A$+CHR$(X)
60 NEXT A 
70 E=(E+1) AND 255
80 D=-32768
90 WHILE D<-24576
100   ; 'Test at ' (D AND 32767)/256;
110   C=C+CALL(32778,D+E)
120   ; TAB(20) ' ERRCOUNT = ' C
130   D=D+256
135   IF SYS(8)=-1 THEN GET B$ : GOTO 136 ELSE 140
136   IF ASCII(B$)=13 THEN 160 ELSE 140
140 WEND 
150 GOTO 70
160 POKE -6,0 : ; CALL(0)
1000 DATA 1,52,144,243,237,81,122
1010 DATA 98,131,107,17,0,144,1
1020 DATA 8,0,18,47,19,18,237
1030 DATA 68,19,16,247,60,13,32
1040 DATA 243,124,133,33,0,144,17
1050 DATA 0,0,1,8,0,190,40,1
1060 DATA 19,47,35,190,40,1,19
1070 DATA 237,68,35,16,241,60,13
1080 DATA 32,237,98,107,1,52,0
1090 DATA 237,73,251,201,0,0,0
1100 DATA 0,0,0,0,0,0,0,0,0,0
1110 DATA 0,0,0,0,0,0,0,0,0,0