0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=3:FL=9: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 PRINT
120 PRINTTAB(8)"[193]LFONS [205]ITTELMEYER"
121 PRINT
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"[208][207][215][197][210] [208][193][195][203]"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(6+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 IFPEEK(772)=124THEN1730
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"     [201]NFO"," 64","IN*"
2004 DATA"     [214]ERBEN"," 64","VERB*"
2005 DATA"     [195]OMPOSER"," 64","COM*"
2010 DATA"     [211]ILENT [210]UNNING"," 64","LDSI"
2039 DATA"     [215]ISHING"," 64","LDWI"
2040 DATA"     [196]UBBLEDATE"," 64","DUB*"
2041 DATA"     [197]DELGRAF"," 64","EDEL*"
2045 DATA"     [200]I[210]ES-[196]RUCK"," 64","HIR*"
2050 DATA"     [203]ONTOVERWALTUNG (80)","128","KON*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN
50000 REM TITEL
50010 PRINT
50020 PRINT"       [154]       [146]             [146]
50030 [153]"               WAIT             WAIT
50040 PRINT"         [146]      [146]       [146]      [146]
50050 [153]"         WAIT      WAIT       WAIT      WAIT
50060 PRINT"         [146]      [146]       [146]      [146]
50070 [153]"               WAIT             WAIT
50080 PRINT"              [146]             [146]
50090 [153]"         WAIT             WAIT
50100 PRINT"         [146]             [146]
50110 [153]"         WAIT             WAIT
50120 PRINT"         [146]             [146]
50130 [153]"         WAIT(null)(null)VAL(null)         WAITATNLEN(null)
50140 RETURN