Category : File Managers
Archive   : RENDIR.ZIP
Filename : RENDIR.BAS

 
Output of file : RENDIR.BAS contained in archive : RENDIR.ZIP

100 'RENDIR.BAS: Program to create RENDIR.COM which uses DOS 3.0 or later
101 'to rename subdirectories. From PC Magazine Vol 5 No 7 April 15, 1986
102 'by John Dickinson.
110 CLS:PRINT"Checking data statements ...."
120 FOR B=1 TO 72
130 FOR C=1 TO 17
140 READ A$:IF C<17 THEN 160
150 Z#=Z#+VAL(A$)
160 NEXT:NEXT
170 IF Z#=93811! THEN RESTORE:GOTO 200
180 PRINT"Error; check last number in"
190 PRINT"each data statement, then redo."
200 FOR B=1 TO 72
210 FOR C=1 TO 16
220 READ A$:TTL=TTL+VAL("&H"+A$)
230 NEXT
240 READ S:IF S=TTL THEN 270
250 PRINT "Data error in line";B*10+330
260 PRINT"Check figures and redo.":END
270 TTL=0:NEXT:RESTORE
280 OPEN "RENDIR.COM" AS #1 LEN=1:FIELD #1,1 AS D$
290 FOR B=1 TO 72
300 FOR C=1 TO 16
310 READ A$:LSET D$=CHR$(VAL("&H"+A$))
320 PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
330 PRINT "RENDIR.COM created."
340 DATA e9,d4,02,52,45,4e,44,49,52,20,28,43,29,30,21,39,1217
350 DATA 38,36,2c,20,5a,69,66,66,2d,44,61,76,69,73,20,50,1245
360 DATA 75,62,6c,69,73,68,69,6e,67,20,43,6f,2e,0d,0a,24,1280
370 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
380 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
390 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
400 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
410 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
420 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
430 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
440 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
450 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
460 DATA 00,00,00,00,00,00,00,00,00,00,c9,01,2f,61,62,63,543
470 DATA 64,65,66,67,68,69,6a,6b,6c,6d,6e,6f,70,71,72,73,1720
480 DATA 74,75,76,77,78,79,7a,2c,3b,3d,09,5c,41,42,43,44,1364
490 DATA 45,46,47,48,49,4a,4b,4c,4d,4e,4f,50,51,52,53,54,1224
500 DATA 55,56,57,58,59,5a,20,20,20,20,0a,0d,52,45,4e,44,973
510 DATA 49,52,20,45,72,72,6f,72,20,2d,20,24,4d,75,73,74,1279
520 DATA 20,62,65,20,50,43,2d,44,4f,53,20,33,2e,30,20,6f,1005
530 DATA 72,20,48,69,67,68,65,72,24,43,6f,72,72,65,63,74,1503
540 DATA 20,53,79,6e,74,61,78,20,69,73,3a,0d,0a,0a,52,45,1173
550 DATA 4e,44,49,52,20,5b,44,3a,5d,5b,53,6f,75,72,63,65,1359
560 DATA 5f,50,61,74,68,5d,53,6f,75,72,63,65,5f,4e,61,6d,1589
570 DATA 65,5b,2e,45,78,74,5d,20,54,61,72,67,65,74,5f,4e,1456
580 DATA 61,6d,65,5b,2e,45,78,74,5d,24,4e,6f,20,54,61,72,1394
590 DATA 67,65,74,20,4e,61,6d,65,20,53,70,65,63,69,66,69,1476
600 DATA 65,64,24,49,6e,76,61,6c,69,64,20,22,5c,22,20,6f,1283
610 DATA 72,20,22,3a,22,20,69,6e,20,54,61,72,67,65,74,20,1198
620 DATA 4e,61,6d,65,24,53,6f,75,72,63,65,20,44,69,72,65,1466
630 DATA 63,74,6f,72,79,20,4e,6f,74,20,46,6f,75,6e,64,24,1474
640 DATA 53,6f,75,72,63,65,20,46,69,6c,65,20,4e,6f,74,20,1410
650 DATA 61,20,44,69,72,65,63,74,6f,72,79,24,53,6f,75,72,1539
660 DATA 63,65,20,6f,72,20,54,61,72,67,65,74,20,50,61,74,1429
670 DATA 68,20,4e,6f,74,20,46,6f,75,6e,64,24,41,63,63,65,1381
680 DATA 73,73,20,74,6f,20,54,61,72,67,65,74,20,44,65,6e,1447
690 DATA 69,65,64,20,6f,72,20,54,61,72,67,65,74,20,45,78,1431
700 DATA 69,73,74,73,24,0d,0a,6f,72,20,24,53,6f,75,72,63,1327
710 DATA 65,20,61,6e,64,20,54,61,72,67,65,74,20,44,69,73,1407
720 DATA 6b,20,44,72,69,76,65,73,20,43,6f,6e,66,6c,69,63,1494
730 DATA 74,24,55,6e,64,65,66,69,6e,65,64,20,45,72,72,6f,1506
740 DATA 72,3a,20,50,43,2d,44,4f,53,20,46,75,6e,63,74,69,1275
750 DATA 6f,6e,20,35,36,48,24,0a,0a,0d,20,2e,20,2e,20,2e,735
760 DATA 20,41,62,6f,72,74,69,6e,67,0a,0d,0d,24,0a,0d,44,1017
770 DATA 69,72,65,63,74,6f,72,79,20,22,24,22,20,2e,20,2e,1173
780 DATA 20,72,65,6e,61,6d,65,64,20,74,6f,20,2e,20,2e,20,1211
790 DATA 22,24,22,24,0a,0d,24,ba,03,01,b4,09,cd,21,b4,30,1044
800 DATA cd,21,3c,03,73,06,ba,1c,02,e9,75,01,be,80,00,8a,1445
810 DATA 0c,32,ed,e3,66,8b,d1,46,8b,fe,fc,ac,57,bf,cc,01,2346
820 DATA 51,b9,20,00,f2,ae,e3,09,bb,20,00,2b,d9,8a,87,ea,1936
830 DATA 01,59,5f,aa,e2,e5,8b,ca,ba,02,00,bb,30,01,b0,20,1783
840 DATA bf,81,00,f3,ae,8b,f7,4e,41,e3,22,8b,fb,8b,c1,aa,2419
850 DATA ac,3c,20,74,01,aa,e0,f8,29,0f,e3,11,fe,0f,8b,fe,1985
860 DATA 4f,41,4a,83,fa,00,74,05,83,c3,4d,eb,d6,80,3e,30,1810
870 DATA 01,00,74,07,80,3e,7d,01,00,77,06,ba,39,02,e9,00,1043
880 DATA 01,8b,3e,ca,01,be,7d,01,ac,32,e4,8b,c8,51,03,f1,1835
890 DATA 4e,fd,ac,3c,5c,74,0e,3c,3a,74,0a,aa,e2,f4,83,c7,1999
900 DATA 01,57,eb,07,90,ba,a3,02,e9,d6,00,be,30,01,ac,32,1733
910 DATA e4,8b,fe,8b,c8,03,f9,4f,b0,5c,f2,ae,fc,75,0c,49,2429
920 DATA bf,7e,01,be,31,01,f3,a4,eb,19,90,80,3e,32,01,3a,1668
930 DATA 75,0e,bf,7e,01,be,31,01,b9,02,00,f3,a4,eb,04,90,1666
940 DATA bf,7e,01,5e,59,f3,a4,b0,00,aa,ba,31,01,b4,4e,b9,1933
950 DATA 10,00,cd,21,73,03,eb,0f,90,be,95,00,ac,24,10,75,1446
960 DATA 0c,ba,e0,02,eb,7b,90,ba,c5,02,eb,75,90,ba,31,01,2043
970 DATA bf,7e,01,b4,56,cd,21,73,27,3d,03,00,75,06,ba,fc,1601
980 DATA 02,eb,5e,90,3d,05,00,75,06,ba,1c,03,eb,53,90,3d,1404
990 DATA 11,00,75,06,ba,4b,03,eb,48,90,ba,72,03,eb,42,90,1603
1000 DATA b4,09,ba,ad,03,cd,21,b9,02,00,bb,31,01,8b,f3,ac,1767
1010 DATA 3c,00,74,08,8a,d0,b4,02,cd,21,eb,f3,83,f9,02,75,1927
1020 DATA 0a,b4,09,ba,bb,03,cd,21,eb,0f,90,b4,09,ba,d2,03,1795
1030 DATA cd,21,ba,d4,03,b4,09,cd,21,83,c3,4d,e2,cf,eb,11,2154
1040 DATA 90,52,b4,09,ba,0a,02,cd,21,5a,cd,21,ba,97,03,cd,1724
1050 DATA 21,cd,20,00,00,00,00,00,00,00,00,00,00,00,00,00,270