| 10 REM *****************************************
20 REM * * 30 REM * UMRECHNUNG * 40 REM * Programm zur Umrechnung von Einheiten * 50 REM * geschrieben von H. Luetzler * 60 REM * an Bord M/S "CALA ATLANTICA" * 70 REM * 1990 * 80 REM * * 90 REM ***************************************** 100 REM 110 REM MC-Routine fuer Invertierungsbalken aus [Schneider PC 9/87] 120 REM 130 MEMORY&A1FF 140 RESTORE190 150 FORi=&A200TO&A223 160 READby$ 170 POKEi,VAL("&"+by$) 180 NEXT 190 DATA 26,03,2e,06,06,23,e5,cd 200 DATA 78,bb,22,21,a2,e1,cd,75 210 DATA bb,cd,8a,bb,3e,09,cd,5a 220 DATA bb,10,f6,2a,21,a2,c3,75 230 DATA bb,0,0,c9 240 REM 250 REM Variablen 260 REM 270 DIMbez(521),d(521),erg(521),f(38),a$(12),vb$(38),nb$(38),vd$(38),nd$(38):b$="Umrechnung":c$="stabellen" 280 REM 290 REM Hauptmenue 300 REM 310 MODE2:INK0,13:INK1,0:BORDER10 320 PRINTCHR$(150)STRING$(78,154)CHR$(156) 330 LOCATE2,3:PRINTSTRING$(78,154) 340 FORi=2TO24 350 LOCATE80,i:PRINTCHR$(149):LOCATE1,i:PRINTCHR$(149) 360 NEXT 370 LOCATE2,23:PRINTSTRING$(78,154):LOCATE1,25:PRINTCHR$(147)STRING$(78,154)CHR$(153); 380 CLEARINPUT:LOCATE2,2:PRINTCHR$(24);" ";b$;c$;" V-1.5"SPC(9)CHR$(164)" 1990 by H. Luetzler M/S CALA ATLANTICA "CHR$(24) 390 GOSUB2680:RESTORE840 400 d$="*** "+b$+c$+" ***":sp=INT((82-LEN(d$))/2):LOCATEsp,5:PRINTd$:LOCATEsp-1,6:PRINTSTRING$(LEN(d$)+2,208) 410 z=11:sp=8:sp1=49 420 FORi=1TO11STEP2 430 READa$(i),a$(i+1):LOCATEsp,7+i:PRINTa$(i)b$ 440 IFi=9THENsp=7:sp1=48 450 LOCATEsp1,7+i:PRINTa$(i+1)b$ 460 NEXT 470 GOSUB2660 480 an=0:a=0:dfl=0:tfl=0:efl=0:ii=0 490 ONmpGOTO510,530,550,570,590,610,630,650,710,730,780,800 500 REM Laengenumrechnung 510 RESTORE880:z=37:sp1=45:GOSUB2580:GOTO1590 520 REM Massenumrechnung 530 RESTORE940:z=37:sp1=48:GOSUB2580:GOTO1590 540 REM Volumenumrechnung 550 RESTORE1000:z=37:sp1=46:GOSUB2580:GOTO1590 560 REM Druckumrechnung 570 RESTORE1070:z=37:sp1=46:GOSUB2580:GOTO1590 580 REM Flaechenumrechnung 590 RESTORE1130:z=37:sp1=46:GOSUB2580:GOTO1590 600 REM Geschwindigkeitsumrechnung 610 RESTORE1190:z=33:sp1=47:GOSUB2580:GOTO1590 620 REM Leistungsumrechnung 630 RESTORE1250:z=37:sp1=48:GOSUB2580:GOTO1590 640 REM Temperaturumrechnung 650 RESTORE1310:z=15:GOSUB2580 660 FORi=1TO8 670 LOCATE25,6+a:PRINTi"- "vb$(i)" ";STRING$(14-LEN(vb$(i)),45)"> "nb$(i):a=a+2 680 NEXT 690 GOSUB2660:z=mp:GOTO1590 700 REM Energieumrechnung 710 RESTORE1350:z=37:sp1=46:GOSUB2580:GOTO1590 720 REM Dichtenumrechnung 730 RESTORE1410:z=35:dfl=1:sp1=43:GOSUB2580:z=12 740 IFmp=3ORmp=15THENz=10 750 IFmp=4ORmp=16THENz=11 760 f(4)=141.43:f(16)=141.5:GOTO1590 770 REM Temperaturabhaengige Dichteumrechnung 780 RESTORE1490:READvb$(11),nb$(11),vd$(11),nd$(11):tfl=1:z=9:GOTO1590 790 REM Generelle Umrechnung 800 RESTORE1530:z=37:sp1=44:GOSUB2580:GOTO1590 810 REM 820 REM DATA's fuer Hauptmenue und Ueberschriften 830 REM 840 DATA 1 - Laengen-,2 - Massen-,3 - Volumen-,4 - Druck-,5 - Flaechen-,6 - Geschw.-,7 - Leistungs-,8 - Temperatur-,9 - Energie-,10 - Dichte-,11 - Temp./Dichte-,12 - Generelle- 850 REM 860 REM Bezeichnungen fuer Laengen 870 REM 880 DATA Kilometer,naut. mile,.53966541,km,nm,Kilometer,US sea mile,.54054054,km,US sm,Kilometer,geogr. Meile,.134763624,km,gm,Kilometer,statute mile,.621504039,km,mi,Kilometer,Seemeile,.539956803,km,sm 890 DATA Kilometer,yard,1093.61,km,yd,Meter,yard,1.09361,m,yd,Meter,foot,3.28081,m,ft,Meter,inch,39.3701,m,in,Zentimeter,yard,.0109361,cm,yd,Zentimeter,foot,.0328081,cm,ft,Zentimeter,inch,.3937,cm,in,Millimeter,foot,.00328081,mm,ft 900 DATA Millimeter,inch,.03937,mm,in,statute mile,Seemeile,.8689795,mi,sm,statute mile,yard,1760,mi,yd,yard,foot,3,yd,ft,yard,inch,36,yd,in,foot,inch,12,ft,in 910 REM 920 REM Bezeichnungen fuer Massen 930 REM 940 DATA Tonne,t. dead weight,.984251968,t,tdw,Tonne,long ton,.984206536,t,tn l,Tonne,short ton,1.1023,t,tn sh,Tonne,cwt (UK),19.684,t,cwt,Tonne,cwt (US),22.046,t,cwt 950 DATA Kilogramm,pound,2.2046,kg,lb,Kilogramm,ounce,35.274,kg,oz,Gramm,grain,15.432,g,gr,Gramm,dram,.5644,g,dram,Gramm,ounce,.03527,g,oz,Gramm,Karat,5,g,K 960 DATA long ton,short ton,1.12,tn l,tn sh,cwt (UK),pound,112,cwt,lb,cwt (US),pound,100,cwt,lb,grain,dram,.03657,gr,dram,grain,ounce,.00229,gr,oz,dram,ounce,.0625,dram,oz,dram,pound,.00391,dram,lb,ounce,pound,.0625,oz,lb 970 REM 980 REM Bezeichnungen fuer Volumen 990 REM 1000 DATA Kubikmeter,register ton,.353107344,m^3,RT,Kubikmeter,cubic yard,1.30795,m^3,yd^3,Kubikmeter,cubic foot,35.3147,m^3,ft^3,Kubikmeter,barrel (UK),6.11022852,m^3,bbl,Kubikmeter,barrel (US),6.289703754,m^3,bbl 1010 DATA Kubikmeter,gallon (UK),219.966,m^3,gal,Kubikmeter,gallon (US),264.172,m^3,gal,Liter = dm^3,cubic foot,.03531,l,ft^3,Liter,cubic inch,61.0236,l,in^3,Liter,barrel (UK),6.11022852E-3,l,bbl,Liter,barell (US),6.289703754E-3,l,bbl 1020 DATA Liter,gallon (UK),.219966,l,gal,Liter,gallon (US),.264172,l,gal,gallon (UK),gallon (US),1.20095,gal (UK),gal(US),gallon (UK),cubic foot,.16054,gal (UK),ft^3,gallon (UK),cubic inch,277.42,gal (UK),in^3 1030 DATA gallon (US),cubic foot,.13368,gal (US),ft^3,gallon (US),cubic inch,231,gal (US),in^3,cubic yard,cubic inch,27,yd^3,in^3 1040 REM 1050 REM Bezeichnungen fuer Druecke 1060 REM 1070 DATA Mega-Pascal,Bar,10,MPa,bar,Mega-Pascal,techn.Atm.,10.19716,MPa,at,Mega-Pascal,phys.Atm.,9.86923,MPa,atm,Mega-Pascal,pound/sq.in,145.038,MPa,lbf/in^2,Pascal,mm Hg,.0075006,Pa,mmHg,Pascal,mmWs,.1019716,Pa,mmWs 1080 DATA Pascal,pound/sq.ft,.020885416,Pa,lbf/ft^2,Bar,Kilopond/cm^2,1.019716,bar,kp/cm^2,Bar,techn.Atm.,1.019716,bar,at,Bar,phys.Atm.,.986923,bar,atm,Bar,mmHg,750.062,bar,mmHg,Bar,inch mercury,29.53,bar,inHg,Bar,foot H2O,33.48,bar,ft.H2O 1090 DATA Bar,lbf/sq.ft,2088.6,bar,lbf/ft^2,Bar,pound/sq.in,14.5,bar,lbf/in^2,mWs,foot mercury,3.281,mWs,ftHg,foot H2O,inch mercury,.8827,ft.H2O,inHg,mmWs,mmHg,.07355,mmWs,mmHg,techn.Atm.,phys.Atm.,.968,at,atm 1100 REM 1110 REM Bezeichnungen fuer Flaechen 1120 REM 1130 DATA km^2,Hektar,100,km^2,ha,km^2,Ar,10000,km^2,a,km^2,square mile,.38612,km^2,mile^2,km^2,acre,247.114,km^2,acre,Hektar,Ar,100,ha,a,Hektar,square mile,.0038612,ha,mile^2,Hektar,acre,2.47114,ha,acre,Ar,acre,.0247114,a,acre,Ar,m^2,100,a,m^2 1140 DATA m^2,square yard,1.19603,m^2,yd^2,m^2,square foot,10.7637,m^2,ft^2,m^2,square inch,1550.05,m^2,in^2,m^2,cm^2,10000,m^2,cm^2,cm^2,square foot,.00107637,cm^2,ft^2,cm^2,square inch,.155005,cm^2,in^2 1150 DATA mm^2,square inch,.00155005,mm^2,in^2,square mile,acre,640,mile^2,acre,square yard,square foot,9,yd^2,ft^2,square foot,square inch,144,ft^2,in^2 1160 REM 1170 REM Bezeichnungen fuer Geschwindigkeit 1180 REM 1190 DATA km/h,Seemeile/h,.5399568,km/h,kn,km/h,Meter/sek,.277777,km/h,m/s,km/h,miles/hour,.62137,km/h,mph,km/h,foot/min,54.681,km/h,ft/min,km/h,foot/sec,.9113,km/h,ft/sec,Meter/sek,Seemeile/h,1.9438444,m/s,kn,Meter/sek,miles/hour,2.23714,m/s,mph 1200 DATA Meter/sek,foot/min,196.86,m/s,ft/min,Meter/sek,foot/sec,3.281,m/s,ft/sec,miles/hour,Seemeile/h,.868936,mph,kn,miles/hour,foot/min,88.02,mph,ft/min,miles/hour,foot/sec,1.467,mph,ft/sec 1210 DATA miles/hour,cm/sek.,44.706,mph,cm/s,Seemeile/h,foot/min,101.28,kn,ft/min,Seemeile/h,foot/sec,1.688,kn,ft/sec,Etmal=sm/d,Meter/sek,2.144E-2,sm/d,m/s,Umdr./min,Umdr./sek.,.016666666,1/min,1/sek 1220 REM 1230 REM Bezeichnungen fuer Leistung 1240 REM 1250 DATA PS,kW,.735499,PS,kW,PS,kpm/s,75,PS,kpm/s,PS,kcal/h,632,PS,kcal/h,PS,kcal/s,.17567,PS,kcal/s,PS,horsepower,.98632,PS,hp,PS,BTU/sec.,.69712,PS,BTU/s,kW,kpm/s,101.97,kW,kpm/s,kW,kcal/h,859.968,kW,kcal/h,kW,kcal/s,.23888,kW,kcal/s 1260 DATA kW,horsepower,1.34102,kW,hp,kW,BTU/sec.,.947817,kW,BTU/s,kpm/s,kcal/h,8.43,kpm/s,kcal/h,kpm/s,kcal/s,2.342E-3,kpm/s,kcal/s,kpm/s,horsepower,.01315,kpm/s,hp,kpm/s,BTU/sec.,9.294889E-3,kpm/s,BTU/s,kcal/h,kcal/s,3600,kcal/h,kcal/s 1270 DATA kcal/h,horsepower,1.5586E-3,kcal/h,hp,kcal/h,BTU/sec.,1.1022E-3,kcal/h,BTU/s,horsepower,BTU/sec.,.70678,hp,BTU/s 1280 REM 1290 REM Bezeichnungen fuer Temperaturen 1300 REM 1310 DATA Celsius,Fahrenheit,1,`C,`F,Celsius,Reaumur,1,`C,`R,Celsius,Kelvin,1,`C,`K,Fahrenheit,Reaumur,1,`F,`R 1320 REM 1330 REM Bezeichnungen fuer Energie 1340 REM 1350 DATA Joule,kpm,.10972,J,kpm,Joule,Kilokalorie,.000238846,J,kcal,Joule,ft pound-force,.73756,J,ft.lbf,Joule,ft poundal,23.73,J,pdl,Joule,BTU,.000947814,J,BTU,kWh,PSh,1.3592,kWh,PSh,kWh,Kilokalorie,859.85,kWh,kcal,kWh,BTU,3412.13,kWh,BTU 1360 DATA kWh,hph,1.34043,kWh,hph,PSh,Kilokalorie,632.369,PSh,kcal,PSh,BTU,2509.6,PSh,BTU,PSh,hph,.9859,PSh,hph,kpm,Kilokalorie,2.342E-3,kpm,kcal,kpm,BTU,9.295E-3,kpm,BTU 1370 DATA Kilokalorie,ft pound-force,3088,kcal,ft.lbf,Kilokalorie,hph,.0015587,kcal,hph,Kilokalorie,BTU,3.9683,kcal,BTU,BTU,hph,4.0410408E-4,BTU,hph,BTU,ft pound-force,778.17,BTU,ft.lbf 1380 REM 1390 REM Bezeichnungen fuer Dichten 1400 REM 1410 DATA Dichte 15'C,spez.Grav 60'F,1.00053,kg/dm^3,sp.Gr.,Dichte 15'C,A.P.I. 60'F,141.43,kg/dm^3,API,Dichte 15'C,lb/in^3 60'F,.03613,kg/dm^3,lb/in^3,Dichte 15'C,lb/ft^3 60'F,62.43,kg/dm^3,lb/ft^3 1420 DATA Dichte 15'C,l.t/yd^3 60'F,.7525,kg/dm^3,l.t/yd^3,Dichte 15'C,lb/gal (UK),10.02,kg/dm^3,lb/gal,Dichte 15'C,lb/gal (USA),8.3351,kg/dm^3,lb/gal,spez.Grav 60'F,A.P.I. 60'F,141.5,sp.Gr.,API 1430 DATA lb/in^3 60'F,lb/ft^3 60'F,1728,lb/in^3,lb/ft^3,lb/in^3 60'F,l.t/yd^3 (UK),20.83,lb/in^3,l.t/yd^3,lb/in^3 60'F,lb/gal (UK),277.4,lb/in^3,lb/gal,lb/in^3 60'F,lb/gal (USA),231,lb/in^3,lb/gal,lb/ft^3 60'F,l.t/yd^3 (UK),.01205,lb/ft^3,l.t/yd^3 1440 DATA lb/ft^3 60'F,lb/gal (UK),.1605,lb/ft^3,lb/gal,lb/ft^3 60'F,lb/gal (USA),.1337,lb/ft^3,lb/gal,l.t/yd^3 60'F,lb/gal (UK),13.32,l.t/yd^3,lb/gal,l.t/yd^3 60'F,lb/gal (USA),11.09,l.t/yd^3,lb/gal,lb/gal (UK),lb/gal (USA),1.201,lb/gal,lb/gal 1450 DATA lb/in^3,l.t/yd^3,lb/in^3,lb/gal,lb/in^3,lb/gal,lb/ft^3,l.t/yd^3,lb/ft^3,lb/gal,lb/ft^3,lb/gal,l.t/yd^3,lb/gal,l.t/yd^3,lb/gal,lb/gal,lb/gal 1460 REM 1470 REM Bezeichnung fuer Temperaturabhaengige Dichte 1480 REM 1490 DATA Dichte 15'C,Dichte t'C,Temp,kg/dm^3 1500 REM 1510 REM Bezeichnungen fuer gen. Umrechnung 1520 REM 1530 DATA Kilometer,Meter,1000,km,m,Meter,Dezimeter,10,m,dm,Dezimeter,Zentimeter,10,dm,cm,Zentimeter,Millimeter,10,cm,mm,Tonne,Kilogramm,1000,t,kg,Kilogramm,Gramm,1000,kg,g,Gramm,Milligramm,1000,g,mg,Kubikmeter,Kubikdezim.,1000,m^3,dm^3 1540 DATA Kubikdezim.,Kubikzentim.,1000,dm^3,cm^3,Kubikzentim.,Kubikmillim.,1000,cm^3,mm^3,Kubikmeter,Hektoliter,10,m^3,hl,Hektoliter,Liter,100,hl,l,Liter,Deziliter,10,l,dl,Deziliter,Zentiliter,10,dl,cl,Quadratkilom,Quadratmeter,1000000,km^2,m^2 1550 DATA Quadratmeter,Quadratdezim.,100,m^2,dm^2,Quadratmeter,Quadratzentim,10000,m^2,cm^2,Quadratdezim,Quadratzentim,100,dm^2,cm^2,Quadratzentim,Quadratmillim,100,cm^2,mm^2 1560 REM 1570 REM Programmteil zur Umrechnung 1580 REM 1590 GOSUB2700:GOSUB2680:LOCATEsp,2:PRINTd$ 1600 LOCATE30,10:PRINT"1 - "b$;c$:LOCATE30,12:PRINT"2 - Einzelumrechnung" 1610 LOCATE2,24:PRINTCHR$(24);SPC(29)"Bitte waehlen Sie : "CHR$(24)CHR$(7); 1620 ONINSTR("?12",INKEY$)+1GOTO1620,1620,1750,1660 1630 REM 1640 REM Menue fuer Einzelumrechnung 1650 REM 1660 GOSUB2680:LOCATE3,5:PRINT"Wieviele "CHR$(24)" "vb$(mp)" "CHR$(24)" Werte sollen umgerechnet werden? ";:INPUT"",an 1670 FORi=0TOan-1 1680 IFtflTHENLOCATE3,i+7:PRINTUSING"###";i+1;:PRINT". Dichte: ";:INPUT"",d(i):LOCATE30,i+7:PRINT"Temperatur: ";:INPUT"",bez(i):GOTO1700 1690 LOCATE3,i+7:PRINTUSING"###";i+1;:PRINT".";:INPUT" Wert: ",bez(i) 1700 NEXT 1710 efl=1:GOTO1830 1720 REM 1730 REM Menue fuer Tabelle 1740 REM 1750 IFtflTHENGOSUB2680:LOCATE26,10:PRINT"Welche Dichte bei 15'C: ";:INPUT"",d 1760 d$="Ab welchem "+CHR$(24)+" ["+vd$(mp)+"] "+CHR$(24)+"-Wert soll umgerechnet werden: ":sp=INT((80-LEN(d$))/2):LOCATEsp,12:PRINTd$;:INPUT"",beg 1770 LOCATE19,14:PRINT"Wieviele Werte sollen umgerechnet werden? ";:INPUT"",an 1780 IFan>520THENLOCATE19,14:PRINTSPC(11);"Das sind zuviel !!!!";SPC(20):FORt=1TO1000:NEXT:GOTO1770 1790 LOCATE19,14:PRINTSPC(50):LOCATE2,12:PRINTSPC(24)"Ich rechne, bitte warten....."SPC(20) 1800 REM 1810 REM Berechnungen 1820 REM 1830 FORi=0TOan-1 1840 IF efl THEN 1890' wenn Einzelumrechng. dann 1890 1850 d(i)=d:bez(i)=i+beg' alle anderen Umrechnungen 1860 IFz=10THENbez(i)=beg+i*0.00046' Dichte --> API 1870 IFz=11THENbez(i)=beg+i*0.1' API --> Dichte 1880 IFz=12THENbez(i)=beg+i*0.0005' Dichte --> Dichte 1890 ONzGOTO1910,1920,1930,1940,1950,1960,1970,1980,1990,2000,2010 1900 erg(i)=bez(i)*f(mp):GOTO2020' alle anderen Umrechnungen 1910 erg(i)=bez(i)*9/5+32:GOTO2020' Celsius --> Fahrenheit 1920 erg(i)=(bez(i)-32)*5/9:GOTO2020' Fahrenheit --> Celsius 1930 erg(i)=bez(i)*4/5:GOTO2020' Celsius --> Reaumur 1940 erg(i)=bez(i)*5/4:GOTO2020' Reaumur --> Celsius 1950 erg(i)=bez(i)+273:GOTO2020' Celsius --> Kelvin 1960 erg(i)=bez(i)-273:GOTO2020' Kelvin --> Celsius 1970 erg(i)=(bez(i)-32)*4/9:GOTO2020' Fahrenheit --> Reaumur 1980 erg(i)=bez(i)*9/4+32:GOTO2020' Reaumur --> Fahrenheit 1990 erg(i)=d(i)/(1+0.0007*(bez(i)-15)):GOTO2020' Dichte 15'C --> Dichte t'C 2000 erg(i)=f(mp)/bez(i)-131.5:GOTO2020' Dichte oder Spez.Grav. --> API 2010 erg(i)=f(mp)/(bez(i)+131.5)' API --> Dichte oder Spez.Grav. 2020 NEXT 2030 REM Ausgabe der Werte auf Bildschirm 2040 REM 2050 IFtflTHENvb$(11)=vb$(11)+"="+STR$(d):GOSUB2700:LOCATEsp,2:PRINTd$ 2060 GOSUB2680 2070 sp=LEN(vd$(mp))/2:sp1=LEN(nd$(mp))/2 2080 LOCATE12-sp,4:PRINT"["vd$(mp)"]":LOCATE32-sp1,4:PRINT"["nd$(mp)"]":LOCATE52-sp,4:PRINT"["vd$(mp)"]":LOCATE72-sp1,4:PRINT"["nd$(mp)"]" 2090 LOCATE2,5:PRINTSTRING$(78,154) 2100 LOCATE40,3:PRINTCHR$(158):FORi=4TO22:LOCATE40,i:PRINTCHR$(149):NEXT:LOCATE40,23:PRINTCHR$(155):a=6 2110 FORi=iiTOan-1 2120 IFz<>10THEN2150 2130 LOCATE11,a:PRINTUSING"#.#### ###.#";bez(i);erg(i):IFi+17<anTHENLOCATE51,a:PRINTUSING"#.#### ###.#";bez(i+17);erg(i+17) 2140 GOTO2220 2150 IFtfl=0ANDz<>11THEN2180 2160 LOCATE9,a:PRINTUSING"####.# #.####";bez(i);erg(i):IFi+17<anTHENLOCATE49,a:PRINTUSING"####.# #.####";bez(i+17);erg(i+17) 2170 GOTO2220 2180 IFefl<>1ANDz<>12THEN2210 2190 LOCATE3,a:PRINTUSING"##,###,###.#### ##,###,###.####";bez(i);erg(i):IFi+17<anTHENLOCATE43,a:PRINTUSING"##,###,###.#### ##,###,###.####";bez(i+17);erg(i+17) 2200 GOTO2220 2210 LOCATE3,a:PRINTUSING"##,###,### ##,###,###.####";bez(i);erg(i):IFi+17<anTHENLOCATE43,a:PRINTUSING"##,###,### ##,###,###.####";bez(i+17);erg(i+17) 2220 a=a+1 2230 IFVPOS(#0)=23THENii=i+18:a=6:GOTO2250 2240 NEXT 2250 LOCATE17,24:PRINTCHR$(24)"Ausdrucken <1> Weiter <2> Beenden <3>"CHR$(24); 2260 REM 2270 REM Cursorsteuerung durch Funktionstasten 2280 REM 2290 x=3:y=6:CALL&A200 2300 IFINKEY(8)=0ANDx>3THENx=x-40:CALL&A200:POKE&A201,x:CALL&A200 2310 IFINKEY(1)=0ANDx<43THENx=x+40:CALL&A200:POKE&A201,x:CALL&A200 2320 IFINKEY(0)=0ANDy>6THENy=y-1:CALL&A200:POKE&A203,y:CALL&A200 2330 IFINKEY(2)=0ANDy<22THENy=y+1:CALL&A200:POKE&A203,y:CALL&A200 2340 IFINKEY(64)=0THENCALL&A200:POKE&A201,3:POKE&A203,6:ii=0:GOTO2410 2350 IFINKEY(65)=0THENCALL&A200:POKE&A201,3:POKE&A203,6:GOSUB2710:GOTO2110 2360 IFINKEY(57)=0THENCALL&A200:POKE&A201,3:POKE&A203,6:GOTO380 2370 GOTO2300 2380 REM 2390 REM Druck-Routine (fuer Papier 240 * 305 mm entspr. 12" geschrieben) 2400 REM 2410 d$=" Umrechnung == "+vb$(mp)+" in "+nb$(mp)+" " 2420 PRINT#8,TAB(40-(LEN(d$)/2)):PRINT#8,CHR$(27)+"-1"+d$ 2430 PRINT#8,CHR$(27)+"-0":PRINT#8,TAB(11-sp)"["vd$(mp)"]";TAB(30-sp1);"["nd$(mp)"]";TAB(53-sp)"["vd$(mp)"]";TAB(72-sp1)"["nd$(mp)"]";STRING$(80,45) 2440 FORi=iiTOan-1 2450 IFz<>10THEN2480 2460 IFi+65<anTHENPRINT#8,TAB(9)USING"#.#### ###.# #.#### ###.#";bez(i);erg(i);bez(i+65);erg(i+65)ELSEPRINT#8,TAB(9)USING"#.#### ###.#";bez(i);erg(i) 2470 GOTO2520 2480 IFtfl=0ANDz<>11THEN2510 2490 IFi+65<anTHENPRINT#8,TAB(8)USING"####.# #.#### ####.# #.####";bez(i);erg(i);bez(i+65);erg(i+65)ELSEPRINT#8,TAB(8)USING"####.# #.####";bez(i);erg(i) 2500 GOTO2520 2510 IFi+65<anTHENPRINT#8,USING"##,###,###.### ##,###,###.### ##,###,###.### ##,###,###.###";bez(i);erg(i);bez(i+65);erg(i+65)ELSEPRINT#8,USING"##,###,###.### ##,###,###.###";bez(i);erg(i) 2520 IF(i=64ORi=194ORi=324ORi=454)ANDi+68>anTHEN380 2530 IFi=64ORi=194ORi=324ORi=454THENPRINT#8:ii=i+66:GOTO2410 2540 NEXT:GOTO380 2550 REM 2560 REM Subroutine zum einlesen und ausgeben der Bezeichnungs-DATA'S 2570 REM 2580 sp=INT((72-LEN(a$(mp)))/2):LOCATE2,2:PRINTCHR$(24)SPC(78):LOCATEsp,2:PRINTa$(mp)b$;CHR$(24):sp=3 2590 FORi=1TOzSTEP2 2600 READvb$(i),nb$(i),f(i),vd$(i),nd$(i):nb$(i+1)=vb$(i):vb$(i+1)=nb$(i):f(i+1)=1/f(i):vd$(i+1)=nd$(i):nd$(i+1)=vd$(i) 2610 IFmp=8ANDi<>7THEN2650ELSEIFmp=8THENRETURN 2620 LOCATEsp,4+a:PRINTi"- "vb$(i)" ";STRING$(14-LEN(vb$(i)),45)"> "nb$(i) 2630 IFi=9THENsp1=sp1-1:sp=2 2640 LOCATEsp1,4+a:PRINTi+1"- "vb$(i+1)" ";STRING$(14-LEN(vb$(i+1)),45)"> "nb$(i+1):a=a+1 2650 NEXT 2660 LOCATE2,24:PRINTCHR$(24);SPC(29)"Bitte waehlen Sie : "CHR$(8)CHR$(8)CHR$(24)CHR$(7);:INPUT"",mp 2670 IFmp<1ORmp>z+1THEN2660 2680 ORIGIN0,0,11,629,356,42:CLG0:LOCATE2,24:PRINTCHR$(24);SPC(78);CHR$(24); 2690 RETURN 2700 LOCATE2,2:PRINTCHR$(24);SPC(78);CHR$(24):d$=CHR$(24)+b$+" == "+vb$(mp)+" in "+nb$(mp)+CHR$(24):sp=INT((84-LEN(d$))/2):RETURN 2710 IFii<anTHENORIGIN0,0,20,300,320,44:CLG0:ORIGIN0,0,320,629,320,44:CLG0 2720 RETURN |