home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SOURCE / TEST / TESTPDLREAD (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  2001-10-03  |  99 b   |  7 lines  |  [FC] Applesoft BASIC Program (0x0801)

  1. 5  CALL 8192 +4 *256
  2. 7 C = 0
  3. 10  FOR I = 8192 +2 *256 TO 8192 +3 *256 -1
  4. 20  IF  PEEK(I) >127  THEN C = C +1
  5. 30  NEXT I
  6. 40  PRINT C
  7. 50  GOTO 5