
 ф Set up the machine о … ц:с" at line ";ћ:т_exit+ з ¦-256=&83 „ ¦-256=&84 л 0:я"GSCALE16"( *ESCOFF
2 *FX4,1"< ф Snake path and world storageF max%=384:Ю path% max%*2P Ю world% 48Z ф Game settingsd maze%=1:speed%=5n ф Main program loopx х-‚ Ъ:Ы:сЉ8,2)"Nibbles!"Љ5,3)"Ben Ryves 2009"cЊ M%=0:х:сЉ6,6-M%)" "Љ17,6-M%)" "Љ6,5+M%)"*"Љ17,5+M%)"*"Љ8,5)"Speed: ";speed%Љ8,6)"Maze:  ";maze%@– K%=¦0:о K%-135 т_menuDn,т_menuUp,т_menuToggle,т_menuToggle ‹  эK%=13„K%=27Є з K%=27:т_exitґ *REFRESHOFFѕ ф New game"И Ъ:сЉ7,4)"Get ready!";:*REFRESHТ ф Load the maze5Ь о maze% т_maze1,т_maze2,т_maze3,т_maze4 ‹ т_maze0mж Ъ:гY%=0ё15:гX%=0ё23€8:зworld%?(Y%*3+X%Ѓ8):гZ%=0ё7:м(X%+Z%)*64,Y%*64:р97+((¤_world(X%+Z%,Y%)=0)Ђ2),63,63:нр н:нnъ len%=4:head%=2*(len%-1):tail%=0:X%=11:Y%=8:гI%=0ёmax%:path%?(I%*2)=X%:path%?(I%*2+1)=Y%:н:т_world(X%,Y%,№)KS%=(9-speed%)*5+3:U%=1:V%=0:A%=X%:B%=Y%:gameOver%=Ј:points%=-1:з¤_appleф Game loopoх:з ¬¤_apple M%=path%?tail%:N%=path%?(tail%+1):т_world(M%,N%,Ј):мM%*64,N%*64:р99,63,63:tail%=(tail%+2)ѓmax%>"X%=(X%+U%+24)ѓ24:Y%=(Y%+V%+16)ѓ16:gameOver%=¤_world(X%,Y%)b,head%=(head%+2)ѓmax%:path%?head%=X%:path%?(head%+1)=Y%:т_world(X%,Y%,№):мX%*64,Y%*64:р97,63,636*REFRESH4@T%=‘+S%:oU%=U%:oV%=V%:х:K%=¦0:зK%=27:gameOver%=№"Jо K%-135 т_lt,т_rt,т_dn,т_up ‹Tэ ‘>=T%^эgameOver%hх:э¦0=-1:х:э¦0<>-1r*REFRESHON7|Ъ:сЉ8,3)Гpoints%;" points"Љ4,5)"Play again? (Y/N)";'†х:K$=ѕ:эK$="Y"„K$="y"„K$="N"„K$="n"ђэK$="N"„K$="n"
љ*ESCON
¤*FX4,0®с:а;ёф Check if we've eaten an apple, randomly replace if soВЭ¤_apple:з X%<>A%„Y%<>B% =ЈМх:A%=і(24)-1:B%=і(16)-1Цэ¤_world(A%,B%)=05амA%*64+32,B%*64+32:р145,31,0:points%=points%+1:=№#кф Get or set point in the worldfфЭт_world(X%,Y%,V%)P%=Y%*3+X%Ѓ8:X%=X%Ђ7:з V% world%?P%=world%?P%„2^X% ‹ world%?P%=world%?P%Ђ¬(2^X%)юб7Э¤_world(X%,Y%)P%=Y%*3+X%Ѓ8:X%=X%Ђ7:=world%?P%Ђ2^X%ф Mazes'Эт_maze0:гI%=0ё47€4:world%!I%=0:н:бn&Эт_maze1:т_maze0:гI%=0ё23:т_world(I%,0,№):т_world(I%,15,№):н:гI%=0ё15:т_world(0,I%,№):т_world(23,I%,№):н:бn0Эт_maze2:т_maze1:гI%=5ё10:т_world(0,I%,Ј):т_world(23,I%,Ј):н:гI%=5ё18:т_world(I%,5,№):т_world(I%,10,№):н:бn:Эт_maze3:т_maze2:гI%=6ё9:т_world(5,I%,№):т_world(18,I%,№):н:гI%=10ё13:т_world(I%,5,Ј):т_world(I%,10,Ј):н:бDЭт_maze4:т_maze1ANгI%=10ё13:т_world(I%,0,Ј):т_world(I%,15,Ј):т_world(I%,12,№):н>XгI%=6ё9:т_world(0,I%,Ј):т_world(23,I%,Ј):т_world(3,I%,№):нќbгI%=1ё3:т_world(9,I%,№):т_world(14,I%,№):т_world(9,15-I%,№):т_world(14,15-I%,№):т_world(I%,5,№):т_world(I%,10,№):т_world(23-I%,5,№):т_world(23-I%,10,№):нlбvф Change directionЂЭт_lt:зoU%<>1 U%=-1:V%=0Љб”Эт_rt:зoU%<>-1 U%=1:V%=0ћбЁЭт_up:зoV%<>-1 U%=0:V%=1ІбјЭт_dn:зoV%<>1 U%=0:V%=-1ЖбРф MenusЪЭт_menuToggle:M%=1-M%:б;дЭт_menuUp:з M% maze%=(maze%+1)ѓ5 ‹ speed%=(speed%+1)ѓ10об;шЭт_menuDn:з M% maze%=(maze%+4)ѓ5 ‹ speed%=(speed%+9)ѓ10б
ф ExitЭт_exit с**REFRESHON
4*ESCON
>*FX4,0Hа яя