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