I need some help with getting GWBASIC to
duplicate a file. The problem is the
parameters TEST01$, TEST02$ passed to shell is not getting thru. Any help is appreciated.
Here is my code:
10000 ‘file: COPY_TST.TXT
10010 ‘rev: 1.0 date: Aug 27,2007 by: w.e.
10020 ‘used to test different ideas.
10030 ‘
10040 ‘
10050 ‘ section A: intialization
10060 ‘ ========================
10070 ‘
10080 CLS
10090 ‘ * * * VARIABLES * * *
10100 AMBER=0
10110 TEST01=0
10120 TEST02=0
10130 TEST03=0
10140 TEST01$=” ”
10150 TEST02$=” ”
10160 TEST03$=” ”
10170 ‘
10180 DATATAG$=” ”
10190 DRIVE$=”G:\SIGNAL~1\TRAFFI~1\BASIC\”
10200 FILCNT$=DRIVE$ + “CPFILCNT.DAT”
10210 FILHDR1$=” ”
10220 FILHDR2$=” ”
10230 FILNAM$=” ”
10240 FILNUM$=” ”
10250 GOOD$=” ”
10260 JOB$=” ”
10270 LABL$=” ”
10280 LASTFILE$=” ”
10290 ‘
10300 ‘
10310 ‘ Copy file to a storage bin
10320 TEST01$=”CPD052.SAV”
10330 TEST01$=DRIVE$ + TEST01$
10336 ‘
10340 CLS : LOCATE 10,1 : PRINT “Replicating File: “; TEST01$
10350 SHELL “COPY_1ST.BAT 052″
10360 ‘
10370 ‘ copy bin contents to 2nd file
10380 TEST03$=”TEST.SAV”
10390 TEST03$=DRIVE$ + TEST03$
10400 LOCATE 12,1 : PRINT “Finishing Replicate”
10410 SHELL “COPY_2ND.BAT TEST02$”
10420 END
COPY “TEST01$ G:\SIGNAL~1\TRAFFI~1\BASIC\REPLICA.SAV”
EXIT
COPY “G:\SIGNAL~1\TRAFFI~1\BASIC\REPLICA.SAV TEST02$”
EXIT
