Q-Basic Programm erklärung

[Haloman]

HAllo

Ich benötige ganz dringend eure Hilfe zu einem Q-Basic Programm.
Bei dem ganzen handelt es sich um ein Modell eines Aufzugs mit drei Etagen mit dem Prog wird das ganze gesteuert.
Das Modell ist mit einer Steuerbox mit dem PC verbunden.

10 CLS
20 GOSUB 1000
30 GOSUB 100
40 GOSUB 200
50 GOSUB 300
60 GOSUB 400
70 GOSUB 500
80 GOSUB 600
90 GOTO 30

100 REM von 1 nach 2
110 GOSUB 5000
120 LOCATE 2, 2: PRINT rein
130 IF rein = 10 THEN raus = 128
140 GOSUB 6000
145 GOSUB 5000
146 IF rein = 32 THEN raus = 0
147 GOSUB 6000
150 RETURN

200 REM von 1 nach 3
210 GOSUB 5000
220 LOCATE 2, 2: PRINT rein
230 IF rein = 12 THEN raus = 128
240 GOSUB 6000
244 GOSUB 5000
245 IF rein = 16 THEN raus = 128
246 GOSUB 6000
247 IF rein = 32 THEN raus = 0: GOSUB 5000
248 GOSUB 6000
250 RETURN

300 REM von 2 nach 1
310 GOSUB 5000
320 LOCATE 2, 2: PRINT rein
330 IF rein = 17 THEN raus = 64
340 GOSUB 6000
345 GOSUB 5000
346 IF rein = 8 THEN raus = 0
347 GOSUB 6000
350 RETURN

400 REM von 2 nach 3
410 GOSUB 5000
420 LOCATE 2, 2: PRINT rein
430 IF rein = 20 THEN raus = 128
440 GOSUB 6000
445 GOSUB 5000
446 IF rein = 32 THEN raus = 0
447 GOSUB 6000
450 RETURN

500 REM von 3 nach 1
510 GOSUB 5000
520 LOCATE 2, 2: PRINT rein
530 IF rein = 33 THEN raus = 64
540 GOSUB 6000
541 GOSUB 5000
542 LOCATE 2, 2: PRINT rein
543 IF rein = 16 THEN raus = 64
544 GOSUB 6000
545 GOSUB 5000
546 LOCATE 2, 2: PRINT rein
547 IF rein = 8 THEN raus = 0
548 GOSUB 6000
550 RETURN

600 REM von 3 nach 2
610 GOSUB 5000
620 LOCATE 2, 2: PRINT rein
630 IF rein = 34 THEN raus = 64
640 GOSUB 6000
645 GOSUB 5000
646 IF rein = 16 THEN raus = 0
647 GOSUB 6000
650 RETURN

1000 REM Interface initialisieren
1100 OUT 771, 130
1200 OUT 770, 137
1300 OUT 770, 16
1400 RETURN

5000 REM Variable übergeben
5010 rein = INP(769)
5020 RETURN

6000 REM Variable raus
6010 OUT 768, raus
6020 RETURN

Wäre jemand so nett und könnte mir die zeilen 10 bis 150 erklären was das Programm da tut.Wichtig ist auch was die Unterprogramme 5000 und 6000 machen.

Bitte ganz dringend um Hilfe das ganze muss ich morgen erklärt als teil eines Referates abgeben.Also wenn jemand so nett wäre mir zu Helfen komme echt nicht weiter.

Mfg

 

[svenullrich]

10 cls clearscreen(lösche bildschirm)
20-80 gosub xxxx ist ne schleife die mit return zurückgeführt wird
90 goto 30 springe zu zeile 30 (schleife)

100 REM ***** hier wird der programmteil beschrieben hat keine funktion
110 gosub schleife

alles im allen sind sehr viele schleifen drin mit türkontakt abrfagen und stockwerk.

 

[Haloman]

Hi,

Gut das waren die einfachen Befehle aber was soll dieser Block bedeuten mit den Unterprogrammen ?

100 REM von 1 nach 2
110 GOSUB 5000
120 LOCATE 2, 2: PRINT rein
130 IF rein = 10 THEN raus = 128
140 GOSUB 6000
145 GOSUB 5000
146 IF rein = 32 THEN raus = 0
147 GOSUB 6000
150 RETURN

Was ich eigentlich wissen wollte war was diese Zeilen bedeuten und was sie bewirken.