home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c128 / utils / disk_exp.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  25 lines
  1. 1 OPEN15,8,15,"U0>M1":CLOSE15
  2. 10 POKE53280,.:POKE53281,.:POKE650,128:POKE198,0:PRINT"[147]":CLR:PRINT"[153][196]ISK [197]XPANSION":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"25-[205]AY-1989 BY [215]AYNE [214].[200]. [204]ORENTZ":PRINT"[212]HIS PROGRAM WILL EXPAND THE STORAGE":PRINT"CAPACITY OF A [153]1571 DISK USING ONLY":PRINT"A [153]1571 DRIVE (8/0).  [196]O NOT ATTEMPT"
  3. 70 PRINT"THIS PROCEDURE WITH A 1541, OR 1581.":PRINT"[208]RESS [153][201][146] FOR INFORMATION, [153][193][146] TO ABORT, OR":PRINT"       ANY OTHER KEY TO CONTINUE."
  4. 100 GETA$:IFA$=""THEN100
  5. 101 IFA$="A"ORA$="[193]"THENPRINT"[147]":END
  6. 102 IFA$="I"ORA$="[201]"THEN1100
  7. 103 GOTO1000
  8. 104 PRINT"[153]       [211]TRIKE A KEY TO CONTINUE.":POKE198,0
  9. 105 GETA$:IFA$=""THEN105
  10. 106 RETURN
  11. 1000 PRINT"[147]":GOSUB1500:FORA=1TO500:NEXT:OPEN15,8,15:OPEN2,8,2,"#":GOSUB1500:FORT=1TO18:PRINT#15,"B-F:";0;53;T:GOSUB1500:NEXTT:CLOSE15:CLOSE2:GOTO1600
  12. 1100 PRINT"[147]   [212]HIS PROGRAM WILL EFFECTIVELY EXPAND":PRINT"THE  CAPACITY OF A  1571 FORMATTED DISK":PRINT"FROM 339,968 RAW BYTES TO 344,576 BYTES.":PRINT"   [215]HEN A  1571 FORMAT DISK IS CREATED,":PRINT"THE DISK DRIVE ALLOCATES ALL 19 SECTORS"
  13. 1150 PRINT"OF TRACK 53 FOR [211]IDE [212]WO [194][193][205].  [194]UT THIS":PRINT"[194][193][205] ONLY TAKES UP ONE HALF OF A SECTOR,":PRINT"SO SECTORS ONE THROUGH EIGHTEEN ARE NOT":PRINT"USED  BECAUSE THEY  LIE ON  AN AUXILARY":PRINT"DIRECTORY SECTOR.":PRINT"   [194]Y DE-ALLOCATING THESE  SECTORS, THE"
  14. 1210 PRINT"[196][207][211]  CAN BE T    
  15. 17477   INTO GOING AGAINST":PRINT"ITS  NATURE AND  USING THESE  AREAS FOR":PRINT"FILE STORAGE WITH ALMOST NO PROBLEMS.":GOSUB104:PRINT"[147]   [212]HERE  ARE  TWO  THINGS THAT MUST BE":PRINT"NOTED:  1. [198]ILES  SAVED TO THESE  AREAS"
  16. 1270 PRINT"WILL TRY TO  FLEE THE  AREA, AS THE [196][207][211]":PRINT"TELLS  THEM IT IS  SACRED SPACE,  WHICH":PRINT"THEY  ARE NOT  WORTHY TO  OCCUPY.  [212]HIS":PRINT"DOES NOT CREATE ANY PROBLEMS, BUT MAKES":PRINT"INTERESTING   VIEWING  IF   YOU  USE  A"
  17. 1320 PRINT"DIRECTORY  ROUTINE THAT SHOWS  STARTING":PRINT"TRACK AND SECTORS.  2. .[205][213][211] FILES SAV    
  18. 8857 IN THIS AREA CANNOT  BE PLAYED WITH THE":PRINT"[211]TEREO[208]LAYER 10.0 BY [205]ARK [193]. [196]ICKENSON.":PRINT"[201]  DON'T   KNOW  WHY,  SINCE  NO  OTHER"
  19. 1370 PRINT"PROGRAM   ([211][201][196],  OR  OTHERWISE)  HAS  A":PRINT"PROBLEM DEALING WITH EXTRA MEMORY.":GOSUB104:PRINT"[147]   [208]LEASE NOTE: [217]OU DO NOT NEED TO HAVE":PRINT"ANY INTEREST IN ADVANCED  DISK FUNCTION":PRINT"TO  TAKE  ADVANTAGE  OF  THIS  PROGRAM."
  20. 1430 PRINT"[202]UST  EXECUTE IT.  [212]HE  SACRED  SECTORS":PRINT"ARE FILLED AUTOMATICALLY.  [206]O WEDGE, OR":PRINT"ANYTHING NEEDED.  [218]OWIE.":GOSUB104:GOTO10
  21. 1500 PRINT"":PRINT"[212]RACK:"53,"    
  22. 21071 :"T"":PRINT"[207]RIGINAL RAW  CAPACITY: "339968:PRINT"[207]RIGINAL FILE CAPACITY: "337312:PRINT"[195]URRENT  RAW  CAPACITY: "339968+(T*256):PRINT"[195]URRENT  FILE CAPACITY: "337312+(T*254):PRINT"[212]OTAL ADDITIONAL BYTES: "T*256
  23. 1560 PRINT"[193]DDITIONAL FILE  BYTES: "T*254:RETURN
  24. 1600 PRINT"[195]OMPLETE.  [212]HERE.  [215]ASN'T THAT QUICK":PRINT"AND EASY?":GOSUB104:GOTO10
  25.