Basis 108? Ist das der Apple Clone?
DER Clone!
Posts by ZuseZ1
-
-
Very nice!!!
-
jaha, es geht mir um die Originaldiskette
-
Ein sehr schönes Bundle!
Habe selber nur die IBM Software, für Apple suche ich erfolglos seit Jahren
.:. Lutz
-
Das Keyboard ist für Analphabeten
Was sind Phabeten?
Oh behave!
Solang er nicht versehentlich Analalphabet schreibt
-
PC-Dos 1 und ein paar SCSI Essentials
Wow! Suche bereits Ewigkeiten nach einem Originalsatz DOS 1-Disketten (umd Windows 1 oder 2). Klasse Fund!
-
Display More
Display MoreDisplay More
NeXTSTEP : Gibt's auch ein Bild vom inneren des Basic-Manuals?
Das Handbuch hat einen Appendix, in dem das Laden des Altair Basic via Lochstreifen auf Intellec 8/Mod 80 und MDS Systemen erklärt wird. Interessant sind auch die topaktuellen Buchempfehlungen zum Erlernen von Basic
Ich beneide dich richtig um dieses Buch! Klasse Fund!!!
Wenn es nur um den Inhalt geht, dann kann ich die Seiten gerne einscannen und ein PDF davon bereitstellen.
Nehe. Das Gesamtwert ist klasse!
Danke für dein Angebot.
-
Display More
NeXTSTEP : Gibt's auch ein Bild vom inneren des Basic-Manuals?
Das Handbuch hat einen Appendix, in dem das Laden des Altair Basic via Lochstreifen auf Intellec 8/Mod 80 und MDS Systemen erklärt wird. Interessant sind auch die topaktuellen Buchempfehlungen zum Erlernen von Basic
Ich beneide dich richtig um dieses Buch! Klasse Fund!!!
-
Das kann ich dir nicht sagen, Telexer.
Wichtig noch einmal: integerbasic muss aktiviert werden (ich weiß allerdings nicht mehr, ob du dass vor dem Laden von Kassette machen musst, oder anschließend machen kannst).
Lesen von Tape ist verbunden mit Fehlermoglichkeiten (zu laut, zu leise)
Warum tippst du die paar Zeilen nicht einfach ab? Dann kannst du noch ein paar Kleinigkeiten lernen. So WAV lade und aufspielen ist sooo 2010
Viel Erfolg
-
vorher auf Integer Basic wechseln und dann einfach eintippen.
-
Listing für Breakout?
Einfach das DSK-File von Asimov herunterladen, dann mit z.B. AppleWin oder CiderPress öffnen und auslesen
Wurde von Steve in Integer Basic geschrieben.
Display MoreCode- 10 TEXT : CALL -936: VTAB 4: TAB 10: PRINT "*** BREAKOUT ***": PRINT : PRINT " OBJECT IS TO DESTROY ALL BRICKS": FOR N=1 TO 3000: NEXT N
- 20 DIM A$(15),B$(10): GR : PRINT : INPUT "HI, WHAT'S YOUR NAME? ",A$:A=1:B=13:C=9:D=6:E=15: PRINT "STANDARD COLORS, ";A$;
- 30 INPUT "? ",B$: IF LEN(B$)=0 THEN 60: IF B$(1,1)#"N" THEN 60: FOR I=0 TO 39: COLOR= I/2*(I<32): VLIN 0,39 AT I
- 40 NEXT I: POKE 34,20: PRINT : PRINT : PRINT : FOR I=0 TO 15: VTAB 21+I MOD 2: TAB I+I+1: PRINT I;: NEXT I: POKE 34,22: VTAB 24: PRINT : PRINT "BACKGROUND";
- 50 GOSUB 170:A=E: PRINT "EVEN BRICK";: GOSUB 170:B=E: PRINT "ODD BRICK";: GOSUB 170:C=E: PRINT "PADDLE";: GOSUB 170:D=E: PRINT "BALL";: GOSUB 170
- 60 POKE 34,20: COLOR= A: FOR I=0 TO 39: VLIN 0,39 AT I: NEXT I: FOR I=20 TO 34 STEP 2: TAB I+1: PRINT I/2-9;: COLOR= B: VLIN 0,39 AT I: COLOR= C: FOR J=I MOD 4 TO 39 STEP 4
- 70 VLIN J,J+1 AT I: NEXT J,I: TAB 5: PRINT "SCORE = 0": PRINT : PRINT : POKE 34,21:S=0:P=S:L=S:X=19:Y=19:L=6
- 80 COLOR= A: PLOT X,Y/3:X=19:Y= RND (120):V=-1:W= RND (5)-2:L=L-1: IF L<1 THEN 510: TAB 6: IF L>1 THEN PRINT L;" BALLS LEFT"
- 90 IF L=1 THEN PRINT "LAST BALL, ";A$: PRINT : FOR I=1 TO 100: GOSUB 1000: NEXT I:M=1:N=0
- 100 J=Y+W: IF J>=0 AND J<120 THEN 110:W=-W:J=Y: FOR I=1 TO 6:K= PEEK (-16336): NEXT I
- 110 I=X+V: IF I<0 THEN 1200: GOSUB 1000: COLOR= A:K=J/3: IF I>39 THEN 130: IF SCRN( I,K)=A THEN 150: IF I THEN 180:N=N+1:V=(N>5)+1:W=(K-P)*2-5:M=1
- 120 Z= PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336): GOTO 150
- 130 FOR I=1 TO 6:M= PEEK (-16336): NEXT I:I=X:M=0
- 140 V=-V
- 150 PLOT X,Y/3: COLOR= E: PLOT I,K:X=I:Y=J: GOTO 100
- 160 PRINT "INVALID. REENTER";
- 170 INPUT " COLOR (0 TO 15)",E: IF E<0 OR E>15 THEN 160: RETURN
- 180 IF M THEN V= ABS (V): VLIN K/2*2,K/2*2+1 AT I:S=S+I/2-9: VTAB 21: TAB 13: PRINT S
- 190 Q= PEEK (-16336)- PEEK (-16336)+ PEEK (-16366)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)
- 200 IF S<720 THEN 140
- 500 PRINT "CONGRATULATIONS, ";A$;" YOU WIN!": GOTO 600
- 510 PRINT "YOUR SCORE OF ";S;" IS ";: GOTO 520+(S/100)*10
- 520 PRINT "TERRIBLE!": GOTO 600
- 530 PRINT "LOUSY.": GOTO 600
- 540 PRINT "POOR.": GOTO 600
- 550 PRINT "FAIR.": GOTO 600
- 560 PRINT "GOOD.": GOTO 600
- 570 PRINT "VERY GOOD.": GOTO 600
- 580 PRINT "EXCELLENT.": GOTO 600
- 590 PRINT "NEARLY PERFECT."
- 600 PRINT "SAME COLORS, ";A$;: GOTO 30
- 1000 Q=( PDL (0)-20)/6: IF Q<0 THEN Q=0: IF Q>=34 THEN Q=34: COLOR= D: VLIN Q,Q+5 AT 0: COLOR= A: IF P>Q THEN 1100: IF Q THEN VLIN 0,Q-1 AT 0:P=Q: RETURN
- 1100 IF P=Q THEN RETURN : IF Q#34 THEN VLIN Q+6,39 AT 0:P=Q: RETURN
- 1200 FOR I=1 TO 80:Q= PEEK (-16336): NEXT I: GOTO 80
-
Marno, du Tierquäler. Stellst einfach eine Kerze neben deine schlafende Katze. Ich glaub's ja gar nicht
-
die Akto-Uhren sind heiß begehrte Sammlerstücke!!
-
mein zweiter Laser 128 (mit Handbuch) ist auch eingetroffen. Werde mich morgen in Krefeld daran setzen und einen kompletten daraus machen (der dann auch hoffentlich läuft)
-
Danke dir noch einmal, Thomas! Platine ist angekommen und läuft!
.:. lutz
-
oh, wie wunderbar!
Was bekommst du, wohin darf ich überweisen, was darf ich sonst noch Gutes für dich tun, mein Prinz?
-
Super, Thomas!
Ich nehme eines der fertig aufgebauten.
Schickst du mir bitte deine PayPal- oder Bank-Daten per PM?
Vielen Dank! Ich freue mich schon sehr!!!!
Gruß,
.:. lutz
-
Endlich wiedergefunden in meinem Lager bei meinen Eltern (Band 1 und Band 2!)
Der HP-15C ist bis heute im Einsatz (ich finde es immer noch schöner mit UPN "5+5" zu berechnen
(eben 5 ENTER 5 +) -
Mein HP48SX arbeitet noch einwandfrei
Habe von Marno auf der CC18 sogar das ersielle Kabel dafür geschenkt bekommen!!! Endlich (nach 25 Jahren) kann ich Programme auch speichern/laden! (Leider sind meine grandiosen Eigenendwicklungen nicht mehr gespeichert auf dem SX...) -
Die DEL-Taste bei //e funktioniert - und liefert immer diese "grau" Quadrat.
Das DEL funktioniert auch - nur der Basic-Interpreter weiß damit nichts anzufangen, daher das "graue" Quadrat.
Zum Editieren mit Links/Rechtspfeil arbeiten, zum Einlesen einer zu Editierenden Bildschirmzeile (also irgend wo oberhalb des Prompt) mit ESC raus/runter-Taste und dann noch einmal ESC.
Am besten mal mit einem Apple-User treffen und eine Einweisung in den //e geben lassen. Wo lebst du? Ggf. ist das Treffen in der Kölner Bucht eine Möglichkeit zum Austausch? (Ich werde vermutlich kommen)
Wenn nach Umschalten des Zeichensatzes von ASCII auf GSCII aus "APPLE ][" ein "APPLE $*" wird, dann ist offenbar der Character-ROM defekt, falsch programmiert (eher unwahrscheinlich) oder aber die Datenleitung zum "upper Character set" defekt ROM mal anheben und wieder einsetzen.
Denn eigentlich müsste dann als Startmeldung "APPLE ÜÄ" kommen (siehe dein erstes Bild). Im GSCII ist der Character($5D) ein "Ü", im ASCII ein "]"
.:. lutz
-
Sieht ja brandneu aus! Glückwunsch!
-
also ich lade zum Spaß Programme über mein Android Telefon. Klappt ausgezeichnet.
-
Na, na. Der ][e heißt aber //e
-
Wegen dem Z80 fährt von euch niemand vorbei?
Von mir ist das 4Std. Fahrt entfernt...
Wo steht der Z80 denn!
-
ich denke, dass ich gegen 14 Uhr aufschlagen und dann beim Aufbau (weiter) helfen kann. Werde nicht vor 10 in Leverkusen losfahren können...
-
meim Sohn hat unseren G5 nur zum Spielen benutzt. Jetzt hat er einen 2009er imac und der G5 ist nicht mehr interessant für ihn. Werde ihn weiter zum Browsen benutzen... Compiliert habe ich noch nicht darauf. Werde ich mir mal anschauen.
-
Solch ein 6502-Bagde hätte ich auch sehr gerne.
Unbestückt, als Bausatz oder fertig - ganz egal!
Leider sind die aber laut Webseite alle "sold out"
Gruß,
.:. lutz aka ZuseZ1
-
ich werd auch am Freitag anreisen, weiß aber noch nicht genau wann (eher am frühen Nachmittag)
-
MarNo84 du bekommst von mir noch das gesamte Innenleben eines //c Monitors, den ich für den Einbau eines TFT ausgeweitet habe. Werde ich dir zur CC18 mitbringen.
-
das ist ein Anschluss für einen Aufsatz auf das Apple Gehäuse (eine folientastatur). nichr für das Num pad!
Habe ich auch, aber das Flachbandkabel (Folie) ist bei mir total zerbrochen.
Besser in den Apple Thread schieben.
