home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / MIDIPLOT.bas < prev    next >
BASIC Source File  |  2020-08-13  |  343b  |  13 lines
  1. 10  GR 
  2. 15  PRINT "CHNL: 0-15  NOTE:0-127"
  3. 20  FOR C = 0 TO 15: FOR N = 0 TO 119
  4. 25  IF C <0  OR C >15  OR N <0  OR N >119  THEN  PRINT "OUT OF RANGE": GOTO 15
  5. 30 O =  INT(N/12)
  6. 35 R = N -(O *12)
  7. 40 LY =  INT(C/4)
  8. 45 LX = C -(LY *4)
  9. 50 X = 4 *O +LX
  10. 60 Y = 45 -(R *4) -1 +LY
  11. 70  COLOR= C: IF C = 0  THEN  COLOR= 15
  12. 80  PLOT X,Y
  13. 90  NEXT : NEXT