News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu
avatar_Devilmarkus

Simple Format-Routine in Basic

Started by Devilmarkus, 10:53, 16 April 10

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Devilmarkus

Ich habe mal wieder meine Textdateien durchgewühlt und folgendes Progrämmelchen gefunden:

10 SYMBOL AFTER 256:MEMORY &5FFF
20 FOR A=&7000 TO &7081
30 READ B$:POKE A,VAL("&"+B$):C=C+VAL("&"+B$)
40 NEXT
50 IF C<>13682 THEN PRINT"DATA ERROR":END
60 CALL &7000
70 DATA 01,0A,70,21,17,70,CD,D1,BC
80 DATA C9,0F,70,C3,1B,70,46,41,52
90 DATA 43,41,4C,CC,00,00,00,00,00,DD,7E
100 DATA 0A,32,7F,70,DD,7E,0B,32,80
110 DATA 70,DD,7E,08,32,81,70,DD,6E
120 DATA 00,DD,66,01,7E,DD,6E,02,DD
130 DATA 66,03,4E,23,46,DD,6E,04,DD
140 DATA 66,05,5E,23,56,D5,DD,6E,06
150 DATA DD,66,07,5E,23,56,62,6B,D1
160 DATA DD,E5,DF,7F,70,DD,E1,E5,DD
170 DATA 6E,00,DD,66,01,77,DD,6E,02
180 DATA DD,66,03,71,23,70,DD,6E,04
190 DATA DD,66,05,73,23,72,D1,DD,6E
200 DATA 06,DD,66,07,73,23,72,C9,00
210 DATA 00,00
220 MODE 1:BORDER 0:INK 0,0:INK 1,26:INK 3,6:PAPER 0:PEN 1:PLOT -10,-10,1
230 ENV 1,=11,10,=9,3000
240 DEFINT a-z
250 ORIGIN 0,200
260 FOR r=100 TO 380 STEP 7
270 MOVE r-7,r/4:DRAW r-3,r/8:DRAW r,0:DRAW r-3,-r/8:DRAW r-7,-r/4
280 NEXT
290 DRAW 93,-25:MOVE 93,25:DRAW 374,96
300 LOCATE 5,11:PRINT"0":LOCATE 24,6:PRINT"39":LOCATE 10,9:PRINT"10":LOCATE 15,8:PRINT"20":LOCATE 20,7:PRINT"30":LOCATE 1,1:PRINT"Select option":PRINT"1.Data Format":PRINT"2.System Format":PRINT"3.Exit"
310 i=VAL(INKEY$):IF i<1 OR i>3 THEN 310
320 SOUND 1,200,100,10,1
330 IF i=1 THEN f=&C1
340 IF i=2 THEN f=&41
350 IF i=3 THEN |BASIC
360 LOCATE 11,23:PRINT"Press F to Format":LOCATE 9,24:PRINT"Any other key to abort"
370 i$=UPPER$(INKEY$):IF i$="" THEN 370
380 IF i$<>"F" THEN 220
390 SOUND 1,150,100,10,1:LOCATE 11,22:PRINT SPACE$(70)
400 PLOT -10,-10,3
410 HL=0:DE=0:BC=0:A=0
420 POKE &6FFF,&83:HL=&6FFF
430 |FARCALL,&BCD4,0,@HL,@DE,@BC,@A
440 A=f:DE=0:|FARCALL,HL,7,@HL,@DE,@BC,@A
450 POKE &6FFF,&86:HL=&6FFF
460 |FARCALL,&BCD4,0,@HL,@DE,@BC,@A
470 HLT=HL
480 ADR=&6000
490 TRACK=0
500 FOR P=0 TO 9
510 POKE ADR,TRACK:POKE ADR+1,0:POKE ADR+2,f+P:POKE ADR+3,2:ADR=ADR+4
520 NEXT
530 DE=256*TRACK:HL=&6000:|FARCALL,HLT,7,@HL,@DE,@BC,@A
540 r=100+7*track:MOVE r-7,r/4:DRAW r-3,r/8:DRAW r,0:DRAW r-3,-r/8:DRAW r-7,-r/4
550 TRACK=TRACK+1:IF TRACK<40 THEN ADR=&6000:GOTO 500
560 SOUND 1,30,50,10,1:SOUND 1,30,100,10,1:LOCATE 12,22:PRINT"Format complete":LOCATE 13,23:PRINT"Press any key":WHILE INKEY$="":WEND:GOTO 220


