mongolfiera Un piccolo esempio di programmazione in basic 10. La cara vecchia mongolfiera che solcava lo schermo del Commodore 64 ora sul Commodore 65.

Il listato è quì di seguito

 

 

 

 

10 SCNCLR
20 FOR N=0 TO 62: READ Q: POKE DEC("640")+N,Q: NEXT
30 SPRITE 2,1,5: REM mongolfiera viola
40 FOR X= 0 TO 200
50 MOVSPR 2,24+X,50+X
60 NEXT X
70 GOTO 40
80 DATA 0,127,0,1,255,192,3,255,224,3,231,224
90 DATA 7,217,240,7,223,240,7,217,240,3,231,224
100 DATA 3,255,224,3,255,224,2,255,160,1,127,64
110 DATA 1,62,64,0,15,128,0,156,128,0,73,0,0,73,0
120 DATA 0,62,0,0,62,0,0,62,0,0,28,0