home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / PRINTSCOR.bas < prev    next >
BASIC Source File  |  2020-08-13  |  257b  |  11 lines
  1. 1 S$ = "cCdDefFgGaAb"
  2. 2 F$ = "CdDeEFgGaAbB"
  3. 3 K$ = S$
  4. 10 B = 8192
  5. 20  IF  PEEK(B) = 255  THEN  PRINT : PRINT : GOTO 100
  6. 25  IF  PEEK(B) = 0  THEN 110
  7. 30 N =  PEEK(B)
  8. 40  HTAB N -24
  9. 50  PRINT  MID$ (K$,N - INT(N/12) *12 +1,1);
  10. 100 B = B +1: GOTO 20
  11. 110  END