& AT-KEYBOARD PORT READER - 1998,B BE= START ADDR.Hp FILKER@NEWTON.PHYSICS.METU.EDU.TRv  BE 49152 :L1000A(X)X(487(X64))L"":S0:B$,C:B$"END": (I031:VA(((B$,I21,1)))16A(((B$,I22,1)))1 2BEI,V:SSV::SCLL10:BEBE32:30P <"DATA ERROR IN LINE #"L:V Z 4C06C04C20C02020C0901220BCF620E1FFD0F3A9FF859120FDAE4C8BB04C94C0, 4389 AC12D0C0F3B008C0189004A9003860A50029E78500A918A020CC12D0F04E2401, 3442: D0F7A9082401F0FCA0092401D0FCA5012910C91066FFA9082401F0FC88D0EB26, 3947 FF2401D0FC2401F0FCA50009188500A50129F709108501A5FFF010084A9001C8, 3328 C900D0F8982869014AA5FF6038A90085FFF0D6EAAAA51948A51A488A4820FDAE, 4210 208BB08519841AA00168911988A900911968851A688519600000494C4B455200, 2569* $ END,00 =  USAGE:V  SYS49152,A%\   IT BLOCKS UNTIL THERE IS A BYTE FROM THE KEYBOARD PORT OR THE STOP  KEY IS PRESSED.  ONLY THE INTEGER VARIABLES CAN BE USED AS ARGUMENT.<  UPON RETURN THE VARIABLE REFLECTS THE BYTE READ FROM THE PORT.B *Y 4 ALTERNATE USAGE:_ >r H 10 SYS49155 R 20 IF(PEEK(783)AND1)=1GOTO10 \ 30 A%=PEEK(780):PRINT A% p OR; z  10 SYS49155  20 IF(PEEK(780)=0GOTO10  30 IF(PEEK(783)AND1)=1GOTO10<  40 A%=PEEK(780):PRINT A%B