0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=2:FL=8: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"[208]ROFI [195]LUB"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*"
2018 DATA"     [207]HM-[205]ESSUNG"," 64","OHM*"
2019 DATA"/128 [211]PANNUNGSTEILER"," 64","SPAN*"
2020 DATA"     [204]AGERVERWALTUNG"," 64","LAGER*"
2038 DATA"     [199]RAFIK MIT DEM 64ER"," 64","HIRES-LO*"
2039 DATA"     [199]RAFIK-[196]EMONSTRATION"," 64","GRAFIK-DEM*"
2040 DATA"(40) [194]USINESS-[199]RAFIK","128","PC*"
2041 DATA"(80) [204]INEARE [199]LEICHUNGEN","128","LGS*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN