home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / MOCKBRD.TST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  213b  |  6 lines
  1. 10 MSG = 9 *4096 +8 *256 +4
  2. 15 MB = 10: REM   OBJ # OF MOCKBRD 
  3. 20  POKE MSG, ASC("I") +128:X =  USR(MB)
  4. 30  INPUT "REG,DATA:";R,D
  5. 40  POKE MSG, ASC("P") +128: POKE MSG +1,R: POKE MSG +2,D:X =  USR(MB)
  6. 50  GOTO 30