10 REM **************** o s z t a s **************
20 INPUT "osztand"; A
30 A$ = STR$(A): N = LEN(A$)
40 INPUT "oszt"; B
50 IF B = 0 THEN GOTO 40
60 IF A < 0 OR B < 0 THEN PRINT "j adatokat krek!": GOTO 10
70 IF A > 99999! OR B > 99999! OR INT(A) <> A OR INT(B) <> B THEN PRINT "j adatokat krek!": GOTO 10
80  CLS
90  LOCATE 20, 20: PRINT "eredmny:"; A / B
100 IF A / B > 1 THEN B = B * 10: GOTO 100
110 B$ = STR$(B): M = LEN(B$)
120  LOCATE 1, 1: PRINT A; " : "; B; " = "
130 R = M + N + 10
140 G = 2: H = 2
150 X = INT(A / 10 ^ (N - M)): IF X < B THEN X = INT(A / 10 ^ (N - M - 1)): REM x a mindenkori osztand.
160 Y = INT(X / B): REM y a mindenkori hnyados.
170 Y$ = STR$(Y): LOCATE 1, R: PRINT Y: R = R + 2
180 Z = X - INT(X / B) * B: REM z a mindenkori maradk.
190 Z$ = STR$(Z)
200 P = LEN(Z$) + 1
210 F$ = Z$ + "                           "
220 IF G = 23 THEN LOCATE 22, 40: END
230 IF LEN(A$) <= M THEN MID$(F$, P, 1) = "0": GOTO 250
240 MID$(F$, P, 1) = MID$(A$, M + 1, 1): M = M + 1: REM a kvetkez szmjegy levitele.
250 X = VAL(F$): LOCATE G, 1: PRINT X: G = G + 1: GOTO 160

