10 CLS:RANDOMIZE
11 ?"      ****   ***** *     *   ***"
12 ?"      *   *  *     **   **  *   *"
13 ?"      *    * *     * * * * *     *"
14 ?"      *    * ****  *  *  * *     *"
15 ?"      *    * *     *     * *     *"
16 ?"      *   *  *     *     *  *   *"
17 ?"      ****   ***** *     *   ***"
18 ?"   BY FERDINAND MRAVENEC COMPANY 1994  ";
19 FOR I=1 TO 300:NEXT I
20 FOR I=1 TO 640
21 PRINT @(RND*319),"Û";
22 NEXT I
23 FOR I=0 TO 318:PRINT @I,"Û";:NEXT I
30 BOX 3,10,5,30,1
35 PRINT @130,"   TOTO JE ALARM   "
40 ALARM 
50 CLS
55 FOR I=0 TO 319 STEP 10:PRINT "##########";:CLICK:NEXT I
60 FOR I=1 TO 4
80 BOX I,I,9-I,41-I,1
85 BEEP:FOR K=1 TO 20:NEXT K
90 NEXT I:RANDOMIZE
91 FOR I=0 TO 100
92 PRINT @(RND*319),CHR$(170+RND*80);
93 NEXT I
94 ERRWIN 3,10,"DIVIDE ZERO ERROR":CLS
95 BOX 3,10,5,30,1
96 PRINT @130," ERROR LOW BATTERY ":FOR I=1 TO 300:NEXT I
97 CLS:OFF
98 ERRWIN 3,10,"CAN'T INSTALL DOS" 
100 ?"Copyright (c) 1989 DIP"
101 ?"Distributed Information Processing Ltd"
102 ?"Surrey Reaserch Park, Guigford, England"
103 ?"All rights reverved"
104 ?"Tous droits r‚sver‚s"
105 ?"Alle Rechte vorbehalten"
106 ?
107 ?"BIOS: 1.072     Operating system: 1.072";
108 WAIT
110 FOR I=1 TO 32
111 BOX 1,1,8,8+I,1
120 BOX 2,2,7,7+I,1
130 BOX 3,3,6,6+I,1
140 BOX 4,4,5,5+I,1
150 CLICK
160 NEXT I:ERRWIN 3,10,"YANKEE DOODLE VIRUS"
170 FOR I=1 TO 32
180 BOX 1,I,8,40,1
190 BOX 2,I+1,7,39,1
200 BOX 3,I+2,6,38,1
210 BOX 4,I+3,5,37,1
215 CLICK
220 NEXT I:BEEP
230 FOR I=1 TO 15
240 BOX 1,32-I,8,40-I,1
250 BOX 2,33-I,7,39-I,1
260 BOX 3,34-I,6,38-I,1
270 BOX 4,35-I,5,37-I,1
275 CLICK
280 NEXT I:ERRWIN 3,10,"YANKEE DOODLE VIRUS"
290 CLS
291 ?
292 ?"a>format a:"
293 ?"Insert new disk in drive a"
294 ?"Strike a key when ready....":FOR I=1 TO 300:NEXT I
295 ?:BEEP
296 ?"Formatting...."
297 FOR I=1 TO 1000:NEXT I
298 EXITCMD "chkdsk a:"