Sintax

	
	

	
	

		
Pascal
		
		
Pascalated BASIC
		
		
ZX Spectrum BASIC
		
		
Note
		
	
	
	
	

		

REPEAT 
  ...
UNTIL condition; 			
		
		

REPEAT variable
  ...
UNTIL condition			
		
		

FOR i = 0 TO 0.5 STEP 0
  ...
  LET i = condition
NEXT i   			
		
		

REPEAT	
(variable must have only 1 char)
(be careful: the variable cannot be used by another loop at the same time)		
		
	
	
	
	
	

		

WHILE condition DO 
BEGIN 
  ...
END			
		
		

WHILE condition DO variable
  ...
ENDWHILE 			
		
		

FOR i = NOT( condition ) TO 0.5 STEP 0
  ...
  LET i = NOT ( condition )
NEXT i   			
		
		

WHILE
(BEGIN is not needed)			
		
	
	
	
	
	

		

IF condition1 THEN
  BEGIN 
  ...
  END			
ELSE IF condition2 THEN
  BEGIN 
  ...
  END			
ELSE
  BEGIN 
  ...
  END			
		
		

IF condition1 BEGIN variable
  ...
ELSEIF condition2 
  ...
ELSE
  ...
ENDIF 			
		
		

LET i = condition1 : REM IF-BEGIN
FOR i = i TO 0.5 STEP -1 : REM IF-BEGIN
  ...
NEXT i : REM ENDIF
LET i = (i<0)*-1 + (i=0)*( condition2 ) : REM ELSEIF
FOR i=i TO 0.5 STEP -2 : REM ELSEIF
  ...
NEXT i : REM ENDIF
LET i = (i=0) : REM ELSE
FOR i = i TO 0.5 STEP -2 : REM ELSE
  ...
NEXT i : REM ENDIF
		
		

IF ... BEGIN ... END
(sometimes ':' is not enough)			
		
	
	
	
	
	

		

routine_name(arg)
		
		

LET arg1 = arg
PROC RoutineName
		
		

LET arg1 = arg
GO SUB RoutineName
		
		

procedure call
		
	
	
	
	
	

		

PROCEDURE routine_name
BEGIN
  ...
END
		
		

DEFPROC RoutineName 
  ...
ENDPROC
		
		

: REM RoutineName		
  ...
RETURN
		
		

procedure declaration
		
	
	
	
	
	

		

t := routine_name(arg)
		
		

LET arg1 = arg
PROC RoutineName
LET t = result
		
		

LET arg1 = arg
GO SUB RoutineName
LET t = result
		
		

function call
		
	
	
	
	
	

		

FUNCTION routine_name (arg:REAL) :REAL;
BEGIN
  ...
END;  
		
		

DEFPROC RoutineName		
LET v = arg1
...
LET result = v
ENDPROC
		
		

: REM RoutineName		
LET v = arg1
...
LET result = v
RETURN 
		
		

function declaration
		
	
	
	
	
	

		

total_apples := 0
		
		

LET TotalApples = 0
		
		

LET TotalApples = 0
		
		

java notation
(Remember that a string array and a simple string variable 
cannot have the same name - unlike the case for numbers)
		
	
	
	

		

total_apples := 0
		
		

LET total apples = 0
		
		

LET total apples = 0
		
		

you can use spaces (they are ignored)
but the BASinC emulator removes the spaces
(only numeric variables can have more than 1 char)
		
	
	
	
	

		
Each Pascalated command must be on a separately line. 
The command FOR-NEXT also must be at the beginning of the line.
  FOR i=1 TO 10 
    PRINT i 
  NEXT i
		
		
If you want to make an exception, start de line with an ":"
  : FOR i=1 TO 10 : PRINT i : NEXT i
		
	
	

Compre o livro - Buy the book

BASIC Apascalado Para o ZX Spectrum	Pascalated BASIC For the ZX Spectrum
Eis o livro do "Concurso BASIC Apascalado 2022! O hardware do ZX Spectrum foi rejuvenescido com o ZX Spectrum Next e, agora é a altura para renovar o software do ZX Spectrum com a linguagem BASIC Apascalado. São 200 páginas a cores com artigos e listagens dos 30 programas do "Tutorial do Concurso" incluindo alguns dos jogos clássicos da história dos videogames. É um verdadeiro curso de programação que pode ser aproveitado para programar em qualquer linguagem e também recordar o potencial do ZX Spectrum. Clique no preço para comprar via PayPal ou faça a sua encomenda enviando uma mensagem para o email info@ArcaLusitana.org   BASIC Apascalado Para o ZX Spectrum Pascalated BASIC For the ZX Spectrum Portugal e ilhas Euro 19,50 Euro 19,75 Estrangeiro Euro 24,50 Euro 24,75	Here is the book of the "2022 Pascalated BASIC Contest"! The ZX Spectrum's hardware has been rejuvenated with the ZX Spectrum Next and now is the time to renew the ZX Spectrum software with the Pascaled BASIC language. There are 200 color pages with articles and listings of the 30 programs of the contest tutorial including some of the classic games from video game history. It's a real programming course that can be used to program in any language and also recall the potential of the ZX Spectrum. Click on the price to buy via PayPal or place your order by sending a message to the email info@ArcaLusitana.org   Pascalated BASIC For the ZX Spectrum Outside Portugal Euro 24,75
Click aqui para comprar outros livros: BASIC Apascalado Para o ZX81 BASIC Apascalado Para o ZX Spectrum BASIC Apascalado - Compilado Para o ZX Spectrum	Click here to buy other books: Pascalated BASIC For the ZX81 Pascalated BASIC For the ZX Spectrum Pascalated BASIC - Compiled For the ZX Spectrum

---

	
 Programas de demonstração escritos em BASIC Apascalado em 1987 
 
1
BASIC Apascalado 1 (factorial iterativo) (MicroSe7e 56) (1987) [Zarsoft].z80

2 (duas versões semelhantes)
BASIC Apascalado 2 - Recursividade (factorial optimizado (memória)) (MicroSe7e 60) (1987) [Zarsoft].z80
BASIC Apascalado 2 - Recursividade (factorial rápido) (MicroSe7e 60) (1987) [Zarsoft].z80

3
BASIC Apascalado 3 - Recursividade sem stack (factorial) (MicroSe7e 61) (1988) [Zarsoft].z80

4 (2 versões semelhantes)
BASIC Apascalado 4 - Recursividade (Torres de Hanoi) (versão1) (MicroSe7e 62) (1988) [Zarsoft].z80
BASIC Apascalado 4 - Recursividade (Torres de Hanoi) (versão2) (MicroSe7e 62) (1988) [Zarsoft].z80

8
BASIC Apascalado 8 - Automato (avaliar número) (MicroSe7e 66) (1988) [Zarsoft].z80

9
BASIC Apascalado 9 - A Vitória do Spectrum Next (2021) [ZarSoft].z80

---

Pascalated BASIC (c) 1987, 2021 by ZarSoft Email: info@ArcaLusitana.org