Set of Apple II Hard Drive Images/eric.hdv/ERIC/TEST/STEPTEST

Applesoft BASIC Source Code | 1995-12-13 | 161 b | 8 lines | [FC] Applesoft BASIC Program (0x0801)

5 M = 9 *4096 +5 *256 +4
6  POKE M, ASC("P") +128: POKE M +1,0: POKE M +2,0: POKE M +3,0
7  POKE M +4,0
10  GET A$
15 X =  USR(6)
17  PRINT "RC=";X;" DT=";
20  PRINT  PEEK(M +1)" " PEEK(M +2)" " PEEK(M +3)" " PEEK(M +4)
30  GOTO 10