-
Notifications
You must be signed in to change notification settings - Fork 0
/
ssr_potenz.bas
114 lines (112 loc) · 3.6 KB
/
ssr_potenz.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SSR SONNENSYSTEMROTATION
Info Subroutine ssr_potenz.bas
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
© 2023 by Dietmar Gerald Schrausser
!!
c=cc
a_07=sx/54
h_07=sy/135 %15
s1_07=sy/15 %140
s2_07=sy/38 %53
sw_07=1
GR.COLOR 200,150,150,150,1
GR.TEXT.BOLD 1
GR.TEXT.ALIGN 1
DO
GR.CLS
GR.TEXT.SETFONT "courier","",1
GR.TEXT.SIZE txzi
GR.TEXT.DRAW tx,a_07,sy/77,"i Zehnerpotenzen:"
GR.TEXT.SIZE txzi2
GR.LINE ln, 0,sy/42.6,sx,sy/42.6
GR.TEXT.DRAW tx, a_07,s1_07,"1000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*1), "10 Thousand k (Kilo)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*1), "10 Tausend k (Kilo)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*1)-h_07, " 3"
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*2),"1 000000"
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*3), "10 Million M (Mega)"
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*3)-h_07, " 6"
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*4),"1000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*5), "10 Billion G (Giga)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*5), "10 Milliarde G (Giga)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*5)-h_07, " 9"
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*6),"1 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*7), "10 Trillion T (Tera)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*7), "10 Billion T (Tera)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*7)-h_07, " 12
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*8),"1000 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*9), "10 Quatrillion P (Peta)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*9), "10 Billiarde P (Peta)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*9)-h_07, " 15
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*10),"1 000000 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*11), "10 E (Eta)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*11), "10 Trillion E (Eta)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*11)-h_07, " 18
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*12),"1000 000000 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*13), "10 Z (Zeta)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*13), "10 Trilliarde Z (Zeta)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*13)-h_07, " 21
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*14),"1 000000 000000 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*15), "10 Y (Yota)"
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*15), "10 Quatrillion Y (Yota)"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*15)-h_07, " 24
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*16),"1 000000 000000 000000 000000 000000"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*17), "10 "
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*17), "10 Quintilion"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*17)-h_07, " 30
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*18),"1 M M M M M M"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*19), "10 "
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*19), "10 Sextilion"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*19)-h_07, " 36
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*20)-h_07, " :
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*21),"1 M M M M M M M M M M"
IF sw_07=-1
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*22), "10 "
ELSE
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*22), "10 Dezilion"
ENDIF
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*22)-h_07, " 60
GR.TEXT.DRAW tx, a_07,(s1_07+s2_07*24)-h_07, " :
GR.RENDER
DO
GR.TOUCH2 tc2,tx,ty
IF tc2:GOTO end_07:ENDIF
GR.TOUCH tc,tx,ty
UNTIL tc
PAUSE 100
sw_07=sw_07*-1
UNTIL 0
END_07:
tc2=0
GR.TEXT.BOLD 0
PAUSE 100
! % END %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%