www.abbuc.de

@Sleepy:
"
Ich hatte mal (bzw. habe irgendwo auf irgendeiner Disk) ein Progrämmchen
"
Wenn Du das finden könntest, die heutigen Emulatoren drucken sehr schnell...

Hallo Leute

Was das nicht der G: Treiber von (wenn ich mich nicht irre) A.N.A.L.O.G. Computing?

Tschüß

Mathy

Hallo,

auf der JHV bin ich durch den Vortrag nochmal auf das Thema AtariBasicListings Aufmerksam geworden. Da ich Heute mal Zeit hatte habe ich mir mein altes Archiv mal zum Teil angeschaut. Was ich gefunden habe waren 3 Disketten mit Atari Turbo Basic XL Dateien. Denke mal die Disketten werde ich so bekommen haben. Vielleicht hat ja jemand Interesse daran, aber ich Denke mal einiges wird auch schon vorhanden sein.

Disk1
AUTORUN.BAS
MORSEGEB.BAS
TESTBILD.DAT
FASTDUMP.OBJ
HQDUMP.OBJ
MENU.OBJ
AUTORUN.SYS
DOS.SYS
DUP.SYS
APPLE.TUR
BTINFO.TUR
BTRACER.TUR
DISKMONI.TUR
FUENFZEI.TUR
GR0DUMP.TUR
HARDCOPY.TUR
LABEL.TUR
NDR.TUR
PSCONV.TUR
TAPELAB.TUR
TTRAINER.TUR
TUMBAU.TUR
UHR.TUR

Disk2
AMPEL.BAS
APFEL.001
APFEL.002
APFEL.003
APFEL.TUR
AUTORUN.A
AUTORUN.SYS
BETRDEM.BAS
BLOESCH.BAS
BSWITCH.BAS
COMPILER.COM
DISKMENU.BAS
DISKSORT.BAS
DOS.SYS
DUP.SYS
FILL.BAS
LADE.BAS
MONITOR.COM
MONITOR1.COM
PIA1.BAS
PIA2.BAS
PRUEFSUM.BAS
PUTGET.TUR
RUNTIME.COM
SCOOTER.COM
SCRSTR.BAS
SPIELE.TUR
SUBMISS.COM
SWITCHER.M65
TRACAR.M65
TURBOIO.BAS
TWOMAZE.COM
WINDBEIS.BAS
WINDOWS.COM
WORDWRAP.BAS

Disk3
DIGILOO.BAS
DOS.SYS
PMMOVE.TUR
SOUND.12
SOUND.3
SOUND.4
SOUND.5
SOUND.6
SOUND.7
SOUND.8

Hallo,

maile mir die TUR Programme bzw. Disk-Images doch mal zu. Meine Mail: andiko ibmAT web standPUNKT de Oder du mailst sie an Mr. Bacardi...

Gruß und Dankeschön! - Andreas Koch.

Hi Thomas,
bei Disk 2 & 3 dürfte es sich um die Disketten des Happy Computer Sonderheftes 1 handelt - die sind schon vorhanden.
Bei Disk 1 muss ich passen - sind eventuell zusammenkopierte Turbo Basic Programme ...
Kannst Du aber gerne mal schicken.

VG,
Stephan

der PM Editor (aus Computer Praxis 5/84) ist nun fertig abgetippt, das Debuggen dauert aber wegen des verschlungenen Spaghetticodes noch an. 6 (Tipp-)Fehler habe ich schon erlegt.

Hi,

die Mail ist raus.

FlorianD hat geschrieben:der PM Editor (aus Computer Praxis 5/84) ist nun fertig abgetippt, das Debuggen dauert aber wegen des verschlungenen Spaghetticodes noch an. 6 (Tipp-)Fehler habe ich schon erlegt.

Der PM Editor ist jetzt auch online!
Damit ist die "Computer Praxis" nun komplett!
Danke Florian für die Arbeit!

Für alle die noch was zum Abtippen suchen habe ich die Listings von "Gerorgie's Journey" aus Happy Computer und "Sprinter '84" aus der Homecomputer online gestellt. Die Listings sind schon etwas länger, eignen sich also hervorragend zum Teamwork...

Mr_Bacardi hat geschrieben:Für alle die noch was zum Abtippen suchen habe ich die Listings von "Gerorgie's Journey" aus Happy Computer und "Sprinter '84" aus der Homecomputer online gestellt. Die Listings sind schon etwas länger, eignen sich also hervorragend zum Teamwork...

