home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / TEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  597b  |  16 lines
  1. 1 RM$ = "/RAMAEPC/"
  2. 2 ME$ = "/ERIC/TEST/"
  3. 10  PRINT "SETTING UP TEST ENVIRONMENT"
  4. 12  PRINT  CHR$(4)"-"ME$"INTRUPT.OBJ"
  5. 17  REM      CHR$ (4)"-/ERIC/COPY"  
  6. 20  PRINT  CHR$(4)"UNLOCK "RM$"MULTI.OBJ"
  7. 25  PRINT  CHR$(4)"UNLOCK "RM$"MULTIPLAY"
  8. 30  PRINT  CHR$(4)"DELETE "RM$"MULTI.OBJ"
  9. 35  PRINT  CHR$(4)"DELETE "RM$"MULTIPLAY"
  10. 40  PRINT  CHR$(4)"COPY "ME$"MULTI.OBJ,"RM$"MULTI.OBJ"
  11. 45  PRINT  CHR$(4)"COPY "ME$"MULTIPLAY,"RM$"MULTIPLAY"
  12. 60  PRINT  CHR$(4)"BRUN /ERIC/MF/PIANO.2800"
  13. 70  VTAB 21: POKE 34,20
  14. 80  PRINT  CHR$(4)"BRUN "ME$"DISPCNTL.OBJ"
  15. 90  TEXT : HOME 
  16. 100  PRINT  CHR$(4)"-"RM$"LISTEN"