Как исправить эту ошибку компиляции BASIC?

Question

У меня проблема с компиляцией программы, которую я сделал на BASIC. Это симулятор DOS, который я делал, пытаясь понять, можно ли написать операционную систему в BASIC. Каждый раз, когда я пытаюсь скомпилировать, я получаю следующие сообщения:

!SYNTAX ERROR IN LINE 15, COLUMN 50 
UNEXPECTED E 
EXPECTING : OR END OF LINE 

Что я могу изменить для этого?

10 PRINT 
11 PRINT "Starting..." 
12 PRINT 
13 PRINT 
14 INPUT "Type the location of the Command Interpretter:"; I$ 
15 IF I$ = "C:\WINDOWS\COMMAND.COM" THEN GOTO 14 ELSE GOTO 13 
16 INPUT "C:\>"; D$ 
17 IF D$ = "FORMAT" GOTO 25 
18 IF D$ = "FDISK" GOTO 47 
19 IF D$ = "HELP" GOTO 16 
20 IF D$ = "DIR" GOTO 16 
21 IF D$ = "MKDIR" GOTO 16 
22 IF D$ = "WIN" GOTO 16 
23 IF D$ = "CD" GOTO 16 
24 IF D$ = "DEL" GOTO 16 
25 PRINT "WARNING, ALL DATA ON REMOVABLE DISK" 
27 PRINT "DRIVE A: WILL BE LOST!" 
28 INPUT "Proceed with Format (Y/N)"; F$ 
29 IF F$ = "Y" THEN GOTO 28 
30 IF F$ = "N" THEN GOTO 16 
31 PRINT 
32 PRINT 
33 PRINT 
34 PRINT "Fotmatting 1.44MB" 
35 PRINT "Format complete." 
36 PRINT "Writing out file allocation table" 
37 PRINT "Complete." 
38 PRINT "Calculating free space (this may take several minutes)...................." 
39 PRINT "Complete." 
40 PRINT 
41 INPUT "Volume Label (11 charchters, ENTER for none)" 
42 PRINT 
43 PRINT "    1,440MB total disk space" 
44 PRINT "    1,440MB available on disk" 
45 PRINT 
46 PRINT "      512 bytes in each allocation unit." 
47 PRINT "     32,624 allocation units available on disk." 
48 PRINT "Volume Serial Number is 326A-1312" 
49 GOTO 16 
50 PRINT "Incorrect DOS Version" 
51 PRINT 
52 GOTO 16 

Я использовал Vintage BASIC 1.0.1 в качестве компилятора. Кто-нибудь знает, что происходит? Windoze NT

Answer 1

Я отмечаю, что вы изменили первоначально опубликованный код, удалив повторяющиеся номера строк. Это заставит первую часть этого ответа выглядеть странно, но я оставлю его.

Компилятор сообщает вам, что вы повторно используете одни и те же номера строк. Обратите внимание на следующий раздел кода?

26 PRINT "DRIVE A: WILL BE LOST!" 
27 INPUT "Proceed with Format (Y/N)"; F$ 
26 IF F$ = "Y" THEN GOTO 28 
27 IF F$ = "N" THEN GOTO 16 

Исправление состоит в том, чтобы перенумеровать ваши линии. Теперь вы знаете, почему вы обычно не используете приращения 1 между строками на языках, которым требуются номера строк! (Скорее всего, вы можете найти или даже написать - инструмент для этого.)

Относительно ошибки от:

15 IF I$ = "C:\WINDOWS\COMMAND.COM" THEN GOTO 14 ELSE GOTO 13 

Я не натыкаться «Vintage BASIC» раньше, но предполагая, что другие ответы об этом не поддерживает еще правильны, вы хотите что-то вроде:

15 IF I$ = "C:\WINDOWS\COMMAND.COM" THEN GOTO 14 
16 IF I$ <> "C:\WINDOWS\COMMAND.COM" THEN GOTO 13 

Вы, возможно, потребуется заменить «<>» с «! =» или что-то ваш BASIC использует в качестве не равен оператору. Кроме того, вам нужно будет сделать больше перенумерации, поскольку у вас уже есть строка 16.

Answer 2

Я не думаю, что есть ключевое слово ELSE в старинных элементах, поэтому вы получаете ошибку unexpected 'E'.

Я предполагаю, что старинные BASIC является unstructured BASIC, вы можете обратиться к википедии статье для примера: http://en.wikipedia.org/wiki/BASIC_programming_language

Кроме того, у вас есть дубликаты номеров строк 26 и 27, в которой описаны другие ошибки.

Answer 3

Возможно, у вашей версии BASIC есть ELSE? Не все имеют ...

Я думаю, вы учитесь программировать, не так ли? Могу я задать вопрос? Почему основной?
Я думаю, что есть много более полезных и мощных (и в основном с использованием современных методов программирования) языков, чтобы узнать, что вы можете использовать в графической ОС, и они не сложнее изучать, например, Python (у моего сына есть свой возраст и он любит питон). Это простой язык для простых вещей, но очень мощный, если вам нужно (и тоже сложно!).

Удачи вам!

Answer 4

Первые два предупреждения вызваны тем, что ваша программа имеет две линии 26 и две линии 27.

Я бы предположил, что третье сообщение исходит от вашего BASIC, поддерживающего только IF THEN, а не IF THEN ELSE. В этом случае вы можете закодировать его с помощью IF GOTO.