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"",127,"",7
10060 DATA"",350,"",7
10070 DATA"",165,"",6
10080 DATA"",133,"",3
10090 DATA"",204,"",
10100 DATA"",207,"",8
10110 DATA"",153,"",5
10120 DATA"",183,"",8
10130 DATA"",155,"",7
10140 DATA"",175,"",4
10150 DATA"",66,"",7
10160 DATA"",67,"",5
10170 DATA"",42,"",2
10180 DATA"",598,"",7
10190 DATA"",218,"",4
10200 DATA"",121,"",8
10210 DATA"""
10220 DATA"","","",8
10230 DATA"",315,"",7
10240 DATA"",137,"",5
10250 DATA"","","",8
10260 DATA"",160,"",6
10270 DATA"",105,"",6
10280 DATA"",227,"",5
10290 DATA"",215,"",8
10300 DATA"","","",8
10310 DATA"",199,"",6
10320 DATA"",123,"",6
10330 DATA"",230,"",6
10340 DATA"",252,"",7
10350 DATA"",237,"",7
10360 DATA"",106,"",7
10370 DATA"",47,"",5
10380 DATA"",66,"",6
10390 DATA"",,"",8
10400 DATA"","","",7
10410 DATA"",195,"",7
10420 DATA"",66,"",4
10430 DATA"",120,"",6
10440 DATA"",146,"",6
10450 DATA"",196,"",6
10460 DATA"","","",8
10470 DATA"",427,"",4
10480 DATA"",150,"",5
10490 DATA"",236,"",7
10500 DATA"",33,"",3
10510 DATA"",183,"",7
10520 DATA"",77,"",6
10530 DATA"",66,"",5
10540 DATA"",175,"",5
10550 DATA"",231,"",8
10560 DATA"",115,"",6
10570 DATA"",286,"",8
10580 DATA"",172,"",9
10590 DATA"","","",4
10600 DATA"",66,"",4
10610 DATA"",376,"",5
10620 DATA"",111,"",
10630 DATA"",66,"",4
10640 DATA"",,"",8
10650 DATA"",66,"",4
10660 DATA"",121,"",6
10670 DATA"",151,"",5
10680 DATA"",107,"",5
10690 DATA"",196,"",8
10700 DATA"",174,"",4
10710 DATA"",152,"",8
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"",117,"",5
10830 DATA"",162,"",8
10840 DATA"","","",9
10850 DATA"",256,"",10
10860 DATA"",202,"",11
10870 DATA"",136,"",4
10880 DATA"",309,"",9
10890 DATA"",97,"",6
10900 DATA"",159,"",6
10910 DATA"",208,"",10
10920 DATA"",319,"",7
10930 DATA"",68,"",5
10940 DATA"",73,"",6
10950 DATA"",221,"",9
10960 DATA"",257,"",7
10970 DATA"","","",8
10980 DATA"","","",7
10990 DATA"",166,"",6
11000 DATA"",203,"",6
11010 DATA"","","",10
11020 DATA"",199,"",8
11030 DATA"",124,"",5
11040 DATA"",157,"",
11050 DATA"",202,"",7
11060 DATA"",50,"",2
11070 DATA"",121,"",7
11080 DATA"",83,"",8
11090 DATA"","","",7
11100 DATA"","","",9
11110 DATA"",,"",7
11120 DATA"",140,"",5
11130 DATA"",130,"",5
11140 DATA"",86,"",6
11150 DATA"",54,"",4
11160 DATA"",106,"",6
11170 DATA"",62,"",6
11180 DATA"",73,"",5
11190 DATA"",91,"",4
11200 DATA"",170,"",6
11210 DATA"",66,"",4
11220 DATA"",114,"",4
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"",104,"",4
11330 DATA"",153,"",6
11340 DATA"",206,"",8
11350 DATA"",,"",
11360 DATA"",202,"",5
11370 DATA"",127,"",8
11380 DATA"",66,"",7
11390 DATA"",191,"",8
11400 DATA"",154,"",6
11410 DATA"",74,"",6
11420 DATA"",79,"",4
11430 DATA"",237,"",7
11440 DATA"",54,"",
11450 DATA"",198,"",
11460 DATA"","","",8
11470 DATA"",193,"",9
11480 DATA"",100,"",3
11490 DATA"",138,"",5
11500 DATA"",158,"",6
11510 DATA"",158,"",4
11520 DATA"",313,"",6
11530 DATA"",80,"",5
11540 DATA"",66,"",4
11550 DATA"",69,"",6
11560 DATA"",89,"",6
11570 DATA"",52,"",6
11580 DATA"",170,"",5
11590 DATA"",272,"",9
11600 DATA"",212,"",10
11610 DATA"",125,"",6
11620 DATA"",238,"",7
11630 DATA"",214,"",8
11640 DATA"",208,"",5
11650 DATA"",193,"",9
11660 DATA"",234,"",6
11670 DATA"",200,"",8
11680 DATA"",117,"",4
11690 DATA"","","",8
11700 DATA"",66,"",6
11710 DATA"",66,"",6
11720 DATA"",34,"",4
11730 DATA"","","",8
11740 DATA"",195,"",7
11750 DATA"",407,"",9
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"",,"",5
11840 DATA"","","",8
11850 DATA"","","",7
11860 DATA"",190,"",5
11870 DATA"",72,"",6
11880 DATA"","","",7
11890 DATA"",166,"",5
11900 DATA"",159,"",6
11910 DATA"",147,"",8
11920 DATA"",34,"",5
11930 DATA"",230,"",10
11940 DATA"",126,"",5
11950 DATA"",66,"",6
11960 DATA"",334,"",9
11970 DATA"",91,"",3
11980 DATA"",79,"",5
11990 DATA"",156,"",7
12000 DATA"",92,"",6
12010 DATA"",60,"",4
12020 DATA"",126,"",4
12030 DATA"",100,"",7
12040 DATA"",119,"",7
12050 DATA"",269,"",7
12060 DATA"",144,"",7
12070 DATA"",146,"",7
12080 DATA"",434,"",6
12090 DATA"",94,"",6
12100 DATA"",125,"",6
12110 DATA"",236,"",6
12120 DATA"",147,"",7
12130 DATA"",160,"",7
12140 DATA"",200,"",5
12150 DATA"",122,"",6
12160 DATA"",102,"",7
12170 DATA"",169,"",7
12180 DATA"",144,"",6
12190 DATA"",286,"",7
12200 DATA"",62,"",4
12210 DATA"",,"",6
12220 DATA"",175,"",8
12230 DATA"",47,"",4
12240 DATA"",294,"",8
12250 DATA"",160,"",5
12260 DATA"",95,"",6
12270 DATA"","","",7
12280 DATA"",51,"",6
12290 DATA"",73,"",4
12300 DATA"",34,"",3
12310 DATA"",66,"",7
12320 DATA"",206,"",9
12330 DATA"",150,"",5
12340 DATA"",66,"",7
12350 DATA"",121,"",7
12360 DATA"",66,"",7
12370 DATA"","","",8
12380 DATA"","","",6
12390 DATA"",89,"",4
12400 DATA"",165,"",7
12410 DATA"",109,"",6
12420 DATA"",66,"",3
12430 DATA"",236,"",6
12440 DATA"",214,"",7
12450 DATA"",110,"",5
12460 DATA"","","",6
12470 DATA"","","",8
12480 DATA"","","",9
12490 DATA"","","",6
12500 DATA"",270,"",9
12510 DATA"",75,"",6
12520 DATA"",236,"",6
12530 DATA"",223,"",7
12540 DATA"",154,"",5
12550 DATA"",163,"",8
12560 DATA"",66,"",4
12570 DATA"",276,"",5
12580 DATA"",173,"",5
12590 DATA"",252,"",7
12600 DATA"",109,"",5
12610 DATA"",,"",9
12620 DATA"",198,"",6
12630 DATA"",66,"",3
12640 DATA"",36,"",2
12650 DATA"",94,"",5
12660 DATA"",34,"",2
12670 DATA"",168,"",7
12680 DATA"",248,"",7
12690 DATA"",189,"",7
12700 DATA"",66,"",6
12710 DATA"",211,"",7
12720 DATA"",180,"",8
12730 DATA"",96,"",7
12740 DATA"",74,"",6
12750 DATA"",172,"",
12760 DATA"",160,"",7
12770 DATA"",164,"",7
12780 DATA"","","",7
12790 DATA"",130,"",7
12800 DATA"",114,"",6
12810 DATA"","","",8
12820 DATA"",118,"",6
12830 DATA"",128,"",7
12840 DATA"",,"",7
12850 DATA"",121,"",6
12860 DATA"",147,"",6
12870 DATA"",57,"",2
12880 DATA"",66,"",6
12890 DATA"",66,"",8
12900 DATA"",85,"",7
12910 DATA"",273,"",6
12920 DATA"",236,"",5
12930 DATA"",202,"",6
12940 DATA"","","",7
12950 DATA"",86,"",7
12960 DATA"",73,"",5
12970 DATA"",117,"",6
12980 DATA"",157,"",6
12990 DATA"",,"",4
13000 DATA"",192,"",7
13010 DATA"",208,"",8
13020 DATA"",178,"",8
13030 DATA"",317,"",8
13040 DATA"","","",7
13050 DATA"",109,"",5
13060 DATA"",66,"",5
13070 DATA"",,"",6
13080 DATA"",285,"",8
13090 DATA"",121,"",5
13100 DATA"",34,"",4
13110 DATA"","","",6
13120 DATA"","","",7
13130 DATA"","","",8
13140 DATA"","","",6
13150 DATA"",254,"",7
13160 DATA"",37,"",5
13170 DATA"",166,"",6
13180 DATA"",123,"",5
13190 DATA"",493,"",10
13200 DATA"","","",11
13210 DATA"",,"",6
13220 DATA"","","",8
13230 DATA"",154,"",6
13240 DATA"",210,"",7
13250 DATA"",89,"",7
13260 DATA"",233,"",8
13270 DATA"",143,"",7
13280 DATA"",257,"",8
13290 DATA"",106,"",5
13300 DATA"",166,"",5
13310 DATA"",213,"",7
13320 DATA"",209,"",8
13330 DATA"",152,"",7
13340 DATA"",190,"",5
13350 DATA"",66,"",3
13360 DATA"","","",8
13370 DATA"",165,"",6
13380 DATA"",158,"",8
13390 DATA"",106,"",
13400 DATA"",,"",8
13410 DATA"",208,"",8
13420 DATA"",236,"",7
13430 DATA"",52,"",6
13440 DATA"",66,"",4
13450 DATA"",96,"",5
13460 DATA"",204,"",7
13470 DATA"",204,"",6
13480 DATA"",219,"",5
13490 DATA"",212,"",6
13500 DATA"",186,"",8
13510 DATA"",201,"",8
13520 DATA"",112,"",7
13530 DATA"",268,"",8
13540 DATA"","","",11
13550 DATA"",397,"",7
13560 DATA"",,"",5
13570 DATA"",170,"",4
13580 DATA"",176,"",4
13590 DATA"",199,"",8
13600 DATA"",202,"",8
13610 DATA"",235,"",8
13620 DATA"",127,"",7
13630 DATA"",99,"",5
13640 DATA"",,"",7
13650 DATA"",,,
13660
13670
13680
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"",256,"",8
20100 DATA"",236,"",8
20110 DATA"","","",4
20120 DATA"",238,"",7
20130 DATA"","","",8
20140 DATA"","","",7
20150 DATA"","","",8
20160 DATA"","","",8
20170 DATA"","","",9
20180 DATA"","","",8
20190 DATA"",294,"",8
20200 DATA"","","",7
20210 DATA"",207,"",7
20220 DATA"","","",9
20230 DATA"","","",7
20240 DATA"","","",7
20250 DATA"","","",9
20260 DATA"","","",9
20270 DATA"","","",8
20280 DATA"","","",8
20290 DATA"",148,"",6
20300 DATA"","","",8
20310 DATA"",135,"",6
20320 DATA"","","",7
20330 DATA"","","",9
20340 DATA"","","",9
20350 DATA"",176,"",7
20360 DATA"",148,"",7
20370 DATA"",177,"",8
20380 DATA"","","",9
20390 DATA"","","",7
20400 DATA"","","",9
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"","","",
30071 DATA"","","",
30080 DATA"","","",
30090 DATA"","","",
30100 DATA"",25,""
30110 DATA"","","",
30120 DATA"","","",
30121 DATA"",68,"",
30122 DATA"",100,"",
30130 DATA"",,,
30140
30150
30160
50000 :
50010 DATA""
50020 :
50030 DATA"",66,"",
50040 DATA"",34,"",
50050 DATA"","","",
50060 DATA"",28,"",
50070 DATA"",55,"",
50080 DATA"",71,"",
50090 DATA"",262,"",
50100 DATA"",58,"",
50110 DATA"",50,"",
50120 DATA"","","",
50130 DATA"",66,"",
50140 DATA"",76,"",
50150 DATA"","","",
50160 DATA"",69,"",
50170 DATA"",7,"",
50180 DATA"",27,"",
50190 DATA"",9,"",
50200 DATA"",7,"",
50210 DATA"",6,"",
50220 DATA"",12,"",
50230 DATA"",,"",
50240 DATA"",12,"",
50250 DATA"",10,"",
50260 DATA"",10,"",
50270 DATA"",6,"",
50280 DATA"",4,"",
50290 DATA"",6,"",
50300 DATA"",5,"",
50310 DATA"",16,"",
50320 DATA"",23,"",
50330 DATA"",,"",
50340 DATA"",4,"",
50350 DATA"",9,"",
50360 DATA"",7,"",
50370 DATA"",5,"",
50380 DATA"",12,"",
50390 DATA"",31,"",
50400 DATA"",58,"",
50410 DATA"",4,"",
50420 DATA"",40,"",
50430 DATA"",57,"",
50440 DATA"",12,"",
50450 DATA"",17,"",
50460 DATA"","","",
50470 DATA"",18,"",
50480 DATA"",105,"",
50490 DATA"","","",
50500 DATA"","","",
50510 DATA"","","",
50520 DATA"","","",
50530 DATA"","","",
50540 DATA"",110,"",
50550 DATA"","","",
50560 DATA"","","",
50570 DATA"","","",
50580 DATA"","","",
50590 DATA"","","",
50600 DATA"","","",
50610 DATA"","","",
50620 DATA"","","",
50630 DATA"","","",
50640 DATA"",,,
50650
50660
60000 :
60010 DATA""
60020 :
60030 DATA"",7,"",
60040 DATA"",11,"",
60050 DATA"",11,"",
60060 DATA"",17,"",
60070 DATA"",11,"",
60080 DATA"",9,"",
60090 DATA"",87,"",
60100 DATA"",13,"",
60110 DATA"",32,"",
60120 DATA"",33,"",
60130 DATA"",200,"",
60140 DATA"","","",
60150 DATA"",91,"",
60160 DATA"",121,"",
60170 DATA"","","",
60180 DATA"",14,"",
60190 DATA"",14,"",
60200 DATA"",9,"",
60210 DATA"",28,"",
60220 DATA"",14,"",
60230 DATA"",14,"",
60240 DATA"",17,"",
60250 DATA"",,"",
60260 DATA"",,"",
60270 DATA"",37,"",
60280 DATA"",65,"",
60290 DATA"",11,"",
60300 DATA"",13,"",
60310 DATA"",,,
60320 :
60330 DATA"",,,
60340 :
READY.
