Listing zu Roboter-Direktsteuerung

Erklärung der Sonder-Zeichen: 

[SHIFT+CLR/HOME] = Bei der Eingabe hier, die Tasten SCHIFT und CLR/HOME drücken. Bitte darauf achten damit man sich im Gänsefüsschenmodus Befindet. Das Ergebnis sollte ein Invertiertes Herz zeigen.

[CRSR UP] = Bei der Eingabe hier, die Tasten SCHIFT und CLR/HOME drücken. Bitte darauf achten damit man sich im Gänsefüsschenmodus Befindet. Das Ergebnis sollte ein Invertierter Kreis sein. In Zeile 480 zwei stück.

" _ " = ist ein Leerzeichen

20 POKE53281,0:POKE53280,0 
30 PRINT"[SHIFT+CLR/HOME] QUICK-SHOT ROBOT-ARM WWW.EMUECKE.DE":PRINT" 
40 FORN=1TO15 
50 PRINT" 
60 NEXTN 
70 PRINT"0= ACHSE 2 HOCH 1= AUCHSE 2 RUNTER" 
80 PRINT"2= ACHSE 1 RECHTS 3= AUCHSE 1 LINKS " 
90 PRINT"4= GREIFER ZU 5= GREIFER AUF " 
100 PRINT"6= ACHSE 3 HOCH 7= ACHSE 3 RUNTER " 
120 PRINT"8= GREIFER RECHTS 9= GREIFER LINKS " 
125 PRINT" 
130 PRINT"LEERTASTE= ALLE STOP" 
470 FORN=1TO17 
480 PRINT"[CRSR UP] [CRSR UP]" 
490 NEXTN 
500 PRINT"HALT" : POKE56579,255 
510 X=56577 : POKE X,255 
520 GET A$ 
550 IF A$="0" THEN POKE X,0:PRINT"[CRSR UP]ACHSE 2 HOCH_ _ _ _ _ _ _ _ _ _ " 
560 IF A$="1" THEN POKE X,1:PRINT"[CRSR UP]ACHSE 2 RUNTER _ _ _ _ _ _ _ _ _ _ " 
570 IF A$="2" THEN POKE X,2:PRINT"[CRSR UP]ACHSE 1 RECHTS_ _ _ _ _ _ _ _ _ _  " 
580 IF A$="3" THEN POKE X,3:PRINT"[CRSR UP]ACHSE 1 LINKS_ _ _ _ _ _ _ _ _ _  " 
590 IF A$="4" THEN POKE X,4:PRINT"[CRSR UP]GREIFER ZU _ _ _ _ _ _ _ _ _ _ " 
600 IF A$="5" THEN POKE X,5:PRINT"[CRSR UP]GREIFER AUF _ _ _ _ _ _ _ _ _ _ " 
610 IF A$="6" THEN POKE X,6:PRINT"[CRSR UP]ACHSE 3 HOCH _ _ _ _ _ _ _ _ _ _ " 
620 IF A$="7" THEN POKE X,7:PRINT"[CRSR UP]ACHSE 3 RUNTER _ _ _ _ _ _ _ _ _ _ " 
630 IF A$="8" THEN POKE X,8:PRINT"[CRSR UP]GREIFER DREHEN, RECHTS_ _ _ _ _ _ _ _ _ _ " 
640 IF A$="9" THEN POKE X,9:PRINT"[CRSR UP]GREIFER DREHEN, LINKS _ _ _ _ _ _ _ _ _ _ " 
690 IF A$=" " THEN POKE X,255:PRINT"[CRSR UP]HALT _ _ _ _ _ _ _ _ _ _ " 
700 GOTO 520