C ++ добрый день. кто может переделать программу с бейсика на си ++ без компеляции. вложенные циклы с записью в файл. спасибо.

[skrl]

добрый день. помогите пожалуйста переделать программу с бейсика на си ++ без компеляции. вложенные циклы с записью в файл.

[skrl]

OPEN "d:\arh.txt" FOR OUTPUT AS #1
FOR K = 1 TO 4096
CLS:s = 0
FOR A0 = 0 TO K
FOR A1 = 0 TO K
FOR A2 = 0 TO K
FOR A3 = 0 TO K
FOR A4 = 0 TO K
FOR A5 = 0 TO K
FOR A6 = 0 TO K
FOR A7 = 0 TO K
FOR A8 = 0 TO K
FOR A9 = 0 TO K
FOR A10 = 0 TO K
FOR A11 = 0 TO K
FOR A12 = 0 TO K
FOR A13 = 0 TO K
FOR A14 = 0 TO K
FOR A15 = 0 TO K
s = A0 + A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + A10 + A11 + A12 + A13 + A14 + A15
IF s = K THEN GOSUB 100
IF s < K THEN GOTO 10
10 NEXT A15
NEXT A14
NEXT A13
NEXT A12
NEXT A11
NEXT A10
NEXT A9
NEXT A8
NEXT A7
NEXT A6
NEXT A5
NEXT A4
NEXT A3
NEXT A2
NEXT A1
NEXT A0


A15 = 0
A14 = 0
A13 = 0
A12 = 0
A11 = 0
A10 = 0
A9 = 0
A8 = 0
A7 = 0
A6 = 0
A5 = 0
A4 = 0
A3 = 0
A2 = 0
A1 = 0
A0 = 0
PRINT #1, CHR$(A0) + CHR$(A1) + CHR$(A2) + CHR$(A3); CHR$(A4) + CHR$(A5) + CHR$(A6) + CHR$(A7) + CHR$(A8) + CHR$(A9) + CHR$(A10) + CHR$(A11) + CHR$(A12) + CHR$(A13) + CHR$(A14) + CHR$(A15);

NEXT K
CLOSE

100 LOCATE 10, 10
PRINT s; " "; K
PRINT A0; " "; A1; " "; A2; " "; A3; " "; A4; " "; A5; " "; A6; " "; A7; " "; A8; " "; A9; " "; A10; " "; A11; " "; A12; " "; A13; " "; A14; " "; A15;

PRINT #1, CHR$(A0) + CHR$(A1) + CHR$(A2) + CHR$(A3); CHR$(A4) + CHR$(A5) + CHR$(A6) + CHR$(A7) + CHR$(A8) + CHR$(A9) + CHR$(A10) + CHR$(A11) + CHR$(A12) + CHR$(A13) + CHR$(A14) + CHR$(A15);
101 IF A0 = 256 THEN STOP
102 RETURN