home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / FEBRUARY.1988 / PRACTICE.PFR.bas < prev   
BASIC Source File  |  2023-02-26  |  2KB  |  60 lines
  1. 1  REM  ************************
  2. 2  REM  * PRACTICE.PFR         *
  3. 3  REM  * PRODOS FILE RECOVERY *
  4. 4  REM  * BY SANDY MOSSBERG    *
  5. 5  REM  * COPYRIGHT (C) 1988   *
  6. 6  REM  * MICROSPARC, INC      *
  7. 7  REM  * CONCORD, MA 01742    *
  8. 8  REM  ************************
  9. 10  REM  Volume name of disk is in line 20. Change this name to the name of your test disk.
  10. 20 V$ = "/RAM"
  11. 30 D$ =  CHR$(4)
  12. 40  PRINT D$"PREFIX"
  13. 50  INPUT P$
  14. 60  PRINT D$"PREFIX"V$
  15. 70  REM  *
  16. 80  FOR I = 1 TO 4
  17. 90  PRINT D$"CREATE DIR"I
  18. 100  NEXT I
  19. 110  REM  *
  20. 120  PRINT D$"BSAVE BIGTREE,A$2000,L1,B$FFFFFF"
  21. 130  PRINT D$"BSAVE TINYTREE,A$2000,L1,B$20000"
  22. 140  PRINT D$"BSAVE BIGSAP,A$2000,L1,B$1FFFF"
  23. 150  PRINT D$"BSAVE TINYSAP,A$2000,L1,B$200"
  24. 160  PRINT D$"BSAVE BIGSEED,A$2000,L1,B$1FF"
  25. 170  PRINT D$"BSAVE TINYSEED,A$2000,L0"
  26. 180  PRINT D$"DELETE BIGTREE"
  27. 190  REM  *
  28. 200  FOR I = 1 TO 15
  29. 210  PRINT D$"CREATE DIR1/DIRECTORY.FIL"I
  30. 220  NEXT I
  31. 230  REM  *
  32. 240  FOR J = 1 TO 10
  33. 250  PRINT D$"SAVE DIR1/FILE"J
  34. 260  NEXT J
  35. 270  REM  *
  36. 280  PRINT D$"SAVE DIR2/FILE1"
  37. 290  REM  *
  38. 300  FOR J = 1 TO 10
  39. 310  PRINT D$"SAVE DIR4/FILE"J
  40. 320  NEXT J
  41. 330  REM  *
  42. 340  FOR J = 1 TO 10
  43. 350  PRINT D$"DELETE DIR4/FILE"J
  44. 360  NEXT J
  45. 370  PRINT D$"DELETE DIR4"
  46. 380  REM  *
  47. 390  PRINT D$"DELETE DIR2/FILE1"
  48. 400  REM  *
  49. 410  FOR J = 1 TO 10
  50. 420  PRINT D$"DELETE DIR1/FILE"J
  51. 430  NEXT J
  52. 440  REM  *
  53. 450  PRINT D$"DELETE TINYTREE"
  54. 460  PRINT D$"DELETE BIGSAP"
  55. 470  PRINT D$"DELETE TINYSAP"
  56. 480  PRINT D$"DELETE BIGSEED"
  57. 490  PRINT D$"DELETE TINYSEED"
  58. 500  REM  *
  59. 510  PRINT D$"PREFIX"P$
  60. 520  PRINT  CHR$(7)