Car

   1 REM E£RND)CHR$ \ '; FOR E£RND\' %P\ '\,, GOSUB %S\'  47Q ( CLS TAN 
   3 PRINT AT USR 16514,10;"\: \##\##\##\##\##\##\##\: \##\##\##\##\##\##\##\ :"
   4 PRINT AT USR 16514,10;"\: \##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\ :"
   7 LET A=A+(INKEY$="8")-(INKEY$="5")
   8 PRINT AT 20,B+A;"\##\##\##\##\##";AT 17,B+A;"\##\: % \ :\##";AT 18,B+1+A;"\##%O\##"
   9 GOTO 3
  10 SAVE "1009%0"
  11 LET B=11
  12 LET A=0
  13 GOTO 3