Alex hat geschrieben:Hallo Atarixle,
Ich habe Dein Listing in ein Textprogramm kopiert, dann in ein atr gestopft und zu einer Diskette werden lassen. Danach umbenannt in "autorun.tbs"----leider ohne Erfolg. Fehler 21- nicht mit Atari geschrieben/ gespeichert. Ein Listing ist also auch nicht möglich.

Wie kommt man eigentlich an ein nicht laufendes Bascprogramm (Listing)?

Fragen über Fragen.

100 POKE 82,%0:POKE 83,39:GRAPHICS %0:SETCOLOR %2,%0,%0:SETCOLOR %1,%0,14:SETCOLOR 4,%0,%2:POKE 752,%1›110 DIM DI$(1280),EXT$(%3),F$(20),H$(20),EXTS$(128)›120 EXTS$="TUR,TB ,TBS,BAS"›130 F=%0:OPEN #%1,6,%0,"D:*.*"›140 INPUT #%1,F$›150 IF F$(%1,%1)>="0" AND F$(%1,%1)<="9" THEN 180›160 EXT$=F$(11,13):P=INSTR(EXTS$,EXT$):IF P THEN DI$(F*11+%1)=F$(3,13):F=F+%1›170 GOTO 140›180 CLOSE #%1›190 ANZ=%0:AF=%0:POSITION %0,%0:? "Inhalt";›200 FOR P=%0 TO F-%1›210 IF P-ANZ>=%0 AND P-ANZ<=19 THEN POSITION %0,%1+P-ANZ:? DI$(P*11+%1,P*11+11);›220 NEXT P›230 AD=DPEEK(88)+(%1+AF-ANZ)*40›240 IF AF-ANZ>=%0 AND AF-ANZ<=19 THEN FOR P=%0 TO 10:W=PEEK(AD):POKE AD,W!128:AD=AD+%1:NEXT P›250 GET E›260 AD=DPEEK(88)+(%1+AF-ANZ)*40›270 IF AF-ANZ>=%0 AND AF-ANZ<=19 THEN FOR P=%0 TO 10:W=PEEK(AD):POKE AD,W&127:AD=AD+%1:NEXT P›280 IF E=ASC("=") THEN AF=AF+%1›290 IF E=ASC("-") THEN AF=AF-%1›300 IF E=155 THEN 400›310 IF AF<%0 THEN AF=%0›320 IF AF>F-%1 THEN AF=F-%1›330 IF AF-ANZ<%0 THEN ANZ=AF:GOTO 200›340 IF AF-ANZ>19 THEN ANZ=AF-19:GOTO 200›390 GOTO 230›400 H$=DI$(AF*11+%1,AF*11+8):H$(9)=" "›410 F$="D:":F$(LEN(F$)+%1)=H$:P=INSTR(F$," "):F$(P)=".":F$(P+%1)=DI$(AF*11+9,AF*11+11)›420 POSITION %0,21:? "Starte ";F$›430 TRAP 440:RUN F$›440 ? "Fehler ";ERR;" beim Laden des Programms";›

Alex hat geschrieben:

skriegel hat geschrieben:Ja, Fragen über Fragen:

Wie hast Du es zu einem ATR werden lassen?

Mein Vorgehen wäre wie folgt:

