.

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