Directory of image this file is from
This file as a plain text file
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