DISK_USED=0 DISK_REMAINING=0 DISK_STATUS=0 ROM_ENTRIES=0 CALL ANALYZE_DISK ($FF4B, DISK_STATUS, DISK_USED, DISK_REMAINING, ROM_ENTRIES) PAL 2 IF DISK_STATUS=2 THEN PRINT "FULL DISK DETECTED" PRINT "RUN TOOL" ELSE IF DISK_STATUS=1 THEN PRINT "USED DISK DETECTED" PRINT "RUN TOOL" ELSE IF DISK_STATUS=0 THEN PRINT "EMPTY DISK DETECTED" PRINT "RUN TOOL" ELSE IF DISK_STATUS=-1 THEN PRINT "NO DISK DETECTED" PRINT "RUN BROWSER DEMO" ELSE IF DISK_STATUS=-2 THEN PRINT "NO ROM ENTRIES" PRINT "COULD NOT TEST" END IF PAL 0 PRINT "" PRINT "SPACE USED: " + STR$(DISK_USED) PRINT "REMAINING: " + STR$(DISK_REMAINING) PRINT "" PRINT "ROM ENTRIES USED: " + STR$(ROM_ENTRIES) '= = = < S U B P R O G R A M S > = = = SUB ANALYZE_DISK (ROM_BYTE, DISK_STATUS, DISK_USED, DISK_REMAINING, ROM_ENTRIES) 'DISK_STATUS '-2 : ERROR: NO ROM ENTRIES LEFT '-1 : NO DISK ' 0 : EMPTY DISK ' 1 : USED DISK ' 2 : FULL DISK 'IT WILL CRASH WHEN THERE'S NO DISK AND IT'S NOT THE BROWSER PLAYER DISK_STATUS=-3 DISK_USED=0 EMPTY_FILE=-1 ROM_ENTRIES=0 FILES FOR I=0 TO 15 ADD DISK_USED,FSIZE(I) V$=FILE$(I) IF V$<>"" THEN INC ROM_ENTRIES ELSE IF EMPTY_FILE=-1 THEN EMPTY_FILE=I END IF NEXT I DISK_REMAINING=$8000-DISK_USED IF DISK_REMAINING=0 THEN DISK_STATUS=2 EXIT SUB END IF IF DISK_USED>0 THEN DISK_STATUS=1 EXIT SUB END IF IF EMPTY_FILE=-1 THEN DISK_STATUS=-2 EXIT SUB END IF POKE $FF4B,255 SAVE EMPTY_FILE,"",$FF4B,1 LOAD EMPTY_FILE,$FF4B,1 IF PEEK($FF4B)=255 THEN DISK_STATUS=0 ELSE DISK_STATUS=-1 END IF POKE $FF4B,0 SAVE EMPTY_FILE,"",$FF4B,1 END SUB