1 REM == COMMODORE DISC 64=====
2 NR=5:FL=9:YP=90:BS=1264:VC=53248
3 DIMIN$(FL),D$(FL),ID$(FL),ZL(FL)
4 DIM HX(80)
5 POKE646,7:PRINTCHR$(147)CHR$(14)CHR$(8):POKE53280,0:POKE53281,0
20 PRINT"[194]ITTE EINEN [205]OMENT [199]EDULD..."
21 FORK=0TO9:HX(48+K)=K:HX(65+K)=K+10
22 NEXT
23 FORI=12288TO12798:READMC$:HI=ASC(LEFT$(MC$,1)):LO=ASC(RIGHT$(MC$,1))
24 DZ=16*HX(HI)+HX(LO):POKEI,DZ:NEXT
46 PRINTCHR$(147):GOSUB200
50 FORI=0TO7:POKE2040+I,192+I:NEXT:POKE53275,255
51 POKEVC+21,127:POKEVC+28,255:POKEVC+37,1:POKEVC+38,8:POKEVC+23,127
52 POKEVC+29,127:POKEVC,50:POKEVC+1,170
53 POKEVC+2,98:POKEVC+3,170
54 POKEVC+4,135:POKEVC+5,170
55 POKEVC+6,180:POKEVC+7,170
56 POKEVC+8,224:POKEVC+9,170
57 POKEVC+10,172:POKEVC+11,250
58 POKEVC+12,212:POKEVC+13,250
60 FORI=200TO0STEP-1
61 IFPEEK(203)=60THENPOKE53269,0:GOTO300
70 POKEVC+1,I:POKEVC+3,I:POKEVC+5,I:POKEVC+7,I:POKEVC+9,I:POKEVC+11,I+25
72 POKEVC+13,I+25
75 NEXT
99 IFPEEK(197)=60THENPOKE53269,0:GOTO300
100 GOTO60
200 POKE211,5:POKE214,10:SYS58640:PRINTTAB(9)" [195] [193] - [214]ERLAGS [199].M.B.[200] ":PRINT
201 PRINTTAB(5)"[193][206][212][207][206][160][203][213][204][212]    [193]LFONS [205]ITTELMEYER"
202 PRINTTAB(5)"[210]OSEMARIE [200]UBER    [204]OTHAR [205]IEDEL"
203 PRINTTAB(5)"[205]ICHAEL [210]EPPISCH   [200]ARALD [194]EILER"
204 PRINTTAB(5)"[212]ORSTEN [211]EIBT   [200]ERMANN [215]ELLESEN"
205 PRINTTAB(5)"[194]ERND [215]ELTE          [208]ETER [194]ASCH":PRINT:PRINT
207 PRINTTAB(2)CHR$(18)"   [198]UER [196]ISKETTENINHALTSVERZEICHNIS  "CHR$(146)
208 PRINTTAB(2)CHR$(18)"      BITTE [204][197][197][210][212][193][211][212][197] DRUECKEN !     "
220 RETURN
300 POKE646,1:PRINTCHR$(147)
302 PRINT"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"NR:PRINT:PRINT"[201]NHALTSVERZEICHNIS:":PRINT
304 PRINTCHR$(176);:FORI=0TO36:PRINTCHR$(192);:NEXT:PRINTCHR$(174)
310 FORIH=1TOFL
320 READIN$(IH),D$(IH),ID$(IH):ZL(IH)=YP
321 PRINTCHR$(221)TAB(3)D$(IH)TAB(7);
325 FORI=1TOLEN(IN$(IH))
330 PRINTMID$(IN$(IH),I,1);:
335 FORT=1TO50:NEXTT,I
336 PRINTTAB(38)CHR$(221)
337 YP=YP+8
338 NEXT
340 PRINTCHR$(173);:FORI=0TO36:PRINTCHR$(192);:NEXT:PRINTCHR$(189)
342 PRINT:PRINT"[194]ITTE [208]ROGRAMM FUER DEN [195] 64 MIT DEN"
343 PRINT"[195]URSOR-[212]ASTEN >>AB<< ODER  >>AUF<< AUS-"
345 PRINT"WAEHLEN UND DIE <[210][197][212][213][210][206]>-[212]ASTE DRUECKEN!"
350 X=23:Y=90
355 POKEVC+21,128:POKEVC+14,X:POKEVC+15,Y
360 GETA$
365 IFA$=CHR$(145)ANDY>90THENY=Y-8:POKEVC+15,Y
366 IFA$=CHR$(17)ANDY<130THENY=Y+8:POKEVC+15,Y
367 IFPEEK(203)=1THENGOSUB400
370 GOTO360
400 FORI=1TOFL
405 IFZL(I)=YTHEN500
410 NEXT:RETURN
500 POKEVC+17,PEEK(VC+17)AND239
501 POKEVC+21,0:POKEVC+32,14:POKEVC+33,6:POKE646,14
502 PRINTCHR$(142)CHR$(147)
505 POKEVC+29,0:POKEVC+23,0:POKEVC+28,0
510 PRINTCHR$(19)"LOAD"CHR$(34)ID$(I)CHR$(34)",8"
520 FORI=1TO5:PRINTCHR$(17):NEXT
521 PRINTCHR$(145)"POKE53265,27:RUN"
530 POKE631,19:FORI=1TO8:POKE632+I,13:NEXT:POKE198,9:END
10001 DATA01,5C,00,05,5C,00,05,FC,00,17,C0,00,17,00,00,57,00,00,5F,00,00,5C,00
10002 DATA00,5C,00,00,5C,00,5C,5C,01,F7,54,01,F7,D4,01,C7,D5,01,C7,F5,01,C7,35
10003 DATA5D,C7,3D,5F,5F,0F,FF,FF,03,FC,FC,00,FC,3C,00,00,00,00,00,00,00,00,00
10004 DATA00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,40
10005 DATA74,07,51,75,17,55,75,57,77,77,77,7F,77,F7,7C,77,C7,7C,77,C7,7C,77,C7
10006 DATAFC,FF,CF,F0,CF,0F,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,00
10007 DATA00,07,00,00,07,00,00,07,00,00,07,00,00,07,00,00,07,01,70,57,07,DD,F7
10008 DATA07,1D,C7,07,1D,C7,07,1D,C7,07,1D,C7,07,1D,C7,0D,7F,57,03,FF,00,03,FC
10009 DATA00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
10010 DATA00,00,00,00,00,00,00,00,00,00,00,00,01,71,17,07,DD,57,07,1D,7F,07,1D
10011 DATAFC,07,1D,F0,07,1D,F0,07,1D,F0,0D,7D,F0,03,FF,F0,03,F3,C0,00,00,00,00
10012 DATA00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
10013 DATA00,00,00,00,00,00,00,01,70,00,07,DC,00,07,1C,00,05,7C,00,07,F0,00,07
10014 DATAC0,00,07,1C,00,0D,7C,00,03,FC,00,03,F0,00,00,00,00,00,00,00,00,55,F0
10015 DATA00,55,70,00,71,7C,00,70,5C,00,70,5C,5C,70,1C,5C,70,1C,5C,70,1C,FC,70
10016 DATA1C,00,70,1C,5C,70,1C,5C,70,1C,5C,70,5C,5C,70,5C,5C,71,7C,5C,55,70,5C
10017 DATA55,F0,5C,FF,F0,FC,FF,C0,FC,00,00,00,00,00,00,00,00,00,00,00,00,00,00
10018 DATA00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,70,5F
10019 DATA07,DD,F7,07,3D,CF,05,5D,C0,0F,DD,C0,00,1D,C0,07,1D,C7,0D,7F,57,03,FC
10020 DATAFF,03,F0,FC,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
10021 DATA00,00,00,00,00,00,00,00,00,00,00,00,00,00,10,00,00,14,00,55,55,00,55
10022 DATA55,00,FF,D7,00,FF,DF,00,00,3C,00,00,30,00,00,00,00,00,00,00,00,00,00
10023 DATA00,00,00,00,00
20000 DATA"[196]JANGO                  "," 64","DJAN*"
20001 DATA"[195]OMPOSER [214] 3.0          "," 64","COMP*"
20002 DATA"[212]AKTIK                  "," 64","TAKT*"
20003 DATA"[218]EICHENSATZ-[197]DITOR      "," 64","ZEIC*"
20004 DATA"[196]RUCKER-[211]CHOENSCHRIFT   "," 64","SCHO*"
20005 DATA"[205]ULTI-[211]CREEN            "," 64","MULT*"
20006 DATA"[208][210][207]-[196][193][212]                 ","128","PROD*"
20007 DATA"[208]ARADIES                ","128","PARA*"
20008 DATA"[208]ELON                   ","128","PELO*"