10 REM*(())(())(())(())(())(())(())(())
20 REM* CHANGE 1540/1541 *
30 REM* PFG COMMMODORE SEPT. 1982 *
40 REM* THIS PROGRAM CHANGES THE 1540 *
50 REM* DEVICE NUMBER TO THE NUMBER *
60 REM* INPUT BY THE OPERATOR. THIS *
70 REM* A SOFT CHANGE, SO A RESET OF *
80 REM* THE 1540 WILL RESTORE THE OLD *
90 REM* DEVICE NUMBER. DEVICE NUMBER *
95 REM* MUST BE 9-15 *
96 REM*(())(())(())(())(())(())(())(())
100 PRINT"":POKE53280,12:POKE53281,15:POKE646,0:PRINT""
110 INPUT"";D0
120 IF D0<8 OR D0>15 THEN 110
130 INPUT"";DN
140 IF D0<8 OR D0>15 THEN 130
150 OPEN15,D0,15: REM COMMAND CHANNEL
160 PRINT#15,""CHR$(119)CHR$(0)CHR$(2)CHR$(DN+32)CHR$(DN+64)
170 CLOSE15
180 END
READY.
