home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / eme / memtst.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  37 lines
  1. 1  REM program MEMTST.BA for T200,
  2. 2  REM (c) 1989 Tracy Allen, 76670,326
  3. 5  CLS:PRINT"ExtRAM memory test--destroys current
  4. 6  INPUT"contents of extRAM... Proceed (Y/N)";R$
  5. 7  IF INSTR("Yy",R$) THEN 10 ELSE MENU
  6. 10 CLS:PRINT"Extram memory test.  When your T200"
  7. 15 PRINT"turns itself OFF, wait one minute,"
  8. 20 PRINT"    ...then turn it back ON."
  9. 25 PRINT"loading...  ";
  10. 30 GOSUB 100
  11. 35 L%=1:CALL 61360,,PEEK(61983)+256*PEEK(61983)
  12. 40 PRINT"testing..."
  13. 45 Y%=0:CALL 61376,,VARPTR(Y%)
  14. 50 PRINTUSING"test #) ##### errors detected";L%,Y%
  15. 55 IFL%=2THEN70
  16. 60 L%=2:FORI=1TO1000:NEXTI
  17. 65 POWEROFF,RESUME:GOTO40
  18. 70 PRINT"space bar->rerun test, other key->MENU";
  19. 75 A$=INKEY$:IFA$=""THEN75
  20. 80 IF A$=" " THEN 10 ELSE MENU
  21. 100 REM m/l loader
  22. 110 RESTORE150:CS=0
  23. 115 FOR AD= 61360 TO 61442 
  24. 120 READ D%:POKE AD,D%:CS=CS+D%
  25. 125 NEXT AD
  26. 130 IF CS<> 13472 THEN BEEP :PRINT"Typo in data!!?":END
  27. 135 RETURN
  28. 150 DATA 34,223,239,205,222,239,113,205,238,239
  29. 151 DATA 202,182,239,195,214,239,229,17,0,0
  30. 152 DATA 205,222,239,126,185,202,205,239,19,205
  31. 153 DATA 238,239,202,199,239,235,209,217,219,216
  32. 154 DATA 230,12,211,216,251,201,1,179,21,33
  33. 155 DATA 0,0,243,219,216,230,12,246,2,211
  34. 156 DATA 216,201,120,230,96,55,226,246,239,63
  35. 157 DATA 121,23,79,120,23,230,127,71,35,124
  36. 158 DATA 230,128,201
  37.