1. Ein ATR mit TurboBasic (Du hast ja nun welche) kopieren. Damit hast Du ein neues "Arbeits-ATR"
2. Das ATR im Emulator starten.
3. Ins TurboBasic gehen (Break, oder Warmstart)
4. Sicherstellen, dass der Speicher leer ist: NEW eingeben
4. Das Listing hier rein kopieren (geht mit Altirra und Atari800MacX recht gut., also aus dem Forum mit STRG+C raus kopieren und im Emulator mit STRG+V einfügen.
5 Nun das Listing speichern mit SAVE "D:<NAME>.EXT

Fertig.

Hi Skriegel, hat bis hier gut geklappt. In der Kontrolle mit Run war dann auch alles gut.
Nur dauerhaft habe ich die Datei nicht gefunden (ist ja alles im atr) Kontrolle mit dem NC war ebenfalls negativ.
Vielleicht hast Du da eine Idee.
Für heute- gute Nacht.

Burkhard hat geschrieben:Einen Textcode lädt man nichzt mit "LOAD", sondern mit "ENTER" - hier vorher mit NEW Speicher löschen! Aber auch ich beiße mir leider ein bißchern die Zähne aus - vermutlich wegen unterschiedlicher Interpretation einer Zeilenende-Kennung! Auch Saschas Tipp zur Direktkopie in den Emulator funzt bei mir mit Atari800Win nicht.
Hier eine Bitte an Atarixle! Stelle Deine Menü-Empfehlung doch bitte mal als ATR zV. - falls nicht schon geschehen - oder gib eine Quelle preis

1000 REM AB HIER DIE LADEROUINE AUF TASTEN 1-9
1010 CLOSE #1:OPEN #1,4,0,"K:"
1020 GET #1,KEY
1030 TRAP 1020:IF KEY-48<=1 OR KEY-48>=9 THEN GOTO 1020
1040 TRAP 1020:IF KEY-48=1 THEN FILE$="PROGRAM1":EXT$="TBS":GOTO 1130
1050 TRAP 1020:IF KEY-48=2 THEN FILE$="PROGRAM2":EXT$="TUR":GOTO 1130
1060 TRAP 1020:IF KEY-48=3 THEN FILE$="PROGRAM3":EXT$="TBS":GOTO 1130
1070 TRAP 1020:IF KEY-48=4 THEN FILE$="PROGRAM4":EXT$="TUR":GOTO 1130
1080 TRAP 1020:IF KEY-48=5 THEN FILE$="PROGRAM5":EXT$="TUR":GOTO 1130
1090 TRAP 1020:IF KEY-48=6 THEN FILE$="PROGRAM6":EXT$="TBS":GOTO 1130
1100 TRAP 1020:IF KEY-48=7 THEN FILE$="PROGRAM7":EXT$="TBS":GOTO 1130
1110 TRAP 1020:IF KEY-48=8 THEN DOS
1120 TRAP 1020:IF KEY-48=9 THEN GOTO 1200:REM NAECHSTES MENUE
1130 REM GR.0:FILENAME$=FILE$+"."+EXT$:RUN FILENAME$›

1130 Filename$(1,3)*D1":Filename$(4,4+LEN(FILE$))=FILE$:FILENAME$(LEN(FILENAME$)+1)*"."
1140 FILENAME$(LEN(FILENAME$)+1)=EXT$:GRAPHICS 0:RIN FILENAME$
1200 REM Naechste Menueseite ...

skriegel hat geschrieben:Um gezielter helfen zu können, sage uns bitte mal, welche Hard- und Software du benutzt. Also welches Betriebssystem, Emulator, etc.

Ich unterstelle mal, NC steht für NortonCommander, also wirst Du wohl Windows benutzen. Und da dann wahrscheinlich den Altirra-Emulator, oder?
Nun bin ich selber Mac-User (habe zwar nun auch einen kleinen Windows-Laptop, aber die ist meine Atari-Emulation noch nicht eingerichtet) und habe Altirra gerade nicht greifbar. Aber ich denke, Du musst die Änderungen, die Du im Emulator vorgenommen hast, speichern. Irgendwo im Disk-Menü des Altirra sollte es einen Punkt geben, der die aktuelle Disk speichert. Denn sonst hast Du zwar die Änderungen im Emulator vorgenommen, aber nicht auf der Disk gespeichert.

skriegel hat geschrieben:Ok, das kostet jetzt aber Schmerzensgeld: Ich habe mal meinen Windows-Laptop gestartet

Altirra 3.20 ist quasi "frisch", ohne besondere Einstellungen. Nun habe ich folgendes gemacht:

- Das ATR welches atarixle weiter oben verlinkt hat mit Altirra geladen.
- Wenn das Menü erscheint, "F7" (-> BREAK) gedrückt
- nun erstmal mit NEW aufräumen
- und mit CLS auch den Bildschirm "säubern"
- Jetzt das Listing von weiter oben mit Copy+Paste in Altirra eingefügt
- Listing auf der Diskette mit SAVE"D:MENU.TUR" gespeichert
- Nun im Altirra unter "File" den Punkt "Disk Drives" (Shortcut: ALT+D) ausgewählt
- Dort steht unter "D1:" unser ATR. Rechts daneben gibt es ein Dreieck/Pfeil, klickt man diesen an, kann man unter anderem "Save Disk" auswählen, und das ist, was wir wollen

Alex hat geschrieben:Hi Sascha,
super, ich wollte schon aufgeben.
Ich hatte nie Englischunterricht und das wird mir immer wieder zum Verhängnis- obwohl die Stelle mit den Drives hätte ich finden sollen. Wenn man aber immer wieder sucht, spult das Hirn immer wieder die gleichen Vorgänge ab.
Das ist das mit dem Wald und den Bäumen.

Danke an den Profi.

Code: Alles auswählen

[/quote]

Code: Alles auswählen

[quote]
Alles was nach obigem quote (in eckigen Klammern) und dem abschließenden /quote (auch in eckigen Klammern) steht, wird als Zitat dargestellt
[/quote]


Albert Einstein hat geschrieben:Das Problem mit Zitaten im Internet ist, dass man nie sicher sein kann, von wem sie wirklich stammen.

Burkhard hat geschrieben:Schau Dir mal das ATR-Image an! Gleich das erste Programm listet (nach einer kleinen Korrektur, es muß in einer Zeile, wo die Ausgabe der Directory voereitet wird, ein 'OPEN #1,6,0,"D:BAS"' zu 'OPEN #1,6,0,"D:*.BAS"' verändert werden) die BASIC Dateien und läßt den Start eines davon per Taste zu. Ein Diskwechsel ist auch möglich! Vielleicht ist das ja etwas was Du nutzen kannst!

Alex hat geschrieben:

Burkhard hat geschrieben:Schau Dir mal das ATR-Image an! Gleich das erste Programm listet (nach einer kleinen Korrektur, es muß in einer Zeile, wo die Ausgabe der Directory voereitet wird, ein 'OPEN #1,6,0,"D:BAS"' zu 'OPEN #1,6,0,"D:*.BAS"' verändert werden) die BASIC Dateien und läßt den Start eines davon per Taste zu. Ein Diskwechsel ist auch möglich! Vielleicht ist das ja etwas was Du nutzen kannst!

Hi Burkhard, ich kann aber leider im Listing diese Stelle nicht entdecken. Ich denke Du meinst "Automenu.bas"

andymanone hat geschrieben:Einfach in Altirra ein ATR-Image mit (irgend)einem DOS drauf in D1: mounten und im Auswahl-Menu daneben
statt Standard = "OFF" -> "R/W" (Read/Write = Lesen/Schreiben) auswählen.
Dann ins Basic booten, Code "reinkopieren" und nach dem Schema: SAVE "D1:TEST.BAS" den Code ins ATR sichern.
Damit wird das Basicprogramm dann im entsprechendem ATR-Image gesichert.

Gtx.,
andY

Burkhard hat geschrieben:Schau Dir mal das ATR-Image an! Gleich das erste Programm listet (nach einer kleinen Korrektur, es muß in einer Zeile, wo die Ausgabe der Directory voereitet wird, ein 'OPEN #1,6,0,"D:BAS"' zu 'OPEN #1,6,0,"D:*.BAS"' verändert werden) die BASIC Dateien und läßt den Start eines davon per Taste zu. Ein Diskwechsel ist auch möglich! Vielleicht ist das ja etwas was Du nutzen kannst!