Welche Buchstaben/zahlen müssen aus dem Text ausgefiltert werden und ersetzt werden damit es ein Atascii-code wird?
Möchte ein Programm mit Xprofan11 schreiben.

mfg

STFW! GIYF! JFGI!

Hat jetzt geklappt .
Kann jetzt eine Ascii-Datei in eine Atascii umwandeln für das Laden der Basicdatei mit "ENTER..." im Atari.
Es öffnet sich ein kleines Eingabefenster. Die Datei kann bis 64kb gross sein.
Die fertige Datei wird als ".bas" abgespeichert.

Wer die EXE haben möchte kann sich melden.

mfg

hier der Code für Xprofan:

Code: Alles auswählen

Window 20,20-200,100

declare anzahl%, inputdatei#,outputdatei#,zaehler%,zaehler1%,b_wert%,file_ja%,laenge%
declare text_d$,text_d1$

dim inputdatei#,64000
dim outputdatei#,64000

text_d$=input$("Name :","Datei", text_d$)
laenge%=len(text_d$)
text_d1$=left$(text_d$,laenge%-3)+"bas"

file_ja%=FileExists(text_d$)
if file_ja%=0
  print "Datei nicht vorhanden"
  waitinput
  end
  else
  print "Datei ist vorhanden"
endif 

Assign #1,text_d$
anzahl%=filesize(text_d$)

OpenRW #1
  Blockread(#1, inputdatei#, 0, anzahl%)
close #1

while zaehler%<=anzahl%-1
  b_wert%= byte(inputdatei#,zaehler%)
  if b_wert%<15
    b_wert%=155
    zaehler%=zaehler%+1
  endif 

  byte outputdatei#,zaehler1%=b_wert%
  zaehler%=zaehler%+1
  zaehler1%=zaehler1%+1
endwhile

blockwrite text_d1$,outputdatei#,0,zaehler1%

end