0 PRINT CHR$(8)
1 PRINT"[147]           EIN TIP VON LUKIAN           [146]"
2 POKE56,076:CLR:TI$="000003":WAIT161,1:
5 POKE53280,.:POKE53281,.:FORF=1TO10:POKE646,F
10 FORZ=54272TO54296:POKEZ,0 :NEXT:S=54272:
15 POKES+24,15:POKES+5,9 :POKES+6,15
17 PRINT"[164][175][185] WAS MAN GEGEN LANGEWEILE MACHT?? [185][175][164]";:TI$="000003":WAIT161,1
18 PRINT"===== DA WUESSTE ICH SCHON WAS...: =====[145][145][145][145]";:NEXTF:
20 I=I+1:IFI=5THEN FORT=1TO5000:NEXT:   POKES+24,0:GOTO90
25 READL,H,D :IFH<0GOTO80
30 POKES+4,H:POKES+1,L:POKES+4,33
34 PRINT"[147][150]    BESORG' DIR MAL 'NE GUTE DISK !!   ";:FORX=1TOD:NEXT
35 POKES+4,32:FORT=1TO45:NEXT
36 PRINT"   [223][169]                                [223][169] ";
50 DATA13,154,25,18,152,26,16,61,124,14,151,   300
51 DATA13,176,31,14,162,32,15,61,134,14,172,   102,15,171,400,-1,-1,-1
52 DATA15,179,33,16,161,34,17,63,130,15,175,  500
53 DATA24,154,35,26,153,35,24,71,124,19,152,300,17,36,500 ,-1,-1,-1
80 A=A+1:IFA=1THEN RESTORE:GOTO25
81 IFA=2THENRESTORE:GOTO25
82 IFA=3THEN:  GOTO25
83 IFA=4THEN:A=0:GOTO20
90 PRINT"[147] ZUM BEISPIEL      [151]D A R K   S T A R "
100 PRINT" BEI:            SVEN T E W E S"
101 PRINT"[156]                 AM LULLBERG 29"
102 PRINT"           34434 BORGENTREICH-BORGHOLZ";
103 POKE161,0:POKE162,0:WAIT161,1: PRINT:LOAD"BOOT INTRO",8,1