home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / BKGND.TST2.bas < prev    next >
BASIC Source File  |  2020-08-13  |  452b  |  10 lines
  1. 5  PRINT  CHR$(4)"-/HARD/PROJECT/PIANO.2800": POKE 34,20: HOME 
  2. 7 TM = 2048
  3. 10 MSG =  PEEK(11) + PEEK(12) *256 +4
  4. 15  POKE MSG, ASC("I") +128
  5. 20  PRINT "INITIALIZING: PIANOSCR:"; USR(9);" INTRFACE:"; USR(16)
  6. 30  POKE MSG, ASC("Z") +128
  7. 40  PRINT "TIMER:"; USR(16);
  8. 50  POKE MSG, ASC("T") +128: POKE MSG +1, INT(TM/256): POKE MSG +2,TM - INT(TM/256) *256: PRINT " TEMPO:"; USR(16);
  9. 60  POKE MSG, ASC("H") +128: POKE MSG +1,6
  10. 70  PRINT " HOOK:"; USR(16);