10 GOSUB  200
   20 CALL USR(6051,0)
   30 END 
  100 GOSUB  200
  110 PRINT "Prepare to SAVE program"
  120 INPUT PROMPT"and then press ENTER key":B$
  130 OPEN #106:A$ACCESSOUTPUT
  140 CALL USR(6025,0)
  150 END 
  200 FOR I=0TO143
  210 READ X
  220 POKE 5932+I,X
  230 NEXT 
  240 READ A$
  250 OPEN #106:A$
  260 CALL USR(5932,0)
  270 RETURN 
  280 DATA 42,26,2,34,254,23,17,0,23,1,16,0,62,106,247,6,183,223,17,0,24,42,4,23,25,229,17,0,184,183,237,82,225,56,4,33,31,36,231,34,32,2,34,26,2,17,28,0,25,34,52,2,17,64,0,25,237,91,56,2,229,183
  290 DATA 237,82,235,215,40,0,225,34,56,2,215,41,0,237,75,2,23,17,0,24,62,106,247,6,183,223,62,106,247,3,201
  300 DATA 17,0,23,1,16,0,62,106,247,8,237,75,2,23,17,0,24,62,106,247,8,62,106,247,3,201
  310 DATA 215,143,0,42,26,2,34,22,2,34,30,2,33,2,24,1,28,0,237,91,32,2,237,176,201
  320 DATA "entsnak.Z"