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