Diskformat auf C64Wiki-Seite funktioniert nicht

Zitat von mikulask

In der C64Wiki zum Thema Formartieren wird ein Beispielprogramm "Bequemes Formartieren mit BASIC 2.0" vorgestellt: https://www.c64-wiki.de/wiki/Formatieren
Ich habe den Programmtext sorgfältig im C64 eingegeben. Leider kommt da ein Fehler "?SYNTAX ERROR IN 31"
Wer kann hier weiterhelfen?

PS: Es hat sich erledigt. Ich hatte in der Zeile 31 einfach ein Leerzeichen ausgelassen gehabt.
VIELEN DANK AN DEN PROGRAMMIERER, DER DIESES HILFREICHE PROGRAMM ZUR VERFÜGUNG GESTELLT HAT.

Dass die das bei Wiki auch immer in Großbuchstaben schreiben müssen.
Ansonsten hätte man das einfach per Paste und Copy im WinVice Bildschirm eintragen können.

Mit Kleinbuchstaben sieht es halt anders aus als man am C64 nach der Einschaltmeldung eingibt....

Ich hab mal spaßeshalber in Word den Code mit [SHIFT]+[F3] gewandelt:

sl FXXS

Zitat von FXXS

Mit Kleinbuchstaben sieht es halt anders aus als man am C64 nach der Einschaltmeldung eingibt....

Ich hab mal spaßeshalber in Word den Code mit [SHIFT]+[F3] gewandelt:

Code

1. 10 gosub 40: print "welches laufwerk formatieren (8-9)?"
2. 11 get gn$: gn=val(gn$): if gn$=chr$(13) then gn=8
3. 12 if gn<8 or gn>9 then 11
4. 13 print:input "geben sie bitte einen disk-namen ein (max.16 zeichen)";na$
5. 14 if na$="" then na$="c64-wiki"
6. 15 print:input "geben sie bitte eine disk-id ein (max. 2 zeichen)";id$
7. 20 gosub 40: print "bitte legen sie eine diskette im laufwerk ein"
8. 21 print:print "!!! achtung:"
9. 22 print "!! die formatierung löscht alle daten !!"
10. 23 print "bestaetigen mit taste j (=ja, sonst abbruch)"
11. 24 get a$: if a$="" then 24
12. 25 if a$<>"j" then print: print "abbruch": goto 33
13. 30 gosub 40: print "bitte warten sie - diskette wird formatiert"
14. 31 open 1,gn,15,"n:"+na$+","+id$: close 1
15. 32 print: print "> fertig <": print: a$=""
16. 33 print: print "eine weitere diskette formatieren (j/n)?"
17. 34 get a$: if a$="n" then end
18. 35 if a$<>"j" then 34
19. 36 a$="": print: print "mit den gleichen parametern (j/n)?"
20. 37 get a$: if a$="j" then 20
21. 38 if a$<>"n" then 37
22. 39 run
23. 40 printchr$(147):printspc(10);"*** diskformat 2013 by c64-wiki ***"
24. 41 print:return

Alles anzeigen

sl FXXS

Jup, funktioniert.
Mit Word die Groß- und Kleinschreibung zu ändern ist mir nicht eingefallen.

Gruß: Stephan

Das funktioniert auch mit Notepad++ recht gut und das ist nicht so eine "Fregatte" wie Word. Außerdem kostet es nix.
https://notepad-plus-plus.org/

Zitat von Dekay

Das funktioniert auch mit Notepad++ recht gut und das ist nicht so eine "Fregatte" wie Word. Außerdem kostet es nix.
https://notepad-plus-plus.org/

A, danke. Habs gleich mal runtergeladen und werde es jetzt mal testen.

Vielleicht wäre es auch eine Idee, die Copy/Paste-Funktion von VICE so zu erweitern, dass das automatisch gewandelt wird?

Zitat von kinzi

Vielleicht wäre es auch eine Idee, die Copy/Paste-Funktion von VICE so zu erweitern, dass das automatisch gewandelt wird?

Das macht sich nicht so gut, wenn man tatsächlich Grossbuchstaben einfügen will.

Ich halte es ja für sinnvoller, BASIC-Listings so darzustellen, wie sie vom Rechner tatsächlich intern repräsentiert werden: In Kleinbuchstaben.

Ich meine ja nur, dass man im "Edit"-Menü neben der "Paste"-Funktion evtl. eine zusätzlichen "Paste (CAPS)"-Funktion oder wie immer man sie nennen mag einbauen könnte, die dann genau das leistet. Also nicht anstatt, sondern zusätzlich. Ich hab das "Problem" nämlich auch öfters.