Zarsoft Inc

Socorro, mãezinha! O meu ZX81 não tem o comando GOTO! Eu sei que é difícil de acreditar, mas ainda existem algumas pessoas no mundo que não gostam do comando GOTO... este artigo é para elas. A ideia é acrescentar alguns comandos estruturados ao BASIC do ZX81: REPEAT-UNTIL WHILE-ENDWHILE IF-ELSEIF-ELSE-ENDIF Assim, é possível escrever programas sem o comando GOTO. Como exemplo, vamos apresentar o velho jogo de adivinhar um número. Para correr o programa online, clicar aqui. https://arcalusitana.org/MuseuZX/index.html?section=games81&program=Guess%20Number%20(2024)%20%5bZarsoft%5d É fácil converter um programa BASIC Apascalado em BASIC do ZX81. Para aceder à página do conversor, clicar aqui. https://arcalusitana.org/MuseuZX/Pascalated_ZX81 E, não se esqueçam que está em aberto o concurso BASIC Apascalado para o ZX Spectrum. Quem estiver interessado neste concurso, pode ler o regulamento aqui. http://arcalusitana.org/MuseuZX/Pascalated_ZXBASIC/Concurso2024.html Em caso de ...

TOP SECRET do not read this article Vamos dar início à iniciação na Sociedade Secreta dos programas obfuscados escritos em 1 linha. Isto é só para programadores avançados. Não tentem fazer isto em casa senão podem ficar com os miolos em puré (papa)! A maneira mais fácil de escrever um programa em apenas 1 linha é usar BASIC Apascalado. Eis os passos: 1. Ir até à página do Conversor de BASIC Apascalado ( aqui ). 2. Escrever um programa. Exemplo: PROGRAM factorials PROC main routine END DEFPROC main routine PROC introduction PROC get limit PROC write factorials ENDPROC DEFPROC introduction PRINT "Factorials list" PRINT "Pascalated BASIC demonstration" PRINT ENDPROC DEFPROC get limit REPEAT w PRINT "max argument = "; INPUT limit : PRINT limit IF limit >= 12 BEGIN y PRINT PRINT "Must be lower than 12." PRINT "Try again." PRINT ELSEIF limit = 0) AND (limit 1 DO y LET result = result * argument LET argument...