Блог страдающего Лиса
Lorem ipsum hello dolor sit world amet

09 мая 2025 Пт Меня продрало на Спектрумский Бейсик

Однажды, давным-давно... в далеком детстве, в далекой-предалекой галактике жил-был один Лис. Но его не звали еще так. Он пытался сделать всякие мелкие программы, и не получилось ничего хорошего.
В общем, сегодня просто с утра решил посмотреть как работает генерация псевдографики, для интереса. Несмотря на небольшую программу, получилось весьма эффектно.
clipboard.png
BORDER 0: PAPER 0: INK 7: CLS

FOR Y=0 TO 20 STEP 2
FOR X=0 TO 30 STEP 2
BRIGHT 0
GO TO #A + 2*INT(RND*4)
#A INK 4: PRINT AT Y,X;";,";
   PRINT AT Y+1,X;",:";: GO TO #E
   INK 4: PRINT AT Y,X;",.";
   PRINT AT Y+1,X;".,";: GO TO #E
   INK 1: BRIGHT 1: PRINT AT Y,X;"~^";
   PRINT AT Y+1,X;"v~";: GO TO #E
   INK 4: BRIGHT 1: PRINT AT Y,X;"%%";
   INK 6: BRIGHT 0: PRINT AT Y+1,X;"||";: GO TO #E
#E NEXT X
NEXT Y

INK 3
LET X=14: LET Y=9
PRINT AT Y,X+1;"O"
PRINT AT Y+1,X;"(#\"
PRINT AT Y+2,X;"/ \"
STOP
Теги: Спектрум