Beim Anpassen des Programms an den CPC 464 unterlief uns leider ein kleiner Fehler. Abgedruckt wurde das Listing mit dem ersten (schwachen) Patch. Das GOSUB in Zeile 1300 ist natürlich nicht richtig. In Zeile 1145 stand ON ERROR GOTO 3210. Damit wurde beim CPC 664/6128 das Nichtvorhandensein einer Datei abgefangen und dann nach "Datei neu einrichten J/N ?” gefragt. Das Problem war nur die Zeile 3210. Hier stand nämlich folgendes: 3210 CLS#5: IF ERR < > 32 AND DERR < > 146 THEN PRINT+5, CHR$ (7); "Fehler Nr.”; ERR;"in Zeile ”,ERL;: CLS:ENDDas funktioniert wegen DERR natürlich nur auf der 6er Serie. Beim CPC 464 kommt grundsätzlich ein Programmabbruch, wenn die Datei nicht gefunden wird. Außerdem läßt sich die Zeile, in der DERR steht, nicht mehr listen. Also, ganz einfach ein GOSUB eingebaut und vor dem Eröffnen die obligate Frage stellen. Leider wurde das RETURN nicht mit abgespeichert und somit auch nicht gedruckt. Im zugehörigen Kasten finden Sie nun die richtige Form.H.H. Fischer |
