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