Listing of file='NUM.BAS;01' on disk='vmedia/compuwriter_2-sector.ccvf'
1 PLOT 12,3,5,6 11 PRINT "THIS PROGRAM PUTS AN IDENTIFICATION NUMBER ON A " 20 PRINT " COMPU-WRITER DISK AT THE END OF THE 1ST BLOCK" 21 PRINT " AND SHOULD NOT EXCEED A DISK NO OF 254":PRINT :PRINT :PRINT 31 PRINT " DO NOT CHANGE DISKS UNTIL PROMPTED AS THE PROGRAM " 32 PRINT " USES THE READ/WRITE FUNCTIONS OF FCS" 41 GOTO 141 51 PLOT 27,4:PRINT "REA 0:00 9000 80":PLOT 27,27 55 N= PEEK (36991) 57 PLOT 3,5,18:PRINT "PRESENT DISK NO IS ";""N"" 61 PLOT 3,5,20:INPUT "ENTER NEW DISK NO ";N 71 POKE 36991,N 81 PLOT 27,4:PRINT "WRI 0:00 9000 80":PLOT 27,27 91 PLOT 3,5,22:PRINT "UPDATE COMPLETED": 101 PLOT 3,5,24:INPUT "DO YOU WISH TO UPDATE MORE DISKS ";Y$ 111 IF Y$= "Y"THEN GOTO 131 121 PLOT 12:END 131 PLOT 12 141 PLOT 3,5,16:INPUT "INSERT NEW DISK AND HIT RETURN ";Y$ 151 GOTO 51