Retrocomputer, Emulazione, Riparazioni Scambi/Vendite e collezionismo - Cerco Commodore - Approfondimenti, Listati Basic Commodore

Commodore CErco COmmodore - l'iniziativa di appassionati di retrocomputer


Listato per il basic del Commodore 128 che disegna in alta risoluzione le curve di alcune funzioni matematiche.

        1060 graphic 0,1
        1070 color 5,2: color 0,13: color 4,7
        1080 sound 1,0,0:sound 2,0,0
        1090 sound 3,0,0: vol 0
        1100 print chr$(142)
        1110 for a=1 to 8
        1120 sprite a,0: next a
        1140 graphic 1,1:color 1,2
        1150 for x=0 to 320 
        1160 draw 1,x,199-(x*x/515) 
        1170 next x
        1180 for x=0 to 320
        1190 draw 1,x,199-(x*x/515) to x,199
        1200 next x
        1210 sleep 4
        1220 color 1,14:scnclr
        1230 for x=0 to 320
        1240 y=rnd(1)*x/1.6
        1250 draw 1,x,199-y to x,199
        1260 next x
        1270 sleep 4
        1280 color 1,5:scnclr
        1290 for x=0 to 320
        1300 y=199-log(x/5+1)*47
        1310 draw 1,x,y
        1320 next x
        1330 for x=0 to 320 
        1340 y=199-log(x/5+1)*47
        1350 draw 1,x,y to x,199
        1360 next x
        1370 sleep 4
        1380 color 1,8:scnclr
        1385 for x=0 to 320
        1390 draw 1,x,199-(99+cos(cos/180*(180+x*1.13))*99)
        1410 next x
        1420 for x=0 to 320
        1430 y=99+(cos(cos/180*(180+x*1.13))*99)
        1440 draw 1,x,199-y to x,199
        1450 next x
        1460 sleep 6
        1470 graphic 0,1:color 4,7
        1480 color 0,1:color 5,2
		  

Torna indietro



Copyright 2003 - 2018 (c) - Tutti i diritti riservati -