Damit kann man Data- oder System-Disketten formatieren.
Vielleicht ists ja Hilfreich...
Ich habs gesucht weil ich JavaCPC nun endlich mal das Formatieren beigebracht habe *Schwitz*
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

CPCIak

#1
Veröffentlichung: ACU Juli 1990
Autor: G. Farmer

Devilmarkus

Quote from: CPCIak on 11:54, 23 April 10
Veröffentlichung: ACU Juli 1990
Autor: G. Farmer

Ja, mag sein ;)
Ich wusste nur ich hab den Code irgendwo rumliegen, und da Kevin Thacker mir geholfen hat, "Format" für JavaCPC zu programmieren, hatte ich es rausgesucht & getestet.
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

CPCIak

Der Hinweis ist nicht als Kritik zu verstehen - nur der Vollständigkeit halber  ;)

Devilmarkus

Quote from: CPCIak on 13:04, 23 April 10
Der   Hinweis ist nicht als Kritik zu verstehen - nur der   Vollständigkeit halber  ;)

Sowas Dummes! Und ich hatte gehofft wir würden uns jetzt Fetzen :D :police:

(nee, weiss ich doch)
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

CPCIak

Besonders interessant finde ich die Tools, welche einen RSX Befehl installieren.
Beispielsweise "fastform" aus der Robot PD Diskette Nr. 12100A (Autor unbekannt):

1 ' Fast disc Formatter
100 DATA 21,83,90,01,09,90,C3,D1
110 DATA BC,11,90,C3,22,90,C3,1E
120 DATA 90,43,2E,46,4F,52,CD,44
130 DATA 2E,46,4F,52,CD,00,3E,C1
140 DATA 18,02,3E,41,32,82,90,0E
150 DATA 00,3E,02,21,92,90,CD,73
160 DATA 90,21,80,90,CD,D4,BC,D0
170 DATA 22,8A,90,79,32,8C,90,21
180 DATA 7E,90,CD,D4,BC,D0,ED,5B
190 DATA 81,90,7A,D5,CD,1B,00,D1
200 DATA 7A,0E,01,21,91,90,CD,73
210 DATA 90,01,00,28,3E,28,90,57
220 DATA 21,8F,90,C5,E5,0E,00,CD
230 DATA 73,90,E1,C1,DF,8A,90,D0
240 DATA 10,EA,C9,06,09,77,23,23
250 DATA 23,23,81,10,F8,C9,83,84
260 DATA 86,00,C1,00,00,00,00,00
280 DATA end
290 '
300 MODE 2:chk=0:x=&9000:MEMORY x-1
310 READ a$:IF a$="end" THEN 330 ELSE a=VAL("&"+a$)
320 POKE x,a:x=x+1:chk=chk+a:GOTO 310
330 IF chk<>&3904 THEN PRINT "DATA ERROR.":END
340 CALL &9000
350 PRINT"|D.FORM = format DATA discs       |C.FORM = format CPM discs"

Devilmarkus

Kenne ich...
Ich benutze am meisten das PARADOS-rom.
Damit kann man auch fix formatieren.
Doof nur: Dem JavaCPC fehlt noch das FDC-command "scan" drum kann der (noch) nicht verifizieren beim Formatieren.
Ist aber in Arbeit...
Das grösste Problem ist: Ich habe von Emulation eigentlich soviel Ahnung, wie wir Beide vom Kühe melken.
Also mache ich alles mit "Trial and Error" (Dasselbe gilt für Java, davon habe ich eigentlich auch keine Ahnung)
Aber dank einiger netten Leute, die mir öfter helfen, wirds so langsam und JavaCPC kann man schon bald als "Professionell" betiteln.
(Desktop, Digiblaster, Amdrum, Speech Synthesizer und solche Spielereien sind tatsächlich von mir programmiert) *stolz*
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Powered by SMFPacks Menu Editor Mod