home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / KILLSONG.BAD.bas < prev    next >
BASIC Source File  |  2020-08-13  |  466b  |  17 lines
  1. 1 PP$ = "/ERIC/MF"
  2. 2 PG$ = "SELECTOR"
  3. 5 RM$ = "/RAMAEPC/"
  4. 90  ONERR  GOTO 115
  5. 100  FOR X = 0 TO 9
  6. 105  PRINT  CHR$(4)"UNLOCK "RM$"T" STR$(X)
  7. 110  PRINT  CHR$(4)"DELETE "RM$"T" STR$(X)
  8. 115  POKE 216,0: ONERR  GOTO 115
  9. 120  NEXT 
  10. 125  ONERR  GOTO 155
  11. 130  FOR X =  ASC("A") TO  ASC("F")
  12. 140  PRINT  CHR$(4)"UNLOCK "RM$"T" CHR$(X)
  13. 150  PRINT  CHR$(4)"DELETE "RM$"T" CHR$(X)
  14. 155  POKE 216,0: ONERR  GOTO 155
  15. 160  NEXT 
  16. 1000  POKE 216,0
  17. 1010  PRINT  CHR$(4)"-"RM$"GOBACK"