home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / STEPTEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  231b  |  8 lines
  1. 5 M = 9 *4096 +5 *256 +4
  2. 6  POKE M, ASC("P") +128: POKE M +1,0: POKE M +2,0: POKE M +3,0
  3. 7  POKE M +4,0
  4. 10  GET A$
  5. 15 X =  USR(6)
  6. 17  PRINT "RC=";X;" DT=";
  7. 20  PRINT  PEEK(M +1)" " PEEK(M +2)" " PEEK(M +3)" " PEEK(M +4)
  8. 30  GOTO 10