    1 REM DEMO SWITCH-BITS ON IOCORE
    5 PRINT CHR$(12);"BLINK ALL SWITCH-BITS $620..$62F"
    6 PRINT "ON IOCORE BOARD (74LS259 OUTPUTS)"
   10 FOR N=1568 TO 1582 STEP 2
   20 POKE N,0
   25 GOSUB 1000
   30 NEXT N
   50 FOR N=1569 TO 1583 STEP 2
   60 POKE N,0
   65 GOSUB 1000
   70 NEXT N
   90 GOTO 10
 1000 FOR I=0 TO 300:NEXT I
 1010 RETURN
 50000 REM SAVE BASIC LISTING AS TEXT
 50010 LABBUS 0:LABOUT "TSF=IO620_0.TXT"
 50020 PRINT CHR$(2):LIST:PRINT CHR$(3)  
 50030 END
 50999 REM ct-BASIC and Hardware by C.Meyer & c't Magazin
