Mit dem Purebasicprogram kann man Datazeilen erzeugen für Basic, um die dann mit Read einzulesen. Es können Grafikdaten sein oder ASM-Bin Dateien die man dann mit Call starten kann.
Im CPC-Basic kann man ja schön Basicprogramme nachladen.
Hier zb. werden Datazeilen ab 1000 erzeugt mit dem Abstand von 10 und jeweils 10 Daten, kann man auch noch erweitern :
1000 Data 10,11,12,13,14,15,16,17,18,19
1010 Data .....
Code
Global zahl.c, laenge.w, datazeile.w, datazeile_lang.w, name_in.s, name_out.s
OpenConsole()
Print("Read-Datei: ")
name_in = Input()
If ReadFile(0, name_in)
Print("Read-Datei: ")
name_out = Input()
laenge= Lof(0)
datazeile=1000
datazeile_lang=0
CreateFile(1, name_out)
WriteStringN(1,Str(datazeile)+" data "+ Str(laenge))
datazeile=datazeile+10
WriteString (1, Str(datazeile)+" data ")
While Eof(0) = 0
datazeile_lang=datazeile_lang+1
If datazeile_lang <11
If datazeile_lang < 10
zahl=ReadCharacter(0)
WriteString (1,Str(Zahl)+",")
Else
zahl=ReadCharacter(0)
WriteString (1,Str(Zahl))
EndIf
Else
datazeile_lang=0
datazeile=datazeile+10
WriteStringN (1, "")
WriteString(1, Str(datazeile)+" data ")
EndIf
Wend
CloseFile(0)
CloseFile(1)
PrintN("Fertig!")
PrintN("Druecken Sie Return zum Beenden.")
Input()
CloseConsole()
Else
PrintN("Fehler.....!")
PrintN("Druecken Sie Return zum Beenden.")
Input()
CloseConsole()
EndIf
Alles anzeigen