A Disk Utility Program

By Val J. Golding

Perhaps this may be the first disk program published for Apple’s new Disk II. If so, a feather for our cap! The “SAVE” program, listed in column two will ask the user to input the file names of six disk programs, start recording on tape and hit return. SAVE will then consecutively load from disk and save to tape, in one operation, the six named programs. A neat way to make a tape for a friend from your disk collection.

Since this program uses the Basic SAVE command under program control, it is necessary to enter the SAVE commands as something else and then go into memory and change them to SAVEs. If you don’t know how to do this, here is another routine that will do it for you. Just substitute the command TEXT where you see SAVE in the program and then add lines 1100 to 1250 as given below and RUN 1100. This will convert the TEXT commands to SAVE. After this has run, you can DELete 1100 to 1250, as they are no longer required.

This routine can be modified to change any token or ASCII character in memory to another one, and of course, the program SAVE can be modified to save however many programs you would like in one operation by adding or taking away input statements and SAVE and LOAD statements.

Remember in line 1000, Z$=”Dc”. A Control D must be within the quotes for the DOS to recognize a Disk command.

>LIST
10 REM “SAVE” BY VAL GOLDING 7/23/78
20 REM THIS PROGRAM SAVES 6 NAMED DISK FILES TO TAPE IN ONE OPERATION
50 GOTO 1000
60 POKE 0, PEEK (76): POKE 1, PEEK (77 )
70 POKE 76, PEEK (202): POKE 77, PEEK (203)
90 PRINT Z$;”LOAD “;A$
100 SAVE
180 PRINT Z$
190 PRINT Z$;”LOAD “;B$
200 SAVE
280 PRINT Z$
290 PRINT Z$;”LOAD “;C$
300 SAVE
380 PRINT Z$
390 PRINT Z$;”LOAD “;D$
400 SAVE
480 PRINT Z$
490 PRINT Z$;”LOAD “;E$
500 SAVE
580 PRINT Z$
590 PRINT Z$;”LOAD “;F$
600 SAVE
649 REM INSERT 6 CONTROL G WITHIN QUOTES
650 CALL -936: VTAB 10: TAB 10: PRINT “FILES SAVED TO TAPE”
700 POKE 202, PEEK (76): POKE 203, PEEK (77): POKE 76, PEEK (0): POKE 77, PEEK (1): END
999 REM INSERT CONTROL D WITHIN QUOTES
1000 DIM A$( 36 ), B$( 36), C$( 36 ),D$( 36 ), E$(36),F$(36):Z$=””
1010 TEXT : CALL -936: VTAB 4
1020 INPUT” FILE NAME? “,A$
1030 INPUT” FILE NAME? “,B$
1040 INPUT” FILE NAME? “,C$
1050 INPUT” FILE NAME? “,D$
1060 INPUT” FILE NAME? “,E$
1070 INPUT” FILE NAME? “,F$
1080 VTAB 20: PRINT “START RECORDING AND HIT RETURN TO SAVE THE ABOVE LISTED FILES TO TAPE”: CALL -676
1090 GOTO 60

1100 REM PRGM TO CHANGE TOKENS IN MEMORY
1150 REM EN=MEMORY RANGE TO BE SEARCHED
1200 LOCN= PEEK (202)+ PEEK (203)*256 :EN=LOCN+735
1210 REM PEEK AT VALUE OF ORIG TOKEN
1220 IF PEEK (lOCN)=75 THEN 1250:LOCN= LOCN+1: IF lOCN=EN THEN END: GOTO 1220
1240 REM POKE VALUE OF NEW TOKEN
1250 PRINT “CONVERTING “;LOCN: POKE LOCN,5: GOTO 1220

Please follow and like us:

About the Author

billm

A.P.P.L.E. Chairman of the Board and Club president — Bill worked for the founder, Val J. Golding and A.P.P.L.E. from 1981 to 1982. In 1999, he began archiving the materials which were distributed and sold by A.P.P.L.E.. That project led to the group that remained of A.P.P.L.E. Bill was involved in the financial industry in Tokyo and has over 20 major office infrastructure projects to his name. In March 2001, he retired to write books and to spend more time pursuing personal interests. As the president of the users group, Bill is in charge of distribution of Call-A.P.P.L.E. magazine as well as the organization of this web site. Bill currently resides in Tokyo, Japan and Shelton, Wa splitting time between the places.