1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
20 POKE53280,0:POKE53281,0:PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
30 PRINT"[194][155]         H A U P T M E N U E          [146][194]";
40 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":X=28:Y=73
50 PRINTSPC(4)"1     [154]SCHRIFTEN  * TEIL 1":A1$="SCHRIFTEN * TEIL 1"
60 PRINTSPC(4)"2     [154]SCHRIFTEN  * TEIL 2":A2$="SCHRIFTEN * TEIL 2"
70 PRINTSPC(4)"3     [154]SCHRIFTEN  * TEIL 3":A3$="SCHRIFTEN * TEIL 3"
80 PRINTSPC(4)"4     [154]BILDER     * TEIL 1":A4$="BILDER * TEIL 1"
90 PRINTSPC(4)"5     [154]BILDER     * TEIL 2":A5$="BILDER * TEIL 2"
100 PRINTSPC(4)"6     [154]BILDER     * TEIL 3":A6$="BILDER * TEIL 3"
110 PRINTSPC(4)"7     [154]BILDER     * TEIL 4":A7$="BILDER * TEIL 4"
111 PRINTSPC(4)"8     [154]BILDER     * TEIL 5":A8$="BILDER * TEIL 5"
112 PRINTSPC(4)"9     [154]BILDER     * TEIL 6":A9$="BILDER * TEIL 6"
113 REM    PRINT""
114 PRINTTAB(3)"MIT CURSOR '^' CRSR (LINKS) WAEHLEN"
115 PRINTTAB(3)"MIT  RETURN [146] PROGRAMM LADEN.[145]"
120 V=53248:POKEV+21,4:POKE2042,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT:POKEV+41,7
130 POKEV+4,X:POKEV+5,Y
140 DATA255,252,0,0,2,0,0,1,0,0,0,128,0,0,64,0,0,32,0,0,16,136,145,40,144,145
150 DATA36,160,145,34,192,241,225,160,145,34,144,145,36,138,149,40,0,0,16,0,0
160 DATA32,0,0,64,0,0,128,0,1,0,0,2,0,255,252,0
170 GETE$:IFE$=""THEN170
180 IFE$=CHR$(17)THENY=Y+17:GOTO220
190 IFE$=CHR$(145)THENY=Y-17:GOTO240
200 IFE$=CHR$(13)THEN260
210 GOTO170
220 IFY>209THENY=73
230 GOTO130
240 IFY<73THENY=209
250 GOTO130
260 IFY=73ANDPEEK(1188)=49THENPOKEV+21,0:A$="B1":GOTO330
270 IFY=90ANDPEEK(1268)=50THENPOKEV+21,0:A$="B2":GOTO330
280 IFY=107ANDPEEK(1348)=51THENPOKEV+21,0:A$="B3":GOTO330
290 IFY=124ANDPEEK(1428)=52THENPOKEV+21,0:A$="B4":GOTO330
300 IFY=141ANDPEEK(1508)=53THENPOKEV+21,0:A$="B5":GOTO330
310 IFY=158ANDPEEK(1588)=54THENPOKEV+21,0:A$="B6":GOTO330
320 IFY=175ANDPEEK(1668)=55THENPOKEV+21,0:A$="B7":GOTO330
321 IFY=192ANDPEEK(1748)=56THENPOKEV+21,0:A$="B8":GOTO330
322 IFY=209ANDPEEK(1828)=57THENPOKEV+21,0:A$="B9":GOTO330
330 POKEV+21,0
20000 POKE53280,14:POKE53281,6:POKE646,6
20010 PRINT"[147]"
20030 PRINT"POKE 636,13:POKE 198,7"
20040 PRINT"LOAD";CHR$(34);A$;CHR$(34);",8,1"
20051 PRINT"RUN"
20052 POKE631,19:POKE632,13:POKE633,13:POKE634,13
20053 POKE635,13:POKE636,13:POKE637,13
20054 POKE198,7