5 GOSUB 5000
10 M$="[203]OCH-[210]EZEPTVERWALTUNG":GOSUB 6000
20 Z=4:S=4:GOSUB 2000:PRINT "[196]ATEN"
30 S=14:GOSUB2000:PRINT"[196][201][211][203]"
35 S=24:GOSUB 2000:PRINT"[196]RUCKER"
40 GOSUB 20000:GOSUB 25000
50 IF MENUE(1,1)=OK THEN MENUE(1,1)=OFF:GOSUB 110
55 IF MENUE(1,2)=OK THEN MENUE(1,2)=OFF:GOSUB26200:KTR=1:GOSUB 26000:KTR=0
60 IF MENUE(1,3)=OK THEN MENUE(1,3)=OFF:GOTO 410
65 IF MENUE(1,4)=OK THEN MENUE(1,4)=OFF:GOTO 500
70 IF MENUE(1,5)=OK THEN MENUE(1,5)=OFF
75 IF MENUE(1,6)=OK THEN MENUE(1,6)=OFF:GOTO 920
80 IF MENUE(2,1)=OK THEN MENUE(2,1)=OFF:GOTO180
85 IF MENUE(2,2)=OK THEN MENUE(2,2)=OFF:GOTO 250
90 IF MENUE(2,3)=OK THEN MENUE(2,3)=OFF:GOTO 350
91 IF MENUE(2,4)=OK THEN MENUE(2,4)=OFF
92 IF MENUE(3,1)=OK THEN MENUE(3,1)=OFF:GOTO 600
93 IF MENUE(3,2)=OK THEN MENUE(3,2)=OFF:GOTO 700
100 GOTO 10
110 PRINT"[147]";:M$="[210]EZEPTEINGABE":GOSUB6000
115 Z=4:S=0:GOSUB2000:Z=5:S=0
120 IFRN$<>""THENPRINT"[193]LTER [210]EZEPTNAME :"RN$:GOSUB2000:PRINT"[206]EUER [210]EZEPTNAME :";
130 IFRN$=""THENGOSUB2000:PRINT"[210]EZEPTNAME :";
140 LA=13:GOSUB 3000:IF EN$="" OR EN$=" " THEN 10
150 RN$=EN$
160 GOSUB 11000:GOTO 10
180 IF VS=0 THENF$="[203]EINE [196]ATEN IM [211]PEICHER !":GOSUB9500:GOTO 10
185 PRINT"[147]";:M$="[196]ATEN SPEICHERN":GOSUB 6000
190 PRINT:PRINT"[196]ATEINAME : "RN$
195 PRINT:PRINT"[211]ICHER (J/N) ?";:LA=1:GOSUB 3000
200 IF EN$="J"THENGOSUB30000
210 GOTO 10
250 PRINT"[147]";:GOSUB 6000:PRINT:PRINT
260 IF VS>0 THEN PRINT"[197]S IST NOCH EIN [210]EZEPT IM [212]EXTSPEICHER"
270 IFVS>0THENPRINT"VORHANDEN ! [196]IESES MUSS ERST AUS DEM"
275 IFVS>0THENPRINT"[212]EXTSPEICHER GELOESCHT WERDEN !"
280 IF VS>0THENZ=19:GOSUB 9000:GOTO10
290 PRINT"[196]ATEINAME : ";:LA=13:GOSUB3000
295 RN$=EN$:PRINT:PRINT"[215]IRKLICH LADEN(J/N) ?";:LA=1:GOSUB3000
300 IF EN$="J" THEN GOSUB30500
310 GOTO 10
350 DV=8:GOSUB7000:IFWAHR=0THENGOSUB9500:GOTO 10
360 PRINT"[147][196][201][211][203]-[196]IRECTORY :":PRINT
370 SYS 828
380 PRINT:PRINT"[198]EHLERKANAL : ";:SYS 933
390 PRINT:PRINT:Z=23:GOSUB9000
400 GOTO 10
410 IF VS=<0THENF$="[203]EIN [210]EZEPT IM [211]PEICHER !":GOSUB9500:GOTO 10
420 M$=RN$:SE=1
430 PRINT"[147]";:GOSUB 6000:PRINT:PRINT
440 FOR I= 1 TO 14:PRINTTE$(SE,I):NEXT
450 GETT$:IFT$=""THEN450
460 IF T$=""THENIFSE<VSTHENSE=SE+1:GOTO 430
470 IF T$="[145]"THENIFSE>1THENSE=SE-1:GOTO430
480 IF T$=CHR$(13)THEN10
490 GOTO 450
500 PRINT"[147]";:M$="[212]EXTSPEICHER LOESCHEN":GOSUB 6000
510 Z=4:S=0:GOSUB 2000
520 PRINT"[215]IRKLICH GANZEN [212]EXTSPEICHER"
530 PRINT"LOESCHEN(J/N) ?";:LA=1:GOSUB3000
540 IF EN$<>"J" THEN 10
550 FOR T = 1 TO VS:FORI = 1 TO 14
560 TE$(T,I)="":NEXT:NEXT
570 VS=0:RN$=""
580 PRINT:PRINT"[212]EXTSPEICHER WURDE GELOESCHT !":Z=19:GOSUB 9000:GOTO 10
600 PRINT"[147]";:M$="[210]EZEPT-[196]IRECTORY DRUCKEN":GOSUB 6000
610 S=0:Z=3:H=1:B=36:GOSUB 2000:GOSUB 1000
620 Z=5:S=1:PRINT"[215]IRKLICH DRUCKEN (J/N) ?";:LA=1:GOSUB 3000
630 IF EN$<>"J"THEN10
635 DV=4:GOSUB7000:IF WAHR=0THENGOSUB9500:GOTO 10
640 KTR=2:OPEN3,4,7:GOSUB 26000:PRINT#3:CLOSE 3
650 GOTO 10
700 IFVS=<0THENF$="[203]EIN [210]EZEPT IM [211]PEICHER !":GOSUB 9500:GOTO 10
710 PRINT"[147]";:M$="[193]KTUELLES [210]EZEPT DRUCKEN":GOSUB 6000:PRINT:PRINT
720 Z=5:S=0:GOSUB 2000:PRINT "[218]EICHEN     :40"
730 Z=6:S=0:GOSUB 2000:PRINT "[204]INKER [210]AND :";:LA=2:GOSUB3000:LR=VAL(EN$)
740 IF LR=<0 OR LR>40 THEN PRINT"[198]EHLEREINGABE !!":GOTO 730
750 Z=8:S=0:GOSUB2000:PRINT"[215]IRKLICH DRUCKEN (J/N)?";:LA=1:GOSUB 3000
760 IF EN$<>"J"THEN 10
770 DV=4:GOSUB7000:IFWAHR=0THENGOSUB9500:GOTO 10
780 OPEN 1,4,7:GOSUB900
785 FOR I = 1 TO VS:FOR T = 1 TO 14
790 PRINT#1,SPC(LR)TE$(I,T):NEXT
800 IFI=4THENIFI<VSTHENFORB=1TO9:PRINT#1:NEXT:GOSUB900
810 NEXT
820 PRINT#1:CLOSE 1:PRINT
830 PRINT"[196]ATEN WURDEN GEDRUCKT !"
840 Z=19:GOSUB 9000
850 GOTO 10
900 SP=(40-LEN(RN$))/2:PRINT#1,SPC(LR+SP)RN$:PRINT#1,SPC(LR);:FORX=1TO40
910 PRINT#1,"-";:NEXT:PRINT#1:RETURN
920 M$="[208]ROGRAMMENDE":GOSUB6000
930 PRINT:PRINT"[215]IRKLICH BEENDEN (J/N) ?";:LA=1:GOSUB3000
940 IF EN$<>"J"THEN10
950 REMSYS64738
999 END
1000 PRINTTAB(S)"[176]";
1005 FORI=1TOB
1010 PRINT"[192]";
1015 NEXT
1020 PRINT"[174]"
1025 FORI=1TOH:PRINTTAB(S)"[221]"SPC(B)"[221]"
1030 NEXT
1035 PRINTTAB(S)"[173]";
1040 FORI=1TOB:PRINT"[192]";:NEXT:PRINT"[189]"
1045 RETURN
2000 PRINT"";
2005 IFZ=0 THEN2025  
2010 FORI=1TOZ
2015 PRINT
2020 NEXT
2025 PRINTTAB(S);
2030 RETURN
2035 END
3000 EN$=""
3005 I9=0
3010 PRINT "[164][157]";
3015 GETX9$:IF X9$="" THEN GOTO3015
3020 IF X9$=CHR$(13) THEN3055  
3025 IF X9$=CHR$(20)THENIFI9>0THENEN$=LEFT$(EN$,LEN(EN$)-1):PRINT" [157][157] [157]";:I9=I9-1
3026 IF I9=>LA THEN 3015
3030 IF X9$ < " " OR X9$ > "[218]" THEN 3010
3035 IF X9$ < "[193]" AND X9$ > "_"THEN 3015
3040 IF X9$=CHR$(34) THEN PRINT CHR$(148);:PRINT X9$;:PRINT CHR$(20);
3045 EN$=EN$+X9$:PRINT X9$;:I9=I9+1
3050 GOTO3010
3055 PRINT" "
3060 RETURN
5000 FOR I=0TO 29
5005 READA:POKE11*64+I,A
5010 NEXT
5015 FORI=30 TO 63:POKE11*64+I,0
5020 NEXT
5025 DATA 0,0,0
5030 DATA 0,0,0
5035 DATA 0,0,0
5040 DATA 0,0,0
5045 DATA 0,0,0
5050 DATA 0,0,0
5055 DATA 255,0,0
5060 DATA 255,0,0
5065 DATA 0,0,0
5070 DATA 0,0,0
5075 POKE2040,11
5080 REMPOKE53248,SX*8+24
5085 REMPOKE53249,SY*8+50
5090 REMPOKE53248+39,FARBE
5095 REMPOKE53248+21,EIN-AUS
5100 REM INIT
5105 POKE 53280,0:POKE 53281,0:PRINT"[153][147]"CHR$(14)
5110 S=.:FORI=828TO960:READQ:POKEI,Q:S=S+Q:NEXT
5120 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183
5130 DATA169,8,133,186,169,96,133,185,32,213,243,165,186,32,180,255
5140 DATA165,185,32,150,255,169,0,133,144,160,3,132,251,32,165,255
5150 DATA133,252,164,144,208,47,32,165,255,164,144,208,40,164,251,136
5160 DATA208,233,166,252,32,205,189,169,32,32,210,255,32,165,255,166
5170 DATA144,208,18,170,240,6,32,210,255,76,136,3,169,13,32,210
5180 DATA255,160,2,208,198,32,66,246,96,169,8,133,186,32,180,255
5190 DATA169,111,133,185,32,150,255,32,165,255,32,210,255,201,13,208
5200 DATA246,32,171,255,96
5205 SH=25:DIM TE$(SH,16),ME$(3,6),HO(3),ME(3,6):OK=1:OFF=NOT OK
5210 DATA "[196]ATEN","[210]EZEPT-[212]EXTEDITOR","[210]EZEPT-[196]IRECTORY"
5220 DATA "[193]KTUELLES [210]EZEPT ZEIGEN"
5230 DATA "[212]EXTSPEICHER LOESCHEN","[200]AUPTMENUE","[208]ROGRAMMENDE"
5235 FOR I = 0 TO 6:READ ME$(1,I):NEXT:HO(1)=6
5240 DATA "[196][201][211][203]","[210]EZEPT SPEICHERN","[210]EZEPT LADEN","[196][201][211][203]-[196]IRECTORY"
5242 DATA "[200]AUPTMENUE"
5245 FORI=0TO4:READ ME$(2,I):NEXT:HO(2)=4
5250 DATA "[196]RUCKER","[210]EZEPT-[196]IRECTORY DRUCKEN","[193]KTUELLES [210]EZEPT DRUCKEN"
5252 DATA "[200]AUPTMENUE"
5255 FORI=0TO3:READ ME$(3,I):NEXT:HO(3)=3
5260 RETURN
6000 PRINT"[147]";
6005 FOR T=1TO2
6010 FORI=1TO39:PRINT"[162]";:NEXT:PRINT
6020 FORI=1TO39:PRINT"[153] [146]";:NEXT:PRINT
6030 FORI=1TO39:PRINT"[184]";:NEXT:PRINT
6035 Z=21:S=0:GOSUB 2000:NEXT:PRINT"[153]"
6040 S=8:Z=22:GOSUB2000:PRINT"[215]RITTEN BY [200][197][201][203][207][160][200][197][206][203][197][160]!"
6050 Z=1:S=(40-LEN(M$))/2:GOSUB2000:PRINT""M$
6060 RETURN
7000 REM GERAET BEREIT ???
7010 WAHR=0:TRUE=-1:FALSE=0
7020 WAHR=TRVE
7030 POKE 768,185
7040 OPEN 9,DV,15
7050 PRINT#9,"";
7060 CLOSE9
7070 POKE 768,139
7080 IF (ST AND 128) THEN WAHR=FALSE
7090 IF WAHR=FALSE THEN F$="[199]ERAET NICHT BEREIT !!":RETURN
7095 WAHR=TRVE:RETURN
8000 INPUT#2,F,F$,X,Y
8005 IF RN$="$" THENF$="[213]NGUELTIGER [196]ATEINAME !":F=1
8010 IF F=0 THEN WAHR=-1:RETURN
8030 WAHR=0:RETURN
9000 S=12:GOSUB2000
9005 PRINT" [212]ASTE <[211][208][193][195][197]> [146]"
9010 GOSUB2000
9015 FORI=1TO100:GET A$:IF A$<>"" THENRETURN
9020 NEXT
9025 PRINT"               [146]"
9030 FORI=1TO100:GET A$:IF A$<>"" THEN9045
9035 NEXT
9040 GOTO9000
9045 GOSUB 2000:PRINT"               ":RETURN
9500 PRINT"[147]";:FORI=1TO39:PRINT" [146]";:NEXT:PRINT"";TAB(13)"[198]EHLERMELDUNG :[146]"
9510 Z=5:S=1:B=35:H=5:GOSUB 2000:GOSUB1000
9520 Z=7:S=3:B=31:H=1:GOSUB 2000:GOSUB1000
9525 Z=6:S=16:GOSUB2000:PRINT"[197][210][210][207][210] :"
9530 Z=8:S=4:GOSUB2000:PRINTF$
9535 Z=19:GOSUB 9000
9540 RETURN
10000 SS=24+SX*8
10001 IF SS<=255THENPOKE53248+16,0
10002 IF SS>255THENPOKE53248+16,1:SS=SS-255
10005 POKE53248,SS
10010 POKE53249,SY*8+50
10020 POKE53248+39,4
10030 RETURN
10100 Z=7:S=0:GOSUB 2000:FOR I = 1 TO 14:PRINTTAB(1)TE$(SE,I):NEXT:RETURN
11000 SE=1:REM "
11005 [153]"PRINTLOAD";
11007 M$[178]RN$:[141] 6000
11008 [129]Z[178]0[164]2:S[178]0:[141]2000:[153]" ";:[130]:[129]Z[178]21[164]23:S[178]0:[141]2000:[153]" "
11009 [130]
11010 Z[178]6:S[178]0:[141]2000:[153]" ";:[129]I[178]1[164]38:[153]"TAN";:[130]
11020 Z[178]4:S[178]0:[141] 2000
11050 [153]"ASC1=(null)EITE VOR     ASC2=(null)EITE ZURUECK"
11060 [153]"ASC3=(null)EUE (null)EITE    ASC4=(null)ENUE"
11070 SX[178]1:SY[178]1[170]6:[151]53248[170]21,1:[139] VS[178]0 [167] VS[178]1
11071 M$[178]"(null)EITE:"[170][196](SE)[170]" VON "[170][196](VS)[170]"CLOSE(null)EITEN"
11074 S[178](40[171][195](M$))[173]2:Z[178]3:[141]2000:[153]M$
11080 [141] 10100
11090 [143] "CLOSE
11100 GOSUB 10000
11105 S=SX:Z=SY:GOSUB 2000
11110 GET T$:IF T$="" THEN 11110
11115 GOSUB 11400:IFKTR=1THENKTR=0:GOTO11100
11117 GOSUB 11500:IFKTR=1THENKTR=0:GOTO11005
11118 IF KTR=2 THEN KTR=0:POKE 53248+21,0:RETURN
11120 IFT$=CHR$(13)THENIFSY<20THENSY=SY+1:SX=1:GOTO 11100
11125 IFT$=CHR$(148)THENGOSUB11600:GOTO 11100
11130 IFT$=CHR$(20) THEN GOSUB 11300:GOTO 11100
11140 IF SX>37 THEN 11110
11150 IF T$ < " " OR T$ > "[218]" THEN11100
11160 IF T$ < "[193]" AND T$ > "_"THEN11100
11170 IFT$=CHR$(34)THENPRINTCHR$(148);:PRINTT$;:PRINTCHR$(20);
11200 PRINT T$;:SX=SX+1
11205 IFSX-1>LEN(TE$(SE,SY-6))THENTE$(SE,SY-6)=TE$(SE,SY-6)+T$:GOTO11100
11210 H1$=LEFT$(TE$(SE,SY-6),SX-2)
11220 H2$=RIGHT$(TE$(SE,SY-6),LEN(TE$(SE,SY-6))-(SX-1))
11225 TE$(SE,SY-6)=H1$+T$+H2$
11230 GOTO 11100
11300 IFSX>LEN(TE$(SE,SY-6))THEN11350
11305 H1$=LEFT$(TE$(SE,SY-6),SX-1)
11310 H2$=RIGHT$(TE$(SE,SY-6),LEN(TE$(SE,SY-6))-SX)
11320 TE$(SE,SY-6)=H1$+H2$:S=1:Z=SY:GOSUB2000:PRINTTE$(SE,SY-6);:PRINT" ";
11340 S=SX:GOSUB 2000:RETURN
11350 IFSX>1THEN TE$(SE,SY-6)=LEFT$(TE$(SE,SY-6),LEN(TE$(SE,SY-6))-1)
11360 IFSX>1THENPRINT" [157][157] [157]";:SX=SX-1
11370 RETURN
11400 IFT$=CHR$(29)THENIFSX-1<LEN(TE$(SE,SY-6))THENSX=SX+1:KTR=1
11410 IFT$=CHR$(157)THENIFSX>1THENSX=SX-1:KTR=1
11420 IFT$=CHR$(17)THENIFSY<20THENSY=SY+1:KTR=1
11430 IFT$=CHR$(145)THENIF(SY-6)>1THENSY=SY-1:KTR=1
11440 RETURN
11500 IF T$=CHR$(133) THEN IF SE<VS THEN SE=SE+1:KTR=1
11510 IF T$=CHR$(137) THEN IF SE>1THEN SE=SE-1:KTR=1
11520 IF T$=CHR$(134) THEN IF VS<25 THEN VS=VS+1:SE=VS:KTR=1
11530 IF T$=CHR$(138) THEN KTR=2
11540 RETURN
11600 IF LEN(TE$(SE,SY-6))+1=>37THENRETURN
11610 H1$=LEFT$(TE$(SE,SY-6),SX-1)
11620 H2$=RIGHT$(TE$(SE,SY-6),LEN(TE$(SE,SY-6))-SX+1)
11630 TE$(SE,SY-6)=H1$+"[160]"+H2$:S=1:Z=SY:GOSUB2000:PRINTTE$(SE,SY-6);
11640 S=SX:GOSUB 2000:RETURN
20000 SP=3:S=SP:H=1:B=7:Z=3:GOSUB 2000:GOSUB 1000:MZ=0:MEN=1
20005 MS=SP
20010 GET T$:IF T$=""THEN20010
20015 IFT$=""THENSP=SP+10:MEN=MEN+1:IF SP>23 THEN MEN=1:SP=3
20020 IFT$="[157]"THENSP=SP-10:MEN=MEN-1:IF SP<3 THEN MEN=3:SP=23
20030 IF T$=CHR$(13)THENRETURN
20040 IF SP=MS THEN 20010
20050 PRINT"[144]";:S=MS:GOSUB 2000:GOSUB 1000
20060 PRINT"[153]";:S=SP:GOSUB 2000:GOSUB 1000
20070 GOTO 20005
25000 S=5:Z=8:B=25:H=HO(MEN):GOSUB2000:GOSUB 1000:Y=1:MY=0
25005 Z=9:S=0:GOSUB 2000:FORI=1TOHO(MEN):PRINTTAB(6)ME$(MEN,I):NEXT:S=6
25010 Z=Y+8:GOSUB 2000:PRINT"[150]"ME$(MEN,Y):MY=Y
25020 GETT$:IFT$=""THEN25020
25030 IF T$=""THENY=Y+1:IFY>HO(MEN)THENY=1
25040 IF T$="[145]"THENY=Y-1:IFY<1THENY=HO(MEN)
25050 IF T$=CHR$(13)THENMENUE(MEN,Y)=OK:RETURN
25060 IF Y=MYTHEN25020
25070 Z=MY+8:GOSUB2000:PRINT"[153]"ME$(MEN,MY)
25080 GOTO 25010
26000 IO=0:GZ=0:DV=8:GOSUB7000:IF WAHR=0 THEN GOSUB9500:RETURN
26005 OPEN2,8,15
26010 OPEN1,8,0,"$0"
26015 GET#1,A$,B$
26020 GET#1,A$,B$
26025 GET#1,A$,B$
26030 C=0
26035 IF A$<>"" THEN C=ASC(A$)
26040 IF B$<>"" THEN C=C+ASC(B$)*256
26045 GET#1,B$:IF ST<>0 THEN26095
26050 IF B$<>CHR$(34) THEN26045
26055 GET#1,B$:IF B$<>CHR$(34)THENIA$=IA$+B$:GOTO26055
26060 Z=4:S=1:GOSUB2000:PRINTIA$;:FORI=1TO16-LEN(IA$):PRINT" ";:NEXT
26065 IFRIGHT$(IA$,3)=".RD"THENIA$=LEFT$(IA$,LEN(IA$)-3):IO=1
26066 IFIO=1THENIF KTR=1THENIO=0:GOSUB 26100
26067 IFIO=1THENIFKTR=2THENIO=0:GOSUB 26300
26070 IA$=""
26075 GET#1,B$:IF B$=CHR$(32) THEN26080
26080 C$=""
26085 C$=C$+B$:GET#1,B$:IF B$<>""  THEN26085
26090 IF ST=0 THEN26020
26095 CLOSE 1:CLOSE 2
26096 IFKTR=1THENIF GZ<12 AND GZ>0 THEN Z=20:GOSUB9000
26097 RETURN
26100 GZ=GZ+1:Z=6+GZ:S=1:GOSUB 2000
26110 PRINT IA$
26120 IF GZ=12THENZ=20:GOSUB 9000:GOSUB26200:GZ=0
26130 RETURN
26200 GZ=0:M$="[210]EZEPT-[196]IRECTORY":GOSUB 6000
26210 Z=6:S=0:H=12:B=36:GOSUB 2000:GOSUB 1000
26220 Z=3:H=1:B=36:GOSUB2000:GOSUB1000
26299 RETURN
26300 REM "
26310 GZ[178]GZ[170]1
26320 [139] GZ[178]1 [167][141]26400
26330 [152]3,[166]3)IA$
26340 [139] GZ[178][177]66[167] GZ[178]0
26350 [142]
26400 [152]3:[152]3:[152]3:[152]3,[166]32)"(null)EZEPT-STR$IRECTORY"
26410 [152]3:[129]I[178]1[164]80:[152]3,"-";:[130]:[152]3:GZ[178]GZ[170]7
26420 [142]
30000 [143] "
30010 DV=8:GOSUB 7000:IF WAHR=0 THEN GOSUB 9500:RETURN
30020 OPEN 2,8,15:OPEN 1,8,2,RN$+".RD,S,W":GOSUB8000
30030 IF WAHR=0THENGOSUB9500:CLOSE 1:CLOSE 2:RETURN
30040 PRINT#1,VS:PRINT#1,RN$
30050 FOR I=1TOVS:FOR J = 1 TO 14
30060 PRINT#1,TE$(I,J)
30070 NEXT:NEXT
30080 CLOSE 1:CLOSE 2
30090 RETURN
30500 DV=8:GOSUB7000:IFWAHR=0THENGOSUB9500:RETURN
30510 OPEN2,8,15:OPEN 1,8,2,RN$+".RD,S,R":GOSUB 8000
30520 IF WAHR=0THENCLOSE1:CLOSE2:GOSUB9500:RETURN
30525 INPUT#1,VS:INPUT#1,RN$
30530 FORI=1TOVS:FORJ=1TO14:EN$=""
30540 GET#1,X9$
30550 IF X9$=CHR$(13)THEN 30570
30560 EN$=EN$+X9$:GOTO 30540
30570 TE$(I,J)=EN$:NEXT:NEXT
30580 CLOSE 1:CLOSE 2
30590 RETURN