NEW
10 REM READSW8.BAS
20 PRINT "Power on ";
30 CLOCK 0
40 PRINT
90 IOSCAN
100 IF INBIT1=A GOTO 200
110 IF INBIT1=1 GOTO 140
120 PRINT "Switch 1 On"
130 GOTO 150
140 PRINT "Switch 1 Off"
150 A=INBIT1
200 IF INBIT2=B GOTO 300
210 IF INBIT2=1 GOTO 240
220 PRINT "Switch 2 On"
230 GOTO 250
240 PRINT "Switch 2 Off"
250 B=INBIT2
300 IF INBIT3=C GOTO 400
310 IF INBIT3=1 GOTO 340
320 PRINT "Switch 3 On"
330 GOTO 350
340 PRINT "Switch 3 Off"
350 C=INBIT3
400 IF INBIT4=D GOTO 500
410 IF INBIT4=1 GOTO 440
420 PRINT "Switch 4 On"
430 GOTO 450
440 PRINT "Switch 4 Off"
450 D=INBIT4
500 IF INBIT5=E GOTO 600
510 IF INBIT5=1 GOTO 540
520 PRINT "Switch 5 On"
530 GOTO 550
540 PRINT "Switch 5 Off"
550 E=INBIT5
600 IF INBIT6=F GOTO 700
610 IF INBIT6=1 GOTO 640
620 PRINT "Switch 6 On"
630 GOTO 650
640 PRINT "Switch 6 Off"
650 F=INBIT6
700 IF INBIT7=G GOTO 800
710 IF INBIT7=1 GOTO 740
720 PRINT "Switch 7 On"
730 GOTO 750
740 PRINT "Switch 7 Off"
750 G=INBIT7
800 IF INBIT8=H GOTO 900
810 IF INBIT8=1 GOTO 840
820 PRINT "Switch 8 On"
830 GOTO 850
840 PRINT "Switch 8 Off"
850 H=INBIT8
900 GOTO 90