C64 Software  <  SCA: The C64 Software Collection / LISTE #46

  Run
1000 CLR:RESTORE
1010 S$=""
1020 K1=24:K2=8:K3=4:K4=6
1030 PRINT"":PRINT""
1040  
1050 INPUT"";D$
1060  
2000 :
2010 REM --- AUSDRUCKEN ---
2020 :
2030 OPEN1,4,7:REM FUER MPS 801/802
2040 :
2050 PRINT#1,""D$:PRINT#1,CHR$(15):PRINT#1
2060 DIMA$(700,3):B=0
2070 :
2080 A=0:READA$:IFA$=""THEN2190
2090 FORI=0TO3:READA$(A,I):NEXT:IFA$(A,0)=""THEN2090
2100 IFA$(A,0)<>""THENA=A+1:GOTO2090
2110 A$(A,0)="":C=A/2
2120 PRINT""A$""A:PRINT#1,A$""A:PRINT#1:B=B+A
2130 :
2140 FORI=0TOC−.1:J=I+C
2150 PRINT#1,LEFT$(A$(I,0)+S$,K1)LEFT$(A$(I,1)+S$,K2)LEFT$(A$(I,2)+S$,K3)LEFT$(A$(I,3)+S$,K4);
2160 PRINT#1,LEFT$(A$(J,0)+S$,K1)LEFT$(A$(J,1)+S$,K2)LEFT$(A$(J,2)+S$,K3)A$(J,3)
2170 NEXT:PRINT#1:PRINT#1:GOTO2080
2180 :
2190 PRINT""B:PRINT#1:PRINT#1,""B:END
2200  
10000 :
10010 DATA""
10020 :
10030 DATA"",202,"",6
10040 DATA"","","",7
10050 DATA"","","",7
10060 DATA"",127,"",7
10070 DATA"",350,"",7
10080 DATA"",207,"",8
10090 DATA"",153,"",5
10100 DATA"",183,"",8
10110 DATA"",155,"",7
10120 DATA"",175,"",4
10130 DATA"",66,"",7
10140 DATA"",67,"",5
10150 DATA"",42,"",2
10160 DATA"",598,"",7
10170 DATA"",218,"",4
10180 DATA"",121,"",8
10190 DATA"",199,"",8
10200 DATA"",192,"",9
10210 DATA"","","",8
10220 DATA"",315,"",7
10230 DATA"",137,"",5
10240 DATA"","","",8
10250 DATA"",160,"",6
10260 DATA"",105,"",6
10270 DATA"",227,"",5
10280 DATA"",215,"",8
10290 DATA"","","",8
10300 DATA"",123,"",6
10310 DATA"",270,"",6
10320 DATA"",252,"",7
10330 DATA"",237,"",7
10340 DATA"",106,"",7
10350 DATA"",47,"",5
10360 DATA"",186,"",8
10370 DATA"",66,"",6
10380 DATA"",99,"",7
10390 DATA"",,"",
10400 DATA"",,"",8
10410 DATA"","","",7
10420 DATA"",195,"",7
10430 DATA"",66,"",4
10440 DATA"",120,"",6
10450 DATA"",146,"",6
10460 DATA"","","",8
10470 DATA"",193,"",9
10480 DATA"",194,"",9
10490 DATA"",150,"",5
10500 DATA"",236,"",7
10510 DATA"",33,"",3
10520 DATA"",77,"",6
10530 DATA"",121,"",7
10540 DATA"",66,"",5
10550 DATA"",175,"",5
10560 DATA"",231,"",8
10570 DATA"",115,"",6
10580 DATA"",286,"",7
10590 DATA"",193,"",7
10600 DATA"",172,"",9
10610 DATA"","","",4
10620 DATA"",66,"",4
10630 DATA"",376,"",5
10640 DATA"",66,"",8
10650 DATA"",237,"",5
10660 DATA"",66,"",4
10670 DATA"",121,"",6
10680 DATA"",151,"",5
10690 DATA"",107,"",5
10700 DATA"",196,"",7
10710 DATA"",152,"",6
10720 DATA"",197,"",6
10730 DATA"",66,"",6
10740 DATA"",229,"",7
10750 DATA"","","",6
10760 DATA"",140,"",5
10770 DATA"",66,"",5
10780 DATA"",114,"",5
10790 DATA"",153,"",6
10800 DATA"",66,"",6
10810 DATA"",202,"",6
10820 DATA"",256,"",7
10830 DATA"",162,"",8
10840 DATA"",250,"",7
10850 DATA"","","",9
10860 DATA"",163,"",8
10870 DATA"",256,"",10
10880 DATA"",202,"",11
10890 DATA"",210,"",8
10900 DATA"",223,"",8
10910 DATA"",309,"",9
10920 DATA"",97,"",6
10930 DATA"",208,"",9
10940 DATA"",319,"",7
10950 DATA"",68,"",5
10960 DATA"",73,"",6
10970 DATA"",221,"",9
10980 DATA"",257,"",7
10990 DATA"","","",8
11000 DATA"",166,"",6
11010 DATA"",203,"",6
11020 DATA"","","",10
11030 DATA"",199,"",8
11040 DATA"",124,"",5
11050 DATA"",157,"",
11060 DATA"",202,"",7
11070 DATA"",50,"",2
11080 DATA"",121,"",7
11090 DATA"",83,"",8
11100 DATA"","","",7
11110 DATA"","","",9
11120 DATA"",,"",7
11130 DATA"",140,"",5
11140 DATA"",130,"",5
11150 DATA"",86,"",6
11160 DATA"",54,"",4
11170 DATA"",106,"",6
11180 DATA"",62,"",6
11190 DATA"",73,"",5
11200 DATA"",170,"",6
11210 DATA"",114,"",4
11220 DATA"",231,"",8
11230 DATA"",191,"",6
11240 DATA"",109,"",5
11250 DATA"",207,"",5
11260 DATA"",152,"",7
11270 DATA"",106,"",7
11280 DATA"","","",8
11290 DATA"",354,"",6
11300 DATA"",45,"",7
11310 DATA"",148,"",8
11320 DATA"",153,"",6
11330 DATA"",206,"",8
11340 DATA"",,"",
11350 DATA"",202,"",5
11360 DATA"",127,"",8
11370 DATA"",66,"",7
11380 DATA"",191,"",8
11390 DATA"",154,"",6
11400 DATA"",74,"",6
11410 DATA"",137,"",5
11420 DATA"",54,"",
11430 DATA"",198,"",
11440 DATA"","","",8
11450 DATA"",193,"",9
11460 DATA"",100,"",3
11470 DATA"",138,"",5
11480 DATA"",158,"",6
11490 DATA"",173,"",6
11500 DATA"",313,"",6
11510 DATA"",80,"",5
11520 DATA"",66,"",4
11530 DATA"",69,"",6
11540 DATA"",89,"",6
11550 DATA"",52,"",6
11560 DATA"",170,"",5
11570 DATA"",272,"",9
11580 DATA"",212,"",10
11590 DATA"",125,"",6
11600 DATA"","","",8
11610 DATA"",180,"",7
11620 DATA"",400,"",10
11630 DATA"","","",8
11640 DATA"",193,"",7
11650 DATA"",234,"",6
11660 DATA"",200,"",7
11670 DATA"","","",8
11680 DATA"",66,"",6
11690 DATA"",300,"",6
11700 DATA"",34,"",4
11710 DATA"","","",8
11720 DATA"",196,"",7
11730 DATA"",195,"",7
11740 DATA"",407,"",9
11750 DATA"",305,"",8
11760 DATA"",45,"",5
11770 DATA"",218,"",5
11780 DATA"","","",9
11790 DATA"",235,"",8
11800 DATA"",142,"",6
11810 DATA"",96,"",5
11820 DATA"",154,"",8
11830 DATA"",190,"",8
11840 DATA"","","",5
11850 DATA"","","",7
11860 DATA"",190,"",5
11870 DATA"",72,"",6
11880 DATA"","","",7
11890 DATA"",166,"",5
11900 DATA"",159,"",6
11910 DATA"",179,"",7
11920 DATA"",147,"",7
11930 DATA"",34,"",5
11940 DATA"",156,"",8
11950 DATA"",230,"",10
11960 DATA"",126,"",5
11970 DATA"",66,"",6
11980 DATA"",334,"",8
11990 DATA"",91,"",3
12000 DATA"",156,"",7
12010 DATA"",92,"",6
12020 DATA"",100,"",7
12030 DATA"",269,"",7
12040 DATA"",144,"",7
12050 DATA"",146,"",7
12060 DATA"",434,"",6
12070 DATA"",94,"",6
12080 DATA"",125,"",6
12090 DATA"",236,"",6
12100 DATA"",147,"",7
12110 DATA"",160,"",7
12120 DATA"",200,"",5
12130 DATA"",122,"",6
12140 DATA"",102,"",7
12150 DATA"",169,"",7
12160 DATA"",202,"",7
12170 DATA"",168,"",7
12180 DATA"",286,"",7
12190 DATA"",62,"",4
12200 DATA"",,"",6
12210 DATA"",156,"",8
12220 DATA"",294,"",8
12230 DATA"",160,"",5
12240 DATA"",95,"",6
12250 DATA"",150,"",7
12260 DATA"",51,"",6
12270 DATA"",34,"",3
12280 DATA"",66,"",7
12290 DATA"",206,"",8
12300 DATA"",150,"",5
12310 DATA"",66,"",7
12320 DATA"",121,"",7
12330 DATA"",66,"",7
12340 DATA"","","",6
12350 DATA"",165,"",7
12360 DATA"",109,"",6
12370 DATA"",66,"",3
12380 DATA"",292,"",7
12390 DATA"",236,"",6
12400 DATA"",214,"",7
12410 DATA"",110,"",5
12420 DATA"","","",6
12430 DATA"","","",8
12440 DATA"","","",8
12450 DATA"","","",6
12460 DATA"",270,"",9
12470 DATA"",210,"",7
12480 DATA"",223,"",7
12490 DATA"",154,"",5
12500 DATA"",163,"",8
12510 DATA"",66,"",4
12520 DATA"",276,"",5
12530 DATA"",173,"",5
12540 DATA"",252,"",7
12550 DATA"",109,"",5
12560 DATA"",230,"",9
12570 DATA"",198,"",6
12580 DATA"",36,"",2
12590 DATA"",94,"",5
12600 DATA"",34,"",2
12610 DATA"",168,"",7
12620 DATA"",248,"",7
12630 DATA"",189,"",7
12640 DATA"",66,"",6
12650 DATA"",211,"",7
12660 DATA"",180,"",8
12670 DATA"",96,"",7
12680 DATA"",74,"",6
12690 DATA"",172,"",
12700 DATA"",160,"",7
12710 DATA"",164,"",7
12720 DATA"","","",7
12730 DATA"",130,"",7
12740 DATA"",114,"",6
12750 DATA"","","",8
12760 DATA"",118,"",6
12770 DATA"",128,"",7
12780 DATA"",,"",7
12790 DATA"",121,"",6
12800 DATA"",147,"",6
12810 DATA"",57,"",2
12820 DATA"",66,"",6
12830 DATA"",66,"",8
12840 DATA"",85,"",7
12850 DATA"",67,"",7
12860 DATA"",200,"",6
12870 DATA"",202,"",6
12880 DATA"","","",7
12890 DATA"",86,"",7
12900 DATA"",73,"",5
12910 DATA"",117,"",6
12920 DATA"",140,"",7
12930 DATA"",157,"",6
12940 DATA"",,"",4
12950 DATA"",192,"",7
12960 DATA"",208,"",8
12970 DATA"",178,"",8
12980 DATA"",317,"",8
12990 DATA"","","",7
13000 DATA"",66,"",5
13010 DATA"",190,"",7
13020 DATA"",,"",6
13030 DATA"",285,"",8
13040 DATA"",121,"",5
13050 DATA"",34,"",4
13060 DATA"","","",6
13070 DATA"","","",7
13080 DATA"","","",8
13090 DATA"","","",6
13100 DATA"",254,"",7
13110 DATA"",37,"",5
13120 DATA"",166,"",6
13130 DATA"",123,"",5
13140 DATA"",493,"",10
13150 DATA"","","",11
13160 DATA"",190,"",6
13170 DATA"","","",8
13180 DATA"",154,"",6
13190 DATA"",210,"",7
13200 DATA"",89,"",7
13210 DATA"",233,"",8
13220 DATA"",143,"",7
13230 DATA"",257,"",8
13240 DATA"",106,"",5
13250 DATA"",166,"",5
13260 DATA"",200,"",7
13270 DATA"",213,"",7
13280 DATA"",209,"",8
13290 DATA"",66,"",3
13300 DATA"","","",8
13310 DATA"",158,"",8
13320 DATA"",106,"",
13330 DATA"",,"",8
13340 DATA"",208,"",8
13350 DATA"",236,"",7
13360 DATA"",52,"",6
13370 DATA"",66,"",4
13380 DATA"",200,"",8
13390 DATA"",204,"",7
13400 DATA"",204,"",6
13410 DATA"",219,"",5
13420 DATA"",212,"",6
13430 DATA"",186,"",8
13440 DATA"",201,"",7
13450 DATA"",112,"",7
13460 DATA"",268,"",8
13470 DATA"","","",11
13480 DATA"",397,"",7
13490 DATA"",,"",5
13500 DATA"",170,"",4
13510 DATA"",176,"",4
13520 DATA"",199,"",8
13530 DATA"",200,"",8
13540 DATA"",200,"",8
13550 DATA"",235,"",7
13560 DATA"",127,"",7
13570 DATA"",99,"",5
13580 DATA"",200,"",8
13590 DATA"",,"",7
13600 DATA"",,,
13610  
13620  
13630  
20000 :
20010 DATA""
20020 :
20030 DATA"","","",7
20040 DATA"",446,"",6
20050 DATA"","","",8
20060 DATA"","","",8
20070 DATA"","","",8
20080 DATA"","","",8
20090 DATA"","","",8
20100 DATA"",256,"",8
20110 DATA"",236,"",8
20120 DATA"","","",4
20130 DATA"",238,"",7
20140 DATA"","","",6
20150 DATA"","","",7
20160 DATA"","","",8
20170 DATA"","","",8
20180 DATA"","","",9
20190 DATA"","","",8
20200 DATA"","","",7
20210 DATA"",294,"",8
20220 DATA"","","",7
20230 DATA"","","",7
20240 DATA"","","",7
20250 DATA"","","",9
20260 DATA"","","",3
20270 DATA"","","",9
20280 DATA"","","",8
20290 DATA"","","",10
20300 DATA"","","",8
20310 DATA"","","",8
20320 DATA"","","",8
20330 DATA"","","",8
20340 DATA"","","",7
20350 DATA"","","",9
20360 DATA"","","",9
20370 DATA"",176,"",7
20380 DATA"","","",9
20390 DATA"","","",7
20400 DATA"","","",7
20410 DATA"",154,"",6
20420 DATA"",244,"",6
20430 DATA"","","",6
20440 DATA"","","",7
20450 DATA"",,,
20460  
20470  
20480  
30000 :
30010 DATA""
30020 :
30030 DATA"","","",
30040 DATA"","","",
30050 DATA"","","",
30060 DATA"","","",
30070 DATA"","","",
30080 DATA"","","",
30090 DATA"","","",
30100 DATA"","","",
30110 DATA"","","",
30120 DATA"","","",
30130 DATA"",25,"",
30140 DATA"","","",
30150 DATA"","","",
30160 DATA"",68,"",
30170 DATA"",100,"",
30180 DATA"","","",
30190 DATA"",,,
30200  
30210  
30220  
40000 :
40010 DATA""
40020 :
40030 DATA"","","",
40040 DATA"","","",
40050 DATA"","","",
40060 DATA"","","",
40070 DATA"","","",
40080 DATA"","","",
40090 DATA"","","",
40100 DATA"","","",
40110 DATA"","","",
40120 DATA"","","",
40130 DATA"","","",
40140 DATA"","","",
40150 DATA"","","",
40160 DATA"","","",
40170 DATA"","","",
40180 DATA"","","",
40190 DATA"","","",
40200 DATA"",12,"",
40210 DATA"",,"",
40220 DATA"",12,"",
40230 DATA"","","",
40240 DATA"","","",
40250 DATA"","","",
40260 DATA"","","",
40270 DATA"","","",
40280 DATA"","","",
40290 DATA"","","",
40300 DATA"","","",
40310 DATA"",,,
40320 :
40330 :
40340 :
50000 :
50010 DATA""
50020 :
50030 DATA"","","",
50040 DATA"",66,"",
50050 DATA"","","",
50060 DATA"",28,"",
50070 DATA"",55,"",
50080 DATA"",71,"",
50090 DATA"",262,"",
50100 DATA"",58,"",
50110 DATA"","","",
50120 DATA"",66,"",
50130 DATA"",76,"",
50140 DATA"","","",
50150 DATA"",69,"",
50160 DATA"",7,"",
50170 DATA"",27,"",
50180 DATA"",9,"",
50190 DATA"",7,"",
50200 DATA"",6,"",
50210 DATA"",10,"",
50220 DATA"",10,"",
50230 DATA"",6,"",
50240 DATA"",4,"",
50250 DATA"",6,"",
50260 DATA"",5,"",
50270 DATA"",5,"",
50280 DATA"",16,"",
50290 DATA"",23,"",
50300 DATA"",,"",
50310 DATA"",4,"",
50320 DATA"",9,"",
50330 DATA"",7,"",
50340 DATA"",5,"",
50350 DATA"",12,"",
50360 DATA"",31,"",
50370 DATA"",58,"",
50380 DATA"",4,"",
50390 DATA"",40,"",
50400 DATA"",57,"",
50410 DATA"",12,"",
50420 DATA"",17,"",
50430 DATA"","","",
50440 DATA"",18,"",
50450 DATA"",105,"",
50460 DATA"","","",
50470 DATA"","","",
50480 DATA"","","",
50490 DATA"","","",
50500 DATA"","","",
50510 DATA"","","",
50520 DATA"","","",
50530 DATA"","","",
50540 DATA"","","",
50550 DATA"","","",
50560 DATA"",,,
50570  
50580  
60000 :
60010 DATA""
60020 :
60030 DATA"",7,"",
60040 DATA"",11,"",
60050 DATA"",11,"",
60060 DATA"",16,"",
60070 DATA"",17,"",
60080 DATA"",11,"",
60090 DATA"",9,"",
60100 DATA"",87,"",
60110 DATA"",13,"",
60120 DATA"",32,"",
60130 DATA"",33,"",
60140 DATA"",200,"",
60150 DATA"","","",
60160 DATA"",91,"",
60170 DATA"",121,"",
60180 DATA"","","",
60190 DATA"","","",
60200 DATA"",14,"",
60210 DATA"",14,"",
60220 DATA"",9,"",
60230 DATA"",28,"",
60240 DATA"",14,"",
60250 DATA"",14,"",
60260 DATA"",17,"",
60270 DATA"",,"",
60280 DATA"",,"",
60290 DATA"",37,"",
60300 DATA"",65,"",
60310 DATA"",11,"",
60320 DATA"",13,"",
60330 DATA"",,,
60340 :
60350 DATA"",,,
60360 :
READY.