0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=19:FL=8:PF$="->":PL$="  "
28 DIMIN$(FL),D$(FL),ID$(FL),ZL(FL)
30 PRINTCHR$(147)CHR$(14)
31 POKE53280,0:POKE53281,0
50 GOSUB50000
110 PRINTCHR$(19)TAB(8)"[159]"LEFT$(CD$,10)"[195] [193] [214]ERLAGS - [199].M.B.[200] "
111 PRINTTAB(3)"[200]ANS [197]GON [210]OSSMANN  [212]HOMAS [195]HRAMP"
120 PRINTTAB(3)"[212]ORSTEN [211]EIBT  [193]LFONS [205]ITTELMEYER"
121 PRINTTAB(3)"[194]ERND [213]LLMANN          [193]NDY [199]REIL"
122 PRINTTAB(3)"[193]NDREE [200]ERMAN           '[194]UTCHER'"
131 PRINTTAB(3)"[159][198]UER [196]ISKETTENINHALTVERZEICHNIS "
132 PRINTTAB(5)"BITTE [204]EERTASTE DRUECKEN !!"
140 GETA$
141 IFA$=CHR$(32)THENPRINTCHR$(147):GOSUB1000:GOSUB1600
150 GOTO140
1000 PRINTCHR$(147)CHR$(14)
1001 PRINT"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"NR:PRINT:PRINT"[201]NHALTSVERZEICHNIS:":PRINTCHR$(5)
1002 PRINTCHR$(176);:FORI=0TO36:PRINTCHR$(192);:NEXT:PRINTCHR$(174)
1003 FORIH=1TOFL
1010 READIN$(IH),D$(IH),ID$(IH):ZL(IH)=YP
1020 PRINTCHR$(221)TAB(3)D$(IH);
1021 FORJ=0TOLEN(IN$(IH))
1022 PRINTTAB(7+J)MID$(IN$(IH),J+1,1);
1024 NEXT
1025 PRINTTAB(38)CHR$(221)
1030 NEXT
1500 PRINTCHR$(173);:FORI=0TO36:PRINTCHR$(192);:NEXT:PRINTCHR$(189)
1501 PRINTCHR$(14):PRINTTAB(3)"[159][215]AEHLEN [211]IE DAS [208]ROGRAMM MIT DEN "
1502 PRINT"[195]URSOR-[212]ASTEN  >>AB<<  ODER >>AUF<< AUS"
1503 PRINT"UND DRUECKEN [211]IE DIE  <[210][197][212][213][210][206]>-[212]ASTE  !":X=1:Y=6:Y1=7
1510 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
1511 GETA$
1512 IFA$=CHR$(145)ANDY>6THENY=Y-1:Y1=Y+1:GOSUB10000
1513 IFA$=CHR$(17)ANDY<13THENY=Y+1:Y1=Y-1:GOSUB10000
1514 IFA$=CHR$(13)THENGOSUB1600
1598 GOTO1511
1600 FORI=1TOFL
1605 IFI=Y-5THEN1700
1606 NEXT:RETURN
1700 PRINTCHR$(147)CHR$(144)CHR$(142)
1710 IFD$(I)=" 64"THEN1730
1720 PRINTCHR$(19)"RUN"CHR$(34)ID$(I):POKE842,19:POKE843,13:POKE208,2:END
1730 PRINTCHR$(19)"LOAD"CHR$(34)ID$(I)CHR$(34)",8,1"
1731 RN$="RUN":IFY=8THENRN$="SYS51795:NEW"
1740 PRINTLEFT$(CD$,5)
1750 PRINTCHR$(145)RN$
1760 POKE631,19:FORI=1TO5:POKE632+I,13:NEXT:POKE198,6:END
2000 DATA" [193]SSEMBLER-[203]URS [212]EIL 3"," 64","ASSEM*"
2005 DATA" [196]ISKMASTER"," 64","DISKMAS*"
2010 DATA" [210]ENUMBER"," 64","RENUM*"
2015 DATA" [215] - [212]EXT"," 64","W-TEX*"
2020 DATA" [194]UCHUNGEN (80)","128","BUCHU*"
2030 DATA" [205]ULTI [208]LAY (40)","128","MULTI*"
2040 DATA" [205] [207] [198] [193] - [212]EST (40)","128","MOFA*"
2050 DATA" [206]OTIZZETTEL (80)","128","NOTI*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN
50000 REM TITEL
50030 PRINT"     [162][162][162][162][162]          [162][162][162][162][162]
50040 [153]"    NEWNEWNEWNEW            NEWNEW  NEWNEW
50050 PRINT"   [162][162][162][162] [207][205][205][207][196][207][210][197]    [162][162]  [162][162][162]
50060 [153]"   NEWNEWNEWNEW             NEWNEW  NEWNEWNEWISC"NR
50070 [153]"   NEWNEWNEWNEW             NEWNEW  NEWNEWNEW
50080 PRINT"    [162][162][162][162]            [162][162]  [162][162]
50090 [153]"     NEWNEWNEWNEWNEW          NEWNEWNEWNEWNEW
50100 RETURN