؎d:Snake game "SNAKER.BA"n:adapted to model 100 x300,59902: 1160CZ-D(31,9),HX(3),HY(3)JAH0:high score = zeroSLE3{:@130,"";:"Input level (1-4)";LELE4LE11701150:I03:HX(I),HY(I):1340̏AA0:MAN5:ME0ݏX30:Y4:S1920:T1 A$:A$(32)A$(28)410$@X1((Y1)40)," ";6A$(30)H0HA$(28)H1ZA$(31)H2l"A$(29)H3,XXHX(H):YYHY(H)6DD(X,Y):D0400@A$" "͊D1D(X,Y)0:500,1:@X1((Y1)40)," ";:XXHX(H):YYHY(H):400 JD1XXHX(H):YYHY(H):400&TX1XHX(H):Y1YHY(H)6^DDD(X1,Y1)ZhDD0XXHX(H):YYHY(H):400rrD(X,Y)0:D(X1,Y1)1}|200,1@X11((Y11)40),"";:59902,1,59920ّ@X1((Y1)40),"";:59902,1,59920((H2)6)呚4000,1@S1((T1)40)," ";:D(S,T)01K0KK1:D(SHX(G),THY(G))0500@K(1)52INN0VG(1)4tD(SHX(G),THY(G))0500G(G1)4:NNNN1:NN4720470SSHX(G):TTHY(G)ݒ@S1((T1)40),"";:59902,1,59926D(S,T)3XSTY570TITI1:TI0570&&@115,"####";TI/0240C:I400080050LDI,1fN@X1((Y1)40),"@";X@X1((Y1)40),"*";blMANMAN1v@37,MANMAN0220AAAHAHAAI07:@I40," ";:1070#@90,"";:A$"Game over":1740a@205,"";:A$"Replay press "(34)"S"(34)" key":1740A$:A$"s"A$"S"700210TI1017808000,10TITI100:AAAALE100ה@233,"######";AA@115,"####";TI720 TI118404000,5) TITI10:AAAALE10@*@233,"######";AAU4@115,"####";TI^>780lHTI0900xR2000,1\TITI1:AAAALEf@233,"######";AAp@115,"####";TI•z840ڕMEME1:ME10ME7㕎220하,0:I130J18D(I,J)0=I031:D(I,0)2:D(I,9)2:]J18:D(0,J)2:D(31,J)2:pTI1000ME100T1(5LE)10I(1)282:J(1)62Ɩ@I1((J1)40),"";:59902,1,59920ږD(I,J)1:300,1$@X1((Y1)40),"";:59902,1,59932.@31,"Men"(8@111,"Time":B@191,"Score"OL@271,"High-Sc";gV@313,"**####";AH;t`@37,MANj@233,"######";AAt~ 0,-1,1,0,0,1,-1,0:::ΗAD59902ٗ 1270痺 I0 8 J0 5  D: ADI6J,D9 197,213,245,87,243,205W 162,116,251,241,209,193k 201,0,0,0,0,0 224,240,252,254,240,192 16,8,48,64,56,4  7,200,62,62,200,7И 128,67,63,203,8,12 56,139,127,127,139,56( 12,8,203,63,67,128 2:< ,0:5F@52," SNAKE "uP@121,"";:A$"To trap the SNAKE with the rock piles": 1740Z@161,"";:A$"and avoid being bitten by the SNAKE...": 1740d@248,"";:A$" Push any key": 1740nA$݄$(1)x(@47,"";:59902,1,59920:@48,"";:59902,1,59920D@87,"";:59902,1,59920RO02:@125RO,"";:59902,1,59920::RO45:@125RO,"";:59902,1,59920:͚@165,"";:59902,1,59920:@16524,"";:59902,1,59920RO02:@205RO,"";:59902,1,59920::RO45:@205RO,"";:59902,1,59920:S@246,"";:59902,1,59920:@249,"";:59902,1,59920mK1:T3:S12:X30:Y4}X38301@X(Y40),"";:59902,1,59932:@X1(Y40)," ";6000,5ܛ@S(T40)," ";:TTK:KK@S(T40),"";:59902,1,59926X28131h@X(Y40),"";:59902,1,59920:@X1(Y40),"";:59902,1,59950:@X2(Y40)," ";@S(T40)," ";:TTK:KK"@S(T40),"";:59902,1,59926:3000,3,Ɯ6X1161:@@X(Y40),"";:59902,1,59926:@X1(Y40),"";:59902,1,59920:@X2(Y40),"";:59902,1,59950:@X3(Y40)," ";FJ9000,3LTT^S6`hI110r3000,1:@S(T40),"";:59902,1,59926|5000,1:@S(T40),"";I11000:::@40," *========== KEY OPERATION ==========* "KA$"(MAN) [] Left [] Right":@85,"";: 1740:@132,"";:A$"[] Up [] Down": 1740A$"To remove ":@205,"";: 1740:@215,"";:59902,1,59920:A$" ..... SPACE KEY":@216,"";:1740ޞA$"Push Any Key to Start":@290,"";:1740랸A$݄$(1)I1(A$)(A$,I,1);I400,1#2I1500:8