CPCWiki forum

General Category => Applications => Topic started by: Badders on 01:47, 06 January 11

Title: Format Program needed
Post by: Badders on 01:47, 06 January 11
Hello every one.... I just getting out my amstrad 6128, and trying find the disks that need reformatting..I cannot find it any were. I copy it out amstrad action mag I think.Cannot copy pc to  cpc,  need it as text, so I can retype it in and save it.....I,m also trying to install hard were Hxc2001 floppy drive. I not have the cables yet, still trying..I have games, programs that love to share with every one... But been too frighten to do any complicated rewiring.please exsquse the bad spelling, I'm Dislexic... Thank you for any help, kind rigards  Badders
Title: Re: Format Program needed
Post by: Xyphoe on 02:49, 06 January 11
Hi Badders,

Long time since I actually formatted a real CPC disk!

But I remember I used to do it using the programs on the system disks supplied with the CPC -> http://www.cpcwiki.eu/index.php/System_Disk
You would load up CP/M and use the functions there.

I think there's other ways to do it, and other utils available out there
Title: Re: Format Program needed
Post by: AMSDOS on 04:11, 06 January 11
This one is pretty good if you don't want to use CP/M or want to format Quickly. I've attached a copy of the file so you don't need to fiddle around with the Source Code here (I'm merely putting it here for show  ;D ).
 
Code: [Select]
1 '
2 ' QuickFormat
3 ' by
4 ' Adrian Forbes
5 '
10 MODE 1:PRINT"Please Wait..."
20 GOSUB 150
30 MODE 1
40 INPUT "(D)ata or (V)endor";f$
50 PRINT "Sure (Y/N)"
60 a$=INKEY$:IF a$="" THEN 60
70 IF LOWER$(a$)<>"y" THEN GOTO 60
80 MODE 1
90 PRINT"Insert disc to format in drive A":PRINT"Then press a key..."
100 CALL &BB18
110 MODE 1
120 PRINT"Formatting..."
130 |QF,f$
140 GOTO 30
150 ch=0
160 add=&4000
170 ln=310
180 FOR x=1 TO 8
190 READ a$:a=VAL("&"+a$)
200 POKE add,a
210 add=add+1
220 ch=ch+a
230 NEXT
240 READ ch$
250 IF ch<>VAL("&"+ch$) THEN PRINT"Error in line";ln:END
260 ln=ln+10
270 ch=0
280 IF ln<>510 THEN GOTO 180
290 CALL &4000
300 RETURN
310 DATA 21,8D,40,01,91,40,C3,D1,354
320 DATA BC,FE,01,C0,21,9A,40,06,37C
330 DATA 09,36,00,23,36,00,23,36,F1
340 DATA 00,23,36,02,23,10,F2,21,1A1
350 DATA 88,40,CD,D4,BC,22,89,40,410
360 DATA DD,6E,00,DD,66,01,23,5E,310
370 DATA 23,56,1A,FE,44,CA,80,40,35F
380 DATA FE,64,CA,80,40,3E,41,32,39D
390 DATA 8C,40,11,00,00,06,28,C5,1D0
400 DATA 21,9A,40,7A,06,09,77,23,21E
410 DATA 23,23,23,10,F9,3A,8C,40,278
420 DATA 06,05,21,9C,40,CD,73,40,288
430 DATA 06,04,21,A0,40,CD,73,40,28B
440 DATA 21,9A,40,DF,89,40,14,C1,378
450 DATA 10,D5,C9,77,23,23,23,23,2B1
460 DATA 23,23,23,23,3C,10,F4,C9,295
470 DATA 3E,C1,32,8C,40,C3,3F,40,33F
480 DATA 86,00,00,07,00,00,00,00,8D
490 DATA 00,97,40,C3,09,40,C9,51,2FD
500 DATA C6,00,20,00,00,00,00,00,E6
510 DATA end
Title: Re: Format Program needed
Post by: Badders on 22:39, 06 January 11
thank you all for your help... that get me out of trouble.. going to take time to type it all in.. That's part of how we all did it back in the 80's...  can remember spending hours doing things that only take short time on PC.. 


Title: Re: Format Program needed
Post by: Gryzor on 19:22, 11 January 11
thank you all for your help... that get me out of trouble.. going to take time to type it all in.. That's part of how we all did it back in the 80's...  can remember spending hours doing things that only take short time on PC.. 


Aw, come on, it's only 51 lines with a few statements lines... not nearly as hardcore as we used to do back then :D

Btw, isn't it exciting? :)