1 CLS:PRINT" XR4TS2.BA for M100/102" 2 PRINT" (c) 1989,1992 Tracy Allen, 76670,326 3 PRINT"XR4 memory test--destroys current 4 PRINT"contents of XR... Proceed (Y/N)?" 5 R$=INKEY$:IFR$=""THEN5ELSEIF INSTR("Yy",R$)THEN10ELSEMENU 10 CLS:PRINT"XR memory test.":GOSUB200 15 FORBN=1TO4:OUT128,(BN-1)*8:IFBN=1THEN30 20 PRINTUSING"Bank #) switching.";BN;:PRINTCHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%) 25 IFY%=0THENPRINTUSING"Bank #) Switching error";BN:GOTO50 30 PRINTUSING"Bank #) loading...";BN;:PRINTCHR$(13); 35 L%=1:GOSUB200:CALL 63173,,PEEK(63791)+256*PEEK(63791) 40 PRINTUSING"Bank #) testing...";BN;:PRINTCHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%) 45 PRINTUSING"Bank #) ##### errors detected";BN,Y% 50 NEXTBN 55 PRINT"Wait 1 min., turn on power"CHR$(13);:FORK=1TO500:NEXT:POWEROFF,RESUME 60 PRINTCHR$(27)"lXPower) testing..."CHR$(13);:Y%=0:CALL 63189,,VARPTR(Y%) 65 PRINTUSING"XPower) ##### errors detected";Y% 70 PRINT"space bar->rerun test, other key->MENU"; 75 A$=INKEY$:IFA$=""THEN75ELSEIFA$=" "THENRUNELSEMENU 200 REM m/l loader 210 RESTORE 250:CS=0 215 FOR AD= 63173 TO 63248 220 READ D%:POKE AD,D%:CS=CS+D% 225 NEXT AD 230 IF CS<> 12135 THEN BEEP :PRINT"Typo in data!!?" 235 RETURN 250 DATA 34,241,246,205,240,246,113,205,252,246 251 DATA 202,203,246,195,235,246,229,17,0,0 252 DATA 205,240,246,126,185,202,226,246,19,205 253 DATA 252,246,202,220,246,235,209,217,175,211 254 DATA 232,251,201,1,179,21,33,0,0,62 255 DATA 1,243,211,232,201,120,230,96,55,226 256 DATA 4,247,63,121,23,79,120,23,230,127 257 DATA 71,35,124,230,128,201