home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9011a.d64
/
ggt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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