NEW VIDEO 1 PC.VIDEO 0 PC.RESET 10 'ResXRetro Output Background 20 CLV:?:UART 1:PC.RESET 30 VIDEO 0:PC.VIDEO 1 40 K=INKEY():L=0 50 IF K=10 OR K=32 GOTO 120 60 IF K>47 AND K<58 K=K-48:L=1 70 IF K>64 AND K<87 K=K-55:L=1 80 IF K>96 AND K<119 K=K-87:L=1 90 IF !L GOTO 40 100 IF K<16 PC.CLEAR K:GOTO 40 110 K=K-16:PC.IMAGE K:GOTO 40 120 VIDEO 1:PC.VIDEO 0 'OK