0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=4:FL=7:PF$="->":PL$="  "
28 DIMIN$(FL),D$(FL),ID$(FL),ZL(FL)
30 PRINTCHR$(147)CHR$(14)
31 POKE53280,0:POKE53281,0
1000 PRINTCHR$(147)CHR$(14)
1001 PRINT"[200][201][199][200][211][195][207][210][197]"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)THEN1600
1598 GOTO1511
1600 I=Y-5
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"     [202]OHN [194]END"," 64","JOHN*"
2005 DATA"     [193]STEROIDS"," 64","ASTER*"
2006 DATA"     [210]OULETTE"," 64","ROU*"
2010 DATA"     [193]NTI-[205]ONOPOLY"," 64","ANTI*"
2039 DATA"     [211]PRITMASTER","128","SPRI*"
2040 DATA"     [203]ANONENDONNER","128","KANON*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN