10 REM CZPRAVA - GCSOFT
20 LET K$="38."
30 LET O$=K$+"332"
40 LET M=" "
50 GOSUB 200
55 GOSUB 150
60 LET A=90
70 LET B=A-(A-50)
80 PRINT B;M;O$
90 INPUT "Zadej E:";F$
100 LET I$="608"
110 LET E$="33."+I$
120 PRINT B-36;M;"33.";F$
130 REM PRINT B-36;M;"33.";E$
140 END
150 INPUT "Zadej N:";P$
160 LET O$=K$+P$
170 RETURN
200 LET A$="7335A505389M349567G01476774209864534313481"
210 LET D$=CHR$(78)+MID$(A$, 6, 2)+CHR$(32)+MID$(A$, 9, 2)+CHR$(46)+MID$(A$, 13, 3)
220 LET V$=CHR$(69)+MID$(A$, 20, 3)+CHR$(32)+MID$(A$, 2, 2)+CHR$(46)+MID$(A$, 1, 1)+MID$(A$, 26, 2)
230 PRINT "Najdi na";M;D$;M;V$;M;"a zadej:"
240 RETURN
