0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=38:FL=12: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(7)"[158]"LEFT$(CD$,15)" [195].[193].[214][197][210][204][193][199][211] - [199]MB[200] "
111 PRINTTAB(3)"[193]NDREAS [199]REIL       [193]NDREE [200]ERMAN"
120 PRINTTAB(3)"[193]NTON [203]ULT     [193]LFONS [205]ITTELMEYER"
121 PRINTTAB(3)"[200]ANS [197]GON [210]OSSMANN    '[193]L [195]APONE'"
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<5+FLTHENY=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"
1740 PRINTLEFT$(CD$,5)
1750 PRINTCHR$(145)RN$
1760 POKE631,19:FORI=1TO3:POKE631+I,13:NEXT:POKE198,4:END
2000 DATA" [212]WO [196]IRECTORIES"," 64","T*"
2004 DATA" [204]IFE-[198]LIGHT"," 64","L*"
2005 DATA" [196]ER [196]REH"," 64","DER*"
2010 DATA" [205]ASKENDEMO"," 64","MAS*"
2015 DATA" [196]ATEIGENERATOR"," 64","DATG*"
2030 DATA" [196]ATENVERARBEITUNG"," 64","DATV*"
2035 DATA" [193]SSEMBLER"," 64","ASS*"
2036 DATA" [193]SSEMBLER","128","ASS*"
2037 DATA" [196]ISPO 128 (80)","128","DISP*"
2038 DATA" [193]UTO-[203]OSTEN (80)","128","AUT*"
2039 DATA" [208]LAY [194]OSS (40)","128","PLAY*"
2045 DATA" [214]OKABEL-[212]RAINER (40)","128","BOOT V*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN
50000 REM TITEL
50010 PRINT"         [154]     [146]          [146]
50020 [153]"               WAIT          WAIT
50030 PRINT"           [146]     [146]      [146]    [146]
50040 [153]"          WAIT      WAIT      WAIT     WAIT
50050 PRINT"        [146]OMMODORE      [146]     [146]
50060 [153]"        WAIT              WAIT     WAIT
50070 PRINT"        [146]              [146]     [146]
50080 [153]"        WAIT              WAIT     WAITISC";NR
50090 [153]"        WAIT              WAIT     WAIT
50100 PRINT"          [146]      [146]      [146]     [146]
50110 [153]"           WAIT     WAIT      WAIT    WAIT
50120 PRINT"               [146]          [146]
50130 [153]"              WAIT          WAIT
50140 RETURN