CLS PRINT " DEMONSTRACJA PRACY" PRINT " STEROWANIE POPRZEZ PORT JOYSTIKA 1" PRINT " STAN WEJÔÊ" PRINT "PIN1 PIN2 PIN3 PIN4" PRINT: PRINT: PRINT PRINT " STAN WYJÔCIA - ZLÂCZE PIN6: (KLAWISZE 0 LUB 1)" ' USTAWIENIE PRACY PINU 6 NA WYJSCIE POKE 11592193&,PEEK(11592193&) OR 128 START: Z$= INKEY$ IF Z$="1" THEN ' USTAWIONY WYSOKI POZIOM NA WYJSCIU POKE 11591681&, PEEK(11591681&) OR 128 LOCATE 12,3: PRINT "1" END IF IF Z$="0" THEN ' USTAWIONY NISKI POZIOM NA WYJSCIU POKE 11591681&, PEEK(11591681&) AND 127 LOCATE 12,3: PRINT "0" END IF IF Z$=CHR$(13) THEN ' KONIEC PRACY PO NACISNIECIU ENTER ' USTAWIENIE STANDARDOWEJ PRACY PINU 6 JAKO WEJSCIE POKE 11592193&,PEEK(11592193&) AND 127 END END IF ' BADANIE STANU WEJSC E1-E4 X= PEEK(14675980&) AND 3: Y= PEEK(14675981&) AND 3 IF X=1 THEN E1=1 ELSE E1=0 IF X=3 THEN E3=1 ELSE E3=0 IF X=2 THEN E1=1; E3=1 IF Y=1 THEN E2=1 ELSE E2=0 IF Y=3 THEN E4=1 ELSE E4=0 IF Y=2 THEN E2=1; E4=1 LOCATE 8,2: PRINT E1 LOCATE 8,11: PRINT E2 LOCATE 8,20: PRINT E3 LOCATE 8,29: PRINT E4 GOTO START