Moin,
ich möchte (möglichst schnell) einen längeren Text (520 Bytes) von Disk einlesen und auf dem Bildschirm anzeigen. Diesen Text habe ich vorher als PRG mit c1541.exe auf ein .d64-Image geschrieben. Mit einem kleinen BASIC-Programm kann ich den Text auch auslesen, allerdings nur die ersten 254 Zeichen via GET#. Außerdem dauert das Einlesen mit 3 Sekunden viel zu lange.
Code
- 5 print ti$
- 10 open 2,8,2,"test.prg,p,r"
- 20 for i=0to254
- 30 get#2, t$
- 40 a$=a$+t$
- 50 next i
- 55 print a$
- 60 close 2
- 65 print ti$
- 002820
- lOREM IPSUM DOLOR SIT AMET, CONSECTETUR
- ADIPISCING ELIT. cRAS DICTUM AUCTOR LORE
- M. aLIQUAM UT ARCU NEC ORCI DAPIBUS GRAV
- IDA QUIS VITAE EROS. nAM VITAE VELIT IAC
- ULIS DUI LACINIA CONSEQUAT ID NON PURUS.
- dONEC PORTA NISL NON EX RUTRUM, TINCIDU
- NT VENENATIS NI
- 002823
Via INPUT# scheint das Ganze gar nicht zu funktionieren.
Ich würde gerne aber die ganzen 520 Byte auslesen. GIbt es eine Lösung dafür in BASIC? Ist der Ansatz, die Textdatei als PRG zu speichern falsch?
Vielen Dank für Eure Hilfe.