План (1981-2001)
Фоновый контекст 1981 года
Конфигурация
Несмотря на то, что IBM PC можно было приобрести в одном из двух вариантов, более дешевый не имеет смысла из-за серьезных ограничений по носителям(только кассеты) и возможностям BASIC (только текстовый режим без возможности работы с цветом). Для работы же с версией BASIC на дискете требовалась конфигурация на 48КБ из которых 32КБ забирала система при загрузке PC DOS с дискеты. Также ревизия 1981 года была ограничена 64кб памяти, а вариант на 256кб появился только в следующем году. Это, к слову, в некоторой мере объясняет большую редкость софта под IBM PC на кассетах будь то любительский или коммерческий (строго говоря, он редок и для TRS-80 c Apple II, но хотя бы для последнего известно некоторое количество игр в таком формате). Потому практически все ранние игры для IBM PC рассчитаны под конфиг с 48КБ базовой памяти. Дополнительные 16КБ кажутся относительно дешевыми при таких условиях, мышей еще не было (первая для IBM PC будет только в 1983 году), а джойстик можно будет приобрести потом (к этому времени оные формата Atari VCS/2600 - стик с одной кнопкой - стали стандартом и был доступен вариант известных под термином пэдл (paddle) для подобий Pong и Breakout).
Документация
За годы с момента выхода IBM PC полный комплект документации за 1981 год до сих не оцифрован. Из нее наиболее интересным является руководство по BASIC, включающее в том числе раздел с описанием команд.
Однако, оцифровано руководство в ревизии за май 1982 года (BASIC_1.1_May82), которое допустимо использовать, так как правки не значительны и со связанными с ними ситуациями вряд ли придётся столкнуться в ходе использования. Источником примеров программ и игр могут быть книги-сборники 101 BASIC Computer Games (первое издание - 07.1973, издание за март 1975 года) и BASIC Computer Games с More BASIC Computer Games (1978 и 1979 годы соответственно).
Софт
В сущности, в комплекте PC DOS из коробки был доступен только BASIC, а VisiCalc нужно было приобретать отдельно. Рассматривать последний смысла нет, так как оный к моменту выпуска IBM PC был доступен и на TRS-80 и смысла приобретать ту же программу для другой системы смысла не имело. Также самая ранняя версия VisiCalc для IBM PC доступна на Winworld, но не эмулируется ни в одном эмуляторе из-за специфической защиты от копирования , которая работает на секторно-байтовом уровне и ни одна реализация чтения образов дискет не учитывает такие особенности (в отличие от самих форматов, из которых можно произвести физическую запись на дискету, работоспособную на реальном железе). Чуть более поздняя версия заработала в Dosbox-X, а в PCBox происходит зависание (возможно, нужно больше 64КБ). Таким образом, последующая информация будет про BASIC.
Особенности и использование BASIC
Некоторые нюансы работы:
Произвольно редактировать нельзя: только последовательная построчная запись (компенсация — группировать строки особым образом и оставлять место для новых, так как BASIC умеет их подставлять последовательно: если добавить LINE 881 <Код>, то она встанет между 880 и 882 без участия пользователя).
Сохранение на кассету происходит только один раз, перезапись изменения не учитывает (компенсация — сделать новый образ кассеты и делать новое сохранение на неё).
Подставить уже готовый к загрузке.BAS файл (блокнот→ dosbox‑x → PCBox) нельзя: либо портятся или неверно интерпретируются строки в файле или обрабатывается только часть строк. Потому вводить только самостоятельно в эмуляторе (с другой стороны плюс — вникаешь в ход работы строк по ходу перепечатывания).
Использовать EDLIN для редактирования.BAS файла нельзя: он неправильно читает данные.
Нельзя произвольно редактировать строку: если в строке есть ошибка, то заменять нужно всю строку от её места (хинт — для замены одного символа на другой достаточно дойти до оного и сразу нажать на одну из нужных клавиш клавиатуры — старый символ заменится на новый).
Нельзя после загрузки.BAS файла с дискеты пересохранить на другую, только на ту же (компенсация — заранее сделать новую чистую дискету и отформатировать её; скопировать файл образа чистой дискеты переименовав её).
Нельзя залупить музыку (команды SOUND, PLAY).
Реализовать 160×100×16 возможно только через ассемблер (BASIC 1.x не поддерживает DATA).
Сохранение лучше делать в формате 'SAVE«TEST.BAS»,A'. без A будет сохранение в бинарном формате.
Приятный бонус - можно использовать BASIC в качестве простейшего псевдо-текстовика.
Нюансом в написании кода является использование нейросетей с последующей правкой в случае необходимости.
Программы
CP437 Draw (CP437DRW)
Простая рисовалка в текстовом режиме 80х25 с поддержкой цвета. Запросы (Qwen3-Max) - 1, 2.
10 REM CP437 Draw Tool 20 SCREEN 0,1:WIDTH 80:KEY OFF:CLS 30 COLOR 15,0 40 CX=2:CY=2:CC=15:CH=32 50 GOSUB 500 60 REM Main Loop 70 LOCATE CY,CX 80 A$=INKEY$:IF A$="" THEN 80 90 IF A$=CHR$(27) THEN CLS:COLOR 7,0:END 100 REM Char navi 110 IF A$="C" OR A$="c" THEN CH=(CH+1) MOD 255 120 IF CH=12 THEN CH=13:REM Skip char 130 IF A$="+" THEN CH=(CH+16) MOD 255 140 IF A$="=" THEN CH=127 150 IF A$="-" THEN CH=0 160 REM Color change 170 IF A$="Z" OR A$="z" THEN CC=(CC+1) MOD 16 180 REM Char place 190 IF A$=" " AND CH<>12 THEN COLOR CC,0:LOCATE CY,CX:PRINT CHR$(CH); 200 REM Arrow keys 210 IF A$=CHR$(0)+"H" THEN CY=CY-1:IF CY<2 THEN CY=2 220 IF A$=CHR$(0)+"P" THEN CY=CY+1:IF CY>24 THEN CY=24 230 IF A$=CHR$(0)+"K" THEN CX=CX-1:IF CX<2 THEN CX=2 240 IF A$=CHR$(0)+"M" THEN CX=CX+1:IF CX>78 THEN CX=78 250 REM Save/Load 260 IF A$="P" OR A$="p" THEN GOSUB 700 270 IF A$="S" OR A$="s" THEN GOSUB 700 280 IF A$="R" OR A$="r" THEN GOSUB 800 290 GOTO 70 500 REM Draw border 510 COLOR 7,0 520 LOCATE 1,1:PRINT CHR$(201); 530 LOCATE 1,79:PRINT CHR$(187); 540 LOCATE 25,1:PRINT CHR$(200); 550 LOCATE 25,79:PRINT CHR$(188); 560 FOR Y=2 TO 24 570 LOCATE Y,1:PRINT CHR$(186); 580 LOCATE Y,79:PRINT CHR$(186); 590 NEXT Y 600 FOR X=2 TO 78 610 LOCATE 1,X:PRINT CHR$(205); 620 LOCATE 25,X:PRINT CHR$(205); 630 NEXT X 640 RETURN 700 REM Save 710 DEF SEG=&HB800 720 BSAVE "IMG.SAV",0,&HFA0 730 DEF SEG 740 OPEN "IMG.VAR" FOR OUTPUT AS #1 750 PRINT #1,CX,CY,CC,CH 760 CLOSE #1 770 PRINT"SAVED!" 780 RETURN 800 REM Load 810 ON ERROR GOTO 900 820 DEF SEG=&HB800 830 BLOAD "IMG.SAV",0 840 DEF SEG 850 OPEN "IMG.VAR" FOR INPUT AS #1 860 INPUT #1,CX,CY,CC,CH 870 CLOSE #1 880 GOSUB 500 890 RETURN 900 PRINT"No save found!":FOR T=1 TO 1000:NEXT T:RESUME NEXT
Примеры рисунков:
Music Maker (MUSMAKE)
Простая программа для набора нот для PLAY и SOUND. Запрос.
10 REM PLAY/SOUND Command Explorer 20 DEFINT F,D 30 ON ERROR GOTO 400 40 CLS 50 PRINT"IBM PC BASIC PLAY/SOUND TESTER" 60 PRINT"------------------------------" 70 PRINT"Avaliable PLAY commands:" 80 PRINT" A-G[#|+|-] : Notes (e.g., C+, D#)" 90 PRINT" O<n> : Octave (0-6, default=4)" 100 PRINT" N<n> : Note number (0-84, 0=rest)" 110 PRINT" L<n> : Length (1-64, e.g., L4=quarter note)" 120 PRINT" P<n> : Pause (rest) of length n" 130 PRINT" T<n> : Tempo (32-255 BPM, default=120)" 140 PRINT" . : Dotted note (e.g., C.)" 150 PRINT" MF/MB : Music Foreground/Background" 160 PRINT" MN/ML/MS : Normal/Legato/Staccato" 170 PRINT" X<var> : Execute string variable (e.g., XMYTUNE$)" 180 PRINT 190 PRINT"SOUND: freq (37-32767), duration (0-65535 ticks; 18.2/sec)" 200 PRINT 210 GOSUB 300 220 PRINT 230 PRINT"Press M=PLAY, S=SOUND, E=EDIT, ESC=QUIT" 240 K$=INKEY$:IF K$="" THEN 240 250 IF K$="M" OR K$="m" THEN PLAY PLAYSTR$ 260 IF K$="S" OR K$="s" THEN SOUND FREQ%,DUR% 270 IF K$="E" OR K$="e" THEN GOSUB 300 280 IF ASC(K$)=27 THEN SYSTEM 290 GOTO 240 300 REM Input 310 INPUT"Enter PLAY string";PLAYSTR$ 320 INPUT"Enter SOUND freq,dur (e.g., 440,18)";FREQ%,DUR% 330 RETURN 400 REM Error Handler 410 PRINT"ERROR";ERR;"LINE";ERL 420 PRINT"Press any key to continue..." 430 WHILE INKEY$="":WEND 440 RESUME 40
Игра
В качестве теста попробовал сделать простенькую реализацию Space Invaders. Для этого документ по BASIC 1.10 перевел через Abbyy FineReader в текстовый формат (размер - 445КБ), а также сохранил вариант в RTF. После этого полученный текстовый файл с примерами на .BAS (Donkey.BAS, Sample.BAS) был загружен в Google Gemini 3 (Pro-версия, доступна минимум 1 раз в сутки).
Запрос (английский): "Lets write simple Space Invaders clone game under BASIC for IBM PC which will work on the earliest one models with 16-48-64 kbytes.I've provide BASIC documentation and sample game in BASIC code.Take a note - .BAS file size limit must be not exceed 16000 bytes. "
Ссылки - Google Gemini 3, Qwen3-Max (правки).
Итоговый код после ряда правок:
10 REM IBM Invaders 20 DEFINT A-Z:KEY OFF:CLS 30 SCREEN 1,0:COLOR 3,1 40 DIM SHIP%(50), ALIEN%(50), MISSILE%(10) 50 PX=150:PY=180:BX=0:BY=0:BF=0 60 AD=2:AC=5:SC=0 70 DIM AX(5),AY(5),AS(5) 80 CLS:PRINT"" 90 LINE(0,8)-(8,0),1:LINE-(16,8),1:LINE-(0,8),1:PAINT(8,4),1,1 100 GET(0,0)-(16,8),SHIP%:CLS 110 DRAW"BM0,0 D8 R12 U8 L12 M+6,6 M+6,-6":PAINT(2,2),2,3 120 GET(0,0)-(12,8),ALIEN%:CLS 130 LINE(0,0)-(2,6),3,BF:GET(2,0)-(0,6),MISSILE%:CLS 140 WIDTH 40:CLS:LOCATE 8,10:PRINT"IBM INVADERS" 150 LOCATE 10,8:PRINT"Arrows to Move":LOCATE 11,8:PRINT"Space to Fire" 160 LOCATE 15,8:PRINT"Press SPACE to Start" 170 I$=INKEY$:IF I$="" GOTO 170 180 IF I$<>" " GOTO 170 190 CLS 200 FOR I=0 TO AC-1:AX(I)=40+I*50:AY(I)=10:AS(I)=1:NEXT 210 PUT(PX,PY),SHIP%,PSET 220 REM Main Loop 230 K$=INKEY$ 240 IF K$=CHR$(27) GOTO 900 250 IF LEN(K$)=2 THEN K$=RIGHT$(K$,1) 260 IF K$="K" THEN PX=PX-5:IF PX<0 THEN PX=0 270 IF K$="M" THEN PX=PX+5:IF PX>300 THEN PX=300 280 IF K$=" " AND BF=0 THEN BF=1:BX=PX+7:BY=PY-5:SOUND 1000,1 290 PUT(PX,PY),SHIP%,PRESET 300 IF BF=0 GOTO 350 310 PUT(BX,BY),MISSILE%,PRESET 320 BY=BY-32 330 IF BY<0 THEN BF=0:GOTO 350 340 PUT(BX,BY),MISSILE%,PSET 350 M=0 360 FOR I=0 TO AC-1 370 IF AS(I)=0 GOTO 430 380 PUT(AX(I),AY(I)),ALIEN%,PRESET 390 AX(I)=AX(I)+AD 400 REM Collision: bullet vs alien 410 IF BF=1 AND BX+2>=AX(I) AND BX<=AX(I)+12 AND BY+6>=AY(I) AND BY<=AY(I)+8 THEN AS(I)=0:BF=0:PUT(BX,BY),MISSILE%,PRESET:SC=SC+10:SOUND 37+RND*200,2:GOTO 430 420 PUT(AX(I),AY(I)),ALIEN%,PSET 430 IF AS(I)=1 AND (AX(I)>300 OR AX(I)<5) THEN M=1 440 NEXT I 450 IF M=1 THEN AD=-AD 460 FOR J=0 TO AC-1 470 IF AS(J)=1 THEN PUT(AX(J),AY(J)),ALIEN%,PRESET 480 AY(J)=AY(J)+1:PUT(AX(J),AY(J)),ALIEN%,PSET 490 NEXT J 500 LOCATE 1,1:PRINT"SCORE:";SC 510 IF AY(0)>160 THEN GOTO 950 520 IF SC=50 THEN CLS:PRINT"YOU WIN!":GOTO 990 530 FOR D=1 TO 50:NEXT D 540 GOTO 220 900 CLS:SCREEN 0:WIDTH 80:SYSTEM 950 CLS:LOCATE 10,15:PRINT"GAME OVER":SOUND 100,10 960 FOR I=1 TO 2000:NEXT:GOTO 140 990 END
Скриншот:
Баги:
- Противники спускаются на один пиксель сразу по осям X и Y.
- Не очищается предыдущая позиция при перемещении на новое место (касается всех объектов - корабля игрока, ракеты и противников).
- Противники при спуске оставляют шлейф.
- Ракета может пролететь мимо противника несмотря на то, что визуально она проходит через его спрайт.
- От ракеты остается полоска после прохождения позиции.
- После попадания противник не стирается полностью: его рамка продолжает падать, но прямо вниз (хотя может выглядеть как визуализация обломков после взрыва).
Костыли:
- Фон в цвете шлейфа.
Что можно было бы исправить:
- Спус�� противников по X до конца линии, а потом спуск по Y до достижения конца линии по X.
- Коррекция скорости ракеты, чтобы её линии попадания совпадали с линиями движения противников.
Что можно было бы добавить:
- Жизни.
- Отстрел противниками.
- После первого попадания от противников остаются обломки, которые нужно уничтожать отдельно.
На мой взгляд, исправить баги и получится вполне себе donationware за $4.99, который мог распространяться через BBS или быть опубликован в каком-нибудь журнале в виде листинга.
Скачать - github
Возможные выводы
В целом, несмотря на некоторые неудобства, опыт написания под BASIC на оригинальном конфиге IBM PC образца 1981 года интересный. Сделать нечто динамичное теоретически возможно, особенно если разобраться с нюансами рисования и отображения графики (Donkey хороший пример такого). Понятно, что для чего-то более комплексного потребуется использовать MASM (для сегментов кода, которые нужно обрабатывать быстро, BASIC такое допускает через CALL), а в идеале вовсе писать на C. Однако в 1981 году реализации C под IBM PC еще не было - самые ранние вышли уже в 1982 году, но доступны те, что датируются 1983 годом.
Также, по моим впечатлениям, BASIC похож на Python (построчный синтаксис исполняющийся последовательно, но при этом предусматривающий некоторое распараллеливание операций через GOSUB и GOTO), только проще и по функционалу, и по возможностям.
