1 PROGRAM "Statuscl.bas"
    2 TEXT 
    3 INPUT AT11,7,PROMPT"STATUS sor szine (0-255)?":A
    4 SPOKE 255,14601,A:SPOKE 255,14603,A
    5 LET A$="Nyomd le a SPACE billentyut!"
    6 FOR I=1TOLEN(A$)
    7   SPOKE 255,16061+I,ORD(A$(I:I)):SPOKE 255,16062+I,142
    8   SOUND PITCH56,DURATION1
    9 NEXT 
   10 SPOKE 255,16062+LEN(A$),32
   11 DO 
   12   GET A$
   13 LOOP UNTILA$=" "