1  REM--- PROGRAMM D I M E N S . B A
2  REM--- ERNEUERT IM DEZEMBER 1981
10 REM----FRANK FLORIAN----18.8.77----
20 DIM R$(10,8),N(10,8),X$(70)
30 PRINT"UMFORMUNG IN  U E B E R D I M E N S I O N A L E  ZEICHEN !"
310 FOR S1 = 1 TO 10\READ R$(S1)\NEXT S1
311 PRINT\PRINT
312 PRINT"ABSTAND ZWISCHEN DEN ZEICHEN (EIN ODER ZWEI ZEICHEN)";\INPUT F
314 IF F < 3 THEN 316
315 PRINT"NEU EINGEBEN ! ! !"\PRINT\GOTO 312
316 IF F < 1 THEN 315
318 G=9-F\H=G+1
320 PRINT"ANZAHL DER ZEILEN (MAXIMAL 10) ";\INPUT A
330 IF A < 11 THEN 350
340 PRINT"NEU EINGEBEN ! ! !"\PRINT\GOTO 320
350 IF A < 1 THEN 340
360 FOR S2 = 1 TO A
370 IF A = 1 THEN 410
380 PRINT"TEXT DER ";R$(S2);" ZEILE (MAXIMAL";G;"ZEICHEN)";
400 GOTO 420
410 PRINT"TEXT DER ZEILE (MAXIMAL";G;"ZEICHEN)";
420 INPUT X$\IF LEN(X$)<H THEN 530
430 PRINT"NEU EINGEBEN ! ! !"\PRINT\GOTO 370
530 FOR S3=1TO8\Y$=SEG$(X$,S3,S3)\N(S2,S3)=ASC(Y$)\NEXT S3\Q=LEN(X$)+1
540 FOR S4 = Q TO 8\N(S2,S4)=0\NEXT S4
570 NEXT S2
580 PRINT\PRINT\PRINT\PRINT
590 FOR S5 = 1 TO A
600 FOR S6 = 1 TO 8
610 FOR S7 = 1 TO 8
620 L = N(S5,S7)\Z = S6\A$=CHR$(L)
630 IF L=48 THEN  800\IF L=49 THEN  865\IF L=50 THEN  930\IF L=51 THEN  995
640 IF L=52 THEN 1060\IF L=53 THEN 1125\IF L=54 THEN 1190\IF L=55 THEN 4675
650 IF L=56 THEN 1220\IF L=57 THEN 1285\IF L= 1 THEN 1350\IF L= 2 THEN 1425
660 IF L= 3 THEN 1490\IF L= 4 THEN 1555\IF L= 5 THEN 1620\IF L= 6 THEN 1685
670 IF L= 7 THEN 1750\IF L= 8 THEN 1815\IF L= 9 THEN 1880\IF L=10 THEN 1945
680 IF L=11 THEN 2010\IF L=12 THEN 2075\IF L=13 THEN 2140\IF L=14 THEN 2205
690 IF L=15 THEN 2270\IF L=16 THEN 2335\IF L=17 THEN 2400\IF L=18 THEN 2465
700 IF L=19 THEN 2530\IF L=20 THEN 2595\IF L=21 THEN 2660\IF L=22 THEN 2725
710 IF L=23 THEN 2790\IF L=24 THEN 2855\IF L=25 THEN 2920\IF L=26 THEN 2985
720 IF L=36 THEN 3050\IF L=35 THEN 3115\IF L=38 THEN 3180\IF L=37 THEN 3245
730 IF L=33 THEN 3310\IF L=63 THEN 3375\IF L=32 THEN 5460\IF L=42 THEN 3505
740 IF L=47 THEN 3570\IF L=43 THEN 3635\IF L=45 THEN 3700\IF L=61 THEN 3765
750 IF L=60 THEN 3830\IF L=62 THEN 3895\IF L=40 THEN 3960\IF L=41 THEN 4025
760 IF L=27 THEN 4090\IF L=29 THEN 4155\IF L=58 THEN 4220\IF L=39 THEN 4285
770 IF L=44 THEN 4350\IF L=59 THEN 4415\IF L=46 THEN 4480\IF L=34 THEN 4545
780 IF L=28 THEN 4710\IF L=31 THEN 4760\A$=CHR$(28)\IF L=30 THEN 3440
790 PRINT""\GOTO 5520
800 IF Z= 1 THEN 5010\IF Z= 2 THEN 5020\IF Z= 3 THEN 5030\IF Z= 4 THEN 5040
805 IF Z= 5 THEN 5040\IF Z= 6 THEN 5030\IF Z= 7 THEN 5020\IF Z= 8 THEN 5010
865 IF Z= 1 THEN 5050\IF Z= 2 THEN 5060\IF Z= 3 THEN 5070\IF Z= 4 THEN 5050
870 IF Z= 5 THEN 5050\IF Z= 6 THEN 5050\GOTO 5000
930 IF Z= 1 THEN 5020\IF Z= 3 THEN 5080\IF Z= 4 THEN 5090\IF Z= 5 THEN 5010
935 IF Z= 6 THEN 5100\GOTO 5000
995 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5090\IF Z= 5 THEN 5090
1000 IF Z= 6 THEN 5040\IF Z= 8 THEN 5020\GOTO 5000
1060 IF Z= 1 THEN 5330\IF Z= 2 THEN 5090\IF Z= 3 THEN 5495\IF Z= 4 THEN 5130
1065 IF Z= 7 THEN 5140\IF Z= 8 THEN 5140\GOTO 5000
1125 IF Z= 3 THEN 5150\IF Z= 4 THEN 5160\IF Z= 6 THEN 5170\IF Z= 8 THEN 5160
1130 GOTO 5000
1190 IF Z= 1 THEN 5020\IF Z= 3 THEN 5150\IF Z= 4 THEN 5160\IF Z= 6 THEN 5040
1195 IF Z= 8 THEN 5020\GOTO 5000
1220 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5020\IF Z= 5 THEN 5020
1225 IF Z= 6 THEN 5040\IF Z= 8 THEN 5020\GOTO 5000
1285 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 5 THEN 5180\IF Z= 6 THEN 5170
1290 IF Z= 8 THEN 5020\GOTO 5000
1350 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5040\IF Z= 7 THEN 5040
1355 IF Z= 8 THEN 5040\GOTO 5000
1425 IF Z= 1 THEN 5160\IF Z= 3 THEN 5040\IF Z= 4 THEN 5160\IF Z= 5 THEN 5160
1430 IF Z= 6 THEN 5040\IF Z= 8 THEN 5160\GOTO 5000
1490 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5150\IF Z= 5 THEN 5150
1495 IF Z= 6 THEN 5040\IF Z= 8 THEN 5020\GOTO 5000
1555 IF Z= 1 THEN 5190\IF Z= 2 THEN 5160\IF Z= 3 THEN 5080\IF Z= 4 THEN 5040
1560 IF Z= 5 THEN 5040\IF Z= 6 THEN 5080\IF Z= 7 THEN 5160\IF Z= 8 THEN 5190
1620 IF Z= 3 THEN 5150\IF Z= 4 THEN 5190\IF Z= 5 THEN 5190\IF Z= 6 THEN 5150
1625 GOTO 5000
1685 IF Z= 3 THEN 5150\IF Z= 4 THEN 5190\IF Z= 5 THEN 5190\IF Z= 6 THEN 5150
1690 IF Z= 7 THEN 5150\IF Z= 8 THEN 5150\GOTO 5000
1750 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5150\IF Z= 5 THEN 5200
1755 IF Z= 6 THEN 5040\IF Z= 8 THEN 5020\GOTO 5000
1815 IF Z= 1 THEN 5040\IF Z= 2 THEN 5040\IF Z= 3 THEN 5040\IF Z= 6 THEN 5040
1820 IF Z= 7 THEN 5040\IF Z= 8 THEN 5040\GOTO 5000
1880 IF Z= 1 THEN 5020\IF Z= 8 THEN 5020\GOTO 5010
1945 IF Z= 3 THEN 5170 \IF Z= 4 THEN 5170\IF Z= 5 THEN 5170\IF Z= 6 THEN 5040
1950 IF Z= 8 THEN 5020\GOTO 5000
2010 IF Z= 1 THEN 5040\IF Z= 2 THEN 5210\IF Z= 3 THEN 5310\IF Z= 4 THEN 5220
2015 IF Z= 5 THEN 5220\IF Z= 6 THEN 5310\IF Z= 7 THEN 5210\IF Z= 8 THEN 5040
2075 IF Z= 1 THEN 5230\IF Z= 2 THEN 5230\IF Z= 3 THEN 5230\IF Z= 4 THEN 5230
2080 IF Z= 5 THEN 5230\IF Z= 6 THEN 5230\GOTO 5000
2140 IF Z= 1 THEN 5040\IF Z= 2 THEN 5030\IF Z= 4 THEN 5240\IF Z= 5 THEN 5040
2145 IF Z= 6 THEN 5040\IF Z= 7 THEN 5040\IF Z= 8 THEN 5040\GOTO 5000
2205 IF Z= 1 THEN 5040\IF Z= 2 THEN 5250\IF Z= 3 THEN 5260\IF Z= 4 THEN 5270
2210 IF Z= 5 THEN 5280\IF Z= 6 THEN 5200\IF Z= 7 THEN 5080\IF Z= 8 THEN 5040
2270 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5040\IF Z= 5 THEN 5040
2275 IF Z= 6 THEN 5040\IF Z= 8 THEN 5020\GOTO 5000
2335 IF Z= 1 THEN 5160\IF Z= 3 THEN 5040\IF Z= 5 THEN 5160\IF Z= 6 THEN 5150
2340 IF Z= 7 THEN 5150\IF Z= 8 THEN 5150\GOTO 5000
2400 IF Z= 1 THEN 5020\IF Z= 3 THEN 5040\IF Z= 4 THEN 5040\IF Z= 5 THEN 5040
2405 IF Z= 6 THEN 5290\IF Z= 8 THEN 5300\GOTO 5000
2465 IF Z= 1 THEN 5160\IF Z= 3 THEN 5040\IF Z= 5 THEN 5160\IF Z= 6 THEN 5310
2470 IF Z= 7 THEN 5210\IF Z= 8 THEN 5040\GOTO 5000
2530 IF Z= 1 THEN 5020\IF Z= 3 THEN 5250\IF Z= 4 THEN 5070\IF Z= 5 THEN 5090
2535 IF Z= 6 THEN 5080\IF Z= 8 THEN 5020\GOTO 5000
2595 IF Z> 2 THEN 5050\GOTO 5000
2660 IF Z= 8 THEN 5020\IF Z< 7 THEN 5040\GOTO 5000
2725 IF Z< 4 THEN 5040\IF Z= 4 THEN 5130\IF Z= 5 THEN 5130\IF Z= 6 THEN 5010
2730 IF Z= 7 THEN 5010\IF Z= 8 THEN 5050
2790 IF Z< 5 THEN 5040\IF Z= 5 THEN 5240\IF Z= 6 THEN 5240\IF Z= 7 THEN 5020
2795 IF Z= 8 THEN 5130
2855 IF Z< 3 THEN 5040\IF Z= 3 THEN 5130\IF Z= 4 THEN 5010\IF Z= 5 THEN 5010
2860 IF Z= 6 THEN 5130\IF Z> 6 THEN 5040
2920 IF Z< 3 THEN 5040\IF Z= 3 THEN 5130\IF Z= 4 THEN 5010\IF Z>4 THEN 5050
2985 IF Z= 3 THEN 5330\IF Z= 4 THEN 5340\IF Z= 5 THEN 5060\IF Z= 6 THEN 5100
2990 GOTO 5000
3050 IF Z= 1 THEN 5050\IF Z= 2 THEN 5180\IF Z= 3 THEN 5350\IF Z= 4 THEN 5070
3055 IF Z= 5 THEN 5090\IF Z= 6 THEN 5360\IF Z= 7 THEN 5160\IF Z= 8 THEN 5050
3115 IF Z= 3 THEN 5000\IF Z= 2 THEN 5000\IF Z= 6 THEN 5000\IF Z= 7 THEN 5000
3120 GOTO 5130
3180 IF Z= 1 THEN 5070\IF Z= 2 THEN 5220\IF Z= 3 THEN 5310\IF Z= 4 THEN 5070
3185 IF Z= 5 THEN 5300\IF Z= 6 THEN 5290\IF Z= 7 THEN 5160\IF Z= 8 THEN 5300
3245 IF Z= 1 THEN 5496\IF Z= 2 THEN 5497\IF Z= 3 THEN 5330\IF Z= 4 THEN 5340
3250 IF Z= 5 THEN 5060\IF Z= 6 THEN 5100\IF Z= 7 THEN 5498\IF Z= 8 THEN 5499
3310 IF Z= 7 THEN 5460\GOTO 5010
3375 IF Z= 1 THEN 5020\IF Z= 2 THEN 5040\IF Z= 3 THEN 5090\IF Z= 4 THEN 5070
3380 IF Z= 5 THEN 5040\IF Z= 6 THEN 5020\IF Z= 7 THEN 5460\IF Z= 8 THEN 5050
3440 IF Z< 3 THEN 5460\IF Z= 3 THEN 5465\IF Z= 4 THEN 5470\IF Z= 5 THEN 5475
3445 IF Z= 6 THEN 5480\IF Z= 7 THEN 5485\IF Z= 8 THEN 5460
3505 IF Z= 1 THEN 5050\IF Z= 2 THEN 5370\IF Z= 3 THEN 5380\IF Z= 4 THEN 5010
3510 IF Z= 5 THEN 5010\IF Z= 6 THEN 5380\IF Z= 7 THEN 5370\IF Z= 8 THEN 5050
3570 IF Z= 1 THEN 5170\IF Z= 2 THEN 5390\IF Z= 3 THEN 5330\IF Z= 4 THEN 5340
3575 IF Z= 5 THEN 5060\IF Z= 6 THEN 5100\IF Z= 7 THEN 5230\IF Z= 8 THEN 5150
3635 IF Z= 4 THEN 5000\IF Z= 5 THEN 5000\GOTO 5050
3700 IF Z= 4 THEN 5000\IF Z= 5 THEN 5000\GOTO 5460
3765 IF Z= 2 THEN 5000\IF Z= 3 THEN 5000\IF Z= 6 THEN 5000\IF Z= 7 THEN 5000
3770 GOTO 5460
3830 IF Z= 1 THEN 5170\IF Z= 2 THEN 5330\IF Z= 3 THEN 5060\IF Z= 4 THEN 5230
3835 IF Z= 5 THEN 5230\IF Z= 6 THEN 5060\IF Z= 7 THEN 5330\IF Z= 8 THEN 5170
3895 IF Z= 1 THEN 5150\IF Z= 2 THEN 5100\IF Z= 3 THEN 5340\IF Z= 4 THEN 5390
3900 IF Z= 5 THEN 5390\IF Z= 6 THEN 5340\IF Z= 7 THEN 5100\IF Z= 8 THEN 5150
3960 IF Z= 1 THEN 5110\IF Z= 2 THEN 5050\IF Z< 7 THEN 5120\IF Z= 7 THEN 5050
3965 IF Z= 8 THEN 5110
4025 IF Z= 1 THEN 5120\IF Z= 2 THEN 5050\IF Z< 7 THEN 5110\IF Z= 7 THEN 5050
4030 IF Z= 8 THEN 5120
4090 IF Z< 3 THEN 5000\IF Z> 6 THEN 5000\GOTO 5150
4155 IF Z< 3 THEN 5000\IF Z> 6 THEN 5000\GOTO 5170
4220 IF Z= 2 THEN 5010\IF Z= 4 THEN 5460\IF Z= 5 THEN 5460\IF Z= 7 THEN 5010
4225 GOTO 5050
4285 IF Z= 1 THEN 5110\IF Z= 2 THEN 5340\IF Z= 3 THEN 5060\IF Z= 4 THEN 5120
4290 GOTO 5460
4350 IF Z< 5 THEN 5460\IF Z< 7 THEN 5010\IF Z= 7 THEN 5110\IF Z= 8 THEN 5050
4415 IF Z= 1 THEN 5460\IF Z= 2 THEN 5050\IF Z= 4 THEN 5460\IF Z= 7 THEN 5110
4420 IF Z= 8 THEN 5050\GOTO 5010
4480 IF Z< 6 THEN 5460\IF Z= 7 THEN 5010\GOTO 5050
4545 IF Z< 5 THEN 5130\GOTO 5460
4675 IF Z= 3 THEN 5140\IF Z= 4 THEN 5110\IF Z= 5 THEN 5050\IF Z= 6 THEN 5050
4680 IF Z= 7 THEN 5050\IF Z= 8 THEN 5050\GOTO 5000
4710 IF Z= 1 THEN 5486\IF Z= 2 THEN 5487\IF Z= 3 THEN 5488\IF Z= 4 THEN 5489
4715 IF Z= 5 THEN 5490\IF Z= 6 THEN 5491\IF Z= 7 THEN 5492\IF Z= 8 THEN 5493
4760 IF Z< 7 THEN 5460\GOTO 5494
5000 FOR S= 1 TO 8\PRINT A$;\NEXT S\GOTO 5500
5010 PRINT"  ";A$;A$;A$;A$;"  ";\GOTO 5500
5020 PRINT" ";A$;A$;A$;A$;A$;A$;" ";\GOTO 5500
5030 PRINT A$;A$;A$;"  ";A$;A$;A$;\GOTO 5500
5040 PRINT A$;A$;"    ";A$;A$;\GOTO 5500
5050 PRINT"   ";A$;A$;"   ";\GOTO 5500
5060 PRINT"  ";A$;A$;A$;"   ";\GOTO 5500
5070 PRINT" ";A$;A$;A$;A$;"   ";\GOTO 5500
5080 PRINT A$;A$;"   ";A$;A$;A$;\GOTO 5500
5090 PRINT"   ";A$;A$;A$;A$;" ";\GOTO 5500
5100 PRINT" ";A$;A$;A$;"    ";\GOTO 5500
5110 PRINT"    ";A$;A$;"  ";\GOTO 5500
5120 PRINT"  ";A$;A$;"    ";\GOTO 5500
5130 PRINT" ";A$;A$;"  ";A$;A$;" ";\GOTO 5500
5140 PRINT"     ";A$;A$;" ";\GOTO 5500
5150 PRINT A$;A$;"      ";\GOTO 5500
5160 PRINT A$;A$;A$;A$;A$;A$;A$;" ";\GOTO 5500
5170 PRINT"      ";A$;A$;\GOTO 5500
5180 PRINT" ";A$;A$;A$;A$;A$;A$;A$;\GOTO 5500
5190 PRINT A$;A$;A$;A$;A$;A$;"  ";\GOTO 5500
5200 PRINT A$;A$;"  ";A$;A$;A$;A$;\GOTO 5500
5210 PRINT A$;A$;"   ";A$;A$;" ";\GOTO 5500
5220 PRINT A$;A$;A$;A$;A$;"   ";\GOTO 5500
5230 PRINT A$;A$;A$;"     ";\GOTO 5500
5240 PRINT A$;A$;" ";A$;A$;" ";A$;A$;\GOTO 5500
5250 PRINT A$;A$;A$;"   ";A$;A$;\GOTO 5500
5260 PRINT A$;A$;A$;A$;"  ";A$;A$;\GOTO 5500
5270 PRINT A$;A$;A$;A$;A$;" ";A$;A$;\GOTO 5500
5280 PRINT A$;A$;" ";A$;A$;A$;A$;A$;\GOTO 5500
5290 PRINT A$;A$;"  ";A$;A$;A$;" ";\GOTO 5500
5300 PRINT" ";A$;A$;A$;A$;" ";A$;A$;\GOTO 5500
5310 PRINT A$;A$;"  ";A$;A$;"  ";\GOTO 5500
5320 PRINT"  ";A$;"  ";A$;"  ";\GOTO 5500
5330 PRINT"    ";A$;A$;A$;" ";\GOTO 5500
5340 PRINT"   ";A$;A$;A$;"  ";\GOTO 5500
5350 PRINT A$;"  ";A$;A$;"   ";\GOTO 5500
5360 PRINT"   ";A$;A$;"  ";A$;\GOTO 5500
5370 PRINT A$;"  ";A$;A$;"  ";A$;\GOTO 5500
5380 PRINT" ";A$;" ";A$;A$;" ";A$;" ";\GOTO 5500
5390 PRINT"     ";A$;A$;A$;\GOTO 5500
5400 PRINT" ";A$;A$;"     ";\GOTO 5500
5410 PRINT A$;" ";A$;"   ";A$;A$;\GOTO 5500
5420 PRINT A$;"      ";A$;\GOTO 5500
5430 PRINT A$;"  ";A$;A$;A$;A$;A$;\GOTO 5500
5440 PRINT A$;"  ";A$;A$;A$;A$;" ";\GOTO 5500
5450 PRINT A$;"       ";\GOTO 5500
5460 PRINT"        ";\GOTO 5500
5465 PRINT"   /";A$;"   ";\GOTO 5500
5470 PRINT"  //";A$;A$;"  ";\GOTO 5500
5475 PRINT" //  ";A$;A$;" ";\GOTO 5500
5480 PRINT" /    ";A$;" ";\GOTO 5500
5485 PRINT"//    ";A$;A$;\GOTO 5500
5486 PRINT A$;A$;"      ";\GOTO 5500
5487 PRINT A$;A$;A$;"     ";\GOTO 5500
5488 PRINT" ";A$;A$;A$;"    ";\GOTO 5500
5489 PRINT"  ";A$;A$;A$;"   ";\GOTO 5500
5490 PRINT"   ";A$;A$;A$;"  ";\GOTO 5500
5491 PRINT"    ";A$;A$;A$;" ";\GOTO 5500
5492 PRINT"     ";A$;A$;A$;\GOTO 5500
5493 PRINT"      ";A$;A$;\GOTO 5500
5494 FOR K= 1 TO 8\PRINT CHR$(31);\NEXT K\GOTO 5500
5495 PRINT"  ";A$;A$;" ";A$;A$;" ";\GOTO 5500
5496 PRINT A$;" ";A$;"   ";A$;A$;\GOTO 5500
5497 PRINT A$;" ";A$;"  ";A$;A$;A$;\GOTO 5500
5498 PRINT A$;A$;A$;"  ";A$;" ";A$;\GOTO 5500
5499 PRINT A$;A$;"   ";A$;" ";A$;
5500 FOR S9 = 1 TO F\PRINT" ";\NEXT S9
5510 NEXT S7
5520 NEXT S6\PRINT\PRINT
5530 NEXT S5\PRINT\PRINT
5540 PRINT"EIN NEUER DURCHGANG (J ODER N)";\INPUT I$
5550 PRINT
5560 IF I$="J" THEN 5580\IF I$="N" THEN 5640
5570 PRINT"NEU EINGEBEN ! ! !"\PRINT\GOTO 5540
5580 PRINT"DASSELBE NOCH'MAL (J ODER N)";\INPUT I$
5590 PRINT\IF I$="J" THEN 580\IF I$="N" THEN 311
5600 PRINT"NEU EINGEBEN ! ! !"\PRINT\GOTO 5590
5610 DATA "ERSTEN  ","ZWEITEN ","DRITTEN ","VIERTEN "
5620 DATA "FUENFTEN","SECHSTEN","SIEBTEN ","ACHTEN  "
5630 DATA "NEUNTEN ","ZEHNTEN "
5640 END