Commodore 64 Manual de usuario Pagina 83

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 83
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 82
USING GRAPHIC CHARACTERS IN DATA STATEMENTS
The following program allows you to .create Q.sprite using blanks and
solid circles ( ').in DATAstatements. The spr~te:and the num-
bers. POKEd .into the sprite data registers are displayed.
.:-BllilCIIiIII
18 PR!NT" ~ :FiJRI =8T063 : POKE832+ I .' 8 : HE)<:T
:;-~8GOSU:E:6iZ1000
.999 Et.m
6IZU,;I0€1DATA".......
613001 IIATA" GI1IiI..dill "
61,miZ12DATA" ,Ii.
6130103 DATA" 811I1111I'11I110
6012ltNDATI=t" .'IIII.iP8 ....
613£11215DATA" . ... .....
6013iZI6DATA" '1lilDiP....
6121131217DATA" .....
60808 DATA"...Ci.............
6(18£19 DA'TA "..............
6€11211121IIATA" . ...111..'11I"111'.'Ii
612112111DATA" 11II...111... .
68tH2 DATA" " .
60813DATA"GI 1Ii1ill.
613014DATA" . ,... ..
60015 DATA" 011I. .
68016 DATA" II .. ..
613817DATA" .....
601318DfiTI"i" .....
68819 DATA" .....
61302121.DATA" ...
601£1(1 '11=53248: POKEV, 21313:POKEV+1.. 10121:POKEV+21, 1 :
POKEV+39,14:POKE2848,13
6~U 1215F.'OKE'y'+23, 1 :POKEV+29, 1
6121110 FOR I =(1T020 :.READA$ : FORK=0T02 : T=13: FOF:J=1<n07 :B=13
612114121IFtlID$(,A$.. J+K:+:8+1.. 1 )="."THEHB=l
6015121 T=T+B*2'f'(7-~T): HEXT: PRIHTT.; : POKE832+I*:;:HK, T:
NE:>::T : PFH t-n : t'IE>':T
612121210 RETUR:t.1
PROGRAMMING GRAPHICS .181
Vista de pagina 82
1 2 ... 78 79 80 81 82 83

Comentarios a estos manuales

Sin comentarios