Jump to content

mmphosis

Members
  • Content Count

    2
  • Joined

  • Last visited

Posts posted by mmphosis


  1. 10 HGR : FOR L = 0 TO 14

    20 Y = 64 + L * 2:V = Y + 1

    30 READ A$: FOR P = 1 TO 16

    40 C = VAL ( MID$ (A$,P,1))

    50 X = 122 + P * 2:U = X + 1

    60 ON C > 0 GOSUB 80: NEXT P,L

    70 END : DATA........55777777

    80 HCOLOR= C: HPLOT X,Y TO U,Y

    90 HPLOT X,V TO U,V: RETURN

    100 DATA............777.

    110 DATA...........777..

    120 DATA.....55776777...

    130 DATA........6777755.

    140 DATA.......77777555.

    150 DATA...77777755777..

    160 DATA7777777755777777

    170 DATA...77777755777..

    180 DATA.......77777555.

    190 DATA........6777755.

    200 DATA.....55776777...

    210 DATA...........777..

    220 DATA............777.

    230 DATA........55777777


    LIST:VTAB23
×
×
  • Create New...