Es parte de la publicación: | Mutant Ant Attack |
Tamaño del archivo: | 2588 |
md5: | 3288f964c07f0bcb13c693306c369503 |
1 CLEAR 35000: INVERSE 0: FLASH 0: BORDER 0: PAPER 0: INK 4: BRIGHT 0: OVER 0: FLASH 0: CLS
2 PRINT BRIGHT 1; PAPER 0; INK 6; INVERSE 1;AT 10,11;"ANT ATTACK"; PAPER 0; INVERSE 0;AT 12,10;"By S.Allaway"
3 PRINT #0; PAPER 1; INK 5; FLASH 1; BRIGHT 1;" LOADING GRAPHICS "
4 INK 5: PAPER 1: PRINT AT 20,0;
5 BEEP .73,20: LOAD ""CODE
6 CLS : FOR n=0 TO 21
7 PRINT INK 4; PAPER 0;"[E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E][E]"
8 NEXT n
9 PAPER 2: INK 6: BRIGHT 1
10 PRINT AT 1,7;"▞▚▖ ▖▟▖"
12 PRINT AT 2,7;"▘";AT 2,10;"";AT 2,20;"▞▘"
14 PRINT AT 3,10;"▟▖"
16 PRINT AT 4,4;"▗▖▙";AT 4,10;"▝▙▙▘▙"
18 PRINT AT 5,4;"▖▘";AT 5,21;"▚▖"
20 PRINT AT 6,4;"";AT 6,6;"▟▞▙";AT 6,22;"▝"
22 PRINT AT 7,4;"▛▙▜▞▛▙";AT 7,24;""
24 PRINT AT 8,4;"▚▞";AT 8,18;"▚";AT 8,20;""
26 PRINT AT 9,3;"▗▘▛▟▘";AT 9,18;"▝";AT 9,21;""
28 PRINT AT 10,3;"▞ ▞▝▞▘"
30 PRINT AT 11,9;""
32 PRINT AT 12,8;"▝"
40 INK 5: PAPER 1
50 PRINT AT 10,17;"▗"
52 PRINT AT 11,17;"▝▖";AT 11,26;"▗▖"
54 PRINT AT 12,19;"▙▖";AT 12,26;"▛▜▙▖"
56 PRINT AT 13,21;"▙▖▗▞▜▙"
58 PRINT AT 14,23;"▙▖ ▟▞▜"
60 PRINT AT 15,21;"▗▗▘ ▝▚"
62 PRINT AT 16,20;"▗▜▖ ▝▛ "
64 PRINT AT 17,20;"▗▝▖ ▜ ▚"
66 PRINT AT 18,20;"▝▞▝▖▚▝▖"
68 PRINT AT 19,21;"▚ ▙▝▞▖▚▞▘"
70 PRINT AT 20,22;"▚▝▗▝▞▚▝▚"
72 PRINT AT 21,23;"▚▝▝▖"
90 BRIGHT 1: PAPER 7: INK 0
100 PRINT AT 13,6;" ▖▖▗▗ "
105 PRINT AT 14,6;" ▙▟ "
110 PRINT AT 15,6;" ▜ "
150 PRINT AT 16,3;" ▖▖▖▖▖▖▗ "
155 PRINT AT 17,3;" ▙ ▙▘▙▘ "
160 PRINT AT 18,3;" ▙▚ "
165 PRINT AT 19,3;""
170 PRINT AT 20,3;" By S.Allaway "
200 PRINT #0; PAPER 1; INK 5; FLASH 1; BRIGHT 1;" LOADING PROGRAM "
205 INK 5: PAPER 1
210 BEEP .73,20
215 PRINT AT 20,0;
220 LOAD ""CODE
225 PRINT AT 20,0;
230 LOAD ""CODE
240 BORDER 0: INK 4: PAPER 0: CLS
245 PRINT #0; PAPER 1; INK 5; FLASH 1; BRIGHT 1;" PRESS ANY KEY TO CONTINUE "
250 INK 5: PAPER 1
252 PRINT AT 7,7;"▗▗▗▗ ▖▖▖▖"
254 PRINT AT 8,7;" ▟ ▙▙▙▖"
256 PRINT AT 9,7;" "
258 PRINT AT 10,7;"▝ ▘▝▝ ▝ ▘▘▘ ▘"
275 BEEP .73,20: PAUSE 0
280 RANDOMIZE USR 40000
300 STOP
60928