Utilizzare la pressione dei tasti Control e P contemporaneamente (importante è di ricordarsi di accendere la stampante posta nello Slot 1)
100 rem Stampa lo schermo
110 for I = 768 to 868
120 read a
130 poke i,a
140 ck=ck+a
150 next I
160 if ck<>11453 then print chr$(7);"errore nelle linee 1000-1090":end
163 call 768
164 home
165 print"Lo screen printer è installato!!"
168 print
170 input "Vuoi salvarlo come file binario? ";a$
175 print
180 if left$(a$,1)<>"S" then end
190 input "Con quale nome? ";a$
195 print
200 print chr$(4);"bsave ";a$;",A768,L100"
205 print
210 print "da adesso puoi usare 'brun ";a$;"' per"
220 print "eseguire questo programma"
1000 data 169,11,133,56,169,3,133,57,76,234
1010 data 3,32,27,253,201,144,208,6,32,25
1020 data 3,76,12,253,96,72,138,72,152,72
1030 data 165,36,72,169,40,141,249,5,169,0
1040 data 141,121,6,169,137,141,249,6,169,1
1050 data 141,121,7,162,0,138,32,193,251,160
1060 data 0,177,40,201,160,176,4,105,64,208
1070 data 248,32,2,193,200,192,40,144,238,169
1080 data 141,32,2,193,232,224,24,144,222,104
1090 data 133,36,32,34,252,10,4,168,104,170,104,96
1110 rem cifra di controllo = 11453