1 REM == COMMODORE DISC 64=====
2 NR=15:FL=8:BS=1264
3 DIMIN$(FL),D$(FL),ID$(FL),ZL(FL)
4 PF$="->":PL$="  "
5 POKE646,7:PRINTCHR$(147)CHR$(142):POKE53280,0:POKE53281,0
46 PRINTCHR$(147):GOSUB50000:GOSUB200
61 IFPEEK(203)=60THEN300
200 POKE211,5:POKE214,10:SYS58640:PRINTTAB(9)" C A - VERLAGS G.M.B.H ":PRINT
201 PRINTTAB(5)"ANTON[160]KULT    ALFONS MITTELMEYER"
202 PRINTTAB(5)"BERND ULLMANN      LOTHAR MIEDEL"
203 PRINTTAB(5)"ANDREE HERMAN      HARALD BEILER"
204 PRINTTAB(5)"TORSTEN SEIBT   HERMANN WELLESEN"
205 PRINTTAB(5)"BERND WELTE          PETER BASCH":PRINT:PRINT
207 PRINTTAB(2)CHR$(18)"   FUER DISKETTENINHALTSVERZEICHNIS  "CHR$(146)
208 PRINTTAB(2)CHR$(18)"      BITTE LEERTASTE DRUECKEN !     "
210 POKE198,0:WAIT198,1:RETURN
300 POKE646,2:PRINTCHR$(147)CHR$(14)
302 PRINT"[195][207][205][205][207][196][207][210][197] [196][201][211][195]"NR:PRINT:PRINT"[201]NHALTSVERZEICHNIS:":PRINTCHR$(5)
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 NEXT
336 PRINTTAB(38)CHR$(221)
338 NEXT
340 PRINTCHR$(173);:FORI=0TO36:PRINTCHR$(192);:NEXT:PRINTCHR$(189)
342 PRINT:PRINT"[150][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=2:Y=6:Y1=6
355 POKE211,X:POKE214,Y:SYS58640:PRINTPF$
360 GETA$
365 IFA$=CHR$(145)ANDY>6THENY=Y-1:Y1=Y+1:GOSUB380
366 IFA$=CHR$(17)ANDY<9THENY=Y+1:Y1=Y-1:GOSUB380
367 IFPEEK(203)=1THENGOSUB400
370 GOTO360
380 POKE211,X:POKE214,Y1:SYS58640:PRINTPL$
381 POKE211,X:POKE214,Y:SYS58640:PRINTPF$
382 RETURN
400 FORI=1TOFL
405 IFI=Y-5THEN501
410 NEXT:RETURN
501 POKE646,PEEK(53281)
502 PRINTCHR$(142)CHR$(147)
510 PRINTCHR$(19)"LOAD"CHR$(34)ID$(I)CHR$(34)",8"
520 FORI=1TO5:PRINTCHR$(17):NEXT
521 PRINTCHR$(145)"SYS58784:RUN"
530 POKE631,19:FORI=1TO8:POKE632+I,13:NEXT:POKE198,9:END
20000 DATA" [193]GENT 0013"," 64","AGENT"
20002 DATA" [194]REAKER"," 64","BREA*"
20003 DATA" [201]MPERIUM [210]OMANUM"," 64","IMP*"
20004 DATA" [195][193] - [199]RAPH"," 64","CA - GRAF"
20005 DATA" [218]EICHENSATZ-[197]DITOR","128","ZEICHENSATZ(PRG)"
20006 DATA" [212]EXT MIT [207]LYMPIA [195]ARRERA","128","TEXT*"
20007 DATA" [198]UNKTIONSGENIE","128","FUNKTI*"
20008 DATA" [208][195]-[199]RAFIK","128","PC-GRAF*"
50000 REM
50010 POKE53280,0:POKE53281,0:POKE241,8
50020 PRINTCHR$(147)
50030 PRINT"[151]  [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]"PRINT# STEPWAITSTEP  STEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEPWAITTAN
50050 PRINT"[155][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]"POKE            STEP (null)WAIT STEPWAITSTEPSTEP WAITSTEPSTEP  WAITSTEP
50080 PRINT"[152]           [169][146][169][169][146][169][169][146][169]  [146] [169][146][169]
50090 [153]"LIST          STEP  WAITSTEPSTEPWAITSTEPSTEP WAITSTEPSTEP  WAITSTEPOPEN
50100 RETURN