home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SCORES / READ.SCORE (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-01-16  |  493 b   |  15 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1 O$ = "-012345678"
  2. 2 N$ = "CdDeEFgGaAbB"
  3. 10 B = 8192
  4. 20  IF  PEEK(B) = 0  THEN  END 
  5. 30  IF  PEEK(B) = 255  THEN  PRINT "/":B = B +1
  6. 100  IF  PEEK(B) = 1  THEN D =  PEEK(B +1) -128:B = B +2
  7. 200  IF  PEEK(B) = 2  THEN D = ( PEEK(B +1) -128) *128 + PEEK(B +2) -128:B = B +3
  8. 250 DU$ =  LEFT$("     ",5 - LEN( STR$(D))) + STR$(D)
  9. 300  IF  PEEK(B) = 3  THEN  PRINT "V"; PEEK(B +1) -128" ";:B = B +2
  10. 400  IF  PEEK(B) = 5  THEN  PRINT "["; PEEK(B +1) -128" ";:B = B +2
  11. 500  IF  PEEK(B) = 6  THEN  PRINT "]"; PEEK(B +1) -128" ";:B = B +2
  12. 550  IF  PEEK(B) = 7  THEN  PRINT "<"; PEEK(B +1) -128" ";:B = B +2
  13. 600  IF  PEEK(B) = 127  THEN  PRINT DU$":";"R ";" ";:B = B +1
  14. 700  IF  PEEK(B) <127  AND  PEEK(B) > = 8  THEN N =  PEEK(B): PRINT DU$":"; MID$ (O$, INT(N/12),1); MID$ (N$,N - INT(N/12) *12 +1,1);" ";:B = B +1
  15. 900  GOTO 20