100 REM: PLOT ROUTINE IN BASIC
110 REM: PAUL BLAIR 5/85
120 :
130 PRINTCHR$(147);:SY=65520
140 A=781:B=782:C=783
150 PRINT"HELLO THERE ";
160 POKEC,PEEK(C)OR1:SYSSY:REM SET CARRY FLAG
170 X=PEEK(A):Y=PEEK(B)
180 POKEC,PEEK(C)AND254:REM CLEAR CARRY FLAG
190 POKEA,24:POKEB,14:SYSSY
200 PRINT"PRESS A KEY";
210 GETY$:IFY$=""THEN210
220 POKEA,X:POKEB,Y:SYSSY
230 PRINT"FROM TRANSACTOR"