home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / REC6 / SQUEEZE.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  681b  |  14 lines
  1. 10 P1 = 8192 +4
  2. 20 P2 = 16384
  3. 30  INPUT "RH FILE TO LOAD:";F$
  4. 32  IF  RIGHT$(F$,2) < >"RH"  THEN 30
  5. 35  PRINT  CHR$(4)"BLOAD "F$",A"P1 -4
  6. 40  IF  PEEK(P1) = 0  AND  PEEK(P1 +1) = 255  AND  PEEK(P1 +2) = 47  AND  PEEK(P1 +3) = 0  THEN 900
  7. 45  PRINT  PEEK(P1)" " PEEK(P1 +1)" " PEEK(P1 +2)" " PEEK(P1 +3)
  8. 50  IF  PEEK(P1) = 128  THEN  POKE P2, PEEK(P1 +1):P2 = P2 +1: GOTO 70
  9. 60  POKE P2, PEEK(P1): POKE P2 +1, PEEK(P1 +1):P2 = P2 +2
  10. 70  POKE P2,144: POKE P2 +1, PEEK(P1 +2): POKE P2 +2, PEEK(P1 +3):P2 = P2 +3
  11. 80 P1 = P1 +4
  12. 90  GOTO 40
  13. 900  POKE P2,0: POKE P2 +1,255: POKE P2 +2,47: POKE P2 +3,0:P2 = P2 +4:L = P2 -16384
  14. 910  PRINT  CHR$(4)"BSAVE " LEFT$(F$, LEN(F$) -1)",A$4000,L"L