Content
Image Gallery
Source Code
1 BORDER 0: PAPER 5: CLS
2 FOR i=0 TO 22
3 IF i<=14 THEN PRINT PAPER 5;" "
4 IF i>15 THEN PRINT PAPER 4;" "
5 NEXT i
7 GO SUB 8000
10 FOR i=144 TO 152
20 FOR j=0 TO 7
30 READ x
40 POKE USR (CHR$ i)+j,x
50 NEXT j
60 NEXT i
65 INK 5
70 PRINT AT 19,0;"\a";"\d";"\g"
72 PRINT AT 0,29;"\a";"\d";"\g"
73 PRINT AT 3,26;"\a";"\d";"\g"
74 PRINT AT 2,8;"\a";"\d";"\g"
76 PRINT AT 4,5;"\a";"\d";"\g"
80 PRINT AT 20,0;"\b";"\e";"\h"
81 PRINT AT 5,5;"\b";"\e";"\h"
82 PRINT AT 1,29;"\b";"\e";"\h"
83 PRINT AT 4,26;"\b";"\e";"\h"
84 PRINT AT 3,8;"\b";"\e";"\h"
90 PRINT AT 21,0;"\c";"\f";"\i"
91 PRINT AT 6,5;"\c";"\f";"\i"
92 PRINT AT 2,29;"\c";"\f";"\i"
93 PRINT AT 5,26;"\c";"\f";"\i"
94 PRINT AT 4,8;"\c";"\f";"\i"
95 GO SUB 2000
100 DATA 24,36,66,130,130,130,130,130,130,132,132,68,36,21,11,7,31,123,113,99,71,206,60,32
110 DATA 0,0,0,3,12,30,38,35,35,113,185,156,78,199,242,236,224,193,190,64,32,16,8,7
120 DATA 0,0,4,248,200,232,120,56,56,136,232,112,96,192,0,0,0,252,2,1,1,2,4,248
200 FOR i=153 TO 159
210 FOR j=0 TO 7
220 READ x
230 POKE USR (CHR$ i)+j,x
240 NEXT j
250 NEXT i
260 PRINT AT 19,0;" ";"\l";" "
262 PRINT AT 9,29;" ";"\l";" "
270 PRINT AT 20,0;"\j";"\m";"\o"
272 PRINT AT 10,29;"\j";"\m";"\o"
280 PRINT AT 21,0;"\k";"\n";"\p"
282 PRINT AT 11,29;"\k";"\n";"\p"
285 GO SUB 4000
290 DATA 0,7,9,17,33,66,130,130,132,132,132,136,80,32,0,0
300 DATA 36,24,36,102,231,231,102,60,126,255,255,126,60,66,255,255,129,255,255,66,126,126,36,60
310 DATA 0,224,144,136,132,66,65,65,33,33,33,17,10,4,0,0
315 GO SUB 4500
316 GO SUB 7000
320 BEEP 1,9
325 SOUND 0,16;1,13;8,13;7,62
399 INK 9
400 PLOT 248,168: PLOT 248,160: PLOT 248,152
405 PLOT 240,168: PLOT 240,160: PLOT 240,152
410 PLOT 232,168: PLOT 232,160: PLOT 232,152
415 INK 5
420 PLOT 248,168: PLOT 248,160: PLOT 248,152
430 PLOT 240,168: PLOT 240,160: PLOT 240,152
440 PLOT 232,168: PLOT 232,160: PLOT 232,152
450 INK 9
460 PLOT 231,151: PLOT 231,143: PLOT 231,135
470 PLOT 223,151: PLOT 223,143: PLOT 223,135
480 PLOT 215,151: PLOT 215,143: PLOT 215,135
485 INK 5
490 PLOT 231,151: PLOT 231,143: PLOT 231,135
495 PLOT 223,151: PLOT 223,143: PLOT 223,135
500 PLOT 215,151: PLOT 215,143: PLOT 215,135
510 FOR i=0 TO 25
515 INK 9
520 PLOT 191,135: PLOT 191,127: PLOT 191,119
525 PLOT 199,135: PLOT 199,127: PLOT 199,119
530 PLOT 207,135: PLOT 207,127: PLOT 207,119
535 INK 5
540 PLOT 191,135: PLOT 191,127: PLOT 191,119
545 PLOT 199,135: PLOT 199,127: PLOT 199,119
550 PLOT 207,135: PLOT 207,127: PLOT 207,119
555 INK 9
560 PLOT 167,135: PLOT 167,127: PLOT 167,119
565 PLOT 175,135: PLOT 175,127: PLOT 175,119
570 PLOT 183,135: PLOT 183,127: PLOT 183,119
575 INK 5
580 PLOT 167,135: PLOT 167,127: PLOT 167,119
585 PLOT 175,135: PLOT 175,127: PLOT 175,119
590 PLOT 183,135: PLOT 183,127: PLOT 183,119
595 INK 9
600 PLOT 143,143: PLOT 143,135: PLOT 143,127
605 PLOT 151,143: PLOT 151,135: PLOT 151,127
610 PLOT 159,143: PLOT 159,135: PLOT 159,127
615 INK 5
620 PLOT 143,143: PLOT 143,135: PLOT 143,127
625 PLOT 151,143: PLOT 151,135: PLOT 151,127
630 PLOT 159,143: PLOT 159,135: PLOT 159,127
635 INK 9
640 PLOT 119,159: PLOT 119,151: PLOT 119,143
645 PLOT 127,159: PLOT 127,151: PLOT 127,143
650 PLOT 135,159: PLOT 135,151: PLOT 135,143
655 INK 5
660 PLOT 119,159: PLOT 119,151: PLOT 119,143
665 PLOT 127,159: PLOT 127,151: PLOT 127,143
670 PLOT 135,159: PLOT 135,151: PLOT 135,143
675 INK 9
680 PLOT 95,159: PLOT 95,167: PLOT 95,151
685 PLOT 103,159: PLOT 103,167: PLOT 103,151
690 PLOT 111,159: PLOT 111,167: PLOT 111,151
695 INK 5
700 PLOT 95,159: PLOT 95,167: PLOT 95,151
705 PLOT 103,159: PLOT 103,167: PLOT 103,151
710 PLOT 111,159: PLOT 111,167: PLOT 111,151
715 INK 9
720 PLOT 87,159: PLOT 87,151: PLOT 87,143
725 PLOT 79,159: PLOT 79,151: PLOT 79,143
730 PLOT 71,159: PLOT 71,151: PLOT 71,143
735 INK 5
740 PLOT 87,159: PLOT 87,151: PLOT 87,143
745 PLOT 79,159: PLOT 79,151: PLOT 79,143
750 PLOT 71,159: PLOT 71,151: PLOT 71,143
752 IF i=25 THEN GO TO 1200
755 INK 9
760 PLOT 87,135: PLOT 87,127
765 PLOT 79,135: PLOT 79,127: PLOT 79,119
770 PLOT 71,135: PLOT 71,127: PLOT 71,119
775 INK 5
780 PLOT 87,135: PLOT 87,127
785 PLOT 79,135: PLOT 79,127: PLOT 79,119
790 PLOT 71,135: PLOT 71,127: PLOT 71,119
795 INK 9
800 PLOT 87,119: PLOT 87,111: PLOT 87,103
805 PLOT 95,119: PLOT 95,111: PLOT 95,103
810 PLOT 103,119: PLOT 103,111: PLOT 103,103
815 INK 5
820 PLOT 87,119: PLOT 87,111: PLOT 87,103
825 PLOT 95,119: PLOT 95,111: PLOT 95,103
830 PLOT 103,119: PLOT 103,111: PLOT 103,103
835 INK 9
840 PLOT 111,111: PLOT 111,103: PLOT 111,95
845 PLOT 119,111: PLOT 119,103: PLOT 119,95
850 PLOT 127,111: PLOT 127,103: PLOT 127,95
855 INK 5
860 PLOT 111,111: PLOT 111,103: PLOT 111,95
865 PLOT 119,111: PLOT 119,103: PLOT 119,95
870 PLOT 127,111: PLOT 127,103: PLOT 127,95
875 INK 9
880 PLOT 135,111: PLOT 135,103: PLOT 135,95
885 PLOT 143,111: PLOT 143,103: PLOT 143,95
890 PLOT 151,111: PLOT 151,103: PLOT 151,95
895 INK 5
900 PLOT 135,111: PLOT 135,103: PLOT 135,95
902 PLOT 143,111: PLOT 143,103: PLOT 143,95
904 PLOT 151,111: PLOT 151,103: PLOT 151,95
906 INK 9
910 PLOT 159,111: PLOT 159,103: PLOT 159,95
915 PLOT 167,111: PLOT 167,103: PLOT 167,95
920 PLOT 175,111: PLOT 175,103: PLOT 175,95
925 INK 5
930 PLOT 159,111: PLOT 159,103: PLOT 159,95
935 PLOT 167,111: PLOT 167,103: PLOT 167,95
940 PLOT 175,111: PLOT 175,103
944 IF i=20 THEN FOR j=1 TO 10
945 INK 9
950 PLOT 175,95: PLOT 175,87: PLOT 175,79
955 PLOT 183,95: PLOT 183,87: PLOT 183,79
960 PLOT 191,95: PLOT 191,87: PLOT 191,79
965 INK 5
970 PLOT 175,95: PLOT 175,87: PLOT 175,79
975 PLOT 183,95: PLOT 183,87: PLOT 183,79
980 PLOT 191,95: PLOT 191,87: PLOT 191,79
981 IF i=20 THEN NEXT j
985 INK 9
990 PLOT 199,79: PLOT 199,71: PLOT 199,63
995 PLOT 207,79: PLOT 207,71: PLOT 207,63
1000 PLOT 215,79: PLOT 215,71: PLOT 215,63
1005 INK 5
1010 PLOT 199,79: PLOT 199,71: PLOT 199,63
1015 PLOT 207,79: PLOT 207,71: PLOT 207,63
1020 PLOT 215,79: PLOT 215,71: PLOT 215,63
1025 INK 9
1030 PLOT 223,79: PLOT 223,71: PLOT 223,63
1035 PLOT 231,79: PLOT 231,71: PLOT 231,63
1040 PLOT 239,79: PLOT 239,71: PLOT 239,63
1045 INK 5
1050 PLOT 223,79: PLOT 223,71: PLOT 223,63
1055 PLOT 231,79: PLOT 231,71: PLOT 231,63
1060 PLOT 239,79: PLOT 239,71: PLOT 239,63
1065 INK 9
1070 PLOT 255,103: PLOT 255,95: PLOT 255,87
1075 PLOT 247,103: PLOT 247,95: PLOT 247,87
1080 PLOT 239,103: PLOT 239,95: PLOT 239,87
1085 INK 5
1090 PLOT 255,103: PLOT 255,95: PLOT 255,87
1095 PLOT 247,103: PLOT 247,95: PLOT 247,87
1100 PLOT 239,103: PLOT 239,95: PLOT 239,87
1105 INK 9
1110 PLOT 239,111: PLOT 239,119: PLOT 239,127
1115 PLOT 247,111: PLOT 247,119: PLOT 247,127
1120 PLOT 255,111: PLOT 255,119: PLOT 255,127
1125 INK 5
1130 PLOT 239,111: PLOT 239,119: PLOT 239,127
1135 PLOT 247,111: PLOT 247,119: PLOT 247,127
1140 PLOT 255,111: PLOT 255,119: PLOT 255,127
1145 INK 9
1150 PLOT 231,127: PLOT 231,119: PLOT 231,111
1155 PLOT 223,127: PLOT 223,119: PLOT 223,111
1160 PLOT 215,127: PLOT 215,119: PLOT 215,111
1165 INK 5
1170 PLOT 231,127: PLOT 231,119: PLOT 231,111
1175 PLOT 223,127: PLOT 223,119: PLOT 223,111
1180 PLOT 215,127: PLOT 215,119: PLOT 215,111
1185 NEXT i
1200 INK 9
1210 PLOT 63,143: PLOT 63,135: PLOT 63,127
1220 PLOT 55,143: PLOT 55,135: PLOT 55,127
1230 PLOT 47,143: PLOT 47,135: PLOT 47,127
1235 INK 5
1240 PLOT 63,143: PLOT 63,135: PLOT 63,127
1245 PLOT 55,143: PLOT 55,135: PLOT 55,127
1250 PLOT 47,143: PLOT 47,135: PLOT 47,127
1255 FOR j=1 TO 6
1260 INK 9
1265 PLOT 39,135: PLOT 39,127: PLOT 39,119
1270 PLOT 31,135: PLOT 31,127: PLOT 31,119
1275 PLOT 23,127: PLOT 23,119
1280 INK 5
1285 PLOT 39,135: PLOT 39,127: PLOT 39,119
1290 PLOT 31,135: PLOT 31,127: PLOT 31,119
1295 PLOT 23,127: PLOT 23,119
1296 NEXT j
1300 INK 9
1310 PLOT 23,135: PLOT 23,143: PLOT 23,151
1315 PLOT 15,135: PLOT 15,143: PLOT 15,151
1320 PLOT 7,135: PLOT 7,143: PLOT 7,151
1325 INK 5
1330 PLOT 23,135: PLOT 23,143: PLOT 23,151
1335 PLOT 15,135: PLOT 15,143: PLOT 15,151
1340 PLOT 7,135: PLOT 7,143: PLOT 7,151
1400 BRIGHT 0
1410 INK 9
1999 STOP
2000 REM head lower left corner
2010 FOR j=0 TO 23
2020 FOR i=0 TO 23
2030 IF POINT (i,j) THEN GO SUB 2200
2040 NEXT i
2050 NEXT j
2060 RETURN
2200 PLOT 103-i,96+j
2210 PLOT 191-i,72+j
2220 PLOT 112+i,159-j
2230 PLOT 136+i,143-j
2240 PLOT 232+i,127-j
2250 PLOT i,151-j
2260 PLOT 239-i,79-j
2270 RETURN
4000 REM head at top
4010 FOR i=0 TO 23
4020 FOR j=0 TO 23
4030 IF POINT (i,j) THEN GO SUB 4200
4040 NEXT j
4050 NEXT i
4060 RETURN
4200 PLOT 231-j,i+104
4210 PLOT 207-j,112+i
4220 PLOT 183-j,112+i
4230 PLOT 111-j,144+i
4240 PLOT 39-j,112+i
4250 PLOT 104+j,111-i
4260 PLOT 128+j,111-i
4270 PLOT 152+j,111-i
4280 PLOT 192+j,79-i
4290 PLOT 87-i,135-j
4300 RETURN
4500 REM background
4510 FOR i=144 TO 152
4520 FOR j=0 TO 7
4530 READ x
4540 POKE USR (CHR$ i)+j,x
4560 NEXT j
4570 NEXT i
4575 REM grasstops,bugs,snails,etc
4580 DATA 72,52,176,168,170,106,108,255,34,81,149,165,133,171,203,255,24,24,144,210,246,22,92,48
4585 DATA 2,28,44,84,84,68,88,224,102,24,102,102,24,255,60,255,60,66,255,129,255,129,66,60
4590 DATA 112,248,140,172,236,121,254,0,56,124,134,182,148,117,254,0,99,119,54,8,54,119,99,0
4600 PRINT AT 15,0; PAPER 5; INK 4;"\a\b\a\a \b\b\a\a\b\a\b \b\b\b \b\a\a\b\b\a\a\a\a\a"; INK 1;"\h "
4610 PRINT AT 16,10; INK 7; PAPER 4;"\i \i\i\i\i\i\i\i \i\i\i"
4620 PRINT AT 17,8; INK 7; PAPER 4;"\i \i\i\i\i \i\i\i \i\i"
4630 PRINT AT 18,7; INK 7; PAPER 4;"\i\i\i\i\i\i \i\i \i\i\i \i\i \i\i\i\i"
4640 PRINT AT 19,7; INK 7; PAPER 4;"\i\i \i\i\i \i\i \i\i\i \i\i \i\i\i\i"
4645 PRINT AT 20,10; PAPER 4; INK 7;"\i\i\i\i\i\i\i \i\i \i \i\i \i\i\i\i"
4650 PRINT AT 18,4; PAPER 4; INK 0;"\e": PRINT AT 19,4; FLASH 1; INK 6;; PAPER 4;"\f": FLASH 0
5000 REM background
5010 FOR i=144 TO 152
5020 FOR j=0 TO 7
5030 READ x
5040 POKE USR (CHR$ i)+j,x
5050 NEXT j
5060 NEXT i
5065 REM flower
5070 DATA 224,192,128,0,0,0,0,128,127,63,33,7,1,7,33,63,128,0,0,128,128,192,192,241
5075 DATA 128,193,227,247,247,239,239,255,195,129,0,0,0,0,129,195,255,239,231,227,195,193,128,0
5080 DATA 63,7,3,1,0,0,1,3,7,15,31,127,63,31,7,3,1,0,0,0,0,1,7,207
5090 PRINT AT 13,21; PAPER 3; INK 5;"\a"; PAPER 5; INK 3;"\d"; PAPER 3; INK 5;"\g"
5095 PRINT AT 14,21; PAPER 5; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 5;"\h"
5100 PRINT AT 15,21; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5110 PRINT AT 16,23; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5115 PRINT AT 17,23; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5120 PRINT AT 18,23; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5125 PRINT AT 19,21; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5130 PRINT AT 20,21; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5135 PRINT AT 21,21; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5140 PRINT AT 19,25; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5145 PRINT AT 20,25; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5150 PRINT AT 21,25; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5160 PRINT AT 19,0; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5165 PRINT AT 20,0; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5170 PRINT AT 21,0; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5175 PRINT AT 15,26; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5180 PRINT AT 16,26; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5185 PRINT AT 17,26; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5190 PRINT AT 18,28; PAPER 3; INK 4;"\a"; PAPER 4; INK 3;"\d"; PAPER 3; INK 4;"\g"
5195 PRINT AT 19,28; PAPER 4; INK 3;"\b"; PAPER 6; INK 3;"\e"; PAPER 3; INK 4;"\h"
5200 PRINT AT 20,28; PAPER 3; INK 4;"\c"; PAPER 4; INK 3;"\f"; PAPER 3; INK 4;"\i"
5300 RETURN
7000 REM mushroom
7010 FOR i=144 TO 152
7020 FOR j=0 TO 7
7030 READ x
7040 POKE USR (CHR$ i)+j,x
7050 NEXT j
7060 NEXT i
7070 DATA 0,1,2,6,14,16,16,16,0,248,7,48,120,123,51,7,0,0,0,192,112,112,240,224
7075 DATA 22,31,31,22,17,19,23,31,15,63,113,224,192,192,224,224,224,192,128,128,128,64,64,32
7080 DATA 31,63,28,0,6,15,31,6,208,16,16,8,8,8,136,0,16,8,4,2,2,2,0,0
7090 PRINT AT 15,4;; INK 1;"\g\h\i"
7095 PRINT AT 14,4; INK 1;"\d\e\f"
7100 PRINT AT 13,4; INK 2;"\a\b"; INK 1;"\c"
7200 RETURN
8000 REM clouds
8010 INK 7
8020 PLOT 144,151: DRAW 50,0
8025 PLOT 175,155: DRAW 40,0
8030 PLOT 160,152: DRAW 30,0
8035 PLOT 168,153: DRAW 30,0
8040 PLOT 165,154: DRAW 30,0
9000 RETURN Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.