§ Программный код
Однажды злой Техногеник разбросал повсюду Эмералды Хаотического, а Людвиг Больцман поднимал их, рассматривал и засовывал в карманы, чтобы потом прийти домой и нарисовать на своем суперкомпьютере этот мегакристалл.
Когда Больцман пришёл домой и выгрузил кристаллы из карманов, он поднёс к глазами один из них и обнаружил там программный код, который постепенно исчезал. Чтобы код полностью не исчез, Больцман поспешно набросал его на своем сверхсовременном компьютере.
10 BORDER 0: PAPER 0: INK 7: CLS
20 LET CX=0
30 LET CY=-0.5
40 LET CZ=2
50 LET K=1.1
60 LET X=0: LET Y=-1: LET Z=0
70 GO SUB 300
80 LET DX=XP: LET DY=YP
90 LET F=0
100 FOR I=2 TO 4.5 STEP 1.046/2
110 LET X1=SIN(I): LET Z1=COS(I)
120 LET X2=SIN(I)*K: LET Z2=COS(I)*K
130 LET X=X1: LET Y=1: LET Z=Z1: GO SUB 300
140 PLOT XP,YP
150 IF F=0 THEN GO TO 170
160 DRAW AX-XP,AY-YP
170 REM "SKIP 1"
180 LET AX=XP: LET AY=YP: REM "PREV POINT1"
190 LET X0=XP: LET Y=0.7: LET Y0=YP
200 LET X=X2: LET Z=Z2: GO SUB 300
210 PLOT AX, AY: DRAW XP-AX,YP-AY
220 IF F=0 THEN GO TO 240
230 DRAW BX-XP, BY-YP
240 REM "SKIP 2"
250 LET BX=XP: LET BY=YP: REM "PREV POINT2"
260 PLOT BX,BY: DRAW DX-BX,DY-BY
270 LET F=1
280 NEXT I
290 STOP
300 REM "PROJECTION"
310 LET XP=128+(X+CX)*85/(CZ+Z)
320 LET YP=85+(Y+CY)*85/(CZ+Z)
330 RETURN
После усердного ввода команд трясущимися от волнения пальцами он набрал заветное
RUN и запустил. Результат не заставил долго себя ждать и появился на экране. Пот градом стекал со лба Больцмана, он откинулся на спинку кресла и вздохнул с облегчением. Всё получилось!
Эмералд Хаоса