01 '** Steuerung mit den Cursor- ** 02 '** Tasten, V in Zeile 11 ***** 03 '** 32 Programm Zeilen ********* 04 BOX 0,0,43,59,2'Rand rot Spielfd 05 COL 2,2:FOR I=1 TO 30:X=RND(28) 06 Y=RND(19):? @Y+2,X+1 %197:NEXT 07 COL 4,4:FOR I=1 TO 30 :X=RND(28) 08 Y=RND(20):? @Y+1,X+1 %198:NEXT 09 X=4:Y=1:Z=193:U=1:V=1:N=0'InitWu 10 COL 6,6:? @1,1 %Z;%Z;%Z:'Koerper 11 WAIT 3:T=KEY(6):S=KEY(7)'CursorT 12 IF T=-1 THEN Z=192'links?'welche 13 IF T= 1 THEN Z=193'rechts?'Taste 14 IF S= 1 THEN Z=194'oben? 'wurde 15 IF S=-1 THEN Z=195'unten?'gedrue 16 COL 6,6:? @Y,X %Z:'Kopf->Schwanz 17 IF Z=192 THEN X=X-1'links 'Kopf 18 IF Z=193 THEN X=X+1'rechts 'Step 19 IF Z=194 THEN Y=Y-1'oben 20 IF Z=195 THEN Y=Y+1'unten 21 GCH B,Y,X:COL 1,1:? @Y,X %Z:'K>S 22 IF (B<>32)&(B<>198) NO 20:END '# 23 COL 7,0:? @1,25 N:'Zaehler anzei 24 IF B<>198 GO 27'kein Futter gefu 25 NO 30:N=N+1:GO 34'Futter gefundn 26 '** Pseudo Subs **************** 27 NO 40:GCH B,V,U:COL 0,0'kein Fut 28 ? @V,U %32:'black space at last 29 IF B=192 THEN U=U-1'links'wo ist 30 IF B=193 THEN U=U+1'rechts'das n 31 IF B=194 THEN V=V-1'oben'Koerper 32 IF B=195 THEN V=V+1'unten 'Glied 33 GO 11'jump to main loop ******** 34 C=RND(28)+1:D=RND(20)+1:COL 4,4 35 GCH B,D,C:IF B<>32 THEN GO 34'no 36 ? @D,C %198:GO 11'jump to main l