Stap 6: Extra ingangen.
- D3: Braziliaanse deelstaat pin 15 (fout) omgekeerd-niet
- D4: staat van pin 13 (geselecteerde)
- D5: staat van pin 12 (papier OUT)
- D6: staat van pin 10 (ACK)
- D7: Braziliaanse deelstaat pin 11 (DRUKKE) omgekeerd-niet
------------------------------------------------------------------------------------------------------
Pseudocode:
rem pport 1 rem 2^7 <= pin 11 rem 2^6 <= pin 10 rem 2^5 <= pin 12 rem 2^4 <= pin 13 rem 2^2 <= pin 15 N = INP(&H379)
Selecteer geval N
geval N en 2 ^ 6
afdrukken "lijn 10 is gesloten"
geval N en niet 2 ^ 7
Print "regel 11 is gesloten"
geval N en 2 ^ 5
Print "regel 12 is gesloten"
geval N en 2 ^ 4
afdrukken "lijn 13 is gesloten"
geval N en niet 2 ^ 2
Print "regel 15 is gesloten"
.End select
------------------------------------------------------------------
CLS
DEFINT A-Z
Adres = 889: REM 889 = poortadres, andere adressen zou 633 of 957
AFDRUKKEN "Druk op de enter toets om te lezen printer poort pinnen (15,13,12,10,11)"
PRINT "een (0) lezing geeft aan de pin op de begane, (1) geeft aan"
PRINT "de pin is op een hoog niveau of wat."
A$ INPUT
V = INP(Address)
PRINT V
P11 = 1
Als V > 127 vervolgens P11 = 0: V = V - 128
Als V > 63 vervolgens P10 = 1: V = V - 64
Als V > 31 vervolgens P12 = 1: V = V - 32
Als V > 15 vervolgens P13 = 1: V = V - 16
Als V > 7 dan P15 = 1
AFDRUKKEN
PRINT "Pin 15 ="; P15
PRINT "Pin 13 ="; P13
PRINT "Pin 12 ="; P12
PRINT "Pin 10 ="; P10
PRINT "Pin 11 ="; P11
EINDE