Munch Out

Gallery

Source Code

  10 PRINT AT 1,10;"MUNCH OUT"
  20 INPUT A$
  30 LET A=LEN A$
  40 LET B=INT ((31-A)/2)
  50 PRINT AT 11,B;A$
  60 FOR N=0 TO 29 STEP 2
  70 PRINT AT 11,N;" C"
  80 FOR F=1 TO 6
  90 NEXT F
 100 PRINT AT 11,N+1;" O"
 110 FOR G=1 TO 6
 120 NEXT G
 130 NEXT N
 140 FOR J=1 TO 15
 150 NEXT J
 160 PRINT AT 11,30;" "
 170 GOTO 20
 180 SAVE "1015%5"
 190 RUN