Listing of file='NEW.BAS;01' on disk='vmedia/word_king_v1.6-sector.ccvf'
100 PLOT 14,6,2,12:CLEAR 100 110 PRINT TAB( 16)"W O R D K I N G U T I L I T Y":PRINT 120 L= 33283:H= L+ 1:C= PEEK (L):F= PEEK (H):BM= 36832:TM= BM+ 17:MM$= " 9000 2080" 130 POKE L,224:POKE H,143:FOR I= BMTO TM:READ A:POKE I,A:NEXT 140 DATA 229,33,0,144,62,177,54,32,35,54,2,35,188,194,230,143,225,201 150 Z= CALL (0):POKE L,C:POKE H,F 155 INPUT "PLACE DISK TO BE TREATED IN DRIVE AND PRESS ENTER ";Z$ 160 BB= 36355:TB= BB+ 9:BM$= " 8E00 80" 170 PLOT 27,4:PRINT "REA 0: 0"+ BM$:PLOT 27,27 180 FOR I= BBTO TB:X= PEEK (I):N$= N$+ CHR$ (X):NEXT I:PRINT 190 PRINT "THE CURRENT DISK NAME IS: ";N$:PRINT 200 PRINT "DESIRED DISK NAME (UP TO 10 CHRS): ";:INPUT S$ 210 IF S$= "0"OR S$= ""THEN 260 220 IF LEN (S$)> 10THEN PRINT "NAME TOO LONG":GOTO 200 230 S$= S$+ " ":J= 0 240 FOR I= BBTO TB:J= J+ 1:X= ASC (MID$ (S$,J,1)):POKE I,X:NEXT I 250 PLOT 27,4:PRINT "WRI 0: 0"+ BM$:PLOT 27,27 260 PRINT "WARNING THIS PROGRAM WILL ERASE ALL TEXT FROM A WP DISK":PRINT 270 INPUT "PRESS ENTER TO PROCEED IF CORRECT DISK IN DRIVE ";Z$ 280 PRINT "ERASING DISK":PRINT 290 DATA 60,A1,D2,123 300 FOR I= 1TO 4:READ I$:PLOT 27,4:PRINT "WRI 0: "+ I$+ MM$:PLOT 27,27:NEXT 310 PRINT "DISK TEXT CLEAN....TYPE AUTO TO RUN IT"