3D World – Amstrad CPC – Locomotive Basic

Publisher: Amstrad Computer User – Numero: 75 – Febbraio 1991 – Recupero codice: Francesco Fiorentini

Continua la nostra opera di recupero codice. Questa volta si tratta di un piccolo programma in Locomotive Basic di appena 8 righe ad opera di Alan Scully e pubblicato su Amstrad Computer User Numero: 75 del Febbraio 1991.

Il programma é piuttosto semplice e non fa niente di particolare, se non simulare uno pseudo mondo in 3 dimensioni disegnando i meridiani ed i ‘paralleli’ su una superficie piana dando l’illusione di creare una sfera.

Titolo: 3D World
Piattaforma: Amstrad CPC
Linguaggio: Locomotive Basic
Versione originale: Alan Scully – 1990
Pubblicazione: Amstrad Computer User – 75 Febbraio 1991
Recupero codiceFrancesco Fiorentini
Anno: 2023
Download: N/A
Note: Emulatore suggerito, WinAPE.

Qui di seguito trovate il codice da copiare sul vostro Amstrad CPC.
Potete copiare il listato ed incollarlo su un emulatore come WinAPE.

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.

Listato:  3D World – Amstrad CPC – Locomotive Basic


1
2
3
4
5
6
7
8
10 REM 3D WORLD - PUBLIC DOMAIN by ALAN SCULLY - for ACU / SCULL PD LIBRARY
20 MODE 2:DEG:INK 0,0:BORDER 0:LOCATE 1,1:PRINT"Please Wait..."
30 DIM s(360),c(360):FOR m=0 TO 360:c(m)=COS(m):s(m)=SIN(m):NEXT
40 LOCATE 1,1:PRINT"Drawing the World..."
50 FOR r=0 TO 200 STEP 20:MOVE 320+r*S(0),200+200*C(0):FOR m=1 TO 360 STEP 2:DRAW 320+r*S(m),200+200*C(m),1:NEXT m,r
60 FOR r=0 TO 200 STEP 20:MOVE 320+200*c(0),200+r*s(0):FOR m=0 TO 360 STEP 2:DRAW 320+200*c(m),200+r*s(m),1:NEXT m,r
70 LOCATE 1,1:PRINT"3D World - Alan Scully '90"
80 LOCATE 68,25:PRINT"Press any Key";:CALL &BB18

Share

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.