home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 04 / ami042a.txt < prev    next >
Text File  |  1997-04-06  |  1KB  |  102 lines
  1. <l>
  2. CLS
  3.  
  4. PRINT " DEMONSTRACJA PRACY"
  5.  
  6. PRINT " STEROWANIE POPRZEZ PORT JOYSTIKA 1"
  7.  
  8. PRINT " STAN WEJÔÊ"
  9.  
  10. PRINT "PIN1    PIN2    PIN3    PIN4"
  11.  
  12. PRINT: PRINT: PRINT
  13.  
  14. PRINT " STAN WYJÔCIA - ZLÂCZE PIN6: (KLAWISZE 0 LUB 1)"
  15.  
  16.  
  17.  
  18. ' USTAWIENIE PRACY PINU 6 NA WYJSCIE
  19.  
  20. POKE 11592193&,PEEK(11592193&) OR 128
  21.  
  22.  
  23.  
  24. START:
  25.  
  26.  
  27.  
  28. Z$= INKEY$
  29.  
  30.  
  31.  
  32. IF Z$="1" THEN
  33.  
  34.     ' USTAWIONY WYSOKI POZIOM NA WYJSCIU
  35.  
  36.     POKE 11591681&, PEEK(11591681&) OR 128
  37.  
  38.     LOCATE 12,3: PRINT "1"
  39.  
  40. END IF
  41.  
  42.  
  43.  
  44. IF Z$="0" THEN
  45.  
  46.     ' USTAWIONY NISKI POZIOM NA WYJSCIU
  47.  
  48.     POKE 11591681&, PEEK(11591681&) AND 127
  49.  
  50.     LOCATE 12,3: PRINT "0"
  51.  
  52. END IF
  53.  
  54.  
  55.  
  56. IF Z$=CHR$(13) THEN
  57.  
  58.     ' KONIEC PRACY PO NACISNIECIU ENTER
  59.  
  60.     ' USTAWIENIE STANDARDOWEJ PRACY PINU 6 JAKO WEJSCIE
  61.  
  62.     POKE 11592193&,PEEK(11592193&) AND 127
  63.  
  64.     END
  65.  
  66. END IF
  67.  
  68.  
  69.  
  70. ' BADANIE STANU WEJSC E1-E4
  71.  
  72. X= PEEK(14675980&) AND 3: Y= PEEK(14675981&) AND 3
  73.  
  74.  
  75.  
  76. IF X=1 THEN E1=1 ELSE E1=0
  77.  
  78. IF X=3 THEN E3=1 ELSE E3=0
  79.  
  80. IF X=2 THEN E1=1; E3=1
  81.  
  82. IF Y=1 THEN E2=1 ELSE E2=0
  83.  
  84. IF Y=3 THEN E4=1 ELSE E4=0
  85.  
  86. IF Y=2 THEN E2=1; E4=1
  87.  
  88.  
  89.  
  90. LOCATE 8,2: PRINT E1
  91.  
  92. LOCATE 8,11: PRINT E2
  93.  
  94. LOCATE 8,20: PRINT E3
  95.  
  96. LOCATE 8,29: PRINT E4
  97.  
  98.  
  99.  
  100. GOTO START
  101.  
  102.