home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / MIDIPLAY / KILLSONG (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1994-01-13  |  265 b   |  14 lines  |  [FC] Applesoft BASIC Program (0x0801)
  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"