home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MIDI2 / DISPLAY.MIDI (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-10-27  |  232 b   |  16 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 I = 8192
  2. 15  IF  PEEK(I) < >0  THEN  PRINT 
  3. 20  IF  PEEK(I) <128  THEN  PRINT "D=" PEEK(I);: GOTO 30
  4. 25  PRINT "D="( PEEK(I) -128) *128 + PEEK(I +1);
  5. 27 I = I +1
  6. 30 I = I +1
  7. 31  HTAB 10: IF  PEEK(I) <128  THEN 34
  8. 32  PRINT "C="; PEEK(I);
  9. 33 I = I +1
  10. 34  HTAB 20
  11. 35  PRINT "N="; PEEK(I);
  12. 37 I = I +1
  13. 39  HTAB 30
  14. 40  PRINT "V="; PEEK(I)
  15. 45 I = I +1
  16. 50  GOTO 15