home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / TEST / PRINTSCOR (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-06-20  |  177 b   |  11 lines  |  [FC] Applesoft BASIC Program (0x0801)
  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