0 REM
10 REM == DISCLADER64/128==
11 FORI=0TO24:CD$=CD$+CHR$(17):CU$=CU$+CHR$(145):NEXT:CR$=CHR$(29)
21 NR=17:FL=10:PF$="->":PL$="  "
28 DIMIN$(FL),D$(FL),ID$(FL),ZL(FL)
30 PRINTCHR$(147)CHR$(142)
31 POKE53280,0:POKE53281,0
50 GOSUB50000
110 PRINTCHR$(19)TAB(8)"[159]C A VERLAGS - G.M.B.H "
111 PRINTTAB(3)"HANS EGON ROSSMANN  THOMAS CHRAMP"
120 PRINTTAB(3)"TORSTEN SEIBT  ALFONS MITTELMEYER"
121 PRINTTAB(3)"BERND ULLMANN          ANTON KULT"
122 PRINTTAB(3)"ANDREE HERMAN           'BUTCHER'"
131 PRINTTAB(3)"[159]FUER DISKETTENINHALTVERZEICHNIS "
132 PRINTTAB(5)"BITTE LEERTASTE 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 PRINTCHR$(14);: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<15THENY=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"
1740 PRINTLEFT$(CD$,5)
1750 PRINTCHR$(145)"RUN"
1760 POKE631,19:FORI=1TO5:POKE632+I,13:NEXT:POKE198,6:END
2000 DATA" [197]ISENBAHN"," 64","EISEN*"
2005 DATA" [210]AND & [211]PRITES"," 64","RAND*"
2010 DATA" [199]RAFIKKONVERTER [195]128-->[195]64"," 64","GRAFI*"
2015 DATA" [193]PFELBERGE IN [195]"," 64","APFELBERG*"
2020 DATA" [193]SSEMBLER-[203]URS [212]EIL 1"," 64","ASSEM*"
2030 DATA" [203]EY ([198]UNKTIONSTASTENBELEGUNG)"," 64","KEY*"
2040 DATA" [195]HECK-[204]ISTE (80)","128","CHEC*"
2050 DATA" [194]UERO (80)","128","BUER*"
2060 DATA" [211][212][193][210]-[196]AT (40)","128","STARD*"
2070 DATA" [212]HE [204]OST [201]NFORMATIONS (80)","128","LOST*"
10000 PRINTCHR$(19)CR$LEFT$(CD$,Y1)PL$
10010 PRINTCHR$(19)CR$LEFT$(CD$,Y)PF$
10020 RETURN
50000 REM TITEL
50030 PRINT"[159]  [169]  [146][169][169]  [146][169][169][223][146][169][146] [169][223][146][169][146] [169]  [146][169][169] [223][146] [169]  [146][169][169] [223][146] [169]  [146][169]
50040 [153]" STEPWAITSTEP  STEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITTAN
50050 PRINT"[169]  [146][169][169]  [146][169][169][146][169][169][146][169][169][146][169][169][146][169][169]  [146][169][169]  [146][169][169]  [146][169][169][146][169][223][223][146][169]  [146][169]
50060 [153]
50070 [153]"            STEP (null)WAIT STEPWAITSTEPSTEP WAITSTEPSTEP  WAITSTEP
50080 PRINT"           [169][146][169][169][146][169][169][146][169]  [146] [169][146][169]
50090 [153]"          STEP  WAITSTEPSTEPWAITSTEPSTEP WAITSTEPSTEP  WAITSTEPOPEN
50100 RETURN