Hi,

Das Listing ist ja zum Glück mit Prüfsumme . Ich kann ja mit Georgie's Journey mal Anfangen.

Ich mache gerade aus "Chip Special: Atari 600 XL/800 XL Programme":
- Quadratische Gleichungen (by J.Peschetz)
- Nullstelle einer Funktion (by J.Peschetz)
- Morsen lernen (by Bernd Moser)
- Sternbilder und Planeten(by Bernd Moser)

...und dann die anderen BASIC-Sachen.
Morsen kann mein Rechenknecht jetzt auch schon.

Sleepy hat geschrieben:Das "ATARI XL/XE Tips & Tricks" habe ich im Original. Dann setzte ich mich da mal dran.

Da das Buch recht MC-lastig ist stelle ich es erst mal zurück bzw. "gebe es wieder frei" und konzentriere mich auf die BASIC-Programme aus dem o.g. Chip Special.

Sleeπ

Edit: 17+4 sowie CASTLE COMBAT sind auch abgetippt.

Hi,
kurze Frage, gibt es zum Listing eventuell eine Korrekturlisting. Im Listing sind einige kleinere Fehler. Zeile 1110 ist unvollständig. Zeile 10490 ist 2 mal der Print auf die gleiche Position angegeben.

Ich hab in meiner Diskettenbox noch eine Diskette mit Computronic 1987 beschriftet. Habt ihr da alles oder soll ich mal nach dem Inhalt der Diskette schauen und ggf ATRen?

Bei Computronic 1987 fehlt noch was.
Bitte schicken!
Emailadr. siehe auf dieser Seite ganz oben:
http://ataribasiclistings.mygamesonline.org

Nun,

die Listings "Zeichensatzprogramm" (Roland Reyer) und "Digitaluhr" aus HC-Mein Homecomputer 11/1983 und 12/1983 wird gerade von eda70 abgetippt. Da die Scanauflösung dieser Magazine leider sehr gering ist (und mir nur eines davon als Original vorliegt), wird wohl noch etwas bugfixing notwendig sein...

Hallo,

ich mache auch mit. Bin zur Zeit an einem Buch dran:

"Utilities in BASIC für Atari-Computer von Alfred Görgens, 1985 HC-Mein Home-Computer"

Gruß


Andreas

Hallo,

das Listing Georgie's Journey ist fast fertig und ich auch. Scherz, muss nur noch durch die Kontrolle. Habe gesehen das die Listings aus der C'PU eingestellt werden Das Listing aus der CPU 1/86 "Super-Sektor-Kopierer" habe ich schon gescannt und durch das OCR Programm gejagt. Muss nur noch korrigiert werden.

Code: Alles auswählen

