Ein kleiner Ausflug in kultige Betriebssysteme

Hallo Friedel,

habe mich mal etwas in Basic wieder reingelesen.

Würde mal so meinen zu Deinen damaligen Kaufhausbesuch:

10 REM „Programm staunende Kunden im Kaufhaus“
20 PRINT
30 A$ = „Test“
40 PRINT A$;
50 GOTO 40
60 END

Dieses Programm muss mit der Break – Taste (heute steht auf der Tastatur “Pause”) beendet werden.
Das „;“ nach A$ ist die Anweisung für beliebiges Wiederholen.
Gern baue ich dieses Programm auch aus, aber da brauche ich etwas länger an Zeit (For – Next, Input, Run usw.).

@ Joschi,

was den KC87 betrifft….
KC = Kleincomputer
87 = 1987

• Fester modifizierter Basic – Interpreter,
• Bildschirm: Ich hatte damals anfangs einen russischen Fernseher der Marke „Junost“, später dann eine Farbfernseher aus DDR Produktion, ich glaube es war ein Chromat und
• Speichergerät Kassettendeck.

Erst hatte ich diesen. Später hatte ich dann einen PC 1715 und das Nachfolgemodell. Da war der zeitpunkt wo ich auf DBASE umgestiegen bin.

Leider gab’s damals keine professionellen Lehrgänge.
Ich musste mir alles im Selbststudium erarbeiten.


Computer, meine Meinung:

Wenn man jung ist sollte man sich mit dem Programmieren beschäftigen.
Erst dann macht ein Computer wirklich Spaß.
Ein Computer ist eine Maschine, und die hat gefälligst das zu tun was ich will.
War damals meine Einstellung.

Zitat von Vmax

Nostalgie langweilt nie...

Und ich bin froh darüber, dass dieser Thread im fachlichen Bereich bleibt.

Das heißt -> technische Nostalgie!

Wenn ich mir mal erlauben darf das ins Deutsche zu übersetzen.

Also:

10 INPUT "EINGABE";A$
20 PRINT A$;
30 A=A+1:IF A>20 THEN GOTO 50
40 GOTO 10
50 END

10 – 50 sind die Zeilennummern.

Zeile 10 :

• Input = Das Programm erwartet eine Eingabe. Da es um einen Text geht wird die numerische Variable mit den $ Zeichen verbunden.
• In unseren Fall das Wort „Eingabe“

Zeile 20 :

• Print A$ = es erfolgt die Ausgabe dieses Wortes „Eingabe“

Zeile 30:

• die nummerische Variable wird so definiert: A=A+1 und
• If (wenn) A größer 20 ist Then (dann) Goto (gehe) zu Zeile 50, dh. Programmende.

Zeile 40:

• Goto (gehe) zu Zeile 10, dh. Input (Eingabe) A$ (es wurde der Begriff Eingabe gewählt)

Zeile 50: End = Ende

Das Programm arbeitet also so lange bis 20ig mal am Bildschirm „Eingabe" steht (IF A > 20).

Ich mache mich mal jetzt ran und bringe das Ganze in DBASE.

Hier wie versprochen das Ganze mal in DBASE (MS DOS):

*** Programm
*** Ausgabe am Bildschirm „Guten Morgen“

Clear
SET TALK OFF

STORE 1 TO z1
STORE „ „ TO a

@ 2,2 SAY “Geben Sie bitte ein:”
@ 2,25 SAY „Guten Morgen“ COLOR W+
@ 2,45 GET a
READ

CLEAR
DO WHILE z1 < 25
IF a <> “Guten Morgen”
LOOP
ENDIF

@ z1,2 SAY a + “ “ + a + “ “ + a + “ “ + a + “ “ + a
STORE z1+2 TO z1
LOOP
ENNDO
RETURN

Nach vollzogener Eingabe steht über den Ganzen Bildschirm eine Zeile um die andere Zeile 5mal nebeneinander „Guten Morgen“.

Anmerkung:
Bei Store TO a müssten 12 Leerzeichen zwischen den Anführungszeichen sein, nimmt aber die Forensoftware so nicht an.
Ebenso bei der Ausgabe a müssten zwischen den Pluspunkten bei den Anführungszeichen 3 Leerzeichen sein.