1 ' *********************
2 ' * LISTER * 3 ' * geschrieben von * 4 ' * JENS EHLERT * 5 ' * (c) by DMV * 6 ' ********************* 80 GOSUB 350 90 ' 100 'Auslesen der Datei 110 ' 120 s=1 130 mz=80 140 ff$=CHR$(12):WIDTH 255 150 OPENIN ""+d$ 160 WHILE NOT EOF 170 IF z=0 THEN PRINT#8,dummy$;STRING$(80,"="):z=3: 'Kopfzeile drucken 180 LINE INPUT#9,a$ 190 GOSUB 270 200 IF z>mz THEN FOR i=1 TO mz+5-z:PRINT#8:NEXT:PRINT#8:PRINT#8,STRING$(80,"=");TAB(36);"Seite :"s:z=0:PRINT#8,ff$:s=s+1: ' Fussnote drucken 210 WEND:CLOSEIN 220 IF z<>0 THEN FOR i=1 TO mz+5-z:PRINT#8:NEXT:PRINT#8:PRINT#8,STRING$(80,"=");TAB(36);"Seite :"s:z=0:PRINT#8,ff$:s=s+1 230 END 240 ' 250 'Zeile auseinandernehmen 260 ' 270 w=INSTR(a$," "):n=VAL(LEFT$(a$,w)):a$=RIGHT$(a$,LEN(a$)-w):PRINT#8,SPC(lr);USING "##### ";n;:p=1 280 IF LEN(a$)>rr-lr-5 THEN PRINT#8,LEFT$(a$,rr-lr-5):a$=STRING$(lr+6," ")+RIGHT$(a$,LEN(a$)-(rr-lr-5)):GOTO 290 ELSE PRINT#8,a$:z=z+1:GOTO 310 290 z=z+1 300 IF LEN(a$)>rr+1 THEN PRINT#8,LEFT$(a$,rr+1):a$=STRING$(lr+6," ")+RIGHT$(a$,LEN(a$)-rr-1):GOTO 290 ELSE PRINT#8,a$:z=z+1 310 RETURN 320 ' 330 'Titelbild/Eingabe 340 ' 350 MODE 2:PRINTSTRING$(80,"*"):FOR i=2 TO 8:LOCATE 1,i:PRINT"*";:LOCATE 80,i:PRINT"*";:NEXT:PRINTSTRING$(80,"*") 360 LOCATE 37,3:PRINT"LISTER":LOCATE 36,5:PRINT"(c) by DMV":LOCATE 25,7:PRINT"Listing mit dem gewissen Etwas" 370 LOCATE 10,13:INPUT"Name des Programmes ";d$:IF d$=""THEN 370 380 LOCATE 10,15:INPUT"Linker Rand (>6) ";lr:IF lr<6 THEN 380 ELSE lr=INT(lr)-5 390 LOCATE 10,17:INPUT"Rechter Rand (<79) ";rr:IF rr>78 THEN 390 400 LOCATE 10,19:INPUT"Kommentar zum Programm :";kk$:LOCATE 10,21:INPUT"Datum :";da$ 410 dummy$=STRING$(80," "):kk$=d$+" : "+kk$:kk=LEN(kk$):MID$(dummy$,INT (40-kk/2),kk)=kk$:MID$(dummy$,80-LEN(da$),LEN(da$))=da$ 420 LOCATE 17,24:PRINT"Bitte Drucker bereitmachen und eine Taste druecken":CALL &BB06 430 RETURN |