30000 REM **************************
30010 REM * MODULE : DEVICE CHANGE *
30020 REM * VAR: X,C,PO            *
30030 REM **************************
30040 PHI:WINA3,12,6,16,11,1,0," -------------- _ -------------- "
30050 REM+"_[155]    DEVICE UP   _   DEVICE DOWN   _[158]      EXIT!       _   DEVICE #"
30060 FLASH"- [144]DEV-CHANGE -[157][157][157][157]"
30070 X=PEEK(50512):GOSUB30120
30080 POKE198,0:ACH12,10,16,5
30090 IFPO=1THENX=X+1:GOSUB30120:GOTO30080
30100 IFPO=2THENX=X-1:GOSUB30120:GOTO30080
30110 SETDNX:WCLOSE:PLI:RETURN
30120 IFX=12THENX=8
30130 IFX=7THENX=11
30140 IFX<10THENPRINT"";X;"[157][157][157]0";:GOTO30160
30150 PRINTX;
30160 PRINT"[157][157][157][157]";:FORC=1TO300:RETURN