home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib11.dsk
/
FREE2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
33 lines
10 REM **********************
11 REM * FREE2 *
12 REM * BY J. WALTER MILLS *
13 REM * COPYRIGHT (C) 1982 *
14 REM * BY MICRO-SPARC INC *
15 REM * LINCOLN, MA. 01773 *
16 REM **********************
100 LOMEM: 3200
110 GOSUB 290
120 HOME : PRINT : PRINT : PRINT "THIS PROGRAM WILL FREE UP THE ELEVEN"
130 PRINT "SECTORS OF TRACK TWO THAT ARE UNUSED"
140 PRINT "BY DOS."
150 PRINT
160 PRINT "THIS WILL LEAVE YOU WITH A TOTAL OF 507"
170 PRINT "SECTORS."
180 PRINT : PRINT "PLACE OBJECT DISK IN DRIVE ONE AND":
190 INPUT "TYPE 'READY' >";X$
200 IF X$ < >"READY" THEN RUN
210 REM
220 POKE 785,14: POKE TRACK,17: POKE SCT,0: POKE CMD,RD: CALL 768
230 IF PEEK(3648) < >0 OR PEEK(3649) < >0 THEN 330
240 POKE 3648,255: POKE 3649,224
250 POKE CMD,WR: CALL 768
260 PRINT : PRINT "SUCCESSFUL UPDATE": PRINT
270 INPUT "ANOTHER? ";X$: IF MID$ (X$,1,1) = "Y" THEN RUN
280 END
290 FOR X = 768 TO 796: READ A: POKE X,A: NEXT
300 TRK = 780:SCT = 781:CMD = 788:RD = 1:WR = 2: RETURN
310 DATA 169,3,160,8,32,217,3,96,1,96,1
320 DATA 0,0,0,25,3,0,16,0,0,1,0,0,96,1,0,1,239,216
330 PRINT : PRINT
340 PRINT CHR$(7); CHR$(7);"VTOC CANNOT BE ALTERED - CHECK DISK": PRINT
350 END