d: Copyright (C) 1983 NEC Corp.Ǔn: SNAKE Game "SNAKE.BA"ߓx 300,59917!: 1160꓂ CZ D(31,9),HX(3),HY(3)AH10000LE3B:@130,"";:"Input level (1-4)";LEZ LE4 LE1 170 1150: I0 3: HX(I),HY(I): 1340AA0:MAN5:ME0X30:Y4:S1 920 : T1A$: A$(32) A$(28) 410@X1((Y1)40)," "; A$(30) H0( A$(28) H1= A$(31) H2R" A$(29) H3j,XXHX(H):YYHY(H)6DD(X,Y): D0 400ە@ A$" " D1 D(X,Y)0: 500,1:@X1((Y1)40)," ";:XXHX(H):YYHY(H): 400J D1 XXHX(H):YYHY(H): 400TX1XHX(H):Y1YHY(H)+^DDD(X1,Y1)Sh DD0 XXHX(H):YYHY(H): 400krD(X,Y)0:D(X1,Y1)1w| 200,1@X11((Y11)40),(255);@X1((Y1)40),(147(H2));ǖ 4000,1ꖤ@S1((T1)40)," ";:D(S,T)0 K0 KK1: D(SHX(G),THY(G))0 500(K(1)521NN0>G(1)4_ D(SHX(G),THY(G))0 500G(G1) 4:NNNN1: NN4 720 470SSHX(G):TTHY(G)×@S1((T1)40),(142);ЗD(S,T)3 XS TY 570TITI1: TI0 570&@35(240),"####";TI$0 240=: I4000 800 50GD I,1aN@X1((Y1)40),"@";{X@X1((Y1)40),"*";blMANMAN1v@37,MAN MAN0 220˜ AAAH AHAA I0 7:@I40," ";: 1070/@10(240),"";:A$"GAME OVER":1740r@5(540),"";:A$"Replay press "(34)"s"(34)" key":1740A$: A$"s" A$"S" A$"" 700 210 TI101 780ʙ 8000,10TITI100:AAAALE100@33(540),"######";AA@35(240),"####";TI' 7209  TI11 840F 4000,5_ TITI10:AAAALE10|*@33(540),"######";AA4@35(240),"####";TI> 780H TI0 900R 2000,1Ԛ\TITI1:AAAALEf@33(540),"######";AA p@35(240),"####";TIz 8401MEME1: ME10 ME7; 220F ,0:U I1 30d J1 8s D(I,J)0z  I0 31:D(I,0)2:D(I,9)2:ƛ J1 8:D(0,J)2:D(31,J)2:ٛTI1000ME100 T1 (5LE)10  I(1)282:J(1)62) @I1((J1)40),(255);? D(I,J)1: 300,1Eb$@X1((Y1)40),(147);x.@31(040),"Men"8@31(240),"Time"B@31(440),"Score"œL@31(640),"High-Sc";V@33(740),"**####";AH;`@37(040),MANj@33(540),"######";AAt/~ 0,-1,1,0,0,1,-1,07:M:POKE 65215!,14d:POKE 65216!,234rAD59918!} 1270 I0 5 J0 5 D: ADI6J,D ĝ 224,240,252,254,240,192 16,8,48,64,56,4  7,200,62,62,200,7) 128,67,63,203,8,12E 56,139,127,127,139,56^( 12,8,203,63,67,128}2 97,119,29,80,100,104,114< ,0:F@12(040)," SNAKE "P@1(240),"";:A$"To trap the SNAKE with the rock piles": 17404Z@440,"";:A$" while avoid being bitten by the SNAKE!": 1740dd@8(640),"";:A$" Push any key": 1740qnA$݄$(1)wx@5(240)," "@5(240)," "@5(340)," "@5(440)," "@5(540)," "@5(640)," "8K1:T3:S12:X30:Y4M X38 30 1b@X(Y40)," ";o 6000,5@S(T40)," ";:TTK:KK@S(T40),""; X28 13 1Ӡ@X(Y40)," ";@S(T40)," ";:TTK:KK"@S(T40),"";: 3000,3,)6 X11 6 1@@@X(Y40)," ";MJ 9000,3ST[^S6jh I1 10r 3000,1:@S(T40),"";| 5000,1:@S(T40),"";롐 I1 1000:::"@@@@@@@@@@@@ KEY OPERATION @@@@@@@@@@@@@"TA$"(MAN) [] Left [] Right":@5(240),"";: 1740:@12(340),"";:A$"[] Up [] Down": 1740A$"To remove ..... SPACE KEY":@5(540),"";: 1740ĢA$"Push Any Key to Start":@10(740),"";:1740ѢA$݄$(1)ע I1 (A$)(A$,I,1); I400,1  I1 500:%