0 POKE 559,0
1000 REM * Binaer-File laden
1010 S=O:RESTORE 1100
1015 OPEN #1,8,0,"D:SCOPY.OBJ"
1016 PUT #1,255:PUT #1,255
1017 PUT #1,O:PUT #1,170
1018 PUT #l,o:PUT ~1,183
1020 FOR A=43520 TO 46848:READ D:PUT #1,D:S=S+D:NEXT A
1030 IF S<>339993 THEN ? "DATEN-FEHLER!":STOP
1090 CLOSE #l:GRAPHICS O:END
1100 DATA 76,48,176,174,0,2,172,1,2,142,237,182,140,238,182,120,216
111O DATA 173,48,2,133,128,173,49,2,133,129,160,0,169,240,145~28
1120 DATA 169,192,141,14,212,169,82,141,0,2,169,170,141,1,2,169,58
1130 DATA 141,4'7,2,169,2,141,29,208,169,16,141,7,212,i60,o,is~,i~~
1140 DATA °~20~153,0,21,200,208,247,88,169,1~41,iii,2,96,i~o,~~~~~
1150 DATA 72,152,72,173,206,170,141,18,208,141,19,208,32,iio~i~o,~~
1160 DATA 170,170·,104,168,104,170,104,88,64,174,0,2ii,i3s,~i~i,~o~
1170 DATA 9,173,205,170,56,233,2,141,205,170,138,4i,2,2o~,~,i~~~~o~
1180 DATA 17°~24,105,2,141,205,170,138,41,4,208,9,i73,204,i~o,~~,~~~
1190 DATA 2,141,204,170,138,41,8,208,9,173,204,170,24,105,2,141,204
1200 DATA 170~96,173,2O4,170,141,0,208,24,1o5,8,i4i,i,2os,i~~,~o~
1210 DATA 170,162,26,189,207,170,153,0,20,189,234,170~153,0,21,200
1220 DATA 202,16~240,96,112,100,15,0,0,0,0,0,0,0,0,0,7,15,31,31,15
1230 DATA 11,6,12,24,48,0,0,O,0,0,0,0,0,0,0,0,0,0,0,0,0,192,96,176
1240 DATA 208,224,224,96,96,48,0,0~0~,0,0,0,0,0,0,168,173,7~28,72
1250 DATA 173~6,228~72,152,96,125~~~~4,105,118,ioi,iis,~~,ii~,iii
1260 DATA 32,99,104,111,111,115,101,32,97~115,32,ii5,iii,ii~,ii~,~~
1270 DATA 101,58,155,17,18,18,18,18,18,18,18,5,17~8,18,18,18,18,18
1280 DATA 5,17,18,18,18,18~18,5,17,18~18~8,18,18~8,5,155,124,32
1290 DATA 18,18,18,18~18,49.~124,124,32,18,18,18,18,50,124~124,32,18
1300 DATA 18,18,51,124,124,32,18,18~18,18,52,124,155,26,18,18,18,18
1310 DATA 18,18,18,3,26,18,18~18,18,18,18,3,26,18,18~18,18,18,3,26
1320 DATA 18,18,18,18~18~~~3,155,68,114,105,118,101~115,32,116,111
1330 DATA 32,99,104,111,111,115,101~32,97,115,32,100~01,115,116,110
1340 DATA 46,58,155,17,18,18,18,18,18,18,18,5,17,18,18,18,18,18,18
1350 DATA 5~17,18,18~18,18~18,5~17,18,18,18,18,18,18,5,155,124,32
1360 DATA 18,~8,18,18,18,49,124,~4,32,18,18,18,18,50,124,124,32,18
1370 DATA 18,18,51,124,124,32,18,18,18~18,52,124,155,26,18,18,18,18
1380 DATA 18,18,18,3,26,18,18,18,18,18,18,3,26,18,18,18,18,18,3,26
1390 DATA 18,18,18,18~18,18,3,155,67,111,112,121,32,79,112,116,105
1400 DATA 111,110,115,58,155,17~18,18,18,18,18,18,18,18,18,18,18,18
1410 DATA 18,18,18,5,17,18,18,18,18,18,18,18~18,18,18,18,18,18,5,155
1420 DATA 124,70,111,114,109,97,116,32,68,101,115,116,110,46,32,32
1430 DATA 124,124,78,111,32,70,111,114,109,97,116,32,32,32,32,124
1440 DATA 155,26,18,18,18,18,18,18,18~18,18,18,18~18,18,18,18,3,26
1450 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,3,155,17,18~18,18
1460 DATA 18,18,18,18,18,18,18~18,18,18,18,18,5,17,18,18,18,18,18
1470 DATA 18,18,18,18,18,18,18~8,5,155,124,83,105,110,103,108,101
1480 DATA 32,68,101,110,115,105,116,121,32,124,124,49,48,53,48,32
1490 DATA 68,101,110,115,105,116,121,32,124,155,26,18,18,18,18,18
1500 DATA 18,18,18,18,18,18~18,18,18,18,3,26,18,18,18,~,18,18,18
1510 DATA 18,18,18,18,18,18,3,155,42,83,84,65,84,85,83,32,82,69,81
1520 DATA 85,69,83,84,42,32,32,42,83,69,67,84,79,82,32,67~79,80,89
1530 DATA 42,32,155,29,29,155,32,32,32,84,72,69,32,83,85,80,69,82
1540 DATA 32,83,69,67,84,79,82,32,67,79,80,73,69,82,155,32,32,32,40
1550 DATA 67,41,32,49,57~56~53,32,66,89,32,77,72,45,80,82,79,68,85
1560 DATA 67,84,73,79,78,83~155,32,32,32,87,82,73,84,84,69,78,32,66
1570 DATA 89,32,79,76,73,86,69,82,32,83,67,72,65,65,75,69,155,125
1580 DATA 17,18,18,18,18,18,18,18,18~18,18,18,18,18,18,18,18,18,18
1590 DATA 18,18,18~18,18,18,18,18,18,18,18,18,5,155,124,32,68,105
1600 DATA 115,107,32,67,104,97,110,103,101,100,32,97,110,100,32~67
1610 DATA 111,110,116,105,110,117,101,32,32,32,32~124,155,26,18,18
1620 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
1630 DATA 18,18,18,18,18,18,18,18~18~,155~125,17,18~18,18,18,18,18
1640 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
1650 DATA 18,18,18,18,18,5,155~124,32,69,114,114,111~114,32,102,111
1660 DATA 117,110,100,46,89,111,117,114,32,99,104,111,105,99,101,58
1670 DATA 32,32,32,32,32,124,155,26,18,18,18,18,18,18,18,18,18,18
1680 DATA 18,18,18,18,18,18,18,18~18,18,18,18,18,18,18,18,18,18,18
1690 DATA 18,3,155,17,18,18,18,18~18,18,18,18,18,18,18,18,18,18,18
1700 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,5,155,124,32
1710 DATA 69,114,114,111,114,46,82,101,116,114,121,32,79,112,101,114
1720 DATA 97,116,105,111,110,32,32,32,32,32,32,32,32,124,155,26,18
1730 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
1740 DATA 18,18,18,18,18,18,18,18,18,18,3,155,17,18,18,18,18,18~18
1750 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
1760 DATA 18,18,18,18,18,5,155,124,32,69,114,114~11,114,46,65,98
1770 DATA 111,114,116,32,79,112,101,114,97,116,105,111,110,32,32,32
1780 DATA 32,32,32,32,32,124,155,26,18,18,18,18~18,18,18,18,18,18
1790 DATA 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18
1800 DATA 18,3,155,138,162,0,157,68,3,152,157,69,3,169,9,157,66,3
1810 DATA 169,255,157,72,3,169,0,141,47,2,32~86,228,169,58,141,47
1820 DATA 2~96,162,0,160,6,142,68,3,140,69,3,162,128,160,5,142~72
1830 DATA 3,140,66,3,162,0,32,86,228,96,162,16,160,171,32,235,174
1840 DATA 162,45,160,171,32,235~174,162,78,160,171,32,235,174,162
1850 DATA 111,160~171,32,235,174,162,144,160,171,32,235,174,162,172
1860 DATA 160,171,32,235,174,162,205,160,171,32,235,174,162,238~160
1870 DATA 171,32,235,174,162,15~160,172,32,235,174,162,29,160,172
1880 DATA 32,235,174,162,62,160,172,32,235,174,162,95,160,172,32,235
1890 DATA 174,162,128,160,172,32,235,174,162,161,160,172,32,235,19~
1900 DATA 162,194,160,172,32,235,174,162,227,160,172,32,235~174,162
1910 DATA 4,160,173,32,235,174,1~2,7,160,173,32,235,174,162,34,160
1920 DATA 173,32,235,174,162,64,160,173,32,235,174,169,1,141,240,2 ~
1930 DATA 133,9,162,48,160,176,134,12,132,13,169~15,162,0,160,114
1940 DATA 141,197,2,142,200,2~140,198,2,96,162,1,142,42,176,169,49
1950 DATA 141,0,3,24,172,42,176,192,5,240,71,140,1,3,169,83~141,2
1960 DATA 3~169,64,141,3,3,169,0,141,4,3,169,6,141,5,3,169,128,141
1970 DATA 8,3,169,0,141,9,3,32,83,228,16~2,48,12,174,42,176,202,169
1980 DATA 171,157,44,176,76,36,176,174,42,176,202,169,173,157,44,176
1990 DATA 76,36,176,238,42,176,76,215~175,0,96,46,46,46,46,32,210
2000 DATA 175,32,39,175,32,3,170,162,0~60,2,132,84,160,3,132,85,189
2010 DATA 44,176,32,5,171,162,1~60,2,132,84,160,12,132,85,189,44
2020 DATA 176,32,5,171 162,2~189,44,176~~60,20,132,85,32,5,171,162
2030 DATA 3,189,44,176,160,27,132,85,32,5,171~62,0,189,44,176,160
2040 DATA 3~132,85,160,6,132,84,32,5,171,162,1,189,44,176,160,12,132
2050 DATA 85,32,5,171,162,2,189~44,176,160,20~132,85,32,5,171,162
2060 DATA 3~189,44,176,160,27,132,85,32,5,171,165,20,197~20,240,250
2070 DATA 32,239,182,32,245,182~32,115,178~32,76,178,32,190,176,76
2080 DATA 183,176,96,169,1,141,132,2,173,132,2,201,0,208,249,162,38
2090 DATA 236,205,170,240,56,232,224,51,208,246,162,68,236,205,170
2100 DATA 240,47,232,224,83,208,246,162,100,236,205,170,240,38,232
2110 DATA 224,115,208,246,162,124,236,205,170,240,29,232,224,141,208
2120 DATA 246,162,144,236,205,170,240,20,232,224,151,208,246,76,189
2130 DATA 176,76,24,177,76,95,177,76,166,177,76,207,177,76,247,177
2140 DATA 162,56,236,204,170,240,44,232,224,85,208~246,162,92,236
2150 DATA 204~70,240,37~32~24~16,208,~~6,162~~~~~~~~4,~0,240
2160 DATA 30,232,224,146,208~246,162,152,236,204,170,240,23,232,224
2170 DATA 181,208,246,76,189,176,162,1,76,27,178,162,2,76,27,178,1~~
2180 DATA 3,76,27,178,162,4,76,27,178,162,56,236,204,170,240,44,232
2190 DATA 224,85,208,246,162,92,236,204~~70,240,37,232,224,116,208
2200 DATA 246,162,124,236,204,170,240,30,232,224,147,208,246,162,152
2220 DATA 76,48,178,162,2,76,48,178,162,~~~~~~~~~~~~~4~~78
2230 DATA 162,56,236~204,170~240,17,232,224,117,208,246,162,124,236
2240 DATA 204,170,240,14,232,224,181,208,246,173,69,178,141,72,178
2250 DATA 76,76,178,169,0,141,72,178,76,76,178,162,56,236,204,170
2260 DATA 240,17,232,224,117,208,246,162,124,236,204,170,240,13,232
2270 DATA 224,181,208,246,162,33,142,69,178~76,115,178,162,34,142
2280 DATA 69,178,76,115,178,162,56,236,204,170,240,20,232,224,117
2290 DATA 208,246,162,124,236,204,170,240,14,232,224,181,208,246,76
2300 DATA 189,176,76,48,176,76,189,176,76,73,178,142,70,178,138,24
2310 DATA 105,48,162,0,160,38,134,84,132,85,32,5,171,76,189,176,142
2320 DATA 71,178,138,24,105,48,162,4,160,38,134,84,132,85,32,5,171
2330 DATA 76,189,176,33,1,1,0,76,103,180,173,72,178,201,0,240,16,169
2340 DATA 89,162,10,160,38,134,84~132,85,32,5,171,76,189,176,169,78
2350 DATA 162,10,160,38,134,84,132,85,32,5,171,76,189,176,173,69,178
2360 DATA 201,33,240,16,169,68,162,13,160,38,134,84,132,85,32,5,17
2370 DATA 76,189,176,169,83,162,13,160,38~134,84,132,85,32,5,171,76
2380 DATA 189,176,169,64,141,14,212,169~49,141,0,3~173,70,178,141
2390 DATA 1,3,169,82,141,2,3,169,64,141,3,3,173,69,182,141,10,3~173
2400 DATA 70,182,141,11,3,173,71,182,141,4,3,173,72,182,141,5,3,169
2410 DATA 128,141,8,3,169,0,141,9,3,32,83,228,48,35,24,173,69,182
2420 DATA 105,1,141,69,182,173,70,182,105,0,141,70,182,24,173,71,182
2430 DATA 105,128,141,71,182,173,72,182,105,0,141,72,182,96,162,193
2440 DATA 160,173,32,235~174,162,227~160,173,32,235,174,162,4,160
2450 DATA 174,32,235,174,162,37,160,174,32,235,174,162,70,160,174
2460 DATA 32,235,174,162,103,160,174~~32,235,174,162,136,160,174,32
2470 DATA 235,174,162,169~160,174,32~235,174,162,202,160,174,32,235
2480 DATA 174,32,11,182,76,154,178,169,64,141,14,212,169,49,141,0
2490 DATA 3,173,71,178,141,1,3,169,80,141,2,3,169,128,141,3,3,173
2500 DATA 69,182,141,10,3,173,70,182,141,11,3,173,71,182,141,4,3,173
2510 DATA 72,182,141,5,3,169,128,141~,3,169~0,141,9,3,32,89,228,48
2520 DATA 35,24,173,69,182,105,1,141,69,182,173,70,18~,105,0,141,70
2530 DATA 182,24,173,71,182,105,128,141,71~~82,173,72,182,105,0,141
2540 DATA 72,182,96,162,193,160,173,32,235,174,162,227,160,173,32
2550 DATA 235,174,162,4,160,174,32,235,174,162,37,160,174,32,235,174
2560 DATA 162,70,160,174,32,235,174,162,103,160,174,32,235,174,162
2570 DATA 136,160,174,32,235,174,162,169,160,174,32,235,174,162,202
2580 DATA 160,174,32,235,174,32,11,182,76,67,179,169,64,141,14,212
2590 DATA 169,49~141,0,3,173,71,178,141,1,3,173,69,178,141,2,3,169
2600 DATA 34,141,3,3,169,255,141,6,3,141,7,3,32,89,228,48,7,165,20
2610 DATA 197,20,240,250,96,162,193,160,173,32,235,174,162,227,160
2620 DATA 173,32,235,174,162,4,160,174,32~235,174,162,37,160,174,32
2630 DATA 235,174,162,70,160,174,32,235,174,162,103,160,174,32,235
2640 DATA 174,r62,136,160 174,32,235,174,162,169,160,174,32,235,174
2650 DATA ~~2,202,160,174,32,235,174,32,11,182,76,236,179,96,32,236
2660 DATA 1~9,76,153,180,169,1,141,69,182,169,0,141,70,182,169,0,141
2670 DATA 71,182,169,22,141,72,182,32,73,182,32,154,178,173,69,182
2680 DATA 201,41,208,246,173,70,182,201,1,208,239,32,135,182,173,72
2690 DATA 178,201,0,208,200,169,1,141,69,182,169,0,141,70,182,169
2700 DATA 0,141,71,182,169,22,141 72,182,32,67,179,173,69,182,201
2710 DATA 41,208,246,173,70,182,201,1,208,239,32,73,182,169,41,141
2720 DATA ~9,182,169,1,141,70,182,169,0,141,71,182,169,22,141,72,182
2730 DATA 32,154,178,173,69,182,201,81,208,246,173,70,182,201,2,208
2740 DATA 239,169,41,141,69,182,169,1,141~0~82,169,0,141,71,182
2750 DATA 169,22,141,72,182,32,135,182,32,67,179,173~69,182,201,81
2760 DATA 208,246,173,70,182,201,2,208,239,32,73,182,169,81,141,69
2770 DATA 182,169,2,141,70,182,169~0,141,71,182,169,22,141,72,182
2780 DATA 32,154,178~73,69,182,201,209,208,246,173,70,182,201,2,208
2790 DATA 239,169,81~41,69,182,169,2,141,70,182,169,0,141,71,182
2800 DATA 169,22,141.~2,182,32,135,182,32,67,179,173,69~182,201,209
2810 DATA 208,246,173,70,182,201,2,208,239,173,69,178,201,34,240,3
2820 DATA 76,51,176,169,209,141,69,182,169,2,141,70,182~169,0,141
2830 DATA 71,182,169,22,141,72,182,32,73,182,32,154,178,173,69,182
2840 DATA 201,249,208,246,173,70,182,201,3,208,239,169,209,141,69
2850 DATA 182,169,2,141,70,182,169,0,141,71,182,169,22,141,72,182
2860 DATA 32,135,182,32,67,179,173,69,182~201,249,208,246,173,70,182
2870 DATA 201,3,208~239,32,73,182~69,249~141,69,182,169,3,141,70
2880 DATA 182,169,0,141,71,182,169,22,141,72,182,32,154,178,173,69
2890 DATA 182,201,17,208,246,173,70,182,201,4,208,239,169,249,141
2900 DATA 69,182,169,3,141,70,182,169,0,141,71,182,169,22,141,72,182
2910 DATA 32,135,182,32~67,179,173,69,182,201~7,208,246,173,70,182
2920 DATA 201,4,208,239~76,51,176,169,192,141,14,212,173,132,2,201
2930 DATA 0,208,249,162,34,236,205,170,240,32,232,224,43,208,246,162
2940 DATA 44,236,205~170,240,23,232,224,66,208,246,162,69,236,205
2950 DATA 170,240,12,232,224,91,208,246,76,16,182,104,104,96,96,76
2960 DATA 51,176,0,0,0,0,32,3,170,162,93~60,173,32,235,174,162,127
2970 DATA 160,173,32,235,174,162,160,160,173,32,235,174,162,197,160
2980 DATA 182,32,235,174,173,70,178,205,71~178,208,22,173,132,2,201
2990 DATA 0,208,249,162,28,236,205,170,240,8,232,224,51,208,246,76
3000 DATA 112,182,96,32,3,170,162,93,160,173,32,235,174,162,127,160
3010 DATA 173,32,235~74,162,160,160,173,32,235,174,162,217,160,182
3020 DATA 32,235,174,173,70,178,205,71,178,208,22,173,132,2,201,0
3030 DATA 208,249,162,29,236,205,170,240,8,232,224,51,208,246,76,174
3040 DATA 182,96,73,78,83,69,82,84,32,83,79,85,82,67,69,32,68,73,83
3050 DATA 75,46,155,73,78,83,69,82,84,32,68,69,83,84,78,46,32,68,73
3060 DATA 83,75,46,155,194~192,174~70,178,76,27,178,174~ ~178,76
3070 DATA 48,178,0,255,255,0,0,0

