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 codice: Francesco 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 ‘>’ e ‘<’. 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