home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 November
/
64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64
/
ggt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
298b
|
14 lines
10 print"[147]":rem groesster gemeinsamer teiler
20 print"groesster gemeinsamer teiler
30 [153]"****************************"
40 [153]"euklidischer algorithmus"
45 [133]" 1. zahl";a
50 [133]" 2. zahl";b
60 [139]a[179]b[167] s[178]a:a[178]b:b[178]s
70 c[178]a[173]b
80 [139]c[178][181](c)[167]t[178]b:[137]120
90 r[178]a[171][181](c)[172]b
100 a[178]b:b[178]r
110 [139]r[179][177]0[167]t[178]r:[137]70
120 [153][163]20)"ggt="t