5 ? "}":? :? "×ÁÒÎÉÎǺ ÄÏ ÎÏÔ ÒÕΠÔÈÉÓ ÐÒÏÇÒÁÍ":? "×ÉÔÈ ÊÏÙÓÔÉÃË ÁÔÔÁÃÈÅÄ"›6 ? "×Å ÓÔÒÏÎÇÌÙ ÁÄÖÉÓÅ ÙÏÕ ÒÅÆÅÒ ÔÏ":? "ÔÈÅ ÏÒÉÇÉÎÁÌ ÁÒÔÉÃÌÅ®":? :? "TYPE  'CONT' TO CONTINUE":STOP ›10 REM ×ÁÒÎÉÎǺ ÄÏ ÎÏÔ ÒÕΠÔÈÉÓ              ÐÒÏÇÒÁÍ ×ÉÔÈ ÊÏÙÓÔÉÃË ÁÔÔÁÃÈÅÄ›20 REM C.A.I DRIVER PROGRAM›30 PORTA=54016:REM PORTA DATA OR DIRECTION REGISTER›40 PACTL=54018:REM PORTA CONTROL REGISTER,SELECTS WHETHER PORTA WILL BE A DATA OR DIRECTION (INPUT/OUTPUT) REG.›45 POKE PACTL,56:REM SET PORTA AS A DIRECTION REGISTER›50 POKE PORTA,8:REM SELECT BIT 3 AS AN OUTPUT BIT.THE OTHER BITS WILL NOT BE USED AND WILL REMAIN AS INPUT BIT›60 POKE PACTL,60:REM RESET PORTA AS A DATA REGISTER›65 POKE PORTA,8:REM INTIALIZE "OFF"    SETTING›70 REM NOW IF WE SET BIT 3 (POKE PORTA,8)BIT LINE 3 WILL GO HIGH,IF WE POKE PORTA,0 BIT LINE 3 WILL GO LOW›80 REM LINES 10-70 SELECT PORTA,BIT3 AS AN OUTPUT LINE›90 DIM C$(3)›100 INPUT C$›110 IF C$="ON" THEN POKE PORTA,0›120 IF C$="OFF" THEN POKE PORTA,8›130 GOTO 100›140 REM LINES 100-130 LET YOU TURN ON OR OFF APPLIANCES BY EITHER TURNING ON OR OFF BIT 3›