Sintax

	
	

	
	

		
Pascal
		
		
Pascalated BASIC
		
		
ZX81 BASIC
		
		
Note
		
	
	
	
	

		

REPEAT 
  ...
UNTIL condition; 			
		
		

REPEAT variable
  ...
UNTIL condition			
		
		

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

Variable name 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   			
		
		

Variable name must have only 1 char.
Be careful: the variable cannot be used 
by another loop at the same time.
          
	
	
	
	
	

		

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 
FOR i = i TO 0.5 STEP -1 
  ...
NEXT i 

LET i = (i<0)*-1 + (i=0)*( condition2 ) 
FOR i=i TO 0.5 STEP -2
  ...
NEXT i 

LET i = (i=0) 
FOR i = i TO 0.5 STEP -2 
  ...
NEXT i
		
		

Variable name must have only 1 char.
Be careful: the variable cannot be used 
by another loop at the same time.
      
		
	
	
	
	
	

		

routine_name(arg)
		
		

LET ARG = X
PROC ROUTINE NAME
		
		

LET arg1 = arg
GOSUB ROUTINE NAME
		
		

Procedure call
		
	
	
	
	
	

		

PROCEDURE routine_name
BEGIN
  ...
END
		
		

DEFPROC ROUTINE NAME 
  ...
ENDPROC
		
		

REM ROUTINE NAME		
  ...
RETURN
		
		

Procedure declaration
		
	
	
	
	
	

		

t := routine_name(arg)
		
		

LET ARG = X
PROC ROUTINE NAME
LET T = RESULT
		
		

LET ARG = X
GOSUB ROUTINE NAME
LET T = RESULT
		
		

Function call
		
	
	
	
	
	

		

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

DEFPROC ROUTINE NAME		
LET U = ARG
...
LET RESULT = V
ENDPROC
		
		

REM ROUTINE NAME		
LET U = ARG
...
LET RESULT = V
RETURN 
		
		

Function declaration
		
	
	
	
	
	

		

total_apples := 0
		
		

LET TOTALAPPLES = 0
LET TOTAL APPLES = 0
		
		

LET TOTALAPPLES = 0

LET TOTAL APPLES = 0

		
		

Remember that a string array and a simple string variable 
cannot have the same name - unlike the case for numbers.
On variable names, you can use spaces - they are ignored.
Warning: On variable names, dont use spaces when the first 
word is a reserved word because emulators usually get confused.
		
	
		
  

    
 If you run out of computer memory then ask the administrator to add the option to remove comments from the program.
    
  
  
  

Compre o livro - Buy the book

BASIC Apascalado Para o ZX81	Pascalated BASIC For the ZX81
São 150 páginas com artigos e listagens dos 15 programas deste tutorial - 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 ZX81. 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 ZX81 Pascalated BASIC For the ZX81 Portugal e ilhas Euro 12,50 Euro 13,50 Estrangeiro Euro 17,50 Euro 19,25	There are 150 pages with articles and listings of the 15 programs of this 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 ZX81. 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 ZX81 Outside Portugal Euro 19,25
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

---

Pascalated BASIC for the ZX Spectrum (c) 1987, 2021 by ZarSoft Pascalated BASIC for the ZX81 (c) 2024 by ZarSoft Email: info@ArcaLusitana.org