home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / TEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  172b  |  7 lines
  1. 5 BAS =  PEEK(11) + PEEK(12) *256 +4
  2. 10  ONERR  GOTO 99
  3. 20  READ X$: POKE BAS, ASC(X$) +128
  4. 30  READ B:C = C +1: POKE BAS +C,B
  5. 40  GOTO 30
  6. 99  END 
  7. 100  DATA  X,3,144,60,64