0 GOSUB6000:CLR:REM C64 BREAK-FAST, C1988 G. DE BLOIS
1 FORX=1TO40:A$=A$+"[207]":NEXT:POKE53280,6:POKE53281,14:POKE646,0:DX=1:DY=1:PX=37
2 PY=10:PRINT"[147]"TAB(15);"BREAK-FAST":PP=18:PP$="[192][192][192][192][192]":PRINT"[144]";A$;"";A$;
3 PRINT"[153]";A$;"[158]";A$;"";A$;"[144]"
4 POKE214,22:PRINT:PRINTTAB(PP);PP$:ZZ=PX+40*PY:IFZZ<1000THENPOKE1024+ZZ,81
5 IFLP<>PPTHENPOKE214,22:PRINT:PRINTTAB(LP)"     ";:IFZZ<1000THENPOKE54296+ZZ,0
6 LP=PP:X=(PEEK(56320)AND15):IFX=11THENPP=PP-2:IFPP<0THENPP=0
7 IFX=7THENPP=PP+2:IFPP>35THENPP=34
10 POKE214,22:PRINT:PRINTTAB(PP);PP$:IFZZ<1000ANDZZ>1THENPOKE1024+ZZ,32
11 PX=PX+DX:IFPX<=0ORPX>=38THENDX=-DX
12 PY=PY+DY:IFPY<=1THENDY=-DY
13 ZZ=PEEK(1024+PX+40*PY):IFPY>23THENNM%=NM%+1:IFNM%>3THENNM%=0:GOTO20
15 IFZZ=207THENSC=SC+100:PRINT""SC:POKE54296,15:POKE54296,0:DY=-DY:GOTO4
16 IFZZ<>81ANDZZ<>32THENDY=-DY:GOTO4
17 GOTO4
20 PRINT"[147]GAME OVER ":PRINT"SCORE"SC
35 :
40 :
41 :
42 :
43 :
44 :
45 :
50 POKE214,10:PRINT:PRINT"DO YOU WANT TO PLAY AGAIN? (Y/N)":POKE2048,0
56 GETA$:IFA$="Y"THENRUN1
57 IFA$="N"THEN 100
59 GOTO56
100 OPEN15,8,15,"R0:ONE-SCREEN WINNERS=ONE-SCREEN WINNERS":INPUT#15,ER:CLOSE15
101 IF ER<>63 THEN PRINT"[147]":END
102 LOAD"ONE-SCREEN WINNERS",8
200 :
6000 POKE53280, 0:POKE53281, 0:PRINT"[147]";
6001 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6002 PRINT"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
6003 PRINT"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6004 PRINT"[172]                    [146][187]"
6005 PRINT"                      "
6006 PRINT"                      "
6007 PRINT"[163][163][163][163][163][163][163][163][163][160] b r e a[160]k[160][160]f a[160]s t  [146][163][163][163][163][163][163][163][163][163][160]               ";
6008 PRINT"     [160]"
6009 PRINT"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]    bY g. dE bLO";
6010 PRINT"IS   [160]"
6011 PRINT"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
6012 PRINT"      "
6013 PRINT"[188]                    [146][190]"
6014 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6015 PRINT"[152] press space[160]to[160]continue  "
6016 PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6030 GETA$:IFA$<>" "THEN6030
6035 PRINT"[147]"CHR$(142):RETURN