10 REM Startprogram f|r
20 REM stand-by funktion.
30 ; CHR$(12%)
40 ; "Mata in |nskad kod"
50 INPUTLINE A$
60 A$=LEFT$(A$,LEN(A$)-2%)
70 FOR I%=65408% TO 65407%+LEN(A$)
80 P%=ASC(MID$(A$,I%-65407%,1%))
90 POKE I%,P%
100 NEXT I%
110 GOSUB 200
120 POKE 64071%,LEN(A$)
130 END 
200 REM STAND-BY
210 REM I bland har man nytta av att
220 REM kunna g} ifr}n datorn medan
230 REM man h}ller p} med ngt viktigt.
240 REM D} kan man med detta program
250 REM l}ta datorn st} "stand-by".
260 REM Nu har ingen m|jlighet, att
270 REM anv{nda/f|rst|ra programmet.
280 REM Sj{lv kan du trycka en kod
290 REM och p} s} s{tt "l}sa upp" !!
300 REM Kodstr{ngen lagras 65408-65535
310 REM med valfri l{ngd. (Se nedan)
320 REM Rutinen {r relokerbar men
330 REM pokas h{r ovanf|r taket.
340 REM Anrop :  CTRL-SHIFT-o
350 REM 
360 DATA 245,219,56,254,159,194,31,3
370 DATA 243,229,197,33,128,255,6,5
380 DATA 219,56,254,128,48,-6
390 DATA 219,56,254,128,56,-6,230,127
400 DATA 190,32,-22,35,16,-20
410 DATA 193,225,241,251,237,77
420 REM Testa var taket finns : 
430 IF PEEK(65064)=250 THEN 460
440 REM Flytta taket och g|r "run"
450 POKE 65063,52,250 : P%=CALL(3411%)
460 REM Hoppvektorer : 
470 POKE 64052,56,250 : REM Tangentbord
480 POKE 64054,148,5 : REM V24/kassett
490 FOR I%=64056% TO 64056%+41%
500 READ P% : POKE I%,P%
510 NEXT I%
520 REM Initiering : 
530 POKE 64098,245,62,250,237,71,241,201
540 P%=CALL(64098%)
550 RETURN 
560 REM Adressen och l{ngden till
570 REM kodstr{ngen finns p} rad 370.
580 REM [ndra raden s} h{r om man
590 REM |nskar adressen 55000 resp
600 REM l{ngden 3 : 
610 REM DATA 243,229,197,33,216,214,6,3