home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SCORES / CONVERTER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-12-14  |  265 b   |  12 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 2  HGR : VTAB 24
  2. 5  PRINT "FORMAT CONVERTER": PRINT 
  3. 10  INPUT "FILENAME: ";F$
  4. 20  PRINT  CHR$(4)"BLOAD "F$",A$4000"
  5. 25 P = 16384:SQ = 8192
  6. 30  IF  PEEK(P) = 255  THEN  POKE SQ,255: GOTO 45
  7. 35  IF  PEEK(P) > = 128  THEN  POKE SQ,255:SQ = SQ +1
  8. 40  POKE SQ, PEEK(P) -128 *( PEEK(P) >128)
  9. 45 SQ = SQ +1
  10. 50  IF  PEEK(P) < >0  THEN P = P +1: GOTO 30
  11. 80  PRINT "]BSAVE "F$",A$2000,E"SQ
  12. 99  END