May June 1980 - Commodore Computers

MAY/JUNE, MAY/JUNE. 1980 198O ISSUE 114
COMPUTE. 59
59
PET DATA UA I #% Ron Straley
stra e
COPIER
1868 ]868 Grode Grade Ave.
Ft. Myers, Fla33901
Fla339Ol
Having written and used many programs that use data
files, I know the value of having backup tapes in
case of an accident.
Here is a program I wrote to solve my problem,
and maybe it will help others in their line of program
running nin g save time and trouble.
It is a data tape copier for [he' the 'PET' computer purer
that will copy any ''PET" PET' data file or data tape so you
will have a backup data copy.
BY
20 REf! REM BY
30 REfl REM RON STRALEY
40 REfl REM 1868 GRACE AVE. .
50 REr-t REM FT.MYERS,FLA.33901
. 606 0 REf! REM
100 PRINT"fiTHIE " fiTHIS IS A DATA TAPE COpy COPY ,-i
-.PROGRAH -.PROGRAM.. "
110 PRINT:PRINT"IT , PRINT"IT HILL WILL COPY UP TO 450 ,-.
-.STRINGS.."":PRINT
: 120 PRINT "TO CHANGE, , REDIHINSION REDIMINSION'D?'IN' DS ' IN ,-.
-.LINE 170":PRINT:PRINT"AND'MIIN : PRINT"AND ' M' -.
,LINE190 .
130 PRINT:PRINT:PRINT"****INSERT
, , PRINT"****INSERT DATA,
-.TAPE TO BE COPIED****"
"
:
140
150 REM**READ D IN DATA TAPE***
*
160
:
1700 CLR
180
80DHID DIMD$(450) S(450)
190 T=l28 T=128:F=64 , 200 M=450
210 PRINT:PRINT:PRINT"DOES , I ,PRI DATA TAPE,
-.HAVE ,HAVE FILE LE NAME?(Y NAt·IE? ( Y OR N)" "
220 GETA2$:IFA2$=""GOTO220
GETA2S , IFA2S=" "GOT0220
230 IFA2$="Y"GOTO260
IFA2S= "Y"GOT0260
240 IFA2$="N"GOTO280
IFA2S= "N"GOT0280
250 GOTO210 GOT02 260
0 PRINT:INPUT"DATA PRINT,INPUT" TAPE FILE NAME?"; NN-IE? ,AlS
270 OPENl,l,0,Al$
, l , O, AlS
280 OPEN1,1,0
OPENl , l , O
290 A=0:PRINT"R"
A=O,PRINT " fi "
300 INPUT#1,D$(A)
INPUTll , DS(A )
310
0 IF(ST=T)ORST=FTHEN370
320 A=A+1 A=A+l
330 D$(A)=A$
OS =AS
340 PRINT"fi " fi WORKING"
350 IFA120THENGOSUB940
920 RETURN
930 :
940 REM**CASSETTE REH**CASSETTE ADVANCE**
950 :
960 POKE59411,53:T1=TI
, 53,Tl=TI
970 IFTI-TK6THEN970
IFTI-Tl