0 POKE 808,225:IF S=1 THEN 99
1 C$="(C) COPYRIGHT 1985 BY CHRISTAKIS"+  " NIKOU  CONSTANTINOU. ALL RIGHTS RE"
2 Y$="[157][157][157][157][157]":NN$(1)="[215][215][215][215][215]"+Y$: NN$(2)=  "[215][215][215][215] "+Y$:NN$(3)="[215][160][160][160][215]"+Y$
3 X$="[145][145][145]":NN$(4) ="[215][215]  [215]"+Y$:NN$(  5)="[215][160][215][160][215]"+Y$:NN$(6)="[215][160][160][215][215]"+Y$
4 NN$(7)="[215] [215]  "+Y$: NN$(8) ="[160][160][215][160][160]"+Y$:  NN$(9)="[215]    "+Y$: NN$(10)=" [215][215][215] "+Y$
5 NI$(1)=NN$(3)+NN$(4)+NN$(5)+NN$(6)+NN$  (3)+"[145][145][145]":C$=C$+"SERVED."
6 NI$(2)="[129]"+NN$(10)+NN$(8)+NN$(8)+NN$(8  )+NN$(10)+X$+"[157]"+"[158]"
7 NI$(3)=NN$(2)+NN$(3)+NN$(2)+NN$(3)+NN$  (2)+X$+"[153]":NI$(4)=NI$(3)
8 NI$(5)="[156]"+NN$(9)+NN$(9)+NN$(9)+NN$(9)  +NN$(1)+X$:NI$(6)="[150]"+NN$(1)+NN$(9)
9 NI$(6)=NI$(6)+NN$(2)+NN$(9)+NN$(1)+X$:  NI$(7)="[154]"+NN$(2)+NN$(3)+NN$(2)
10 NI$(7)=NI$(7)+NN$(7)+NN$(6)+X$
11 SID=54272:PRINT"[147]";:FOR I=0 TO 24   :POKE SID+I,0:NEXT
12 POKE SID+24,15:RESTORE:POKE SID+5,82:   POKE SID+6,36:POKE SID+4,33
13 FOR I=1 TO 7:PRINT NI$(I);:READ FL,FH   ,DR:POKE SID,FL:POKE SID+1,FH
14 FOR J=1 TO DR*2:NEXT:NEXT:POKE SID+4,   0:PRINT:PRINT "[155]";C$;:DATA 31
15 DATA  21,160,239,19,200,31,21,160,96,   22,160,96,21,275,96,22,160,239,19,99
16 IF S=0 THEN S=1:LOAD "NIBBLER.O",8,1
99 SYS 50688:GOTO 11