Content
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