2068 Tape to Disk Conversion For VU-File and VU-Calc

(EDITOR’S NOTE: The program tape-to-disk conversions shown in this article are for use with the Aerco FD-68 Disk Interface. The procedures are presented “cookbook style”, so they should be easy to follow and to modify for other disk interfaces. Just substitute your interface’s commands at the appropriate spots. SyncWare News welcomes articles such as this, and will continue to print them as space allows.)

TO CONVERT VU-CALC FROM TAPE TO DISK

(Before starting either conversion, have a formatted diskette ready and in your disk drive.)

1. Load the entire program from cassette. Exit the program by going to the menu and using option 1.

2. Then type the line:

OUT 244,1: MOVE "VC.BIN",29328,5225

3. Now you must change line 10 to read:

10 CLEAR VAL "29327": BORDER LN PI : PAPER
LN PI : INK LN PI :LOAD "s"CODE 16384:INK 7

4. ADD LINE 11: (that is 31 spaces.)

11 PRINT AT 19,0;"
                               ":FLASH 1
:PRINT AT 19,12;"Loading":FLASH 0
:out 244,1:MOVE "VC.SCR",:STOP

5. Rewind the program tape, GOTO 10, and start the tape.

6. When you get the stop message, stop the tape, and change line 10 to:

10 CLEAR VAL "29327":BORDER LN PI:PAPER
LN PI:INK LN PI:CLS:CAT "VC.SCR",
:CAT "VC.BIN",:GOTO VAL "3200"

7. Delete line 11.

8. Change line 4000 to:

4000 GOSUB VAL "1100":LET a$=a$+".BIN"","+STR$
zz+","+STR$ (PEEK bfre+256*PEEK (bfre+1)-zz):MOVE
"a$",:CLS:GOTO USR e2

9. Now save this by typing:

MOVE "VC-TtoD.BAS",10

This will allow you to load from tape and save to disk.

10. Now you need to change line 1000 to:

1000 GOSUB VAL "1100":LET a$=a$+".BIN"",":CAT
"a$",:CLS:GOTO USR e2

11. Then save by typing:

MOVE "VC.BAS",10

This version will load from disk, and save to disk.

Tape back-ups are not a bad idea, especially if you ever pull a crazy stunt like we did, and zap your disk interface!! The next steps provide for loading from disk and saving to tape.

12. See that line 1000 reads as in step 10 above.

13. Line 4000 should be like the original, but with OUT 244,1 added, so that it reads:

4000 GO SUB VAL "1100": SAVE a$CODE zz, (PEEK
bfre+256*PEEK (bfre+1)-zz): OUT 244,1:CLS
: GO TO USR e2

14. Save by typing:

MOVE "VC-DtoT.bas",10

You should now have five files on your disk:

VC.SCR
VC.BIN
VC.BAS        Load from disk; save to disk.
VC-TtoD.BAS   Load from tape; save to disk.
VC-DtoT.BAS   Load from disk; save to tape.

To backup VU-CALC with screen from disk to disk:

1. Load the program from disk. Exit with #Q command, and at the menu use option 1.

IF YOU HAVE ONLY ONE DRIVE:

2. Insert back-up disk and give commands:

MOVE "name.BAS",10: MOVE "VC.BIN",29328,5225

3. Change line 10 to:

10 CLEAR VAL "29327": BORDER LN PI : PAPER
LN PI : INK LN PI : CAT "VC.SCR",
:INK 7:STOP

4. Add line 11, (that is 31 spaces):

11 PRINT AT 19,0;"
                               ":FLASH 1
:PRINT AT 19,12;"Loading":FLASH 0
:out 244,1:MOVE "VC.SCR",:STOP

5. Insert MASTER DISK and GOTO 10.

6. At STOP, insert BACKUP DISK, and GOTO 11.

IF YOU HAVE TWO DRIVES:

The proceedure is the same as above except:

I. Leave out the STOP at the end of line 10

II. Put the MASTER DISK in one disk drive, the BACKUP DISK in the other, and make the proper disk drive designations in the MOVE commands in step 2, the CAT command in line 10, and the MOVE command in line 11.

