home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / dos / pcs.lzh / TRANSFER.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1982-11-04  |  384 b   |  14 lines
  1. 65000  KEY OFF:SCREEN 0,1:KEY(2) ON:ON KEY(2) GOSUB 65080:COLOR 7,0:WIDTH 80
  2. 65010  CLS:LOCATE  ,  ,0:PRINT"INSERT THE NEXT PROGRAM DISKETTE"
  3. 65020  PRINT" PRESS THE SPACE BAR TO CONTINUE ":COLOR 23
  4. 65022  PRINT STRING$(32,196):COLOR 7
  5. 65025  K$=INKEY$:IF K$="" THEN 65025
  6. 65030  P$="CONTROL.BAS"
  7. 65040  ON ERROR GOTO 65070:ERRSW=0
  8. 65050  OPEN "I",1,P$ 'TRY PRIMARY
  9. 65060  IF ERRSW=0 THEN RUN P$
  10. 65062  WIDTH 80:CLS
  11. 65068  SYSTEM
  12. 65070  ERRSW=-1:RESUME NEXT
  13. 65080  SYSTEM
  14.