1 REM "B.PETALS" 2003.07.14
10 D=PEEK(186):IFD<8THENPOKE186,8:RUN
20 GOSUB41000:PRINT"[144]";
30 A$="PETALS.PKD":B$="L[207]A$,D"+CHR$(13)+"R[213]"+CHR$(13)
59 POKE828,0:L=0:H=8:POKE44,H:POKE43,L+1:POKEL+H*256,0
60 FORX=1TO10:POKE630+X,ASC(MID$(B$,X)):NEXT:POKE198,10:END
10000 D=8:F$="0:B.PETALS":OPEN1,D,15,"S"+F$:CLOSE1:SAVEF$,D:END
41000 POKE53280,0:POKE53281,0:PRINT"[147]":POKE214,7:PRINT
41004 PRINTTAB(3)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
41006 FORX=1TO10:PRINTTAB(3)"[152]                                 ":NEXT
41013 PRINTTAB(3)"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
41020 FORX=10TO16STEP2:READA$:POKE214,X:PRINT:PRINTTAB(20-LEN(A$)/2)"[152]"A$:NEXT
41032 RETURN
41050 DATA"[208] [197] [212] [193] [204] [211]","BY [204]ANCE [195]. [212]HOMAS
41052 [131]"(C) 2003 MID$ & ASC (null)UBLISHING, RIGHT$NC.","WWW.LOADSTAR.COM