... habe das Buch zu 3/4 fertig.



Die Fehlerbehebung ist ja auch immer wieder eine sehr spannende Sache.
Nun hatte ich gerade einen Fehler, der nicht im Programm selbst war, sondern
es scheint am Emulator zu liegen (oder am BASIC-ROM?).

Jedenfalls liefert die Tastaturabfrage von SHIFT+3 keinen Wert.
Die Werte davor und danach funktionieren. Also:

SHIFT+1=33
SHIFT+2=34
SHIFT+3=? (sollte 35 sein)
SHIFT+4=36
usw.

Code: Alles auswählen

10 CLOSE #1
20 OPEN #1,4,0,"K:"
30 GET #1,T
30 ? T
40 GOTO 10


Meine Tastatur am PC ist auch i.O.
Ich verwende momentan den "ATARI800" unter Linux Ubuntu.

Die "inverse"-Taste kann ich beim "ATARI800" auch nicht finden. Hab schon alles Mögliche probiert...

Gruß Andreas

Ich komm mit dem Updaten der Seite gar nicht mehr nach - so macht das Spaß!

@Snatchbit: Bin echt gespannt auf den Super-Sektor-Kopierer. Gibt es in der Ausgabe noch weitere Atari Programme? Hab die Ausgabe leider nicht als pdf.
@Atausla: Tastaturbelegung bei Emulator ist immer so eine Sache. Es ist hilfreich ein Bild der original Atari Tastatur parat zu haben. Shift + 3 hat bei mir auf Altirra auch nichts ergeben. Das Rätsels Lösung wird wahrscheinlich sein dass das "§" Zeichen nicht auf dem Atari existiert. Auf dem Atari ist die "3" mit "#" doppelt belegt! Invers Umschaltung klappt bei mir mit "Ende" Taste - probier mal...

Mr_Bacardi hat geschrieben:Ich komm mit dem Updaten der Seite gar nicht mehr nach - so macht das Spaß!

@Snatchbit: Bin echt gespannt auf den Super-Sektor-Kopierer. Gibt es in der Ausgabe noch weitere Atari Programme? Hab die Ausgabe leider nicht als pdf.

Hi,
Ja, die CPU Ausgabe hat noch 2 weiter Listings.
1.Utility: "EPSON FX/RX-80-Drucker druckt Atari Zeichensatz" Diese Programm versetzt den Epson FX/RX-80-Drucker in der Lage, das gesamte Zeichenspektrum des Atari-Zeichensatzes auszudrucken. Besteht aus mehereren Listings by Michael Sassin. 1. Assemblerlisting (enthält die Druckerroutinen) und ein Basic-Loader und 2 Demoprogramme in Basic .

2 Utility: "Atari: Translator für MS-Routinen" Dieses Programm ermöglicht es, kurze Maschinensprachroutinen in DATA-Statements unzuwandeln und in Basic-Listings einzuflechten.