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 consente di disegnare i contorni dell'Italia.

      1060 graphic 0,1
      1070 color 5,2:color 0,1:color 4,1
      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 x=112
      1150 y=34
      1160 restore 1260
      1170 graphic 1,1:k=0 :c=0
      1180 color 1,2
      1190 read d:k=k+1
      1200 if d=1111 then 1250
      1210 if d=0 then y=y+1:goto 1240
      1220 d=d-52
      1230 draw 1,(x+d),y
      1240 goto 1190
      1250 goto 1250
      1260 data 94,0,88,89,91,92,93,0,86,87,88,90,93,0,82,83,85,94,0,81,83,84,95,0
      1270 data 79,82,96,97,98,99,0,78,80,81,100,101,102,103,0,64,65,72,78,104,105,0
      1280 data 64,65,71,73,74,75,76,77,78,103,0,64,66,71,103,104,0
      1290 data 63,67,68,70,105,0,59,61,62,68,70,104,0,54,55,56,57,58,60,69,104,0
      1300 data 53,101,104,0,54,100,101,102,103,104,105,0,55,100,101,106,107,0
      1310 data 55,99,107,0,56,95,96,97,98,0,55,94,0,54,94,0
      1320 data 52,53,94,0,52,95,0,53,95,0,53,96,0,54,94,95,96,0,53,94,0
      1330 data 53,94,0,53,94,0,53,67,68,69,94,0,53,65,66,70,71,94,0
      1340 data 54,55,64,72,73,95,0,56,57,58,59,63,73,74,95,0,59,62,75,76,96,0
      1350 data 59,62,77,97,0,58,59,60,61,78,98,0,78,99,100,0,79,101,0,79,102,0
      1360 data 79,103,0,79,104,105,0,80,105,0,8,0,105,0,81,106,0,81,106,0,75,81,107,0
      1370 data 81,82,107,0,83,107,0,77,78,79,83,107,0,79,84,108,0,76,85,108,0
      1380 data 86,109,0,86,87,88,110,0,83,85,89,111,0,90,112,0,90,113,114,0
      1390 data 91,92,115,0,93,116,117,0,94,118,119,122,123,124,125,0,94,120,121,126,0
      1400 data 95,125,0,96,124,0,97,124,0,98,99,125,126,0,69,100,102,103,127,128,129
      1410 data 0,62,69,101,104,105,106,107,130,0,61,67,68,70,71,108,131,132,133,0
      1420 data 66,72,108,134,135,0,60,65,71,109,136,0
      1430 data 60,61,62,63,64,72,109,110,111,137,138,0,60,72,109,112,139,140,0
      1440 data 60,61,72,107,113,114,115,141,142,0,62,73,112,113,116,134,135,143,0
      1450 data 62,73,110,117,133,136,144,0,62,72,117,132,137,138,139,140,145,0
      1460 data 62,72,117,132,142,146,0,63,71,117,188,131,143,147,0
      1470 data 62,72,119,122,131,143,146,0,62,72,120,121,123,130,143,144,146,0
      1480 data 62,72,123,124,131,145,146,0,63,72,124,130,0,63,72,124,130,0
      1490 data 62,63,72,125,130,0,62,71,125,131,132,133,0,61,71,126,134,0
      1500 data 61,71,126,135,0,61,71,127,135,0,59,61,67,68,69,71,127,135,0
      1510 data 62,66,70,127,135,0,61,63,66,127,135,0,63,64,65,128,133,134,135,0
      1520 data 128,132,0,128,131,0,125,126,127,131,0,118,126,131,0,116,126,131,0
      1530 data 126,130,131,0,118,125,129,0,122,124,125,128,0
      1540 data 103,117,120,121,122,124,128,0,98,101,102,103,114,115,116,118,119
      1550 data 122,124,128,0,92,97,99,100,104,105,109,110,111,112,113,121,124,125
      1560 data 126,127,0,94,96,106,107,108,120,0,96,120,0,96,119,0,97,119,0
      1570 data 98,99,100,101,119,0,102,103,118,0,104,118,0,105,106,118,0
      1580 data 107,108,120,0,109,110,111,112,121,0,113,120,0,114,119,0
      1590 data 91,114,115,118,119,0,92,116,117,0,1111
		  

Torna indietro



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