10DIM SS(10),LL(10),P(-1)
  20PRINT $21
  30[
  40:SS9 RTS
  50:SS0
  60STA (#80),Y
  70EOR @#45;STA #8F;EOR @#45
  80:SS1
  90STA #8D
 100EOR (#80),Y
 110BEQ SS9
 120STA #8A
 130STY #88;LDA #81;STA #89
 140LDA #8D;STA #8B
 150LDA #81;SEC;SBC @#80;LSR A;LSR A
 160TAX;LDA #8A;STA #8300,X
 170STA #8E
 180RTS
 190 
 200:LL9
 210LDA @#84;STA #81
 220LDA @#0 ;STA #80
 230STA #8E
 240LDX @20 \ALLEEN 0-11 ECHT GEBRUIKT
 250:LL0
 260STA #8300,X;DEX;BPL LL0
 270LDY @#0
 280:LL1
 290LDA @#0 ;JSR SS0
 300LDA @#FF;JSR SS0
 310LDA @#85;JSR SS0
 320INY;BNE LL1
 330INC #81;LDA #81;CMP @#98;BCC LL1
 340 
 350LDA @#84;STA #81;LDA @0;STA #80
 360:LL2
 370LDA @#85;JSR SS1
 380INY;BNE LL2
 390INC #81;LDA #81;CMP @#98;BCC LL2
 400RTS
 410]
 420PRINT $6
 430DO
 440PRINT "STARTING RAM TEST"'
 450LINK LL9
 460IF ?#8E=0 PRINT"OK"';GOTO a
 470FOR N=0 TO 5
 480X=(N?#8300) &#0F
 490Y=(N?#8300) &#F0
 500IF X>0 PRINT"RAM FAILURE IN IC "43-2*N-1'
 510IF Y>0 PRINT"RAM FAILURE IN IC "43-2*N'
 520NEXT
 530a
 540UNTIL 0
 550END