Скачать или смотреть ПК Специалист: демо на Бейсике - RСTXTSPEC by ivagor

Единственная работа для Специалиста от Ивана Городецкого на конкурсе программ на Бейсике "РЕТРОГРАД".

Ссылка на памятку по командам Бейсика от ZX_Creature: https://disk.yandex.ru/i/gXA2Q4CvNKi1VQ

Текст программы ("@" замените на знак больше, это ограничение YouTube):

1 REM RCTXTSPEC
2 REM BBC MICRO VERSION BY PAUL MALIN
3 REM SPECIALIST VERSION BY IVAN GORODETSKY
4 CLS1
5 CUR0,247:PRINT"X"
6 PLOT8,250,2:PLOT8,252,2
7 PLOT6,255,2:LINE8,255
8 FORU=64TO319
9 E=(U-64)/256-.5:F=.7:N=E*.9-F*.4:O=E*.4+F*.9
10 I=7:J=248
11 L=SGN(N):M=SGN(O):S=1/ABS(N):T=1/ABS(O)
12 E=(-.5*L-(N@0))*S:F=-(O@0)*T:Y=0:C=1
13 D=E@F
14 IFDTHENH=F:F=F+T:J=J+M:GOTO16
15 H=E:E=E+S:I=I+L
16 PLOTI,J,0:P=PEEK(7901)
17 A=-180/H
18 G=0:IFY@=0THENG=Y
19 PLOTU,G,C
20 C=(NOTC)AND3:Y=128+A:IFY@=0THENG=Y
21 LINEU,G
22 IFP=0THEN13
23 B=240/H:Z=31AND32*(I+(N+O)*H*.45+J):W=32/(B-A):V=W*(INT(A)-A)
24 IF(7ANDZ)=0OR(7AND(Z+4))=0THEN30
25 IFDTHEN28
26 FORK=INT(A+128)TOINT(B+128)
27 PLOTU,K,1-((3ANDV)=0):V=V+W:LINEU,K:NEXT:NEXT:GOTO37
28 FORK=INT(A+128)TOINT(B+128)
29 PLOTU,K,1-NOT((3ANDV)=0):V=V+W:LINEU,K:NEXT:NEXT:GOTO37
30 FORK=INT(A+128)TOINT(B+128)
31 Q=Z:R=7ANDV:V=V+W
32 IFR@3THENQ=Q+4
33 C=(3ANDR)=0OR(7ANDQ)=0
34 IFDTHENC=NOTC
35 PLOTU,K,1-C:LINEU,K
36 NEXT:NEXT
37 REM