mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
35 lines
1.1 KiB
QBasic
35 lines
1.1 KiB
QBasic
10 CLS:KEY OFF
|
||
20 FOR I=0 TO 12:READ A$,A:COLOR A:PRINT I;A$,;:NEXT I
|
||
30 PRINT:PRINT:COLOR 5:PRINT" 1.2.3. 4."
|
||
40 PRINT" \ \ \ \
|
||
50 PRINT"--";
|
||
60 FOR I=1 TO 9:PRINT CHR$(219);:NEXT I
|
||
70 PRINT"--":COLOR 15,8
|
||
80 DATA "SCHWARZ",8,"BRAUN",6,"ROT",4
|
||
90 DATA "ORANGE",12,"GELB",14,"GRšN",10,"BLAU",09
|
||
100 DATA "VIOLETT",13,"GRAU",7,"WEISS",15
|
||
110 DATA "ohne",5,"GOLD",14,"SILBER",7
|
||
120 PRINT:FOR R=1 TO 2:GOSUB 270
|
||
130 IF R=1 THEN Y=A*10 ELSE Y=A*1
|
||
140 X=X+Y:NEXT R:R=3:GOSUB 270
|
||
150 IF A<7 THEN X=X*10^A
|
||
160 IF A=11 THEN X=X/10
|
||
170 IF A=12 THEN X=X/100
|
||
180 R=4:GOSUB 270:T=A
|
||
190 IF A=10 THEN T=20
|
||
200 IF A=11 THEN T=5
|
||
210 IF A=12 THEN T=10
|
||
220 LOCATE 13,1:IF X<9999999! THEN PRINT X" Ohm
|
||
230 IF X>1000 THEN PRINT X/1000;" Kilo Ohm
|
||
240 PRINT"Toleranz: "T"% = "X/100*T" Ohm
|
||
250 INPUT"Nochmal (j/n)";A$
|
||
260 IF A$="n" THEN KEY ON:END ELSE RUN
|
||
270 LOCATE 9,1
|
||
280 PRINT"Farbe vom "R". Ring.":INPUT A
|
||
290 LOCATE 9,21
|
||
300 PRINT" ":IF A<0 OR A>12 THEN 270
|
||
310 LOCATE 7,1+R*2:IF R=4 THEN LOCATE 7,10
|
||
320 RESTORE:FOR I=0 TO A:READ A$,F:NEXT I
|
||
330 COLOR F,5
|
||
340 PRINT CHR$(222):COLOR 15,8:RETURN
|
||
|