Data Becker's große 64er Programmsammlung
| Data Becker's große 64er Programmsammlung | |||
|---|---|---|---|
 |
Sprache | deutsch | |
| Autor(en) | diverse | ||
| Verlag | Data Becker | ||
| Jahr | 1984 | ||
| ISBN | ISBN 3-89011-014-2 | ||
| Neupreis | 49 DM | ||
| Datenträger | |||
| Seitenzahl | 252 | ||
| letzte Auflage | |||
| Genre | Programmieren | ||
| Information | |||
Vorwort[Bearbeiten | Quelltext bearbeiten]
Mit dieser Programmsammlung zum COMMODORE 64 wollten wir Maßstäbe setzen. Da gab es nur die Möglichkeit: Statt einen Autor damit zu quälen, daß er eine große Menge von Programmen schreibt, die sich dann möglicherweise alle ähneln, mußten wir eine große Anzahl von Autoren finden, die uns jeweils nur eines ihrer Meisterwerke schickten. Riesig war das Echo auf unsere Anfrage nach guten Beiträgen zur Programmsammlung in den anderen DATA BECKER Büchern, bei allen Autoren, auch bei denen, deren Programme wir nicht veröffentlichen konnten, dürfen wir uns ganz herzlich bedanken. In der vorliegenden Programmsammlung finden Sie diese Programme, die so unterschiedlich sind wie ihre Autoren, nicht nur einfach aufgelistet. Damit Sie nicht nur abtippen, sondern dabei auch noch lernen und wichtige Anregungen für Ihre eigenen Programme sammeln können, gibt es zu jedem Programm eine Beschreibung und einen Hinweis auf wichtige Routinen. Zusammengestellt hat dieses Buch Herr Jürgen Kausmann, der in unermüdlicher Arbeit die vielen 100 Programme sammelte und schließlich die besten für Sie auswählte.
Viel Vergnügen bei der Lektüre dieses Buches!
Dr. Achim Becker
Inhaltsverzeichnis[Bearbeiten | Quelltext bearbeiten]
Einführunq Die Steuerzeichen ............................ 1 Anpassen an die Datasette .................... 2 Die Autoren diese Buches ..................... 3 Simulation von Vorgängen Schieberkästen ............................... 10 Würfelsimulation ............................. 12 Life ......................................... 14 Lotto ........................................ 19 Börse ........................................ 21 Spiele Memorie ...................................... 27 Wortraten .................................... 33 Master-Mind .................................. 35 Vorsicht Falle ............................... 39 Pengo ........................................ 45 Senso ........................................ 51 4-er Spiel ................................... 56 Seeschlacht .................................. 63 Poison—Square ................................ 67 IQ-Test ...................................... 70 Verwalten von Daten Termin ....................................... 78 File-Manager ................................. 80 Bundesliga ................................... 84 Fibu ......................................... 93 Video ........................................ 104 Adressen ..................................... 114 Mathematische Programme Dividieren ................................... 118 Taschenrechner ............................... 119 Kurvendiskusion .............................. 122 Dreieck ...................................... 129 Mathe ........................................ 134 Graphische Darstellungen Acousto-Graph ................................ 141 Fourier 84 ................................... 148 Verschiedene Berechnungen Molekülberechnung ............................ 157 D Hondt ...................................... 162 Kosten-Vergleichs-Rechnung ................... 164 Kalender ..................................... 169 Prozent ...................................... 174 Verschiedene Anwenderprogramme Chiffre ...................................... 176 Datumsberechnung ............................. 178 Gitarrenschule ............................... 183 Etiketten .................................... 187 Orgel-64 ..................................... 189 Hilfreiche Programme DOS User ..................................... 192 Masken in BASIC .............................. 196 Datamaker .................................... 198 Input ........................................ 199 DiskInit ..................................... 200 Sprite Definition ............................ 203 Inhalt ....................................... 205 Menü ......................................... 210 Programme in Maschinensprache Sort ......................................... 213 Renumber ..................................... 218 Mastermind ................................... 227
Leseprobe[Bearbeiten | Quelltext bearbeiten]
(1. Auflage - Seite 120f: Kapitel "Taschenrechner")
10 IF FI<>0 THEN 280
20 POKE 53280,2
30 POKE 53281,0
40 PRINT"^S":REM FARBE GRUEN, BILDSCHIRM LOESCHEN
50 PRINT"***** VC-64 TASCHENRECHNER *****"
60 PRINT"***** VON HELMUT RETZLAFF *****"
70 PRINT
80 REM MASCHINENPROGRAMM POKEN:
90 FOR I=688 TO 698:READ V:POKE I,V:NEXT
100 DATA 169,0,32,144,255,32,142,166,76,174,167
110 REM TOKENTABELLE AUS DEM ROM LESEN:
120 DIM TT$(127)
130 I=41118:J=0
140 IF PEEK(I)=0 THEN LT=J-1:GOTO 200
150 TT$(J)=TT$(J)+CHR$(PEEK(I) AND 127)
160 IF (PEEK(I) AND 128)=0 THEN I=I+1:GOTO 140
170 I=I+1
180 J=J+1
190 GOTO 140
200 REM ZEILE 440 IM SPEICHER SUCHEN
210 LP=PEEK(641)+256*PEEK(642)+1
220 IF LP=0 THEN PRINT "ZEILE 440 NICHT GEFUNDEN":END
230 IF PEEK(LP+2)+256*PEEK(LP+3)<>440 THEN LP=PEEK(LP)+256*PEEK(LP+1):GOTO 220
240 REM VEKTOREN SICHERN UND AENDERN
250 V1=PEEK(770):V2=PEEK(771)
260 POKE 770,176:POKE 771,2
270 FI=1:REM INITIALISIERUNG BEENDET.
280 REM BEFEHLSZEILE EINLESEN:
290 PRINT
300 INPUT C$
305 IF C$="END" THEN 460
310 REM ZEILEN AUFBEREITEN:
315 IF LEFT$(C$,1)="!" THEN C$=MID$(C$,2):GOTO 330
320 C$="PRINT "+C$
330 C$=C$+":REM"
340 REM ZEILE IN DAS PROGRAMM SCHREIBEN:
350 I=1:J=LP+4
360 IF PEEK(J)=0 THEN PRINT "ZEILE ZU LANG!":GOTO 280
365 T$=MID$(C$,I,1):IF T$>="0" AND T$<="9" OR T$="(" OR T$=")" THEN 400
370 K=0
380 IF MID$(C$,I,LEN(TT$(K)))=TT$(K) THEN POKE J, 128+K:I=I+LEN(TT$(K)):GOTO420
390 IF K<LT THEN K=K+1:GOTO 380
400 POKE J,ASC(MID$(C$,I,1))
410 I=I+1
420 J=J+1
430 IF I<=LEN(C$) THEN 360
440 REM DIESE ZEILE IST ZUR SELBSTPROGRAMMIERUNG BESTIMMT..........
450 GOTO 280
460 REM VEKTOREN WIEDER NORMALISIEREN
470 POKE 770,V1:POKE771,V2
480 END
Zum Programm
Die Bedienung des Programmes:
Das Programm "VC-64 Taschenrechner" berechnet von der Tastatur eingegebene mathematische Ausdrücke und gibt das Ergebnis auf dem Bildschirm aus. Um z.B. das Produkt aus 5 und 17 zu berechnen, geben Sie 5*17 ein. Es steht dabei der gesamte mathematische Sprachvorrat des BASIC zur Verfügung. Sie können auch eine komplette BASIC-Zeile ausführen lassen, wenn Sie dieser ein Ausrufungszeichen voranstellen.
Was dahinter steckt:
Das Programm verwendet zur Berechnung des eingegebenen Ausdruckes eine Routine, die den Ausdruck mit vorangestelltem PRINT-Befehl in die Zeile 440 des Programmes
nachträglich einprogrammiert. Diese Selbstprogrammierung, die sich auch für zahlreiche andere Anwendungen (Funktionsplotter etc.) eignet, findet in den Zeilen 740-430
statt. Fast alle anderen Routinen des Programmes sind Hilfsroutinen für die Selbstprogrammierung. Lediglich das kleine Maschinenprogramm dient zum Abfangen von Fehlern
(D.h. der Fehler wird zwar angezeigt, das Programm läuft aber weiter).
Autor: Helmut Retzlaff
