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