1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| 1 IF PEEK(104) = 134 GOTO 10
2 POKE 104, 134; POKE 134*256, 0
3 PRINT CHR$(4) "RUN APPLE WORM"
10 HOME; POKE 16302,0; POKE 16304,0; POKE 1023,160
20 FOR I = 0 TO 94; READ D; POKE 1024+I,D; NEXT I
30 POKE 16368,0
40 IF PEEK (16384)<128 GOTO 40
50 CALL 1024
100 DATA 160,225,200,185,255,3,153,127,4,192,95,208,245,
160,18,190,76,4,24,189,128,4,105,128,157,128,4,189,129,
4,105,0,157,129,4,192,13,208,18,238,23,4,173,23,4
200 DATA 141,151,4,206,31,4,173,31,4,141,159,4,136,208,211
173,167,4,72,173,176,4,141167,4,104,141,176,4,76,128
4,7,20,25,28,33,46,55,61,65,68,72,75,4,16,40,43,49,52
|