III. GOTO 10 as in step 5, and omit step 6.

NOTE: This version, which is good only for making screen backups, using only the command GOTO 11 after loading and STOP appears, may be saved by MOVE “VC-BUSCR.BAS”,10 (meaning VuCalc-BackUpSCReen.) I have found that it saves a lot of confusion to make file names as descriptive as possible.

TO CONVERT VU-FILE FROM TAPE TO DISK

1. Load the entire program from cassette. Exit the program by going to load a file, and then break to BASIC.

2. Then type the line:

OUT 244,1: MOVE "VF.BIN",28288,7216

3. Now you must change line 50 to read:

50 BORDER 1: PAPER 1: INK 1: CLEAR 28287
: LOAD "T"CODE 16384,6912: OUT 244,1
: INK 7

4. Add line 51: (THAT IS 31 SPACES,)

51 PRINT AT 19,0;"
                               "; FLASH 1: PRINT AT 19,
12;"Loading": FLASH 0: MOVE "VF.SCR",
: STOP

5. Rewind tape, GOTO 50 and start the tape.

6. When you get the STOP message, stop the tape, and change line 50 to:

50 BORDER 1: PAPER 1: INK 1: CLEAR 28287: CAT
"VF.SCR",: CAT "VF.BIN",

7. Delete line 51.

8. Change line 1005 to:

1005 LET g$=g$+".BIN"","+STR$ s+","+STR$ l: MOVE
"g$",: PRINT "Press V to VERIFY"'"or any other key
to continue."

9. Save by typing:

MOVE "VFTtoD.BAS",50

The following will allow you to load files from tape, and save them to disk.

10. Change line 2000 to:

2000 CLS : PRINT "Load a file": GO SUB 6000: GO
SUB 7000: LET g$=g$+".BIN"","+STR$ s
: CAT "g$",: GO TO USR a

11. Save by typing:

MOVE "VF.BAS",50

12. If you would like to be able to make tape back-ups of VU-FILE disk files, then make one more version as follows:

Line 2000 must be the same as in step 10.

13. Line 1005 must read:

1005 SAVE g$CODE s,l
: OUT 244,1: PRINT "Press V to
VERIFY"'"or any other key to continue."

14. Line 1100 must read:

1100 GO SUB 7000: VERIFY
g$CODE: OUT 244,1

NOTE: VERIFY does not work on disk, so after saving to disk, always press any key other than V.

15. Save by typing:

MOVE "VF-DtoT.bas",50

You should now have five files on your disk:

VF.SCR
VF.BIN
VF.BAS        Load from disk; save to disk.
VF-TtoD.BAS   Load from tape; save to disk.
VF-DtoT.BAS   Load from disk; save to tape.

To backup VU-FILE with screen from disk to disk:

1. Load the program from disk. Exit program by going to load a file, and then break to BASIC.

IF YOU HAVE ONLY ONE DRIVE:

2. Insert back-up disk and give commands:

MOVE "name.BAS",50: MOVE "VF.BIN",28288,7216

3. Change line 50 to:

50 BORDER 1: PAPER 1: INK 1: CLEAR 28287:CAT
"VF.SCR",: OUT 244,1: INK 7:STOP

4. Add line 51: (THAT IS 31 SPACES,)

51 PRINT AT 19,0;"
                               "; FLASH 1: PRINT AT 19,
12;"Loading": FLASH 0: MOVE "VF.SCR",
: STOP

5. Insert MASTER DISK and GOTO 50.

6. At STOP, insert BACKUP DISK, and GOTO 51.

IF YOU HAVE TWO DRIVES:

The proceedure is the same as above except:

I. Leave out the STOP at the end of line 50

II. Put the MASTER DISK in one disk drive, the BACKUP DISK in the other, and make the proper disk drive designations in the MOVE commands in step 2, the CAT command in line 50, and the MOVE command in line 51.

III. GOTO 50 as in step 5, and omit step 6.

Best wishes for your continued and improved enjoyment of two fine programs!