home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / FREECAT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  929b  |  10 lines
  1. 10  REM  FREECAT: A PROGRAM TO DISPLAY FREE SPACE AVAILABLE ON A DISK AS PART OF CATALOG COMMAND
  2. 20  IF  PEEK(977) + PEEK(978) -16 * INT( PEEK(978)/16) < >191 +13  THEN  PRINT : PRINT  CHR$(7)"INCORRECT DOS POINTERS": PRINT "PLEASE REBOOT AND RERUN FREECAT": END 
  3. 30 AD =  PEEK(978):A1 = 256 *AD +6579
  4. 40  FOR I = A1 TO A1 +69: READ B: POKE (I),B: NEXT I
  5. 50  DATA  162,7,32,74,249,134,65,160,140,185,242,179,240,10,10,144,251,232,208,250,230,65,208,246,136,208,238,165,65,172,6,224,240,5
  6. 60  DATA  32,27,229,48,3,32,36,237,160,243,185,249,181,32,237,253,200,208,247,76,47,174,0,160,198,210,197,197,160,211,197,195,212,207,210,211
  7. 70  POKE A1 +11,AD +22: POKE A1 +46,AD +24: POKE A1 +55,AD +17
  8. 80 T = 0: FOR I = A1 TO A1 +69:T = T + PEEK(I): NEXT I: IF T -3 *AD < >10412  THEN  PRINT : PRINT  CHR$(7)"DATA STATEMENT ERROR (LINES 50 - 70)": END 
  9. 90  POKE A1 -2287,179: POKE A1 -2286,AD +25
  10. 100  PRINT : PRINT "FREECAT IS INSTALLED"