home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib33a.dsk
/
FEBRUARY.1988
/
PRACTICE.PFR.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
60 lines
1 REM ************************
2 REM * PRACTICE.PFR *
3 REM * PRODOS FILE RECOVERY *
4 REM * BY SANDY MOSSBERG *
5 REM * COPYRIGHT (C) 1988 *
6 REM * MICROSPARC, INC *
7 REM * CONCORD, MA 01742 *
8 REM ************************
10 REM Volume name of disk is in line 20. Change this name to the name of your test disk.
20 V$ = "/RAM"
30 D$ = CHR$(4)
40 PRINT D$"PREFIX"
50 INPUT P$
60 PRINT D$"PREFIX"V$
70 REM *
80 FOR I = 1 TO 4
90 PRINT D$"CREATE DIR"I
100 NEXT I
110 REM *
120 PRINT D$"BSAVE BIGTREE,A$2000,L1,B$FFFFFF"
130 PRINT D$"BSAVE TINYTREE,A$2000,L1,B$20000"
140 PRINT D$"BSAVE BIGSAP,A$2000,L1,B$1FFFF"
150 PRINT D$"BSAVE TINYSAP,A$2000,L1,B$200"
160 PRINT D$"BSAVE BIGSEED,A$2000,L1,B$1FF"
170 PRINT D$"BSAVE TINYSEED,A$2000,L0"
180 PRINT D$"DELETE BIGTREE"
190 REM *
200 FOR I = 1 TO 15
210 PRINT D$"CREATE DIR1/DIRECTORY.FIL"I
220 NEXT I
230 REM *
240 FOR J = 1 TO 10
250 PRINT D$"SAVE DIR1/FILE"J
260 NEXT J
270 REM *
280 PRINT D$"SAVE DIR2/FILE1"
290 REM *
300 FOR J = 1 TO 10
310 PRINT D$"SAVE DIR4/FILE"J
320 NEXT J
330 REM *
340 FOR J = 1 TO 10
350 PRINT D$"DELETE DIR4/FILE"J
360 NEXT J
370 PRINT D$"DELETE DIR4"
380 REM *
390 PRINT D$"DELETE DIR2/FILE1"
400 REM *
410 FOR J = 1 TO 10
420 PRINT D$"DELETE DIR1/FILE"J
430 NEXT J
440 REM *
450 PRINT D$"DELETE TINYTREE"
460 PRINT D$"DELETE BIGSAP"
470 PRINT D$"DELETE TINYSAP"
480 PRINT D$"DELETE BIGSEED"
490 PRINT D$"DELETE TINYSEED"
500 REM *
510 PRINT D$"PREFIX"P$
520 PRINT CHR$(7)