У нас вы можете посмотреть бесплатно ПК Специалист: демо на Бейсике - RСTXTSPEC by ivagor или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
Единственная работа для Специалиста от Ивана Городецкого на конкурсе программ на Бейсике "РЕТРОГРАД". Ссылка на памятку по командам Бейсика от 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