5 POKE53248+33,0:POKE53248+32,0:PRINT"[147]"
10 IFFL=1THENFL=2:LOADN$,8,1
12 IFFL=2THENSYS49152
20 PRINT"           PROMETHEUS   V 1.0           "
25 PRINT"                  MENU:                  "
30 PRINT"    [218]1[218]     ANZAHL EINSTELLEN            "
35 PRINT"    [218]2[218]     FARBEN EINSTELLEN            "
40 PRINT"    [218]3[218]     FARBEN   ORDNEN              "
45 PRINT"    [218]4[218]           SAVEN                  "
50 PRINT"    [218]5[218]           LADEN                 "
55 PRINT"    [218]6[218]            END"
60 GETA$:A=VAL(A$)
70 ONA GOTO 100,200,300,400,500,600
80 GOTO 60
100 INPUT"[147]WIEVIELE STREIFEN";AN
105 POKE 49308,AN
110 INPUT"OK  ";A$
120 IFA$="J"THEN 5
130 GOTO 100
200 INPUT"[147]  WELCHEN FARBCODE ";FC:
205 PRINT
210 FORI=49361+(8*FC)TOI+7:PRINTPEEK(I);:NEXTI
215 PRINT:PRINT
220 FORI=49361+(8*FC)TOI+7:PRINT I-(49361+(8*FC));":";PEEK(I);"   =>";:INPUT A
223 PRINT
225 POKE I,A:NEXT
230 INPUT"         OK";A$
235 IFA$="J"THEN 5
240 GOTO 200
300 INPUT "[147]WELCHEN STREIFEN";S
310 INPUT "WELCHEN FARBCODE";FC
320 F1=49361+(8*FC)
330 A1=INT(F1/256):A2=F1-(256*A1)
340 S1=49335+(2*S)
350 POKE S1,A2:POKES1+1,A1
360 INPUT"         OK";A$
370 IFA$="J"THEN5
380 GOTO300
400 INPUT"[147]FILENAME:";N$
405 SYS(57812)N$,8
410 POKE193,00:POKE194,192:POKE174,88:POKE175,193:SYS62957
420 GOTO5
500 INPUT"[147]FILENAME:";N$
510 FL=1:GOTO10
600 END