10 A=PEEK(836)+1:POKE836,A
20 IFA=1THENPOKE55,0:POKE56,32:CLR:LOAD"MPS801.CAD.OBJ",8,1
25 SYS50192,11,15,2:POKE53280,14:POKE53281,15
30 OPEN1,8,15,"U9":CLOSE1:PRINTCHR$(14)CHR$(8)
40 PRINT"[151][147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
50 PRINT"         [200]ARDCOPY - [200]AUPTMENUE         [146]"
60 FORI=1TO21:PRINT" [180]                                    [170]":NEXT
70 PRINT"     [196]RUCKERTYP: [205][208][211]-801/803           [146]"
80 PRINT" [193]. - [199]RAFIK LADEN"
90 PRINT" [194]. - [199]RAFIK ANSEHEN"
100 PRINT" [195]. - [196]ISKETTENKOMMANDO SENDEN"
110 PRINT" [196]. - [196]IRECTORY ANZEIGEN"
120 PRINT" [197]. - [200]ARDCOPY"
130 POKE198,0
140 GETX$:IFX$=""GOTO140
150 A=ASC(X$)-64:IFA<1ORA>5GOTO140
160 ONAGOTO1000,2000,3000,4000,5000
1000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1010 PRINT"               [199]RAFIK LADEN            [146]":GOSUB1200
1020 INPUT" [206]AME ";N$:IFN$=""ORN$="_"GOTO30
1030 IFLEN(N$)>10GOTO1020
1040 SYS50192,11,15,2:SYS50299,2
1050 OPEN2,8,2,"PI."+N$+",P,R":FK=1:OPEN1,8,15:GOSUB1105
1060 IFFGOTO30
1070 SYS50442,2:CLOSE2:CLOSE1
1080 SYS50299,0:GOTO30
1100 OPEN1,8,15:FK=0
1105 INPUT#1,F,F$,T,S:IFF=0THENRETURN
1110 IFFKTHENSYS50299,0:PRINTCHR$(14);CHR$(8)
1120 PRINT:PRINT" [196]ISKETTENSTATUS :"
1130 PRINT""F","F$","T","S
1140 GETX$:IFX$=""GOTO1140
1150 CLOSE2:CLOSE1:RETURN
1200 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1210 RETURN
2000 SYS50299,2:POKE198,0
2010 GETX$:IFX$=""GOTO2010
2020 SYS50299,0:POKE53272,23:GOTO130
3000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
3010 PRINT"        [196]ISKETTENKOMMANDO SENDEN       [146]":GOSUB1200
3020 POKE631,34:POKE198,1
3030 INPUT" [203]OMMANDO ";C$:IFC$=""ORC$="_"GOTO30
3040 FK=0:OPEN1,8,15,C$:GOSUB1105:IFF=0THENGOSUB1120
3050 CLOSE2:CLOSE1:GOTO30
4000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
4010 PRINT"           [196]IRECTORY ANZEIGEN          [146]"
4020 PRINT"":OPEN2,8,0,"$0":GOSUB1100:IFFGOTO30
4030 SYS50475:CLOSE2:CLOSE1:POKE198,0
4040 GETX$:IFX$=""GOTO4040
4050 GOTO30
5000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
5010 PRINT"                [200]ARDCOPY               [146]":GOSUB1200
5020 PRINT"      [196]RUCKER EINGESCHALTET (J/N) ?":POKE198,0
5030 GETX$:IFX$<>"J"ANDX$<>"N"GOTO5030
5040 IFX$="N"GOTO30
5050 SYS50555
5060 GOTO30