100 PROGRAM "start"
  105 TEXT 40
  110 !SET STATUS OFF:SPOKE 255,15026,12
  120 SET VIDEOMODE1:SET VIDEOCOLOR2:SET VIDEOX42:SET VIDEOY3
  130 OPEN #1:"video:"
  140 DISPLAY #1:AT1FROM1TO2
  150 PLOT #1:300,107,
  160 SET VIDEOMODE15:SET VIDEOCOLOR0:SET VIDEOY1
  170 FOR I=2TO10
  180   OPEN #I:"video:"
  190 NEXT 
  200 DISPLAY #2:AT4FROM1TO1
  210 DISPLAY #3:AT3FROM1TO1
  220 DISPLAY #4:AT8FROM1TO1
  230 DISPLAY #5:AT9FROM1TO1
  240 DISPLAY #6:AT14FROM1TO1
  250 DISPLAY #7:AT16FROM1TO1
  260 DISPLAY #8:AT18FROM1TO1
  270 DISPLAY #9:AT20FROM1TO1
  280 DISPLAY #10:AT22FROM1TO1
  290 PRINT #2,AT1,27:;
  300 PRINT #3,AT1,18:;
  310 PRINT #4,AT1,2:;
  320 PRINT #5,AT1,19:;
  330 PRINT #6,AT1,4:;
  340 PRINT #7,AT1,4:;
  350 PRINT #8,AT1,7:;
  360 PRINT #9,AT1,7:;
  370 PRINT #10,AT1,3:;
  380 FOR X=1TO10
  390   READ A$
  400   READ A1,A2,A3,A4,A5,A6,A7
  410   SET #X:PALETTEA1,A2,A3,A4,A5,A6,A7
  420   FOR I=1TOLEN(A$)
  430     READ J
  440     SET #X:INKJ
  450     PRINT #X:A$(I:I);
  460   NEXT 
  470 NEXT 
  550 DATA ENTERSNAKE
  560 DATA 0,89,217,75,203,91,219
  570 DATA 6,5,4,3,2,2,3,4,5,6
  580 DATA "BY SZIPUCSU"
  590 DATA 0,126,55,119,63,239,111
  600 DATA 6,5,5,5,4,3,3,2,2,1,1
  610 DATA "(C) 2019"
  620 DATA 0,150,22,134,6,148,20
  630 DATA 1,2,3,3,4,3,2,1
  640 DATA "SPECIAL THANKS TO THE"
  650 DATA 0,215,159,223,95,207,79
  660 DATA 1,2,3,4,5,6,6,6,6,5,4,3,2,1,1,2,3,3,4,5,6
  670 DATA "ENTERPRISEFOREVER.COM"
  680 DATA 0,243,187,251,123,235,107
  690 DATA 1,2,3,4,5,6,5,4,3,2,1,2,3,4,5,6,5,4,3,2,1
  700 DATA "ISTVANV - THE FAST EP128EMU"
  710 DATA 0,183,247,191,255,127,239
  720 DATA 1,2,3,4,5,6,6,6,6,6,6,5,4,4,3,2,1,2,2,3,4,5,6,5,4,3,2
  730 DATA "FERRO73 - LOTS OF AMENDMENTS"
  740 DATA 0,211,155,219,91,203,75
  750 DATA 1,2,3,4,5,6,6,6,6,6,6,5,4,3,3,2,1,1,1,2,3,4,5,6,5,4,3,2
  760 DATA "ENDI - GRAPHIC EDITING UTILITY"
  770 DATA 0,241,185,249,107,235,123
  780 DATA 1,2,3,4,4,4,4,4,5,6,5,4,3,2,1,1,2,3,4,5,6,5,4,4,3,2,1,2,3,4
  790 DATA "GECO - COLOR EDITING UTILITY"
  800 DATA 0,7,71,15,79,207,95
  810 DATA 1,2,3,4,4,4,4,4,5,6,5,4,4,3,2,1,2,3,4,5,5,6,5,4,3,2,1,2
  820 DATA "ZOZOSOFT - SNAKE COLLAPSING SUBROUTINE"
  830 DATA 0,231,175,239,127,255,191
  840 DATA 1,2,3,4,5,6,5,4,4,4,4,3,2,1,2,3,3,4,5,6,5,4,3,2,1,2,3,3,4,5,4,3,2,1,2,3,4,5
  850 RUN "entsnak.zip"