home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / F-READ.XB < prev    next >
Text File  |  2006-10-19  |  2KB  |  56 lines
  1. 160 ON WARNING NEXT :: ON ERROR 560 :: CALL SCREEN(5)
  2. 170 DISPLAY AT(10,7)ERASE ALL:RPT$("*",18):TAB(7);"* FILE RETRIEVAL *":TAB(7);RP
  3. T$("*",18):: DISPLAY AT(23,1):"by Tom Burke" :: FOR A=1 TO 400 :: NEXT A
  4. 180 DISPLAY AT(1,1)ERASE ALL:"WHAT TYPE OF FILE?":"":"":"1- DISPLAY/VARIABLE":"2
  5. - DISPLAY/FIXED":"3- INTERNAL/VARIABLE":"4- INTERNAL/FIXED":"":"5- END PROGRAM"
  6. 190 DISPLAY AT(11,1):"FILE TYPE = " :: ACCEPT AT(11,13)BEEP SIZE(-1)VALIDATE("12
  7. 345"):TY
  8. 200 IF TY=5 THEN 600
  9. 210 DISPLAY AT(13,1):"FILE LENGTH =" :: ACCEPT AT(13,14)BEEP VALIDATE(DIGIT):F
  10. 220 DISPLAY AT(15,1):"ENTER 'device.filename'" :: ACCEPT AT(16,10)BEEP:FILE$
  11. 230 DISPLAY AT(18,1):"TO EXTERNAL PERIPHERAL?":TAB(14);"N" :: ACCEPT AT(19,14)BE
  12. EP VALIDATE("YN")SIZE(-1):PV$
  13. 240 IF PV$="N" THEN GOSUB 590
  14. 250 IF TY=1 THEN GOSUB 440 :: GOTO 290
  15. 260 IF TY=2 THEN GOSUB 460 :: GOTO 290
  16. 270 IF TY=3 THEN GOSUB 480 :: GOTO 290
  17. 280 IF TY=4 THEN GOSUB 500 :: GOTO 290
  18. 290 IF PV$="N" THEN 360
  19. 300 DISPLAY AT(20,1):"WHERE TO?" :: ACCEPT AT(22,1)BEEP:P$
  20. 310 OPEN #2:P$,OUTPUT,DISPLAY
  21. 320 IF (TY=1)+(TY=2)THEN GOSUB 520 ELSE GOSUB 540
  22. 330 IF EOF(1)THEN CLOSE #2 :: GOTO 400
  23. 340 PRINT #2:A$
  24. 350 GOTO 320
  25. 360 IF (TY=1)+(TY=2)THEN GOSUB 520 ELSE GOSUB 540
  26. 370 IF EOF(1)THEN 400
  27. 380 PRINT A$
  28. 390 CALL KEY(0,K,S):: IF S=1 THEN 390 :: IF K=32 THEN 580 ELSE 360
  29. 400 CLOSE #1 :: PRINT :: INPUT "DO YOU WANT TO DELETE       THIS FILE? ":Z$ :: I
  30. F Z$="Y" THEN 420 ELSE 410
  31. 410 IF Z$<>"N" THEN 400 ELSE 430
  32. 420 DELETE FILE$
  33. 430 GOTO 160
  34. 440 OPEN #1:FILE$,INPUT ,DISPLAY ,VARIABLE F
  35. 450 RETURN
  36. 460 OPEN #1:FILE$,INPUT ,DISPLAY ,FIXED F
  37. 470 RETURN
  38. 480 OPEN #1:FILE$,INPUT ,INTERNAL,VARIABLE F
  39. 490 RETURN
  40. 500 OPEN #1:FILE$,INPUT ,INTERNAL,FIXED F
  41. 510 RETURN
  42. 520 LINPUT #1:A$
  43. 530 RETURN
  44. 540 INPUT #1:A$
  45. 550 RETURN
  46. 560 CALL SOUND(-650,-3,0,500,6)
  47. 570 DISPLAY AT(12,1)ERASE ALL:"YOU HAVE JUST ENCOUNTERED   AN ERROR.  PLEASE CHE
  48. CK YOURINPUT AND TRY AGAIN." :: FOR T=1 TO 900 :: NEXT T :: GOTO 160
  49. 580 CALL KEY(0,K,S):: IF S=0 THEN 580 :: IF S=-1 THEN 580 :: IF K=32 THEN 360 EL
  50. SE 400
  51. 590 DISPLAY AT(21,1):"SPACEBAR STOPS & STARTS     LISTING, ANY OTHER ABORTS.":"-
  52. ---------------------------" :: RETURN
  53. 600 ON ERROR 610 :: CLOSE #1
  54. 610 ON ERROR 620 :: CLOSE #2
  55. 620 END
  56.