Il programma serve a fare l'hard-copy dello schermo (sia modalità testo che modalità grafica). Parte delle routine sono scritte in linguaggio macchina, parte in basic.
10 if peek(2)<>1 then print"cuore in reverse ed esse in reverse";:goto 30
20 if peek(2)=1 then 70
30 fori=49152 to 49179: read d:pokei,d:nexti:print"cuore in reverse ed esse in reverse";
35 rem il cuore in reverse e la s in riverse servono a pulire lo schermo
ed a posizionare il cursore nell'angolo superiore sinistro
40 sys49152:end
50 data 169,11,141,24,3,169,192,141,25,3,96,169,1,141,2,0,32,89,166,169,0,141
60 data 0,8,76,174,167,64
70 sa=0
80 print"s in reverse";
90 open3,3:open4,4,sa
100 for k=0 to 24:a$=""
110 for j=0 to 38
120 get#3,b$:a$=a$+b$
130 next j
140 print#4,a$;
150 next k:print
160 close 3: close 4:clr:r$="":poke2,0:run