Line 10 creates the file “vol.txt” that is

Used by the prog to check the ser## of the

Disk.in line 80 “mv$” is the ser ## of the orignal

Disk on which the prog was placed and compaires the

Two ser ##’s.to try the prog the ser## of host

Disk must be edited in line 80.if the ser ## are

The same the prog will contue to run,if not it will end

10 CLS:CLEAR:SHELL"VOL C:>\VOL.TXT"'CHECKVOL

20 OPEN "\VOL.TXT" FOR INPUT AS #1

30 FOR A=1 TO 7

40 LINE INPUT #1,N$(A)

50 IF EOF(1) THEN CLOSE:KILL"\VOL.TXT":GOTO 70

60 NEXT A

70 V$=RIGHT$(N$(A),9)

80 MV$="323C-130E":IF MV$ = V$ THEN PRINT"GOOD":GOTO 100

90 PRINT"THIS IS A COPY AND WILL NOT RUN":END'NEW

100 PRINT"disk ser #### is  ";V$:END