On line with passion since 2007

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