90 lines
2.2 KiB
Plaintext
90 lines
2.2 KiB
Plaintext
10 FOR i=0 TO 7
|
|
20 READ bits
|
|
30 POKE USR "L"+i,bits
|
|
40 NEXT i
|
|
50 FOR i=0 TO 7
|
|
60 READ bits
|
|
70 POKE USR "R"+i,bits
|
|
80 NEXT i
|
|
90 FOR i=0 TO 7
|
|
100 READ bits
|
|
110 POKE USR "P"+i,bits
|
|
120 NEXT i
|
|
130 RESTORE 740
|
|
140 FOR i=7 TO 0 STEP -1
|
|
150 READ bits
|
|
160 POKE USR "D"+i,bits
|
|
170 NEXT i
|
|
180 FOR i=0 TO 7
|
|
190 READ bits
|
|
200 POKE USR "F"+i, bits
|
|
210 NEXT i
|
|
220 PAPER 0
|
|
230 CLS
|
|
240 LET snakex=19
|
|
250 LET snakey=15
|
|
260 LET dx=-1
|
|
270 LET dy=0
|
|
280 LET s$=CHR$ 15+CHR$ 20+CHR$ 15+CHR$ 21
|
|
290 LET foodx=INT (RND*32)
|
|
300 LET foody=INT (RND*22)
|
|
310 IF SCREEN$ (foody,foodx)<>" " THEN GO TO 290
|
|
320 INK 2
|
|
330 PRINT AT foody,foodx;CHR$ 149
|
|
340 INK 4
|
|
350 INVERSE 1
|
|
360 PRINT AT CODE s$,CODE s$(1);"#"
|
|
370 INVERSE 0
|
|
380 IF INKEY$="q" AND dy=0 THEN LET dx=0: LET dy=-1
|
|
390 IF INKEY$="a" AND dy=0 THEN LET dx=0: LET dy=1
|
|
400 IF INKEY$="o" AND dx=0 THEN LET dx=-1: LET dy=0
|
|
410 IF INKEY$="p" AND dx=0 THEN LET dx=1: LET dy=0
|
|
420 IF dx=-1 THEN PRINT AT snakey,snakex;CHR$ 155
|
|
430 IF dx=1 THEN PRINT AT snakey,snakex;CHR$ 161
|
|
440 IF dy=1 THEN PRINT AT snakey,snakex;CHR$ 159
|
|
450 IF dy=-1 THEN PRINT AT snakey,snakex;CHR$ 147
|
|
460 LET s$=CHR$ snakey+CHR$ snakex+s$
|
|
470 IF snakex=foodx AND snakey=foody THEN GO TO 290
|
|
480 PRINT AT CODE s$(LEN s$-1),CODE s$(LEN s$);" "
|
|
490 LET s$=s$( TO LEN s$-2)
|
|
500 LET snakex=snakex+dx
|
|
510 LET snakey=snakey+dy
|
|
520 IF snakex=-1 THEN LET snakex=31
|
|
530 IF snakex=32 THEN LET snakex=0
|
|
540 IF snakey=-1 THEN LET snakey=21
|
|
550 IF snakey=22 THEN LET snakey=0
|
|
560 IF SCREEN$ (snakey,snakex)="#" THEN STOP
|
|
570 GO TO 340
|
|
580 DATA BIN 00001111
|
|
590 DATA BIN 00111111
|
|
600 DATA BIN 01110011
|
|
610 DATA BIN 11110011
|
|
620 DATA BIN 11111111
|
|
630 DATA BIN 01111111
|
|
640 DATA BIN 00000111
|
|
650 DATA BIN 00011111
|
|
660 DATA BIN 11110000
|
|
670 DATA BIN 11111100
|
|
680 DATA BIN 11001110
|
|
690 DATA BIN 11001111
|
|
700 DATA BIN 11111111
|
|
710 DATA BIN 11111110
|
|
720 DATA BIN 11100000
|
|
730 DATA BIN 11111000
|
|
740 DATA BIN 00011000
|
|
750 DATA BIN 00111100
|
|
760 DATA BIN 01111100
|
|
770 DATA BIN 01111101
|
|
780 DATA BIN 11001101
|
|
790 DATA BIN 11001111
|
|
800 DATA BIN 11111111
|
|
810 DATA BIN 11111111
|
|
820 DATA BIN 00000100
|
|
830 DATA BIN 00001000
|
|
840 DATA BIN 01101011
|
|
850 DATA BIN 11111100
|
|
860 DATA BIN 11111100
|
|
870 DATA BIN 11111100
|
|
880 DATA BIN 01111111
|
|
890 DATA BIN 00110110
|